From 80b5ecaecd400c17b4ea82c980e8d5ec3ff9df21 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 26 Sep 2006 12:50:10 +0000
Subject: [PATCH] + patch from Graeme Geldenhuys to include version info

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

diff --git a/utils/fpdoc/dglobals.pp b/utils/fpdoc/dglobals.pp
index f2e0b82878..91bac49bf6 100644
--- a/utils/fpdoc/dglobals.pp
+++ b/utils/fpdoc/dglobals.pp
@@ -99,8 +99,9 @@ resourcestring
   // HTML usage
   SHTMLUsageFooter = 'Append xhtml from file as footer to html page';
 
-  STitle                      = 'FPDoc - Free Pascal Documentation Tool';
-  SCopyright                  = '(c) 2000 - 2003 Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org';
+  STitle           = 'FPDoc - Free Pascal Documentation Tool';
+  SVersion         = 'Version %s [%s]';
+  SCopyright       = '(c) 2000 - 2003 Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org';
 
   SCmdLineHelp     = 'Usage: %s [options]';
   SUsageOption010  = '--content         Create content file for package cross-references';
diff --git a/utils/fpdoc/fpdoc.pp b/utils/fpdoc/fpdoc.pp
index fbf8fb3884..44456b6284 100644
--- a/utils/fpdoc/fpdoc.pp
+++ b/utils/fpdoc/fpdoc.pp
@@ -30,6 +30,8 @@ uses
 const
   OSTarget: String = {$I %FPCTARGETOS%};
   CPUTarget: String = {$I %FPCTARGETCPU%};
+  FPCVersion: String = {$I %FPCVERSION%};
+  FPCDate: String = {$I %FPCDATE%};
 
 var
   Backend : String;
@@ -268,6 +270,7 @@ begin
   gettext.TranslateResourceStrings('intl/fpdoc.%s.mo');
 {$ENDIF}
   WriteLn(STitle);
+  WriteLn(Format(SVersion, [FPCVersion, FPCDate]));
   WriteLn(SCopyright);
   WriteLn;
   InitOptions;
diff --git a/utils/fpdoc/makeskel.pp b/utils/fpdoc/makeskel.pp
index cc6034d346..511a468bd0 100644
--- a/utils/fpdoc/makeskel.pp
+++ b/utils/fpdoc/makeskel.pp
@@ -23,6 +23,7 @@ uses
 
 resourcestring
   STitle = 'MakeSkel - FPDoc skeleton XML description file generator';
+  SVersion = 'Version %s [%s]';
   SCopyright = '(c) 2000 - 2003 Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org';
   SCmdLineHelp = 'See documentation for usage.';
   SCmdLineInvalidOption = 'Ignoring unknown option "%s"';
@@ -44,6 +45,8 @@ const
   CmdLineAction: TCmdLineAction = actionConvert;
   OSTarget: String = {$I %FPCTARGETOS%};
   CPUTarget: String = {$I %FPCTARGETCPU%};
+  FPCVersion: String = {$I %FPCVERSION%};
+  FPCDate: String = {$I %FPCDATE%};
 
 var
   EmittedList,InputFiles, DescrFiles: TStringList;
@@ -334,6 +337,7 @@ begin
   InitOptions;
   ParseCommandLine;
   WriteLn(STitle);
+  WriteLn(Format(SVersion, [FPCVersion, FPCDate]));
   WriteLn(SCopyright);
   WriteLn;
   if CmdLineAction = actionHelp then