25497b0d22502b0bb7c806ed817a873e36836781
1 #include <stdio.h>
2 #include <string.h>
3 #include <assert.h>
8 "(* Main module *)"
9 "MODULE Test;"
10 "IMPORT Out;"
11 ""
12 "BEGIN"
13 " Out.Open;"
14 " IF 8 IN { 2, 3, 7..10 } THEN"
15 " Out.String('Yes'); Out.Ln;"
16 " ELSE"
17 " Out.String('No'); Out.Ln;"
18 " END;"
19 "END Test."
20 ;
23 "MODULE Out;"
24 " PROCEDURE Open*;"
25 " END Open;"
26 ""
27 " PROCEDURE Char* (ch : CHAR);"
28 " END Char;"
29 ""
30 " PROCEDURE String* (str : ARRAY OF CHAR);"
31 " END String;"
32 ""
33 " PROCEDURE Int*(i, n : LONGINT);"
34 " END Int;"
35 ""
36 " PROCEDURE Real*(x : REAL; n : INTEGER);"
37 " END Real;"
38 ""
39 " PROCEDURE LongReal*(x : LONGREAL; n : INTEGER);"
40 " END LongReal;"
41 ""
42 " PROCEDURE Ln*;"
43 " END Ln;"
44 ""
45 "END Out."
46 ;
53 {
55 {
57 }
59 {
61 }
62 else
63 {
65 }
66 }
71 {
72 }
77 {
82 {
84 }
86 }
91 {
96 {
98 }
100 }
105 {
107 }
110 {
119 }
122 {
125 }
127 int
129 {
135 // init_system_modules();
137 // oberon_generator_dump(ctx, "dump.txt");
139 // start_module();
143 }