23 lines
432 B
Modula-2
23 lines
432 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;
|
|
FROM CommandLineInterface IMPORT PCommandLine, parse_command_line;
|
|
|
|
VAR
|
|
lexer: Lexer;
|
|
command_line: PCommandLine;
|
|
|
|
BEGIN
|
|
command_line := parse_command_line();
|
|
|
|
lexer_initialize(ADR(lexer), StdIn);
|
|
|
|
transpile(ADR(lexer));
|
|
|
|
lexer_destroy(ADR(lexer))
|
|
END Compiler.
|