1 #include <stdio.h>
2 #include <string.h>
3 #include <assert.h>
8 "(* Main module *)"
9 "MODULE Test;"
10 "IMPORT Out;"
11 ""
12 "VAR"
13 " s0 : SET;"
14 ""
15 "BEGIN"
16 " s0 := -{ 1, 3..6 } + { 3, 4, 10 };"
17 "END Test."
18 ;
21 "MODULE Out;"
22 " PROCEDURE Open*;"
23 " END Open;"
24 ""
25 " PROCEDURE Char* (ch : CHAR);"
26 " END Char;"
27 ""
28 " PROCEDURE String* (str : ARRAY OF CHAR);"
29 " END String;"
30 ""
31 " PROCEDURE Int*(i, n : LONGINT);"
32 " END Int;"
33 ""
34 " PROCEDURE Real*(x : REAL; n : INTEGER);"
35 " END Real;"
36 ""
37 " PROCEDURE LongReal*(x : LONGREAL; n : INTEGER);"
38 " END LongReal;"
39 ""
40 " PROCEDURE Ln*;"
41 " END Ln;"
42 ""
43 "END Out."
44 ;
51 {
53 {
55 }
57 {
59 }
60 else
61 {
63 }
64 }
69 {
70 }
75 {
80 {
82 }
84 }
89 {
94 {
96 }
98 }
103 {
105 }
108 {
117 }
120 {
123 }
125 int
127 {
133 // init_system_modules();
135 // oberon_generator_dump(ctx, "dump.txt");
137 // start_module();
141 }