DEFINITION MODULE Transpiler;

FROM FIO IMPORT File;

FROM Common IMPORT ShortString;
FROM Lexer IMPORT PLexer, Lexer;

TYPE
  TranspilerContext = RECORD
    input_name: ShortString;
    output: File;
    lexer: PLexer
  END;
  PTranspilerContext = POINTER TO TranspilerContext;

PROCEDURE transpile(lexer: PLexer; output: File; input_name: ShortString);

END Transpiler.