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

+ Fixed bug report from Ales Katona

Browse Source
This commit is contained in:
michael 2005-02-05 12:30:08 +00:00
parent b6ef0bf703
commit 3073c753a2
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
utils/fpdoc/fpdoc.pp
View File

@ -87,11 +87,12 @@ begin
Writeln(Format(SUsageFormatSpecific,[Lowercase(Backend)]));
C:=GetWriterClass(backend);
C.Usage(L);
For I:=0 to (L.Count-1) div 2 do
begin
S:=L[i*2];
Writeln(Format('%s %s',[S+Space(30-Length(S)),L[(i*2)+1]]));
end;
If L.Count>0 then
For I:=0 to (L.Count-1) div 2 do
begin
S:=L[i*2];
Writeln(Format('%s %s',[S+Space(30-Length(S)),L[(i*2)+1]]));
end;
end;
Finally
L.Free;
@ -283,7 +284,10 @@ end.
{
$Log$
Revision 1.8 2005-01-14 17:55:07 michael
Revision 1.9 2005-02-05 12:30:08 michael
+ Fixed bug report from Ales Katona
Revision 1.8 2005/01/14 17:55:07 michael
+ Added unix man page output; Implemented usage
Revision 1.7 2005/01/12 21:11:41 michael