19 lines
294 B
Modula-2
19 lines
294 B
Modula-2
MODULE Compiler;
|
|
|
|
FROM FIO IMPORT StdIn;
|
|
FROM SYSTEM IMPORT ADR;
|
|
|
|
FROM Lexer IMPORT Lexer, LexerDestroy, LexerInitialize;
|
|
FROM Transpiler IMPORT Transpile;
|
|
|
|
VAR
|
|
ALexer: Lexer;
|
|
|
|
BEGIN
|
|
LexerInitialize(ADR(ALexer), StdIn);
|
|
|
|
Transpile(ADR(ALexer));
|
|
|
|
LexerDestroy(ADR(ALexer))
|
|
END Compiler.
|