125c5df07d2f017942479ff9a7ed5e979f86b4f2
1 #include <stdio.h>
2 #include <string.h>
3 #include <assert.h>
8 "(* Main module *)"
9 "MODULE Test;"
10 "IMPORT Out;"
11 "TYPE"
12 " RecA = POINTER TO RecADesc;"
13 " RecADesc = RECORD END;"
14 ""
15 " RecB = POINTER TO RecBDesc;"
16 " RecBDesc = RECORD (RecADesc) END;"
17 ""
18 "VAR"
19 " pra : RecA;"
20 " prb : RecB;"
21 " ra : RecADesc;"
22 " rb : RecBDesc;"
23 ""
24 "BEGIN"
25 " pra := prb;"
26 " prb := pra(RecB);"
27 " ra := prb^;"
28 "END Test."
29 ;
31 // PROCEDURE Char* (ch : CHAR);
32 // PROCEDURE String* (str : ARRAY OF CHAR);
35 "MODULE Out;"
36 " PROCEDURE Open*;"
37 " END Open;"
38 ""
39 " PROCEDURE Int*(i, n : LONGINT);"
40 " END Int;"
41 ""
42 " PROCEDURE Real*(x : REAL; n : INTEGER);"
43 " END Real;"
44 ""
45 " PROCEDURE LongReal*(x : LONGREAL; n : INTEGER);"
46 " END LongReal;"
47 ""
48 " PROCEDURE Ln*;"
49 " END Ln;"
50 ""
51 "END Out."
52 ;
59 {
61 {
63 }
65 {
67 }
68 else
69 {
71 }
72 }
77 {
78 }
83 {
88 {
90 }
92 }
97 {
102 {
104 }
106 }
111 {
113 }
116 {
125 }
128 {
131 }
133 int
135 {
141 // init_system_modules();
143 // oberon_generator_dump(ctx, "dump.txt");
145 // start_module();
149 }