blob: bcfbb64a08418322414baeab4ed11b90235b66d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
-- File: MDocStd.cdl
-- Created: Thu Apr 15 13:46:31 1999
-- Author: Denis PASCAL
-- <dp@dingox.paris1.matra-dtv.fr>
---Copyright: Matra Datavision 1999
package MDocStd
---Purpose: Drivers for TDocStd_Document
uses TColStd, TCollection, PCollection, PTColStd,
CDM, PCDM,
TDF, PDF, MDF,
TDocStd, PDocStd
is
---Purpose: Standard CAF Document drivers
-- =============================
class DocumentStorageDriver;
class DocumentRetrievalDriver;
---Purpose: External Reference Attribute drivers
-- =====================================
class XLinkStorageDriver;
class XLinkRetrievalDriver;
-- class PersistentMap instantiates Map from TCollection( Persistent from Standard,
-- MapPersistentHasher from PTColStd);
-- class DocEntryList instantiates List from TCollection (AsciiString from TCollection);
AddStorageDrivers(aDriverSeq : ASDriverHSequence from MDF; theMessageDriver : MessageDriver from CDM);
---Purpose: Adds the attribute storage driver(s) to <aDriverSeq>.
AddRetrievalDrivers(aDriverSeq : ARDriverHSequence from MDF; theMessageDriver : MessageDriver from CDM);
---Purpose: Adds the attribute retrieval driver(s) to <aDriverSeq>.
-- WeightWatcher(aSource : Data from TDF;
-- aReloc : SRelocationTable from MDF;
-- aEntry : DocEntryList from MDocStd);
-- ---Purpose: suppresses the geometries of the shapes from the XLink
-- -- associated to <aEntry>
---Purpose: Factory method
-- ==============
Factory(aGUID: GUID from Standard)
returns Transient from Standard;
end MDocStd;
|
