bcc8e86c8fe1c3a607d1d235ef29bd3d92c62820
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 " i : INTEGER;"
14 ""
15 "BEGIN"
16 " i := 4;"
17 " Out.Open();"
18 " IF i = 0 THEN"
19 " Out.String('Branch 0'); Out.Ln;"
20 " ELSIF i = 1 THEN"
21 " Out.String('Branch 1'); Out.Ln;"
22 " ELSIF i = 2 THEN"
23 " Out.String('Branch 2'); Out.Ln;"
24 " ELSE"
25 " Out.String('Branch else'); Out.Ln;"
26 " END;"
27 " Out.String('end'); Out.Ln;"
28 "END Test."
29 ;
32 "MODULE Out;"
33 " PROCEDURE Open*;"
34 " END Open;"
35 ""
36 " PROCEDURE Char* (ch : CHAR);"
37 " END Char;"
38 ""
39 " PROCEDURE String* (str : ARRAY OF CHAR);"
40 " END String;"
41 ""
42 " PROCEDURE Int*(i, n : LONGINT);"
43 " END Int;"
44 ""
45 " PROCEDURE Real*(x : REAL; n : INTEGER);"
46 " END Real;"
47 ""
48 " PROCEDURE LongReal*(x : LONGREAL; n : INTEGER);"
49 " END LongReal;"
50 ""
51 " PROCEDURE Ln*;"
52 " END Ln;"
53 ""
54 "END Out."
55 ;
62 {
64 {
66 }
68 {
70 }
71 else
72 {
74 }
75 }
80 {
81 }
86 {
91 {
93 }
95 }
100 {
105 {
107 }
109 }
114 {
116 }
119 {
128 }
131 {
134 }
136 int
138 {
144 // init_system_modules();
146 // oberon_generator_dump(ctx, "dump.txt");
148 // start_module();
152 }