blob: 3a9e9c2aec80beab85760daef771d04022ff046e (
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
|
CLASS Box
Value : INTEGER
ENDCLASS
CLASS Other
Value : INTEGER
ENDCLASS
CLASS Required
PROCEDURE NEW(Number : INTEGER)
ENDPROCEDURE
ENDCLASS
CLASS Hidden
PRIVATE PROCEDURE NEW()
ENDPROCEDURE
ENDCLASS
TYPE RecordValue
DECLARE Value : INTEGER
ENDTYPE
DECLARE B : Box
DECLARE R : Required(1)
B <- NEW Other
B <- NEW INTEGER
B <- NEW RecordValue
B <- NEW Box(1)
R <- NEW Required
R <- NEW Required()
B <- NEW Hidden
|
