mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-08 18:40:55 +03:00
d5f74e42d6
License statement text corrected; compiler warnings caused by Bison 2.41 disabled for MSVC; a few other compiler warnings on 54-bit Windows eliminated by appropriate type cast Wrong license statements corrected in several files. Copyright and license statements added in XSD and GLSL files. Copyright year updated in some files. Obsolete documentation files removed from DrawResources.
114 lines
4.3 KiB
Plaintext
114 lines
4.3 KiB
Plaintext
-- Created on: 1997-02-06
|
|
-- Created by: Kernel
|
|
-- Copyright (c) 1997-1999 Matra Datavision
|
|
-- Copyright (c) 1999-2014 OPEN CASCADE SAS
|
|
--
|
|
-- This file is part of Open CASCADE Technology software library.
|
|
--
|
|
-- This library is free software; you can redistribute it and/or modify it under
|
|
-- the terms of the GNU Lesser General Public License version 2.1 as published
|
|
-- by the Free Software Foundation, with special exception defined in the file
|
|
-- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
|
|
-- distribution for complete text of the license and disclaimer of any warranty.
|
|
--
|
|
-- Alternatively, this file may be used under the terms of Open CASCADE
|
|
-- commercial license or contractual agreement.
|
|
|
|
class HeaderData from Storage
|
|
|
|
inherits TShared from MMgt
|
|
|
|
uses AsciiString from TCollection,
|
|
SequenceOfAsciiString from TColStd,
|
|
Error from Storage,
|
|
ExtendedString from TCollection,
|
|
SequenceOfExtendedString from TColStd
|
|
|
|
is
|
|
|
|
Create returns mutable HeaderData from Storage;
|
|
|
|
CreationDate(me) returns AsciiString from TCollection;
|
|
---Purpose: return the creation date
|
|
|
|
StorageVersion(me) returns AsciiString from TCollection;
|
|
---Purpose: return the Storage package version
|
|
|
|
SchemaVersion(me) returns AsciiString from TCollection;
|
|
---Purpose: get the version of the schema
|
|
|
|
SchemaName(me) returns AsciiString from TCollection;
|
|
---Purpose: get the schema's name
|
|
|
|
SetApplicationVersion(me : mutable; aVersion : AsciiString from TCollection);
|
|
---Purpose: set the version of the application
|
|
|
|
ApplicationVersion(me) returns AsciiString from TCollection;
|
|
---Purpose: get the version of the application
|
|
|
|
SetApplicationName(me : mutable; aName : ExtendedString from TCollection);
|
|
---Purpose: set the name of the application
|
|
|
|
ApplicationName(me) returns ExtendedString from TCollection;
|
|
---Purpose: get the name of the application
|
|
|
|
SetDataType(me : mutable; aType : ExtendedString from TCollection);
|
|
---Purpose: set the data type
|
|
|
|
DataType(me) returns ExtendedString from TCollection;
|
|
---Purpose: returns data type
|
|
|
|
AddToUserInfo(me : mutable; theUserInfo : AsciiString from TCollection);
|
|
---Purpose: add <theUserInfo> to the user informations
|
|
|
|
UserInfo(me) returns SequenceOfAsciiString from TColStd;
|
|
---Purpose: return the user informations
|
|
---C++: return const &
|
|
|
|
AddToComments(me : mutable; aComment : ExtendedString from TCollection);
|
|
---Purpose: add <theUserInfo> to the user informations
|
|
|
|
Comments(me) returns SequenceOfExtendedString from TColStd;
|
|
---Purpose: return the user informations
|
|
---C++: return const &
|
|
|
|
NumberOfObjects(me) returns Integer;
|
|
---Purpose: the the number of persistent objects
|
|
-- Return:
|
|
-- the number of persistent objects readed
|
|
|
|
ErrorStatus(me) returns Error from Storage;
|
|
ErrorStatusExtension(me) returns AsciiString from TCollection;
|
|
|
|
ClearErrorStatus(me : mutable);
|
|
|
|
|
|
-- PRIVATE
|
|
|
|
SetNumberOfObjects(me : mutable; anObjectNumber : Integer from Standard) is private;
|
|
SetStorageVersion(me : mutable; aVersion : AsciiString from TCollection) is private;
|
|
SetCreationDate(me : mutable; aDate : AsciiString from TCollection) is private;
|
|
SetSchemaVersion(me : mutable; aVersion : AsciiString from TCollection) is private;
|
|
SetSchemaName(me : mutable; aName : AsciiString from TCollection) is private;
|
|
SetErrorStatus(me : mutable; anError : Error from Storage) is private;
|
|
SetErrorStatusExtension(me : mutable; anErrorExt : AsciiString from TCollection) is private;
|
|
|
|
fields
|
|
|
|
myNBObj : Integer from Standard;
|
|
myStorageVersion : AsciiString from TCollection;
|
|
mySchemaVersion : AsciiString from TCollection;
|
|
mySchemaName : AsciiString from TCollection;
|
|
myApplicationVersion : AsciiString from TCollection;
|
|
myApplicationName : ExtendedString from TCollection;
|
|
myDataType : ExtendedString from TCollection;
|
|
myDate : AsciiString from TCollection;
|
|
myUserInfo : SequenceOfAsciiString from TColStd;
|
|
myComments : SequenceOfExtendedString from TColStd;
|
|
|
|
myErrorStatus : Error from Storage;
|
|
myErrorStatusExt : AsciiString from TCollection;
|
|
|
|
friends class Schema from Storage
|
|
end;
|