Commit | Line | Data |
---|---|---|
c906108c SS |
1 | hugo : module |
2 | ||
3 | synmode a = range(1:10); | |
4 | synmode p = powerset a; | |
5 | ||
6 | synmode s = set (sa, sb, sc); | |
7 | synmode s_ps = powerset s; | |
8 | ||
9 | x: proc (ps p); | |
10 | dcl i a; | |
11 | do for i in ps; | |
12 | writetext (stdout, "%C ", i); | |
13 | od; | |
14 | writetext(stdout, "%/"); | |
15 | end x; | |
16 | ||
17 | y : proc (ps s_ps); | |
18 | dcl i s; | |
19 | do for i in ps; | |
20 | writetext (stdout, "%C ", i); | |
21 | od; | |
22 | writetext(stdout, "%/"); | |
23 | end y; | |
24 | ||
25 | dummy: proc (); | |
26 | end dummy; | |
27 | ||
28 | x([1,2,3]); | |
29 | y([sa, sc]); | |
30 | dummy (); | |
31 | ||
32 | end hugo; |