6282321069c7d32b23e1a5139fe71985762c8e80
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 "VAR"
13 " a, b : ARRAY 3, 6 OF RecDesc;"
14 "BEGIN"
15 " a := b;"
16 "END Test."
17 ;
20 "MODULE Out;"
21 // "(* Interface to outer program ;) *)"
22 // "VAR"
23 // " Open- : PROCEDURE;"
24 // " Char- : PROCEDURE(ch : CHAR);"
25 // " String- : PROCEDURE(str : ARRAY OF CHAR)"
26 // " Int- : PROCEDURE(i, n : LONGINT);"
27 // " Int- : PROCEDURE(i, n : INTEGER);"
28 // " Real- : PROCEDURE(x : REAL; n : INTEGER);"
29 // " LongReal- : PROCEDURE(x : LONGREAL; n : INTEGER);"
30 // " Ln- : PROCEDURE;"
31 "END Out."
32 ;
39 {
41 {
43 }
45 {
47 }
48 else
49 {
51 }
52 }
57 {
58 }
63 {
68 {
70 }
72 }
77 {
82 {
84 }
86 }
91 {
93 }
96 {
105 }
108 {
111 }
113 int
115 {
121 // init_system_modules();
123 // oberon_generator_dump(ctx, "dump.txt");
125 // start_module();
129 }