From 9e56c4e8ab7db955c63cef4dc2da89cf1ee4a5d9 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Fri, 13 Aug 2010 12:39:10 +0000
Subject: [PATCH]  * --parse-impl option for testing.

git-svn-id: trunk@15797 -
---
 utils/fpdoc/dglobals.pp | 4 ++--
 utils/fpdoc/fpdoc.pp    | 3 +++
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/utils/fpdoc/dglobals.pp b/utils/fpdoc/dglobals.pp
index 05f75c114a..a4cc1119e3 100644
--- a/utils/fpdoc/dglobals.pp
+++ b/utils/fpdoc/dglobals.pp
@@ -28,7 +28,7 @@ uses Classes, DOM, PasTree, PParser;
 Var
   LEOL : Integer;
   modir : string;
-  
+
 resourcestring
   // Output strings
   SDocPackageTitle           = 'Reference for package ''%s''';
@@ -142,7 +142,7 @@ resourcestring
   SUsageOption160  = '--show-private    Show private methods.';
   SUsageOption170  = '--warn-no-node    Warn if no documentation node was found.';
   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:';
   SUsageBackendHelp    = 'Specify an output format, combined with --help to get more help for this backend.';
   SUsageFormatSpecific = 'Output format "%s" supports the following options:';
diff --git a/utils/fpdoc/fpdoc.pp b/utils/fpdoc/fpdoc.pp
index 89b00c8d7b..fa5da10dca 100644
--- a/utils/fpdoc/fpdoc.pp
+++ b/utils/fpdoc/fpdoc.pp
@@ -71,6 +71,7 @@ begin
   Writeln(SUsageOption160);
   Writeln(SUsageOption170);
   Writeln(SUsageOption180);
+  Writeln(SUsageOption190);
   L:=TStringList.Create;
   Try
     If (Backend='') then
@@ -208,6 +209,8 @@ begin
       CPUTarget := Arg
     else if Cmd = '--mo-dir' then
       modir := Arg
+    else if Cmd = '--parse-impl' then
+      Engine.InterfaceOnly:=false
     else
       begin
       BackendOptions.Add(Cmd);