| 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; |