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
|
-- File: Units_Unit.cdl
-- Created: Thu Oct 29 10:48:14 1992
-- Author: Gilles DEBARBOUILLE
-- <gde@bravox>
---Copyright: Matra Datavision 1992
class Unit from Units
inherits
TShared from MMgt
---Purpose: This class defines an elementary word contained in
-- a physical quantity.
uses
HAsciiString from TCollection,
AsciiString from TCollection,
HSequenceOfHAsciiString from TColStd,
Quantity from Units,
Token from Units
is
Create(aname , asymbol : CString ;
avalue : Real ;
aquantity : any Quantity from Units)
---Level: Internal
---Purpose: Creates and returns a unit. <aname> is the name of
-- the unit, <asymbol> is the usual abbreviation of the
-- unit, and <avalue> is the value in relation to the
-- International System of Units.
returns mutable Unit from Units;
Create(aname , asymbol : CString)
---Level: Internal
---Purpose: Creates and returns a unit. <aname> is the name of
-- the unit, <asymbol> is the usual abbreviation of the
-- unit.
returns mutable Unit from Units;
Create(aname : CString)
---Level: Internal
---Purpose: Creates and returns a unit. <aname> is the name of
-- the unit.
returns mutable Unit from Units;
Name(me) returns AsciiString from TCollection
---Level: Internal
---C++: inline
---Purpose: Returns the name of the unit <thename>
is static;
Symbol(me : mutable ; asymbol : CString)
---Level: Internal
---Purpose: Adds a new symbol <asymbol> attached to <me>.
is static;
Value(me) returns Real
---Level: Internal
---C++: inline
---Purpose: Returns the value in relation with the International
-- System of Units.
is static;
Quantity(me) returns any Quantity from Units
---Level: Internal
---C++: inline
---Purpose: Returns <thequantity> contained in <me>.
is static;
SymbolsSequence(me) returns any HSequenceOfHAsciiString from TColStd
---Level: Internal
---C++: inline
---Purpose: Returns the sequence of symbols <thesymbolssequence>
is static;
Value(me : mutable ; avalue : Real)
---Level: Internal
---C++: inline
---Purpose: Sets the value <avalue> to <me>.
is static;
Quantity(me : mutable ; aquantity : any Quantity from Units)
---Level: Internal
---C++: inline
---Purpose: Sets the physical Quantity <aquantity> to <me>.
is static;
Token(me) returns mutable Token from Units
---Level: Internal
---Purpose: Starting with <me>, returns a new Token object.
is virtual;
IsEqual(me ; astring : CString) returns Boolean
---Level: Internal
---Purpose: Compares all the symbols linked within <me> with the
-- name of <atoken>, and returns True if there is one
-- symbol equal to the name, False otherwise.
-- ---C++: alias "friend Standard_EXPORT Standard_Boolean operator ==(const Handle(Units_Unit)&,const Standard_CString);"
is static;
Dump(me ; ashift , alevel : Integer)
---Level: Internal
---Purpose: Useful for debugging
is virtual;
fields
thename : HAsciiString from TCollection;
thesymbolssequence : HSequenceOfHAsciiString from TColStd is protected;
thevalue : Real is protected;
thequantity : Quantity from Units;
end Unit;
|
