1 #include <stdio.h>
2 #include <string.h>
3 #include <assert.h>
8 "(* Main module *)"
9 "MODULE Test;"
10 "TYPE"
11 " RecDesc = RECORD a : ARRAY 3, 5 OF INTEGER; END;"
12 ""
13 "VAR"
14 " a, b : ARRAY 3, 6 OF RecDesc;"
15 ""
16 "BEGIN"
17 " a := b;"
18 "END Test."
19 ;
22 "MODULE Out;"
23 // "(* Interface to outer program ;) *)"
24 // "VAR"
25 // " Open- : PROCEDURE;"
26 // " Char- : PROCEDURE(ch : CHAR);"
27 // " String- : PROCEDURE(str : ARRAY OF CHAR)"
28 // " Int- : PROCEDURE(i, n : LONGINT);"
29 // " Int- : PROCEDURE(i, n : INTEGER);"
30 // " Real- : PROCEDURE(x : REAL; n : INTEGER);"
31 // " LongReal- : PROCEDURE(x : LONGREAL; n : INTEGER);"
32 // " Ln- : PROCEDURE;"
33 "END Out."
34 ;
41 {
43 {
45 }
47 {
49 }
50 else
51 {
53 }
54 }
59 {
60 }
65 {
70 {
72 }
74 }
79 {
84 {
86 }
88 }
93 {
95 }
98 {
107 }
110 {
113 }
115 int
117 {
123 // init_system_modules();
125 // oberon_generator_dump(ctx, "dump.txt");
127 // start_module();
131 }