53be5869213c0d3ee4a5e3e7fcd30639cf82ea59
1 #include <stdio.h>
2 #include <string.h>
3 #include <assert.h>
8 "(* Main module *)"
9 "MODULE Test;"
10 "VAR"
11 " x : INTEGER;"
12 " z : BOOLEAN;"
13 ""
14 "PROCEDURE Tier(a, b :INTEGER);"
15 "END Tier;"
16 ""
17 "BEGIN;"
18 " x := x + 1;"
19 " z := TRUE;"
20 "END Test."
21 ;
24 "MODULE Out;"
25 // "(* Interface to outer program ;) *)"
26 // "VAR"
27 // " Open- : PROCEDURE;"
28 // " Char- : PROCEDURE(ch : CHAR);"
29 // " String- : PROCEDURE(str : ARRAY OF CHAR)"
30 // " Int- : PROCEDURE(i, n : LONGINT);"
31 // " Int- : PROCEDURE(i, n : INTEGER);"
32 // " Real- : PROCEDURE(x : REAL; n : INTEGER);"
33 // " LongReal- : PROCEDURE(x : LONGREAL; n : INTEGER);"
34 // " Ln- : PROCEDURE;"
35 "END Out."
36 ;
43 {
45 {
47 }
49 {
51 }
52 else
53 {
55 }
56 }
61 {
62 }
67 {
72 {
74 }
76 }
81 {
86 {
88 }
90 }
95 {
97 }
100 {
109 }
112 {
115 }
117 int
119 {
125 // init_system_modules();
127 // oberon_generator_dump(ctx, "dump.txt");
129 // start_module();
133 }