blob: dbb4f1f1e810a1d405b79c63180f2e0bbbc64207 (
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
157
158
159
160
161
162
163
|
-- File: Quantity_Convert.cdl
-- Created: Tue Jul 19 16:36:20 1994
-- Author: Guest Kernel
-- <g_kernel@bibox>
---Copyright: Matra Datavision 1994
class Convert from Quantity
---Purpose: Services to manage units conversion between Front-ends and Engines.
-- This conversion is managed by a table of correspondance between the quantities
-- and their "conversion coefficient".
-- This table is implemented like an external array (TCollection_Array1) regarding
-- to the quantities enumeration.
uses
AsciiString from TCollection,
PhysicalQuantity from Quantity,
Coefficient from Quantity
is
Create returns Convert from Quantity;
---Purpose: Creates an object;
SetQuantity(myclass ;
aQuantity : PhysicalQuantity from Quantity ;
aCoef: Coefficient from Quantity);
---Purpose: Updates the conversion table (correspondances between
-- Quantities and conversion coefficients).
---C++: inline
ConvertUserToSI(myclass ;
aQuantity : PhysicalQuantity from Quantity ;
aVal : Real from Standard)
returns Real from Standard;
---Purpose: Converts, from the conversion table, the value <aVal>
-- from the user system to the SI system.
---C++: inline
ConvertSIToUser(myclass ;
aQuantity : PhysicalQuantity from Quantity ;
aVal : Real from Standard)
returns Real from Standard;
---Purpose: Converts, from the conversion table, the value <aVal>
-- from the SI system to the user system.
---C++: inline
IsPhysicalQuantity(myclass;
aTypeName : AsciiString from TCollection ;
anEnum : in out AsciiString from TCollection)
returns Boolean from Standard;
---Purpose:
-- if (aType is a physical quantity)
-- returns True and the name of the associated PhysicalQuantity .
-- else
-- returns False.
end Convert from Quantity;
|
