1 #include <stdio.h>
2 #include <string.h>
3 #include <assert.h>
8 "(* Main module *)"
9 "MODULE Test;"
10 "IMPORT Out;"
11 "CONST"
12 " null = 0X;"
13 " space = 020X;"
14 " bang = 021X;"
15 " h = 048X;"
16 " e = 045X;"
17 " l = 04CX;"
18 " o = 04FX;"
19 " w = 057X;"
20 " r = 052X;"
21 " d = 044X;"
22 ""
23 "TYPE"
24 " Ident = ARRAY 20 OF CHAR;"
25 ""
26 "VAR"
27 " hello : Ident;"
28 " cc : CHAR;"
29 ""
30 "BEGIN"
31 " hello[0] := h;"
32 " hello[1] := e;"
33 " hello[2] := l;"
34 " hello[3] := l;"
35 " hello[4] := o;"
36 " hello[5] := space;"
37 " hello[6] := w;"
38 " hello[7] := o;"
39 " hello[8] := r;"
40 " hello[9] := l;"
41 " hello[10] := d;"
42 " hello[11] := bang;"
43 " hello[12] := null;"
44 " Out.Open;"
45 " Out.String(hello);"
46 " Out.Ln;"
47 "END Test."
48 ;
50 // PROCEDURE Char* (ch : CHAR);
51 // PROCEDURE String* (str : ARRAY OF CHAR);
54 "MODULE Out;"
55 " PROCEDURE Open*;"
56 " END Open;"
57 ""
58 " PROCEDURE Char* (ch : CHAR);"
59 " END Char;"
60 ""
61 " PROCEDURE String* (str : ARRAY OF CHAR);"
62 " END String;"
63 ""
64 " PROCEDURE Int*(i, n : LONGINT);"
65 " END Int;"
66 ""
67 " PROCEDURE Real*(x : REAL; n : INTEGER);"
68 " END Real;"
69 ""
70 " PROCEDURE LongReal*(x : LONGREAL; n : INTEGER);"
71 " END LongReal;"
72 ""
73 " PROCEDURE Ln*;"
74 " END Ln;"
75 ""
76 "END Out."
77 ;
84 {
86 {
88 }
90 {
92 }
93 else
94 {
96 }
97 }
102 {
103 }
108 {
113 {
115 }
117 }
122 {
127 {
129 }
131 }
136 {
138 }
141 {
150 }
153 {
156 }
158 int
160 {
166 // init_system_modules();
168 // oberon_generator_dump(ctx, "dump.txt");
170 // start_module();
174 }