Make procedure name after the end
This commit is contained in:
18
source/Compiler.mod
Normal file
18
source/Compiler.mod
Normal file
@ -0,0 +1,18 @@
|
||||
MODULE Compiler;
|
||||
|
||||
FROM FIO IMPORT StdIn;
|
||||
FROM SYSTEM IMPORT ADR;
|
||||
|
||||
FROM Lexer IMPORT Lexer, lexer_destroy, lexer_initialize;
|
||||
FROM Transpiler IMPORT transpile;
|
||||
|
||||
VAR
|
||||
ALexer: Lexer;
|
||||
|
||||
BEGIN
|
||||
lexer_initialize(ADR(ALexer), StdIn);
|
||||
|
||||
transpile(ADR(ALexer));
|
||||
|
||||
lexer_destroy(ADR(ALexer))
|
||||
END Compiler.
|
Reference in New Issue
Block a user