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

+ Added help screen

Browse Source
This commit is contained in:
michael 2004-11-15 18:00:18 +00:00
parent 19e6fa2783
commit c493f28b04
1 changed files with 34 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
utils/fpdoc/makeskel.pp
View File

@ -169,6 +169,30 @@ begin
InputFiles.Free; InputFiles.Free;
end; end;
Procedure Usage;
begin
Writeln('Usage : ',ExtractFileName(Paramstr(0)),' [options]');
Writeln('Where [options] is one or more of :');
Writeln(' --descr=filename Filename for update.');
Writeln(' --disable-arguments Do not create nodes for function arguments.');
Writeln(' --disable-errors Do not create errors node.');
Writeln(' --disable-function-results');
Writeln(' Do not create nodes for function arguments.');
Writeln(' --disable-private Do not create nodes for class private fields.');
Writeln(' --disable-protected Do not create nodes for class protected fields.');
Writeln(' --disable-seealso Do not create seealso node.');
Writeln(' --emit-class-separator');
Writeln(' Emit descriptive comment between classes.');
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.');
Writeln(' --output=filename Send output to file.');
Writeln(' --package=name Specify package name (mandatory).');
Writeln(' --update Update mode. Output only missing nodes.');
end;
procedure ParseOption(const s: String); procedure ParseOption(const s: String);
procedure AddToFileList(List: TStringList; const FileName: String); procedure AddToFileList(List: TStringList; const FileName: String);
@ -286,9 +310,9 @@ begin
WriteLn(SCopyright); WriteLn(SCopyright);
WriteLn; WriteLn;
if CmdLineAction = actionHelp then if CmdLineAction = actionHelp then
WriteLn(SCmdLineHelp) Usage
else else
begin begin
// Action is to create the XML skeleton // Action is to create the XML skeleton
if Length(PackageName) = 0 then if Length(PackageName) = 0 then
@ -318,8 +342,8 @@ begin
try try
Engine.SetPackageName(PackageName); Engine.SetPackageName(PackageName);
if UpdateMode then if UpdateMode then
For j:=0 to DescrFiles.Count-1 do For J:=0 to DescrFiles.Count-1 do
Engine.AddDocFile(DescrFiles[j]); Engine.AddDocFile(DescrFiles[J]);
Module := ParseSource(Engine, InputFiles[i], OSTarget, CPUTarget); Module := ParseSource(Engine, InputFiles[i], OSTarget, CPUTarget);
WriteLn(f, '</module> <!-- ', Module.Name, ' -->'); WriteLn(f, '</module> <!-- ', Module.Name, ' -->');
except except
@ -339,17 +363,20 @@ begin
WriteLn(f, '</fpdoc-descriptions>'); WriteLn(f, '</fpdoc-descriptions>');
Close(f); Close(f);
end; WriteLn(SDone);
end;
FreeOptions; FreeOptions;
WriteLn(SDone);
end. end.
{ {
$Log$ $Log$
Revision 1.13 2004-09-13 16:04:52 peter Revision 1.14 2004-11-15 18:00:18 michael
+ Added help screen
Revision 1.13 2004/09/13 16:04:52 peter
* fix nested for-loop with same index * fix nested for-loop with same index
Revision 1.12 2004/08/29 15:32:41 michael Revision 1.12 2004/08/29 15:32:41 michael