paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 14:10:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix -h or --help

Browse Source 
git-svn-id: trunk@45210 -
This commit is contained in:
michael 2020-05-01 14:11:14 +00:00
parent 871f60ef61
commit 4e7443bf81
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
utils/fpdoc/unitdiff.pp
View File

@ -105,10 +105,10 @@ Procedure Usage;
begin
Writeln('Usage : ',ExtractFileName(Paramstr(0)),' [options] file1 file2');
Writeln('Where [options] is one or more of :');
Writeln(' -h or --help Emit help.');
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(' --help Emit help.');
Writeln(' --input=cmdline Input file to create skeleton for.');
Writeln(' Use options are as for compiler.');
Writeln(' --lang=language Use selected language.');
@ -193,14 +193,18 @@ begin
// Translate internal documentation strings
TranslateDocStrings(DocLang);
end;
if (cmdLineAction<>ActionHelp) and (InputFile1='') and (InputFile2='') then
begin
Writeln(StdErr,SErrNoInputFile);
cmdLineAction := actionHelp;
end else if (InputFile2='') and (CmdLineAction<>ActionList) then
if (cmdLineAction<>ActionHelp) then
begin
Writeln(StdErr,SWarnAssumingList);
CmdLineAction:=ActionList;
if (InputFile1='') and (InputFile2='') then
begin
Writeln(StdErr,SErrNoInputFile);
cmdLineAction := actionHelp;
end
else if (InputFile2='') and (CmdLineAction<>ActionList) then
begin
Writeln(StdErr,SWarnAssumingList);
CmdLineAction:=ActionList;
end;
end;
end;