mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
329 lines
11 KiB
Plaintext
Executable File
329 lines
11 KiB
Plaintext
Executable File
-- Created on: 1996-11-29
|
|
-- Created by: Christophe LEYNADIER
|
|
-- Copyright (c) 1996-1999 Matra Datavision
|
|
-- Copyright (c) 1999-2012 OPEN CASCADE SAS
|
|
--
|
|
-- The content of this file is subject to the Open CASCADE Technology Public
|
|
-- License Version 6.5 (the "License"). You may not use the content of this file
|
|
-- except in compliance with the License. Please obtain a copy of the License
|
|
-- at http://www.opencascade.org and read it completely before using this file.
|
|
--
|
|
-- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
|
|
-- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
|
|
--
|
|
-- The Original Code and all software distributed under the License is
|
|
-- distributed on an "AS IS" basis, without warranty of any kind, and the
|
|
-- Initial Developer hereby disclaims all such warranties, including without
|
|
-- limitation, any warranties of merchantability, fitness for a particular
|
|
-- purpose or non-infringement. Please see the License for the specific terms
|
|
-- and conditions governing the rights and limitations under the License.
|
|
|
|
|
|
class BinaryFile from FSD
|
|
|
|
inherits BaseDriver from Storage
|
|
|
|
uses Position from Storage,
|
|
Error from Storage,
|
|
OpenMode from Storage,
|
|
AsciiString from TCollection,
|
|
SequenceOfAsciiString from TColStd,
|
|
SequenceOfExtendedString from TColStd,
|
|
ExtendedString from TCollection,
|
|
FileHeader from FSD,
|
|
BStream from FSD
|
|
|
|
raises StreamTypeMismatchError from Storage,
|
|
StreamFormatError from Storage,
|
|
StreamWriteError from Storage,
|
|
StreamExtCharParityError from Storage
|
|
|
|
is
|
|
Create returns BinaryFile from FSD;
|
|
|
|
Open(me : in out; aName : AsciiString from TCollection; aMode : OpenMode from Storage) returns Error from Storage;
|
|
|
|
IsEnd(me : in out) returns Boolean from Standard;
|
|
|
|
Tell( me : in out ) returns Position from Storage;
|
|
---Purpose: return position in the file. Return -1 upon error.
|
|
|
|
IsGoodFileType(myclass; aName : AsciiString from TCollection)
|
|
returns Error from Storage;
|
|
|
|
-- INFO SECTION
|
|
-- write
|
|
--
|
|
BeginWriteInfoSection(me : in out) returns Error from Storage;
|
|
|
|
WriteInfo(me : in out; nbObj : Integer from Standard;
|
|
dbVersion : AsciiString from TCollection;
|
|
date : AsciiString from TCollection;
|
|
schemaName : AsciiString from TCollection;
|
|
schemaVersion : AsciiString from TCollection;
|
|
appName : ExtendedString from TCollection;
|
|
appVersion : AsciiString from TCollection;
|
|
objectType : ExtendedString from TCollection;
|
|
userInfo : SequenceOfAsciiString from TColStd)
|
|
raises StreamWriteError;
|
|
|
|
EndWriteInfoSection(me : in out) returns Error from Storage;
|
|
|
|
-- read
|
|
--
|
|
BeginReadInfoSection(me : in out) returns Error from Storage;
|
|
|
|
ReadInfo(me : in out; nbObj : in out Integer from Standard;
|
|
dbVersion : in out AsciiString from TCollection;
|
|
date : in out AsciiString from TCollection;
|
|
schemaName : in out AsciiString from TCollection;
|
|
schemaVersion : in out AsciiString from TCollection;
|
|
appName : in out ExtendedString from TCollection;
|
|
appVersion : in out AsciiString from TCollection;
|
|
objectType : in out ExtendedString from TCollection;
|
|
userInfo : in out SequenceOfAsciiString from TColStd)
|
|
raises StreamTypeMismatchError,StreamExtCharParityError;
|
|
|
|
EndReadInfoSection(me : in out) returns Error from Storage;
|
|
|
|
-- COMMENTS SECTION
|
|
-- write
|
|
--
|
|
BeginWriteCommentSection(me : in out) returns Error from Storage;
|
|
|
|
WriteComment(me : in out; userComments : SequenceOfExtendedString from TColStd)
|
|
raises StreamWriteError;
|
|
|
|
EndWriteCommentSection(me : in out) returns Error from Storage;
|
|
|
|
-- read
|
|
--
|
|
BeginReadCommentSection(me : in out) returns Error from Storage;
|
|
|
|
ReadComment(me : in out; userComments : in out SequenceOfExtendedString from TColStd)
|
|
raises StreamTypeMismatchError,StreamExtCharParityError;
|
|
|
|
EndReadCommentSection(me : in out) returns Error from Storage;
|
|
|
|
|
|
-- TYPE SECTION
|
|
--
|
|
BeginWriteTypeSection(me : in out) returns Error from Storage;
|
|
|
|
SetTypeSectionSize(me : in out; aSize : Integer from Standard)
|
|
raises StreamWriteError;
|
|
|
|
WriteTypeInformations(me : in out; typeNum : Integer from Standard; typeName : AsciiString from TCollection)
|
|
raises StreamWriteError;
|
|
|
|
EndWriteTypeSection(me : in out) returns Error from Storage;
|
|
|
|
-- read
|
|
BeginReadTypeSection(me : in out) returns Error from Storage;
|
|
|
|
TypeSectionSize(me : in out) returns Integer from Standard
|
|
raises StreamTypeMismatchError;
|
|
|
|
ReadTypeInformations(me : in out; typeNum : in out Integer from Standard; typeName : in out AsciiString from TCollection)
|
|
raises StreamTypeMismatchError;
|
|
|
|
EndReadTypeSection(me : in out) returns Error from Storage;
|
|
|
|
-- ROOT SECTION
|
|
-- write
|
|
--
|
|
BeginWriteRootSection(me : in out) returns Error from Storage;
|
|
|
|
SetRootSectionSize(me : in out; aSize : Integer from Standard)
|
|
raises StreamWriteError;
|
|
|
|
WriteRoot(me : in out; rootName : AsciiString from TCollection; aRef : Integer from Standard; aType : AsciiString from TCollection)
|
|
raises StreamWriteError;
|
|
|
|
EndWriteRootSection(me : in out) returns Error from Storage;
|
|
|
|
-- read
|
|
--
|
|
BeginReadRootSection(me : in out) returns Error from Storage;
|
|
|
|
RootSectionSize(me : in out) returns Integer from Standard
|
|
raises StreamTypeMismatchError;
|
|
|
|
ReadRoot(me : in out; rootName : in out AsciiString from TCollection; aRef : in out Integer from Standard; aType : in out AsciiString from TCollection)
|
|
raises StreamTypeMismatchError;
|
|
|
|
EndReadRootSection(me : in out) returns Error from Storage;
|
|
|
|
-- REF SECTION
|
|
-- write
|
|
--
|
|
BeginWriteRefSection(me : in out) returns Error from Storage;
|
|
|
|
SetRefSectionSize(me : in out; aSize : Integer from Standard)
|
|
raises StreamWriteError;
|
|
|
|
WriteReferenceType(me : in out; reference : Integer from Standard; typeNum : Integer from Standard)
|
|
raises StreamWriteError;
|
|
|
|
EndWriteRefSection(me : in out) returns Error from Storage;
|
|
|
|
-- read
|
|
--
|
|
BeginReadRefSection(me : in out) returns Error from Storage;
|
|
|
|
RefSectionSize(me : in out) returns Integer from Standard
|
|
raises StreamTypeMismatchError;
|
|
|
|
ReadReferenceType(me : in out; reference : in out Integer from Standard; typeNum : in out Integer from Standard)
|
|
raises StreamTypeMismatchError;
|
|
|
|
EndReadRefSection(me : in out) returns Error from Storage;
|
|
|
|
-- DATA SECTION
|
|
-- write
|
|
--
|
|
BeginWriteDataSection(me : in out) returns Error from Storage;
|
|
|
|
WritePersistentObjectHeader(me : in out; aRef : Integer from Standard; aType : Integer from Standard)
|
|
raises StreamWriteError;
|
|
|
|
BeginWritePersistentObjectData(me : in out)
|
|
raises StreamWriteError;
|
|
|
|
BeginWriteObjectData(me : in out)
|
|
raises StreamWriteError;
|
|
|
|
EndWriteObjectData(me : in out)
|
|
raises StreamWriteError;
|
|
|
|
EndWritePersistentObjectData(me : in out)
|
|
raises StreamWriteError;
|
|
|
|
EndWriteDataSection(me : in out) returns Error from Storage;
|
|
|
|
-- read
|
|
--
|
|
BeginReadDataSection(me : in out) returns Error from Storage;
|
|
|
|
ReadPersistentObjectHeader(me : in out; aRef : in out Integer from Standard; aType : in out Integer from Standard)
|
|
raises StreamTypeMismatchError,StreamFormatError;
|
|
|
|
BeginReadPersistentObjectData(me : in out)
|
|
raises StreamFormatError;
|
|
|
|
BeginReadObjectData(me : in out)
|
|
raises StreamFormatError;
|
|
|
|
EndReadObjectData(me : in out)
|
|
raises StreamFormatError;
|
|
|
|
EndReadPersistentObjectData(me : in out)
|
|
raises StreamFormatError;
|
|
|
|
EndReadDataSection(me : in out) returns Error from Storage;
|
|
|
|
--
|
|
SkipObject(me : in out);
|
|
--
|
|
|
|
PutReference(me : in out; aValue : Integer from Standard) returns like me
|
|
raises StreamWriteError;
|
|
---C++: return &
|
|
|
|
PutCharacter(me : in out; aValue : Character from Standard) returns like me
|
|
raises StreamWriteError;
|
|
---C++: alias operator <<
|
|
---C++: return &
|
|
|
|
PutExtCharacter(me : in out; aValue : ExtCharacter from Standard) returns like me
|
|
raises StreamWriteError;
|
|
---C++: alias operator <<
|
|
---C++: return &
|
|
|
|
PutInteger(me : in out; aValue : Integer from Standard) returns like me
|
|
raises StreamWriteError;
|
|
---C++: alias operator <<
|
|
---C++: return &
|
|
|
|
PutBoolean(me : in out; aValue : Boolean from Standard) returns like me
|
|
raises StreamWriteError;
|
|
---C++: alias operator <<
|
|
---C++: return &
|
|
|
|
PutReal(me : in out; aValue : Real from Standard) returns like me
|
|
raises StreamWriteError;
|
|
---C++: alias operator <<
|
|
---C++: return &
|
|
|
|
PutShortReal(me : in out; aValue : ShortReal from Standard) returns like me
|
|
raises StreamWriteError;
|
|
---C++: alias operator <<
|
|
---C++: return &
|
|
|
|
GetReference(me : in out; aValue : in out Integer from Standard) returns like me
|
|
raises StreamTypeMismatchError;
|
|
---C++: return &
|
|
|
|
GetCharacter(me : in out; aValue : in out Character from Standard) returns like me
|
|
raises StreamTypeMismatchError;
|
|
---C++: alias operator >>
|
|
---C++: return &
|
|
|
|
GetExtCharacter(me : in out; aValue : in out ExtCharacter from Standard) returns like me
|
|
raises StreamTypeMismatchError;
|
|
---C++: alias operator >>
|
|
---C++: return &
|
|
|
|
GetInteger(me : in out; aValue : in out Integer from Standard) returns like me
|
|
raises StreamTypeMismatchError;
|
|
---C++: alias operator >>
|
|
---C++: return &
|
|
|
|
GetBoolean(me : in out; aValue : in out Boolean from Standard) returns like me
|
|
raises StreamTypeMismatchError;
|
|
---C++: alias operator >>
|
|
---C++: return &
|
|
|
|
GetReal(me : in out; aValue :in out Real from Standard) returns like me
|
|
raises StreamTypeMismatchError;
|
|
---C++: alias operator >>
|
|
---C++: return &
|
|
|
|
GetShortReal(me : in out; aValue : in out ShortReal from Standard) returns like me
|
|
raises StreamTypeMismatchError;
|
|
---C++: alias operator >>
|
|
---C++: return &
|
|
|
|
Close(me : in out) returns Error from Storage;
|
|
|
|
Destroy(me : in out);
|
|
---C++: alias ~
|
|
|
|
WriteHeader(me : in out) is private;
|
|
ReadHeader(me : in out) is private;
|
|
|
|
MagicNumber(myclass)
|
|
returns CString from Standard is private;
|
|
---C++: return const
|
|
|
|
ReadChar(me : in out; buffer : in out AsciiString from TCollection; rsize : Size from Standard) is protected;
|
|
---Purpose: read <rsize> character from the current position.
|
|
|
|
ReadString(me : in out; buffer : in out AsciiString from TCollection) is protected;
|
|
---Purpose: read string from the current position.
|
|
|
|
WriteString(me : in out; buffer : AsciiString from TCollection) is protected;
|
|
---Purpose: write string at the current position.
|
|
|
|
ReadExtendedString(me : in out; buffer : in out ExtendedString from TCollection) is protected;
|
|
---Purpose: read string from the current position.
|
|
|
|
WriteExtendedString(me : in out; buffer : ExtendedString from TCollection) is protected;
|
|
---Purpose: write string at the current position.
|
|
|
|
fields
|
|
|
|
myStream : BStream from FSD;
|
|
myHeader : FileHeader from FSD;
|
|
end;
|