mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-18 17:06:14 +08:00
6e33d3ced2
Redundant keyword 'mutable' removed in CDL files. In IGESConvGeom_GeomBuilder, unused methods MakeXY() and MakeXYZ() removed. Method StepAP214_AutoDesignGroupAssignment::Init() replicating same method of the base class is removed as it causes CDL extraction error after above (seemingly irrelevant) changes.
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 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;
|