19 lines
298 B
Modula-2
19 lines
298 B
Modula-2
MODULE Compiler;
|
|
|
|
FROM FIO IMPORT StdIn;
|
|
FROM SYSTEM IMPORT ADR;
|
|
|
|
FROM Lexer IMPORT Lexer, lexer_destroy, lexer_initialize;
|
|
FROM Transpiler IMPORT transpile;
|
|
|
|
VAR
|
|
ALexer: Lexer;
|
|
|
|
BEGIN
|
|
lexer_initialize(ADR(ALexer), StdIn);
|
|
|
|
transpile(ADR(ALexer));
|
|
|
|
lexer_destroy(ADR(ALexer))
|
|
END Compiler.
|