4 #include <string.h>
5 #include <assert.h>
8 "(* Main module *)"
9 "MODULE Test;"
10 "IMPORT Out;"
11 "BEGIN;"
12 " Out.Open;"
13 " Out.Int(666, 0);"
14 " Out.Ln;"
15 "END Test."
16 ;
19 "MODULE Out;"
20 "VAR"
21 " Open- : PROCEDURE;"
22 // " Char- : PROCEDURE(ch : CHAR);"
23 // " String- : PROCEDURE(str : ARRAY OF CHAR)"
24 // " Int- : PROCEDURE(i, n : LONGINT);"
25 " Int- : PROCEDURE(i, n : INTEGER);"
26 // " Real- : PROCEDURE(x : REAL; n : INTEGER);"
27 // " LongReal- : PROCEDURE(x : LONGREAL; n : INTEGER);"
28 " Ln- : PROCEDURE;"
29 "END Out."
30 ;
37 {
39 {
41 }
43 {
45 }
46 else
47 {
49 }
50 }
55 {
56 }
61 {
63 }
68 {
70 }
73 {
80 }
83 {
86 }
88 int
90 {
104 }