0edbdf483353b545427a87e699d3c071aa3c9644
1 #include <stdio.h>
2 #include <string.h>
3 #include <assert.h>
8 "(* Main module *)"
9 "MODULE Test;"
10 "TYPE"
11 " Rec = POINTER TO RecDesc;"
12 " RecDesc = RECORD"
13 " x, y, z : INTEGER;"
14 " r : RECORD xxx : INTEGER; END;"
15 " END;"
16 "VAR"
17 " a : INTEGER;"
18 " r : Rec;"
19 "BEGIN"
20 " NEW(r);"
21 " a := 123;"
22 " a := -(3 * a + 456);"
23 " r.x := a;"
24 " r.y := r.x;"
25 " r.z := r.y * 3;"
26 " r.r.xxx := 666;"
27 "END Test."
28 ;
31 "MODULE Out;"
32 // "(* Interface to outer program ;) *)"
33 // "VAR"
34 // " Open- : PROCEDURE;"
35 // " Char- : PROCEDURE(ch : CHAR);"
36 // " String- : PROCEDURE(str : ARRAY OF CHAR)"
37 // " Int- : PROCEDURE(i, n : LONGINT);"
38 // " Int- : PROCEDURE(i, n : INTEGER);"
39 // " Real- : PROCEDURE(x : REAL; n : INTEGER);"
40 // " LongReal- : PROCEDURE(x : LONGREAL; n : INTEGER);"
41 // " Ln- : PROCEDURE;"
42 "END Out."
43 ;
50 {
52 {
54 }
56 {
58 }
59 else
60 {
62 }
63 }
68 {
69 }
74 {
79 {
81 }
83 }
88 {
93 {
95 }
97 }
102 {
104 }
107 {
116 }
119 {
122 }
124 int
126 {
132 // init_system_modules();
134 // oberon_generator_dump(ctx, "dump.txt");
136 // start_module();
140 }