blob: 46694d16c34302d2cd95f8e373e5e6ed4994358b (
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
-- File: XmlMDF.cdl
-- Created: Mon Jul 9 12:29:49 MSK DST 2001
-- Author: Julia DOROVSKIKH
---Copyright: MATRA DATAVISION 2001
package XmlMDF
---Purpose: This package provides classes and methods to
-- translate a transient DF into a persistent one and
-- vice versa.
--
-- Driver
--
-- A driver is a tool used to translate a transient
-- attribute into a persistent one and vice versa.
--
-- Driver Table
--
-- A driver table is an object building links between
-- object types and object drivers. In the
-- translation process, a driver table is asked to
-- give a translation driver for each current object
-- to be translated.
uses
TCollection,
TColStd,
TDF,
CDM,
XmlObjMgt
is
---Category: Classes
-- =============================================================
deferred class ADriver; -- Attribute Storage/Retrieve Driver.
private class MapOfDriver
instantiates DataMap from TCollection (AsciiString from TCollection,
ADriver from XmlMDF,
AsciiString from TCollection);
---Purpose: Storage and Retrieval attributes drivers
-- ========================================
class TagSourceDriver;
class ReferenceDriver;
---Category: Instantiations
-- =============================================================
-- Map (Type, ADriver)
class TypeADriverMap instantiates DataMap from TCollection
(Type from Standard,
ADriver from XmlMDF,
MapTransientHasher from TColStd);
-- Attribute Storage Driver Table.
class ADriverTable;
-- Package methods
FromTo(aSource : Data from TDF;
aTarget : in out Element from XmlObjMgt;
aReloc : in out SRelocationTable from XmlObjMgt;
aDrivers : ADriverTable from XmlMDF);
---Purpose: Translates a transient <aSource> into a persistent
-- <aTarget>.
WriteSubTree(theLabel : Label from TDF;
theElement : in out Element from XmlObjMgt;
aReloc : in out SRelocationTable from XmlObjMgt;
aDrivers : ADriverTable from XmlMDF)
returns Integer from Standard
is private;
---Purpose:
FromTo(aSource : Element from XmlObjMgt;
aTarget : in out Data from TDF;
aReloc : in out RRelocationTable from XmlObjMgt;
aDrivers : ADriverTable from XmlMDF)
returns Boolean from Standard;
---Purpose: Translates a persistent <aSource> into a transient
-- <aTarget>.
-- Returns True if completed successfully (False on error)
ReadSubTree (theElement : Element from XmlObjMgt;
theLabel : Label from TDF;
aReloc : in out RRelocationTable from XmlObjMgt;
aDrivers : MapOfDriver from XmlMDF)
returns Integer from Standard
is private;
---Purpose:
AddDrivers (aDriverTable : ADriverTable from XmlMDF;
theMessageDriver: MessageDriver from CDM);
---Purpose: Adds the attribute storage drivers to <aDriverSeq>.
CreateDrvMap (aDriverTable : ADriverTable from XmlMDF;
anAsciiDriverMap: out MapOfDriver from XmlMDF)
is private;
end XmlMDF;
|