DEFINITION MODULE Transpiler; FROM FIO IMPORT File; FROM Common IMPORT ShortString; FROM Lexer IMPORT PLexer, Lexer; FROM Parser IMPORT PAstModule; TYPE TranspilerContext = RECORD input_name: ShortString; output: File; indentation: CARDINAL END; PTranspilerContext = POINTER TO TranspilerContext; PROCEDURE transpile(ast_module: PAstModule; output: File; input_name: ShortString); END Transpiler.