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.