blob: e2cd3da9222307e6ff1902e110aae96aa91d2add (
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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
-- File: MDataStd.cdl
-- Created: Thu Aug 7 16:12:08 1997
-- Author: VAUTHIER Jean-Claude
-- modified Sergey Zaritchny
---Copyright: Matra Datavision 1997
package MDataStd
---Purpose: Storage and Retrieval drivers for modelling
-- attributes. Transient attributes are defined in
-- package TDataStd and persistent one are defined in
-- package PDataStd
uses TDF,
PDF,
MDF,
CDM,
TDataStd
is
---Purpose: Storage drivers for TDataStd attributes
-- =======================================
class DirectoryStorageDriver;
class UAttributeStorageDriver;
class NameStorageDriver;
class CommentStorageDriver;
class IntegerStorageDriver;
class IntegerArrayStorageDriver;
class RealStorageDriver;
class RealArrayStorageDriver;
class ExtStringArrayStorageDriver;
class VariableStorageDriver;
class ExpressionStorageDriver;
class RelationStorageDriver;
class NoteBookStorageDriver;
class TreeNodeStorageDriver;
--Extension
class TickStorageDriver;
class IntegerListStorageDriver;
class RealListStorageDriver;
class ExtStringListStorageDriver;
class BooleanListStorageDriver;
class ReferenceListStorageDriver;
class BooleanArrayStorageDriver;
class ReferenceArrayStorageDriver;
class ByteArrayStorageDriver;
class NamedDataStorageDriver;
class AsciiStringStorageDriver;
class IntPackedMapStorageDriver;
---Purpose: Retrieval drivers for PDataStd attributes
-- =========================================
class DirectoryRetrievalDriver;
class UAttributeRetrievalDriver;
class NameRetrievalDriver;
class CommentRetrievalDriver;
class IntegerRetrievalDriver;
class IntegerArrayRetrievalDriver;
class IntegerArrayRetrievalDriver_1;
class RealRetrievalDriver;
class RealArrayRetrievalDriver;
class RealArrayRetrievalDriver_1;
class ExtStringArrayRetrievalDriver;
class ExtStringArrayRetrievalDriver_1;
class VariableRetrievalDriver;
class ExpressionRetrievalDriver;
class RelationRetrievalDriver;
class NoteBookRetrievalDriver;
class TreeNodeRetrievalDriver;
-- Extension
class TickRetrievalDriver;
class IntegerListRetrievalDriver;
class RealListRetrievalDriver;
class ExtStringListRetrievalDriver;
class BooleanListRetrievalDriver;
class ReferenceListRetrievalDriver;
class BooleanArrayRetrievalDriver;
class ReferenceArrayRetrievalDriver;
class ByteArrayRetrievalDriver;
class ByteArrayRetrievalDriver_1;
class NamedDataRetrievalDriver;
class AsciiStringRetrievalDriver;
class IntPackedMapRetrievalDriver;
class IntPackedMapRetrievalDriver_1;
AddStorageDrivers(aDriverSeq : ASDriverHSequence from MDF; theMessageDriver : MessageDriver from CDM);
---Purpose: Adds the attribute storage drivers to <aDriverSeq>.
AddRetrievalDrivers(aDriverSeq : ARDriverHSequence from MDF; theMessageDriver : MessageDriver from CDM);
---Purpose: Adds the attribute retrieval drivers to <aDriverSeq>.
---Purpose: Translation of TDataStd enumerations to integer
-- ===============================================
RealDimensionToInteger (e : RealEnum from TDataStd)
returns Integer from Standard;
IntegerToRealDimension (i : Integer from Standard)
returns RealEnum from TDataStd;
end MDataStd;
|
