Make procedure name after the end

This commit is contained in:
2025-05-29 14:59:22 +02:00
parent 4adac0531f
commit 0170ddd58f
4 changed files with 52 additions and 84 deletions

18
source/Compiler.mod Normal file
View File

@ -0,0 +1,18 @@
MODULE Compiler;
FROM FIO IMPORT StdIn;
FROM SYSTEM IMPORT ADR;
FROM Lexer IMPORT Lexer, LexerDestroy, LexerInitialize;
FROM Transpiler IMPORT Transpile;
VAR
ALexer: Lexer;
BEGIN
LexerInitialize(ADR(ALexer), StdIn);
Transpile(ADR(ALexer));
LexerDestroy(ADR(ALexer))
END Compiler.