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
|
x: MODULE
SYNMODE m_arri = ARRAY(1:5) INT;
DCL v_arri m_arri := [ -1, -2, -3, -4, -5 ];
SYNMODE m_arrui = ARRAY(1:5) UINT;
DCL v_arrui m_arrui := [ 1, 2, 3, 4, 5 ];
SYNMODE r1 = RANGE (1:5);
SYNMODE m_arrb = ARRAY(r1) BYTE;
DCL v_arrb m_arrb := [ -3, -4, -5, -6, -7 ];
SYNMODE m_arrub = ARRAY(r1) UBYTE;
DCL v_arrub m_arrub := [ 3, 4, 5, 6, 7 ];
SYNMODE m_arrc = ARRAY (1:5) CHAR;
DCL v_arrc m_arrc := [ '1', '2', '3', '4', '5' ];
SYNMODE m_ps = POWERSET r1;
DCL v_ps m_ps := [ 1, 3, 5 ];
DCL v_cv CHARS(20) VARYING := "foo";
SYNMODE m_arrbool = ARRAY(r1) BOOL;
DCL v_arrbool m_arrbool := [ true, false, true, false, true ];
DCL j r1 := 4;
DCL i INT;
newmode vstruct = struct (a, b long,
case b of
(42): ch8 chars(20),
(52): i long
else ch1 char
esac);
DCL vstr vstruct := [ .a: 10, .b: 52, .i: 100 ];
i := 0;
END x;
setmode: MODULE /* This is from Cygnus PR chill/5024. */
NEWMODE day = SET( monday, tuesday, wednesday, thursday, friday, saturday, sunday );
NEWMODE dow = POWERSET day;
DCL d day;
DCL w dow;
printdow: PROC( w dow );
DCL d day;
DO FOR d in w;
WRITETEXT( stdout, "%C ", d );
OD;
END;
d := monday;
w := dow[monday : friday];
printdow( w );
printdow( dow[LOWER(dow) : UPPER(dow)] );
END setmode;
PR8643: MODULE
SYNMODE m_set = SET (a, b, c, d);
SYNMODE m_ps = POWERSET m_set;
SYNMODE m_s1 = STRUCT (str CHARS(40) VARYING, i INT, ps m_ps);
DCL vs1 m_s1;
SYNMODE m_s2 = STRUCT (i LONG, s m_s1);
DCL vs2 m_s2;
SYNMODE m_arr = ARRAY (1:3) BYTE;
SYNMODE m_s3 = STRUCT (i LONG, a m_arr);
DCL vs3 m_s3;
DCL i LONG;
i := 24;
END PR8643;
|
