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 " PrintString = PROCEDURE (str : ARRAY OF CHAR);"
26 ""
27 "VAR"
28 " hello : Ident;"
29 " print : PrintString;"
30 ""
31 "BEGIN"
32 " print := Out.String;"
33 " hello[0] := h;"
34 " hello[1] := e;"
35 " hello[2] := l;"
36 " hello[3] := l;"
37 " hello[4] := o;"
38 " hello[5] := space;"
39 " hello[6] := w;"
40 " hello[7] := o;"
41 " hello[8] := r;"
42 " hello[9] := l;"
43 " hello[10] := d;"
44 " hello[11] := bang;"
45 " hello[12] := null;"
46 " Out.Open;"
47 " print(hello);"
48 " Out.Ln;"
49 "END Test."
50 ;
52 // PROCEDURE Char* (ch : CHAR);
53 // PROCEDURE String* (str : ARRAY OF CHAR);
56 "MODULE Out;"
57 " PROCEDURE Open*;"
58 " END Open;"
59 ""
60 " PROCEDURE Char* (ch : CHAR);"
61 " END Char;"
62 ""
63 " PROCEDURE String* (str : ARRAY OF CHAR);"
64 " END String;"
65 ""
66 " PROCEDURE Int*(i, n : LONGINT);"
67 " END Int;"
68 ""
69 " PROCEDURE Real*(x : REAL; n : INTEGER);"
70 " END Real;"
71 ""
72 " PROCEDURE LongReal*(x : LONGREAL; n : INTEGER);"
73 " END LongReal;"
74 ""
75 " PROCEDURE Ln*;"
76 " END Ln;"
77 ""
78 "END Out."
79 ;
86 {
88 {
90 }
92 {
94 }
95 else
96 {
98 }
99 }
104 {
105 }
110 {
115 {
117 }
119 }
124 {
129 {
131 }
133 }
138 {
140 }
143 {
152 }
155 {
158 }
160 int
162 {
168 // init_system_modules();
170 // oberon_generator_dump(ctx, "dump.txt");
172 // start_module();
176 }