belka/elna
1
0
Fork 0
Code Issues 41 Pull Requests Releases Activity

Add an empty cstdlib.elna source file

Browse Source
This commit is contained in:
Eugen Wissner
2025-08-10 23:43:09 +03:00
parent 87058adcb3
commit 32807b5b92
4 changed files with 74 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
source/CommandLineInterface.elna
View File

@@ -36,19 +36,19 @@ begin
parsed := GetArg(parameter, i);
parsed := false;
if CompareStr(parameter, '--lex') = 0 then
if CompareStr(parameter, "--lex") = 0 then
parsed := true;
result^.lex := true
end;
if CompareStr(parameter, '--parse') = 0 then
if CompareStr(parameter, "--parse") = 0 then
parsed := true;
result^.parse := true
end;
if CompareStr(parameter, '-o') = 0 then
if CompareStr(parameter, "-o") = 0 then
i := i + 1u;
if i = Narg() then
WriteString(StdErr, 'Fatal error: expecting a file name following -o.');
WriteString(StdErr, "Fatal error: expecting a file name following -o.");
result := nil
end;
if i < Narg() then
@@ -57,15 +57,15 @@ begin
end;
parsed := true
end;
if (parameter[1] <> '-') & (parsed = false) then
if (parameter[1] <> "-") & (parsed = false) then
parsed := true;
if Length(result^.input) > 0 then
WriteString(StdErr, 'Fatal error: only one source file can be compiled at once. First given "');
WriteString(StdErr, "Fatal error: only one source file can be compiled at once. First given \"");
WriteString(StdErr, result^.input);
WriteString(StdErr, '", then "');
WriteString(StdErr, "\", then \"");
WriteString(StdErr, parameter);
WriteString(StdErr, '".');
WriteString(StdErr, "\".");
WriteLine(StdErr);
result := nil
end;
@@ -74,7 +74,7 @@ begin
end
end;
if parsed = false then
WriteString(StdErr, 'Fatal error: unknown command line options: ');
WriteString(StdErr, "Fatal error: unknown command line options: ");
WriteString(StdErr, parameter);
WriteChar(StdErr, '.');
@@ -86,7 +86,7 @@ begin
i := i + 1
end;
if (result <> nil) & (Length(result^.input) = 0) then
WriteString(StdErr, 'Fatal error: no input files.');
WriteString(StdErr, "Fatal error: no input files.");
WriteLine(StdErr);
result := nil
end;