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, lexer_destroy, lexer_initialize;
|
|
FROM Transpiler IMPORT transpile;
|
|
|
|
VAR
|
|
lexer: Lexer;
|
|
|
|
BEGIN
|
|
lexer_initialize(ADR(lexer), StdIn);
|
|
|
|
transpile(ADR(lexer));
|
|
|
|
lexer_destroy(ADR(lexer))
|
|
END Compiler.
|