blob: ed2bdd5dfdfe6ed64ef0c2ffa9bcda319ab34d13 (
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
|
-- File: SiUnit.cdl
-- Created: Fri Dec 1 11:11:27 1995
-- Author: EXPRESS->CDL V0.2 Translator
-- Copyright: Matra-Datavision 1993
class SiUnit from StepBasic
inherits NamedUnit from StepBasic
uses
SiPrefix from StepBasic,
SiUnitName from StepBasic,
DimensionalExponents from StepBasic,
Boolean from Standard
is
Create returns mutable SiUnit;
---Purpose: Returns a SiUnit
Init (me : mutable;
aDimensions : mutable DimensionalExponents from StepBasic) is redefined;
Init (me : mutable;
hasAprefix : Boolean from Standard;
aPrefix : SiPrefix from StepBasic;
aName : SiUnitName from StepBasic) is virtual;
-- Specific Methods for Field Data Access --
SetPrefix(me : mutable; aPrefix : SiPrefix);
UnSetPrefix (me:mutable);
Prefix (me) returns SiPrefix;
HasPrefix (me) returns Boolean;
SetName(me : mutable; aName : SiUnitName);
Name (me) returns SiUnitName;
SetDimensions(me : mutable; aDimensions : mutable DimensionalExponents) is redefined;
Dimensions (me) returns mutable DimensionalExponents is redefined;
fields
prefix : SiPrefix from StepBasic; -- an Enumeration -- OPTIONAL can be NULL
name : SiUnitName from StepBasic; -- an Enumeration
hasPrefix : Boolean from Standard;
--
-- NB : field <dimensions> inherited from classe <named_unit> is redeclared.
-- it shall appears in a physical file as a *.
--
end SiUnit;
|
