Make procedure name after the end

This commit is contained in:
2025-05-29 14:59:56 +02:00
parent 192e7e40c8
commit bd41736697
6 changed files with 410 additions and 377 deletions

View File

@ -3,16 +3,16 @@ module Compiler;
from FIO import StdIn;
from SYSTEM import ADR;
from Lexer import Lexer, LexerDestroy, LexerInitialize;
from Transpiler import Transpile;
from Lexer import Lexer, lexer_destroy, lexer_initialize;
from Transpiler import transpile;
var
ALexer: Lexer;
BEGIN
LexerInitialize(ADR(ALexer), StdIn);
begin
lexer_initialize(ADR(ALexer), StdIn);
Transpile(ADR(ALexer));
transpile(ADR(ALexer));
LexerDestroy(ADR(ALexer))
END Compiler.
lexer_destroy(ADR(ALexer))
end Compiler.