paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 06:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct command-line handling

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-06-01 17:41:50 +02:00
parent 6e324989eb
commit bcdd3cd84b
1 changed files with 21 additions and 8 deletions

29
utils/fpdoc/unitdiff.pp
View File

@ -85,7 +85,7 @@ function TSkelEngine.CreateElement(AClass: TPTreeElement; const AName: String;
begin
Result:=Assigned(AParent) and (Length(AName) > 0) and
(not DisableArguments or (APasElement.ClassType <> TPasArgument)) and
(not DisableArguments or ((APasElement.ClassType <> TPasArgument) and (not (aParent is TPasArgument)))) and
(not DisableFunctionResults or (APasElement.ClassType <> TPasResultElement)) and
(not DisablePrivate or (AVisibility<>visPrivate)) and
(not DisableProtected or (AVisibility<>visProtected));
@ -109,14 +109,26 @@ begin
Writeln(' --disable-arguments Do not check function arguments.');
Writeln(' --disable-private Do not check class private fields.');
Writeln(' --disable-protected Do not check class protected fields.');
Writeln(' --input=cmdline Input file to create skeleton for.');
Writeln(' Use options are as for compiler.');
Writeln(' --input=cmdline Input file to create skeleton for. Specify twice, once for each file.');
Writeln(' Use options as for compiler.');
Writeln(' --lang=language Use selected language.');
Writeln(' --list List identifiers instead of making a diff');
Writeln(' --output=filename Send output to file.');
Writeln(' --sparse Sparse list/diff (skip type identification)');
end;
function setinput(const cmd : string) : Boolean;
begin
Result:=True;
if (InputFile1='') then
InputFile1:=Cmd
else if (InputFile2='') then
InputFile2:=Cmd
else
Result:=false;
end;
procedure ParseOption(const s: String);
var
@ -153,14 +165,15 @@ begin
DocLang := Arg
else if (Cmd = '-o') or (Cmd = '--output') then
OutputName := Arg
else if (Cmd = '-i') or (Cmd = '--input') then
begin
if not SetInput(Arg) then
WriteLn(StdErr, Format(SCmdLineInvalidOption, [s]));
end
else
if (length(cmd)>0) and (cmd[1]='-') then
WriteLn(StdErr, Format(SCmdLineInvalidOption, [s]))
else if (InputFile1='') then
InputFile1:=Cmd
else if (InputFile2='') then
InputFile2:=Cmd
else
else if not SetInput(cmd) then
WriteLn(StdErr, Format(SCmdLineInvalidOption, [s]));
end;
end;