74 lines
1.7 KiB
Plaintext
74 lines
1.7 KiB
Plaintext
program;
|
|
|
|
from FIO import Close, IsNoError, File, OpenToRead, OpenToWrite, StdErr, StdOut, WriteLine, WriteString;
|
|
from SYSTEM import ADR;
|
|
from M2RTS import HALT, ExitOnHalt;
|
|
|
|
from Lexer import Lexer, lexer_destroy, lexer_initialize;
|
|
from Parser import Parser;
|
|
from Transpiler import transpile;
|
|
from CommandLineInterface import PCommandLine, parse_command_line;
|
|
from Parser import PAstModule, parse;
|
|
from Strings import Length;
|
|
|
|
var
|
|
command_line: PCommandLine;
|
|
|
|
proc compile_from_stream();
|
|
var
|
|
lexer: Lexer;
|
|
source_input: File;
|
|
source_output: File;
|
|
ast_module: PAstModule;
|
|
begin
|
|
source_input := OpenToRead(command_line^.input);
|
|
|
|
if IsNoError(source_input) = false then
|
|
WriteString(StdErr, 'Fatal error: failed to read the input file "');
|
|
WriteString(StdErr, command_line^.input);
|
|
WriteString(StdErr, '".');
|
|
WriteLine(StdErr);
|
|
|
|
ExitOnHalt(2)
|
|
end;
|
|
source_output := nil;
|
|
|
|
if Length(command_line^.output) > 0 then
|
|
source_output := OpenToWrite(command_line^.output);
|
|
|
|
if IsNoError(source_output) = false then
|
|
WriteString(StdErr, 'Fatal error: failed to create the output file "');
|
|
WriteString(StdErr, command_line^.output);
|
|
WriteString(StdErr, '".');
|
|
WriteLine(StdErr);
|
|
|
|
ExitOnHalt(2)
|
|
end
|
|
end;
|
|
|
|
if IsNoError(source_input) then
|
|
lexer_initialize(ADR(lexer), source_input);
|
|
|
|
ast_module := parse(ADR(lexer));
|
|
transpile(ast_module, StdOut, source_output, command_line^.input);
|
|
|
|
lexer_destroy(ADR(lexer));
|
|
|
|
Close(source_output);
|
|
Close(source_input)
|
|
end
|
|
end;
|
|
|
|
begin
|
|
ExitOnHalt(0);
|
|
command_line := parse_command_line();
|
|
|
|
if command_line <> nil then
|
|
compile_from_stream()
|
|
end;
|
|
if command_line = nil then
|
|
ExitOnHalt(1)
|
|
end;
|
|
HALT()
|
|
end.
|