2c5fb0462c6cb482a0d66fbd593af3fa4f85f5d8
1 #include <stdio.h>
2 #include <string.h>
3 #include <assert.h>
8 "(* Main module *)"
9 "MODULE Test;"
10 "IMPORT Out;"
11 ""
12 "VAR"
13 " byte : BYTE;"
14 " short : SHORTINT;"
15 " int : INTEGER;"
16 " long : LONGINT;"
17 " real : REAL;"
18 " longreal : LONGREAL;"
19 ""
20 "BEGIN"
21 " Out.Open;"
22 " byte := 127;"
23 " int := 666;"
24 " long := int;"
25 " real := int;"
26 " longreal := int;"
27 " Out.Int(666, 0); Out.Ln;"
28 " Out.Int(byte, 0); Out.Ln;"
29 " Out.LongReal(real, 0); Out.Ln;"
30 "END Test."
31 ;
33 // PROCEDURE Char* (ch : CHAR);
34 // PROCEDURE String* (str : ARRAY OF CHAR);
37 "MODULE Out;"
38 " PROCEDURE Open*;"
39 " END Open;"
40 ""
41 " PROCEDURE Int*(i, n : LONGINT);"
42 " END Int;"
43 ""
44 " PROCEDURE Real*(x : REAL; n : INTEGER);"
45 " END Real;"
46 ""
47 " PROCEDURE LongReal*(x : LONGREAL; n : INTEGER);"
48 " END LongReal;"
49 ""
50 " PROCEDURE Ln*;"
51 " END Ln;"
52 ""
53 "END Out."
54 ;
61 {
63 {
65 }
67 {
69 }
70 else
71 {
73 }
74 }
79 {
80 }
85 {
90 {
92 }
94 }
99 {
104 {
106 }
108 }
113 {
115 }
118 {
127 }
130 {
133 }
135 int
137 {
143 // init_system_modules();
145 // oberon_generator_dump(ctx, "dump.txt");
147 // start_module();
151 }