mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-11 01:58:22 +08:00
39 lines
1.1 KiB
Plaintext
Executable File
39 lines
1.1 KiB
Plaintext
Executable File
-- File: XmlMDataStd_IntPackedMapDriver.cdl
|
|
-- Created: Wed Aug 22 09:46:29 2007
|
|
-- Author: Sergey ZARITCHNY
|
|
-- <sergey.zaritchny@opencascade.com>
|
|
---Copyright: Open CasCade SA 2007
|
|
|
|
|
|
class IntPackedMapDriver from XmlMDataStd inherits ADriver from XmlMDF
|
|
|
|
---Purpose: TDataStd_IntPackedMap attribute Driver.
|
|
|
|
uses
|
|
|
|
SRelocationTable from XmlObjMgt,
|
|
RRelocationTable from XmlObjMgt,
|
|
Persistent from XmlObjMgt,
|
|
MessageDriver from CDM,
|
|
Attribute from TDF
|
|
|
|
is
|
|
Create (theMessageDriver:MessageDriver from CDM)
|
|
returns mutable IntPackedMapDriver from XmlMDataStd;
|
|
|
|
NewEmpty (me) returns mutable Attribute from TDF;
|
|
|
|
Paste(me; Source : Persistent from XmlObjMgt;
|
|
Target : mutable Attribute from TDF;
|
|
RelocTable : out RRelocationTable from XmlObjMgt)
|
|
returns Boolean from Standard;
|
|
---Purpose: persistent -> transient (retrieve)
|
|
|
|
Paste(me; Source : Attribute from TDF;
|
|
Target : in out Persistent from XmlObjMgt;
|
|
RelocTable : out SRelocationTable from XmlObjMgt);
|
|
---Purpose: transient -> persistent (store)
|
|
|
|
|
|
end IntPackedMapDriver;
|