blob: 7e13e71e3da18ecc8726129e559ecaa903f83b64 (
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
144
145
146
147
148
149
150
151
152
153
154
155
156
|
-- File: Units_UnitsSystem.cdl
-- Created: Fri Oct 22 11:40:29 1993
-- Author: Gilles DEBARBOUILLE
-- <gde@meteox>
---Copyright: Matra Datavision 1993
class UnitsSystem from Units
inherits
TShared from MMgt
---Purpose: This class allows the user to define his own
-- system of units.
uses
AsciiString from TCollection,
HSequenceOfInteger from TColStd,
QuantitiesSequence from Units
raises NoSuchUnit from Units,NoSuchType from Units
is
Create returns mutable UnitsSystem from Units;
---Level: Public
---Purpose: Returns an instance of UnitsSystem initialized to the
-- S.I. units system.
Create(aName: CString from Standard;Verbose: Boolean from Standard = Standard_False)
returns mutable UnitsSystem from Units;
---Level: Public
---Purpose: Returns an instance of UnitsSystem initialized to the
-- S.I. units system upgraded by the base system units decription
-- file.
-- Attempts to find the four following files:
-- $CSF_`aName`Defaults/.aName
-- $CSF_`aName`SiteDefaults/.aName
-- $CSF_`aName`GroupDefaults/.aName
-- $CSF_`aName`UserDefaults/.aName
-- See : Resource_Manager for the description of this file.
QuantitiesSequence(me) returns QuantitiesSequence from Units;
---Level: Internal
---Purpose: Returns the sequence of refined quantities.
ActiveUnitsSequence(me) returns HSequenceOfInteger from TColStd;
---Level: Advanced
---Purpose: Returns a sequence of integer in correspondance with
-- the sequence of quantities, which indicates, for each
-- redefined quantity, the index into the sequence of
-- units, of the active unit.
Specify(me : mutable ; aquantity , aunit : CString)
raises NoSuchType from Units
---Level: Public
---Purpose: Specifies for <aquantity> the unit <aunit> used.
is static;
Remove(me : mutable ; aquantity , aunit : CString)
---Level: Public
---Purpose: Removes for <aquantity> the unit <aunit> used.
is static;
Activate(me : mutable ; aquantity , aunit : CString)
---Level: Public
---Purpose: Specifies for <aquantity> the unit <aunit> used.
is static;
Activates(me : mutable)
---Level: Public
---Purpose: Activates the first unit of all defined system quantities
is static;
ActiveUnit(me ; aquantity : CString) returns AsciiString from TCollection
---Level: Public
---Purpose: Returns for <aquantity> the active unit.
is static;
ConvertValueToUserSystem(me ; aquantity : CString ;
avalue : Real ;
aunit : CString) returns Real
---Level: Public
---Purpose: Converts a real value <avalue> from the unit <aunit>
-- belonging to the physical dimensions <aquantity> to
-- the corresponding unit of the user system.
is static;
ConvertSIValueToUserSystem(me ; aquantity : CString ; avalue : Real) returns Real
---Level: Public
---Purpose: Converts the real value <avalue> from the S.I. system
-- of units to the user system of units. <aquantity> is
-- the physical dimensions of the measurement.
is static;
ConvertUserSystemValueToSI(me ; aquantity : CString ; avalue : Real) returns Real
---Level: Public
---Purpose: Converts the real value <avalue> from the user system
-- of units to the S.I. system of units. <aquantity> is
-- the physical dimensions of the measurement.
is static;
Dump(me)
---Level: Internal
is static;
IsEmpty(me) returns Boolean from Standard
---Level: Internal
---Purpose: Returns TRUE if no units has been defined in the system.
is static;
fields
thequantitiessequence : QuantitiesSequence from Units;
theactiveunitssequence : HSequenceOfInteger from TColStd;
end UnitsSystem;
|
