Subversion Repositories or1k

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;