Commit | Line | Data |
---|---|---|
c906108c SS |
1 | -- |
2 | -- check powerset operators and built-ins | |
3 | -- | |
4 | ||
5 | ps: MODULE | |
6 | ||
7 | SYNMODE m_ps1 = POWERSET ULONG (0:8); | |
8 | DCL v_ps1 m_ps1 INIT := [1,3,5,7]; | |
9 | ||
10 | SYNMODE m_ps2 = POWERSET LONG (-100:100); | |
11 | DCL v_ps2 m_ps2 INIT := [ -100:-95, -1:1, 95:100]; | |
12 | ||
13 | SYNMODE m_set = SET (aa, bb, cc, dd, ee, ff, gg, hh, ii, jj); | |
14 | SYNMODE m_ps3 = POWERSET m_set; | |
15 | DCL v_ps3 m_ps3 INIT := [bb, dd, ff, ii]; | |
16 | ||
17 | SYNMODE m_ps4 = POWERSET CHAR(' ':'z'); | |
18 | DCL v_ps4 m_ps4 INIT := [ '.', ',', 'A':'F', 'x':'z' ]; | |
19 | ||
20 | SYNMODE m_ps5 = POWERSET BOOL; | |
21 | DCL v_ps5 m_ps5 INIT := [ FALSE ]; | |
22 | DCL v_ps51 m_ps5 INIT := [ ]; | |
23 | ||
24 | SYNMODE m_int_range = INT(-100:100); | |
25 | SYNMODE m_int_subrange = m_int_range(-50:50); | |
26 | SYNMODE m_ps6 = POWERSET m_int_subrange; | |
27 | DCL v_ps6 m_ps6 INIT := [ LOWER(m_int_subrange):UPPER(m_int_subrange) ]; | |
28 | ||
29 | DCL x INT; | |
30 | ||
31 | x := 25; | |
32 | ||
33 | END ps; |