blob: 78db10261060bb6b505364a974e7041b565a2f9f (
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
|
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
PROCEDURE Forbidden(Target : Hidden)
Target <- NEW Hidden()
ENDPROCEDURE
B <- NEW Box("bad")
R <- NEW Required("bad")
|
