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
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
|
-- File: Units_Explorer.cdl
-- Created: Mon May 9 16:39:22 1994
-- Author: Gilles DEBARBOUILLE
-- <gde@meteox>
---Copyright: Matra Datavision 1994
class Explorer from Units
---Purpose: This class provides all the services to explore
-- UnitsSystem or UnitsDictionary.
uses
UnitsSystem from Units,
UnitsDictionary from Units,
QuantitiesSequence from Units,
UnitsSequence from Units,
HSequenceOfInteger from TColStd,
AsciiString from TCollection
--raises
is
Create returns Explorer from Units;
---Level: Advanced
---Purpose: Empty contructor of the class.
Create(aunitssystem : UnitsSystem from Units) returns Explorer from Units;
---Level: Advanced
---Purpose: Creates a new instance of the class, initialized with
-- the UnitsSystem <aunitssystem>.
Create(aunitsdictionary : UnitsDictionary from Units) returns Explorer from Units;
---Level: Advanced
---Purpose: Creates a new instance of the class, initialized with
-- the UnitsDictionary <aunitsdictionary>.
Create(aunitssystem : UnitsSystem from Units ; aquantity : CString)
---Level: Advanced
---Purpose: Creates a new instance of the class, initialized with
-- the UnitsSystem <aunitssystem> and positioned at the
-- quantity <aquantity>.
returns Explorer from Units;
Create(aunitsdictionary : UnitsDictionary from Units ; aquantity : CString)
---Level: Advanced
---Purpose: Creates a new instance of the class, initialized with
-- the UnitsDictionary <aunitsdictionary> and positioned
-- at the quantity <aquantity>.
returns Explorer from Units;
Init(me : in out ; aunitssystem : UnitsSystem from Units)
---Level: Advanced
---Purpose: Initializes the instance of the class with the
-- UnitsSystem <aunitssystem>.
is static;
Init(me : in out ; aunitsdictionary : UnitsDictionary from Units)
---Level: Advanced
---Purpose: Initializes the instance of the class with the
-- UnitsDictionary <aunitsdictionary>.
is static;
Init(me : in out ; aunitssystem : UnitsSystem from Units ; aquantity : CString)
---Level: Advanced
---Purpose: Initializes the instance of the class with the
-- UnitsSystem <aunitssystem> and positioned at the
-- quantity <aquantity>.
is static;
Init(me : in out ; aunitsdictionary : UnitsDictionary from Units ; aquantity : CString)
---Level: Advanced
---Purpose: Initializes the instance of the class with the
-- UnitsDictionary <aunitsdictionary> and positioned at
-- the quantity <aquantity>.
is static;
MoreQuantity(me) returns Boolean
---Level: Advanced
---Purpose: Returns True if there is another Quantity to explore,
-- False otherwise.
is static;
NextQuantity(me : in out)
---Level: Advanced
---Purpose: Sets the next Quantity current.
is static;
Quantity(me) returns AsciiString from TCollection
---Level: Advanced
---Purpose: Returns the name of the current Quantity.
is static;
MoreUnit(me) returns Boolean
---Level: Advanced
---Purpose: Returns True if there is another Unit to explore,
-- False otherwise.
is static;
NextUnit(me : in out)
---Level: Advanced
---Purpose: Sets the next Unit current.
is static;
Unit(me) returns AsciiString from TCollection
---Level: Advanced
---Purpose: Returns the name of the current unit.
is static;
IsActive(me) returns Boolean
---Level: Advanced
---Purpose: If the units system to explore is a user system,
-- returns True if the current unit is active, False
-- otherwise.
--
-- If the units system to explore is the units
-- dictionary, returns True if the current unit is the
-- S.I. unit.
is static;
fields
thecurrentquantity : Integer;
thequantitiessequence : QuantitiesSequence from Units;
thecurrentunit : Integer;
theunitssequence : UnitsSequence from Units;
theactiveunitssequence : HSequenceOfInteger from TColStd;
end Explorer;
|
