mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-08-14 13:30:48 +03:00
Integration of OCCT 6.5.0 from SVN
This commit is contained in:
34
src/XmlMDataStd/XmlMDataStd_ReferenceListDriver.cdl
Executable file
34
src/XmlMDataStd/XmlMDataStd_ReferenceListDriver.cdl
Executable file
@@ -0,0 +1,34 @@
|
||||
-- File: XmlMDataStd_ReferenceListDriver.cdl
|
||||
-- Created: May 29 11:40:00 2007
|
||||
-- Author: Vlad Romashko
|
||||
-- <vladislav.romashko@opencascade.com>
|
||||
-- Copyright: Open CASCADE
|
||||
|
||||
class ReferenceListDriver from XmlMDataStd inherits ADriver from XmlMDF
|
||||
|
||||
uses
|
||||
|
||||
SRelocationTable from XmlObjMgt,
|
||||
RRelocationTable from XmlObjMgt,
|
||||
Persistent from XmlObjMgt,
|
||||
MessageDriver from CDM,
|
||||
Attribute from TDF
|
||||
|
||||
is
|
||||
|
||||
Create (theMessageDriver:MessageDriver from CDM)
|
||||
returns mutable ReferenceListDriver 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;
|
||||
|
||||
Paste(me; Source : Attribute from TDF;
|
||||
Target : in out Persistent from XmlObjMgt;
|
||||
RelocTable : out SRelocationTable from XmlObjMgt);
|
||||
|
||||
end ReferenceListDriver;
|
Reference in New Issue
Block a user