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

Create a parser context

Browse Source
This commit is contained in:
Eugen Wissner
2025-06-13 15:24:24 +02:00
parent 9341017103
commit 20b5dd027f
10 changed files with 283 additions and 248 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/CommandLineInterface.elna
View File

@ -22,6 +22,7 @@ begin
result^.lex := false;
result^.parse := false;
MemZero(ADR(result^.input), 256);
result^.output[1] := CHAR(0);
while (i < Narg()) & (result <> nil) do
parsed := GetArg(parameter, i);
@ -35,7 +36,20 @@ begin
parsed := true;
result^.parse := true
end;
if parameter[1] <> '-' then
if CompareStr(parameter, '-o') = 0 then
INC(i);
if i = Narg() then
WriteString(StdErr, 'Fatal error: expecting a file name following -o.');
result := nil
end;
if i < Narg() then
parsed := GetArg(parameter, i);
result^.output := parameter
end;
parsed := true
end;
if (parameter[1] <> '-') & (parsed = false) then
parsed := true;
if Length(result^.input) > 0 then