+ patch from Graeme Geldenhuys to include version info

git-svn-id: trunk@4730 -

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, [email protected]';
+  STitle           = 'FPDoc - Free Pascal Documentation Tool';
+  SVersion         = 'Version %s [%s]';
+  SCopyright       = '(c) 2000 - 2003 Areca Systems GmbH / Sebastian Guenther, [email protected]';
 
   SCmdLineHelp     = 'Usage: %s [options]';
   SUsageOption010  = '--content         Create content file for package cross-references';

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;

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, [email protected]';
   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