1 #include <stdio.h>
2 #include <string.h>
3 #include <assert.h>
8 "(* Main module *)"
9 "MODULE Test;"
10 "TYPE"
11 " RecA = RECORD"
12 " i, j, k : INTEGER;"
13 " END;"
14 ""
15 " Rec = POINTER TO RecDesc;"
16 " RecDesc = RECORD"
17 " x, y, z : INTEGER;"
18 " r, q, s : RecA;"
19 " p, c, g : Rec;"
20 " END;"
21 ""
22 "VAR"
23 " a, b : Rec;"
24 ""
25 "BEGIN"
26 " NEW(a);"
27 " NEW(b);"
28 " a^ := b^;"
29 "END Test."
30 ;
33 "MODULE Out;"
34 // "(* Interface to outer program ;) *)"
35 // "VAR"
36 // " Open- : PROCEDURE;"
37 // " Char- : PROCEDURE(ch : CHAR);"
38 // " String- : PROCEDURE(str : ARRAY OF CHAR)"
39 // " Int- : PROCEDURE(i, n : LONGINT);"
40 // " Int- : PROCEDURE(i, n : INTEGER);"
41 // " Real- : PROCEDURE(x : REAL; n : INTEGER);"
42 // " LongReal- : PROCEDURE(x : LONGREAL; n : INTEGER);"
43 // " Ln- : PROCEDURE;"
44 "END Out."
45 ;
52 {
54 {
56 }
58 {
60 }
61 else
62 {
64 }
65 }
70 {
71 }
76 {
81 {
83 }
85 }
90 {
95 {
97 }
99 }
104 {
106 }
109 {
118 }
121 {
124 }
126 int
128 {
134 // init_system_modules();
136 // oberon_generator_dump(ctx, "dump.txt");
138 // start_module();
142 }