paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 13:19:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* --parse-impl option for testing.

Browse Source 
git-svn-id: trunk@15797 -
This commit is contained in:
marco 2010-08-13 12:39:10 +00:00
parent 2518a87deb
commit 9e56c4e8ab
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/fpdoc/dglobals.pp
View File

@ -28,7 +28,7 @@ uses Classes, DOM, PasTree, PParser;
Var Var
LEOL : Integer; LEOL : Integer;
modir : string; modir : string;
resourcestring resourcestring
// Output strings // Output strings
SDocPackageTitle = 'Reference for package ''%s'''; SDocPackageTitle = 'Reference for package ''%s''';
@ -142,7 +142,7 @@ resourcestring
SUsageOption160 = '--show-private Show private methods.'; SUsageOption160 = '--show-private Show private methods.';
SUsageOption170 = '--warn-no-node Warn if no documentation node was found.'; SUsageOption170 = '--warn-no-node Warn if no documentation node was found.';
SUsageOption180 = '--mo-dir=dir Set directory where language files reside to dir'; SUsageOption180 = '--mo-dir=dir Set directory where language files reside to dir';
SUsageOption190 = '--parse-impl (Experimental) try to parse implementation too';
SUsageFormats = 'The following output formats are supported by this fpdoc:'; SUsageFormats = 'The following output formats are supported by this fpdoc:';
SUsageBackendHelp = 'Specify an output format, combined with --help to get more help for this backend.'; SUsageBackendHelp = 'Specify an output format, combined with --help to get more help for this backend.';
SUsageFormatSpecific = 'Output format "%s" supports the following options:'; SUsageFormatSpecific = 'Output format "%s" supports the following options:';

3
utils/fpdoc/fpdoc.pp
View File

@ -71,6 +71,7 @@ begin
Writeln(SUsageOption160); Writeln(SUsageOption160);
Writeln(SUsageOption170); Writeln(SUsageOption170);
Writeln(SUsageOption180); Writeln(SUsageOption180);
Writeln(SUsageOption190);
L:=TStringList.Create; L:=TStringList.Create;
Try Try
If (Backend='') then If (Backend='') then
@ -208,6 +209,8 @@ begin
CPUTarget := Arg CPUTarget := Arg
else if Cmd = '--mo-dir' then else if Cmd = '--mo-dir' then
modir := Arg modir := Arg
else if Cmd = '--parse-impl' then
Engine.InterfaceOnly:=false
else else
begin begin
BackendOptions.Add(Cmd); BackendOptions.Add(Cmd);