1 #include <stdio.h>
2 #include <string.h>
3 #include <assert.h>
8 "(* Main module *)"
9 "MODULE Test;"
10 "VAR"
11 " l : POINTER TO ARRAY 16 OF BOOLEAN;"
12 "BEGIN"
13 " NEW(l);"
14 " l[0] := l[5];"
15 "END Test."
16 ;
19 "MODULE Out;"
20 // "(* Interface to outer program ;) *)"
21 // "VAR"
22 // " Open- : PROCEDURE;"
23 // " Char- : PROCEDURE(ch : CHAR);"
24 // " String- : PROCEDURE(str : ARRAY OF CHAR)"
25 // " Int- : PROCEDURE(i, n : LONGINT);"
26 // " Int- : PROCEDURE(i, n : INTEGER);"
27 // " Real- : PROCEDURE(x : REAL; n : INTEGER);"
28 // " LongReal- : PROCEDURE(x : LONGREAL; n : INTEGER);"
29 // " Ln- : PROCEDURE;"
30 "END Out."
31 ;
38 {
40 {
42 }
44 {
46 }
47 else
48 {
50 }
51 }
56 {
57 }
62 {
67 {
69 }
71 }
76 {
81 {
83 }
85 }
90 {
92 }
95 {
104 }
107 {
110 }
112 int
114 {
120 // init_system_modules();
122 // oberon_generator_dump(ctx, "dump.txt");
124 // start_module();
128 }