6a08bce11b82d1454ec2538a53e6e63d426debfa
1 #include <stdio.h>
2 #include <string.h>
3 #include <assert.h>
8 "(* Main module *)"
9 "MODULE Test;"
10 "IMPORT Out;"
11 "TYPE"
12 " Baser = RECORD a : INTEGER; END;"
13 " R1 = RECORD (Baser)"
14 " b : R2;"
15 " END;"
16 " "
17 " R2 = RECORD"
18 " a : POINTER TO R1;"
19 " END;"
20 ""
21 "VAR"
22 " r : R1;"
23 ""
24 "BEGIN"
25 " r.a := 1;"
26 "END Test."
27 ;
29 // PROCEDURE Char* (ch : CHAR);
30 // PROCEDURE String* (str : ARRAY OF CHAR);
33 "MODULE Out;"
34 " PROCEDURE Open*;"
35 " END Open;"
36 ""
37 " PROCEDURE Int*(i, n : LONGINT);"
38 " END Int;"
39 ""
40 " PROCEDURE Real*(x : REAL; n : INTEGER);"
41 " END Real;"
42 ""
43 " PROCEDURE LongReal*(x : LONGREAL; n : INTEGER);"
44 " END LongReal;"
45 ""
46 " PROCEDURE Ln*;"
47 " END Ln;"
48 ""
49 "END Out."
50 ;
57 {
59 {
61 }
63 {
65 }
66 else
67 {
69 }
70 }
75 {
76 }
81 {
86 {
88 }
90 }
95 {
100 {
102 }
104 }
109 {
111 }
114 {
123 }
126 {
129 }
131 int
133 {
139 // init_system_modules();
141 // oberon_generator_dump(ctx, "dump.txt");
143 // start_module();
147 }