7fd59977 |
1 | -- File: SiUnitAndRatioUnit.cdl |
2 | -- Created: Fri Jun 17 11:43:44 1994 |
3 | -- Author: EXPRESS->CDL V0.2 Translator |
4 | -- Copyright: Matra-Datavision 1993 |
5 | |
6 | |
7 | class SiUnitAndRatioUnit from StepBasic inherits SiUnit from StepBasic |
8 | |
9 | --- This class is an implementation of EXPRESS |
10 | -- ANDOR Subtype Declaration. |
11 | uses |
12 | |
13 | RatioUnit from StepBasic, |
14 | DimensionalExponents from StepBasic, |
15 | SiPrefix from StepBasic, |
16 | SiUnitName from StepBasic |
17 | |
18 | is |
19 | |
20 | Create returns mutable SiUnitAndRatioUnit; |
21 | ---Purpose: Returns a SiUnitAndRatioUnit |
22 | |
23 | Init (me: mutable; aDimensions: mutable DimensionalExponents from StepBasic) |
24 | is redefined; |
25 | |
26 | Init (me: mutable; hasAprefix: Boolean from Standard; |
27 | aPrefix : SiPrefix from StepBasic; |
28 | aName : SiUnitName from StepBasic) is redefined; |
29 | |
30 | -- Specific Methods for Field Data Access -- |
31 | |
32 | SetRatioUnit(me : mutable; aRatioUnit : mutable RatioUnit); |
33 | |
34 | RatioUnit (me) returns mutable RatioUnit; |
35 | |
36 | fields |
37 | |
38 | ratioUnit: RatioUnit from StepBasic; |
39 | |
40 | end SiUnitAndRatioUnit; |