1 // Copyright (c) 1998-1999 Matra Datavision
2 // Copyright (c) 1999-2014 OPEN CASCADE SAS
4 // This file is part of Open CASCADE Technology software library.
6 // This library is free software; you can redistribute it and/or modify it under
7 // the terms of the GNU Lesser General Public License version 2.1 as published
8 // by the Free Software Foundation, with special exception defined in the file
9 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
10 // distribution for complete text of the license and disclaimer of any warranty.
12 // Alternatively, this file may be used under the terms of Open CASCADE
13 // commercial license or contractual agreement.
16 #include <Standard_ErrorHandler.hxx>
17 #include <Storage_HeaderData.hxx>
18 #include <Storage_BaseDriver.hxx>
19 #include <Storage_StreamTypeMismatchError.hxx>
20 #include <Storage_StreamExtCharParityError.hxx>
21 #include <TCollection_AsciiString.hxx>
22 #include <TCollection_ExtendedString.hxx>
24 IMPLEMENT_STANDARD_RTTIEXT(Storage_HeaderData,Standard_Transient)
26 Storage_HeaderData::Storage_HeaderData() : myNBObj(0), myErrorStatus(Storage_VSOk)
30 Standard_Boolean Storage_HeaderData::Read (Storage_BaseDriver& theDriver)
32 // Check driver open mode
33 if (theDriver.OpenMode() != Storage_VSRead
34 && theDriver.OpenMode() != Storage_VSReadWrite)
36 myErrorStatus = Storage_VSModeError;
37 myErrorStatusExt = "OpenMode";
38 return Standard_False;
42 myErrorStatus = theDriver.BeginReadInfoSection();
43 if (myErrorStatus != Storage_VSOk)
45 myErrorStatusExt = "BeginReadInfoSection";
46 return Standard_False;
53 theDriver.ReadInfo (myNBObj,
63 catch (Storage_StreamTypeMismatchError)
65 myErrorStatus = Storage_VSTypeMismatch;
66 myErrorStatusExt = "ReadInfo";
67 return Standard_False;
69 catch (Storage_StreamExtCharParityError)
71 myErrorStatus = Storage_VSExtCharParityError;
72 myErrorStatusExt = "ReadInfo";
73 return Standard_False;
77 myErrorStatus = theDriver.EndReadInfoSection();
78 if (myErrorStatus != Storage_VSOk)
80 myErrorStatusExt = "EndReadInfoSection";
81 return Standard_False;
84 // Read comment section
85 myErrorStatus = theDriver.BeginReadCommentSection();
86 if (myErrorStatus != Storage_VSOk)
88 myErrorStatusExt = "BeginReadCommentSection";
89 return Standard_False;
96 theDriver.ReadComment (myComments);
98 catch (Storage_StreamTypeMismatchError)
100 myErrorStatus = Storage_VSTypeMismatch;
101 myErrorStatusExt = "ReadComment";
102 return Standard_False;
104 catch (Storage_StreamExtCharParityError)
106 myErrorStatus = Storage_VSExtCharParityError;
107 myErrorStatusExt = "ReadComment";
108 return Standard_False;
112 myErrorStatus = theDriver.EndReadCommentSection();
113 if (myErrorStatus != Storage_VSOk)
115 myErrorStatusExt = "EndReadCommentSection";
116 return Standard_False;
119 return Standard_True;
122 TCollection_AsciiString Storage_HeaderData::CreationDate() const
127 void Storage_HeaderData::SetSchemaVersion(const TCollection_AsciiString& aVersion)
129 mySchemaVersion = aVersion;
132 TCollection_AsciiString Storage_HeaderData::SchemaVersion() const
134 return mySchemaVersion;
137 void Storage_HeaderData::SetSchemaName(const TCollection_AsciiString& aSchemaName)
139 mySchemaName = aSchemaName;
142 TCollection_AsciiString Storage_HeaderData::SchemaName() const
147 void Storage_HeaderData::SetApplicationVersion(const TCollection_AsciiString& aVersion)
149 myApplicationVersion = aVersion;
152 TCollection_AsciiString Storage_HeaderData::ApplicationVersion() const
154 return myApplicationVersion;
157 void Storage_HeaderData::SetApplicationName(const TCollection_ExtendedString& aName)
159 myApplicationName = aName;
162 TCollection_ExtendedString Storage_HeaderData::ApplicationName() const
164 return myApplicationName;
167 void Storage_HeaderData::SetDataType(const TCollection_ExtendedString& aName)
172 TCollection_ExtendedString Storage_HeaderData::DataType() const
177 void Storage_HeaderData::AddToUserInfo(const TCollection_AsciiString& theUserInfo)
179 myUserInfo.Append(theUserInfo);
182 const TColStd_SequenceOfAsciiString& Storage_HeaderData::UserInfo() const
187 void Storage_HeaderData::AddToComments(const TCollection_ExtendedString& aComments)
189 myComments.Append(aComments);
192 const TColStd_SequenceOfExtendedString& Storage_HeaderData::Comments() const
197 Standard_Integer Storage_HeaderData::NumberOfObjects() const
202 void Storage_HeaderData::SetNumberOfObjects(const Standard_Integer anObjectNumber)
204 myNBObj = anObjectNumber;
207 void Storage_HeaderData::SetStorageVersion(const TCollection_AsciiString& v)
209 myStorageVersion = v;
212 void Storage_HeaderData::SetCreationDate(const TCollection_AsciiString& d)
217 TCollection_AsciiString Storage_HeaderData::StorageVersion() const
219 return myStorageVersion;
222 Storage_Error Storage_HeaderData::ErrorStatus() const
224 return myErrorStatus;
227 void Storage_HeaderData::SetErrorStatus(const Storage_Error anError)
229 myErrorStatus = anError;
232 TCollection_AsciiString Storage_HeaderData::ErrorStatusExtension() const
234 return myErrorStatusExt;
237 void Storage_HeaderData::SetErrorStatusExtension(const TCollection_AsciiString& anErrorExt)
239 myErrorStatusExt = anErrorExt;
242 void Storage_HeaderData::ClearErrorStatus()
244 myErrorStatus = Storage_VSOk;
245 myErrorStatusExt.Clear();