blob: d5829266ff02c1a3cc67164b6623f309d4c20cdd (
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
|
-- File: Units_ShiftedUnit.cdl
-- Created: Wed Nov 4 17:32:57 1992
-- Author: Gilles DEBARBOUILLE
-- <gde@bravox>
---Copyright: Matra Datavision 1992
private class ShiftedUnit from Units
inherits
Unit from Units
---Purpose: This class is useful to describe units with a
-- shifted origin in relation to another unit. A well
-- known example is the Celsius degrees in relation
-- to Kelvin degrees. The shift of the Celsius origin
-- is 273.15 Kelvin degrees.
uses
Quantity from Units,
Token from Units
is
Create(aname , asymbol : CString ;
avalue , amove : Real ;
aquantity : Quantity from Units)
---Level: Internal
---Purpose: Creates and returns a shifted unit. <aname> is the
-- name of the unit, <asymbol> is the usual abbreviation
-- of the unit, <avalue> is the value in relation to the
-- International System of Units, and <amove> is the gap
-- in relation to another unit.
--
-- For example Celcius dregee of temperature is an
-- instance of ShiftedUnit with <avalue> equal to 1. and
-- <amove> equal to 273.15.
returns mutable ShiftedUnit 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 ShiftedUnit from Units;
Create(aname : CString)
---Level: Internal
---Purpose: Creates and returns a unit. <aname> is the name of
-- the unit.
returns mutable ShiftedUnit from Units;
Move(me : mutable ; amove : Real)
---Level: Internal
---Purpose: Sets the field <themove> to <amove>
is static;
Move(me) returns Real
---Level: Internal
---Purpose: Returns the shifted value <themove>.
is static;
Token(me) returns mutable Token from Units
---Level: Internal
---Purpose: This redefined method returns a ShiftedToken object.
is redefined;
Dump(me ; ashift , alevel : Integer)
---Level: Internal
is redefined;
fields
themove : Real;
end ShiftedUnit;
|
