c6d49e48cb3b54951d1ce87cb7ce6f3b255f7789
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 " baser : Baser;"
23 " r : R1;"
24 " inv : R2;"
25 ""
26 "BEGIN"
27 " r.a := 1;"
28 " baser := baser;"
29 " baser := r;"
30 "END Test."
31 ;
33 // PROCEDURE Char* (ch : CHAR);
34 // PROCEDURE String* (str : ARRAY OF CHAR);
37 "MODULE Out;"
38 " PROCEDURE Open*;"
39 " END Open;"
40 ""
41 " PROCEDURE Int*(i, n : LONGINT);"
42 " END Int;"
43 ""
44 " PROCEDURE Real*(x : REAL; n : INTEGER);"
45 " END Real;"
46 ""
47 " PROCEDURE LongReal*(x : LONGREAL; n : INTEGER);"
48 " END LongReal;"
49 ""
50 " PROCEDURE Ln*;"
51 " END Ln;"
52 ""
53 "END Out."
54 ;
61 {
63 {
65 }
67 {
69 }
70 else
71 {
73 }
74 }
79 {
80 }
85 {
90 {
92 }
94 }
99 {
104 {
106 }
108 }
113 {
115 }
118 {
127 }
130 {
133 }
135 int
137 {
143 // init_system_modules();
145 // oberon_generator_dump(ctx, "dump.txt");
147 // start_module();
151 }