3 SYNMODE m_arri = ARRAY(1:5) INT;
4 DCL v_arri m_arri := [ -1, -2, -3, -4, -5 ];
6 SYNMODE m_arrui = ARRAY(1:5) UINT;
7 DCL v_arrui m_arrui := [ 1, 2, 3, 4, 5 ];
9 SYNMODE r1 = RANGE (1:5);
10 SYNMODE m_arrb = ARRAY(r1) BYTE;
11 DCL v_arrb m_arrb := [ -3, -4, -5, -6, -7 ];
13 SYNMODE m_arrub = ARRAY(r1) UBYTE;
14 DCL v_arrub m_arrub := [ 3, 4, 5, 6, 7 ];
16 SYNMODE m_arrc = ARRAY (1:5) CHAR;
17 DCL v_arrc m_arrc := [ '1', '2', '3', '4', '5' ];
19 SYNMODE m_ps = POWERSET r1;
20 DCL v_ps m_ps := [ 1, 3, 5 ];
22 DCL v_cv CHARS(20) VARYING := "foo";
24 SYNMODE m_arrbool = ARRAY(r1) BOOL;
25 DCL v_arrbool m_arrbool := [ true, false, true, false, true ];
31 newmode vstruct = struct (a, b long,
38 DCL vstr vstruct := [ .a: 10, .b: 52, .i: 100 ];
44 setmode: MODULE /* This is from Cygnus PR chill/5024. */
46 NEWMODE day = SET( monday, tuesday, wednesday, thursday, friday, saturday, sunday );
47 NEWMODE dow = POWERSET day;
52 printdow: PROC( w dow );
55 WRITETEXT( stdout, "%C ", d );
60 w := dow[monday : friday];
63 printdow( dow[LOWER(dow) : UPPER(dow)] );
69 SYNMODE m_set = SET (a, b, c, d);
70 SYNMODE m_ps = POWERSET m_set;
72 SYNMODE m_s1 = STRUCT (str CHARS(40) VARYING, i INT, ps m_ps);
75 SYNMODE m_s2 = STRUCT (i LONG, s m_s1);
78 SYNMODE m_arr = ARRAY (1:3) BYTE;
79 SYNMODE m_s3 = STRUCT (i LONG, a m_arr);