Create a parser context
This commit is contained in:
@@ -5,9 +5,10 @@ from SYSTEM import ADR;
|
|||||||
from M2RTS import HALT, ExitOnHalt;
|
from M2RTS import HALT, ExitOnHalt;
|
||||||
|
|
||||||
from Lexer import Lexer, lexer_destroy, lexer_initialize;
|
from Lexer import Lexer, lexer_destroy, lexer_initialize;
|
||||||
|
from Parser import Parser;
|
||||||
from Transpiler import transpile;
|
from Transpiler import transpile;
|
||||||
from CommandLineInterface import PCommandLine, parse_command_line;
|
from CommandLineInterface import PCommandLine, parse_command_line;
|
||||||
from Parser import PAstModule, parse_module;
|
from Parser import PAstModule, parse;
|
||||||
|
|
||||||
var
|
var
|
||||||
command_line: PCommandLine;
|
command_line: PCommandLine;
|
||||||
@@ -31,7 +32,7 @@ begin
|
|||||||
if IsNoError(source_input) then
|
if IsNoError(source_input) then
|
||||||
lexer_initialize(ADR(lexer), source_input);
|
lexer_initialize(ADR(lexer), source_input);
|
||||||
|
|
||||||
ast_module := parse_module(ADR(lexer));
|
ast_module := parse(ADR(lexer));
|
||||||
transpile(ast_module, StdOut, command_line^.input);
|
transpile(ast_module, StdOut, command_line^.input);
|
||||||
|
|
||||||
lexer_destroy(ADR(lexer));
|
lexer_destroy(ADR(lexer));
|
||||||
|
@@ -195,15 +195,6 @@ TYPE
|
|||||||
END;
|
END;
|
||||||
PAstModule = POINTER TO AstModule;
|
PAstModule = POINTER TO AstModule;
|
||||||
|
|
||||||
PROCEDURE parse_type_expression(lexer: PLexer): PAstTypeExpression;
|
PROCEDURE parse(lexer: PLexer): PAstModule;
|
||||||
PROCEDURE parse_type_part(lexer: PLexer): PPAstTypedDeclaration;
|
|
||||||
PROCEDURE parse_variable_part(lexer: PLexer): PPAstVariableDeclaration;
|
|
||||||
PROCEDURE parse_constant_part(lexer: PLexer): PPAstConstantDeclaration;
|
|
||||||
PROCEDURE parse_import_part(lexer: PLexer): PPAstImportStatement;
|
|
||||||
PROCEDURE parse_designator(lexer: PLexer): PAstExpression;
|
|
||||||
PROCEDURE parse_expression(lexer: PLexer): PAstExpression;
|
|
||||||
PROCEDURE parse_statement_part(lexer: PLexer): AstCompoundStatement;
|
|
||||||
PROCEDURE parse_procedure_part(lexer: PLexer): PPAstProcedureDeclaration;
|
|
||||||
PROCEDURE parse_module(lexer: PLexer): PAstModule;
|
|
||||||
|
|
||||||
END Parser.
|
END Parser.
|
||||||
|
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user