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

+ patch from Graeme Geldenhuys to include version info

Browse Source 
git-svn-id: trunk@4730 -
This commit is contained in:
michael 2006-09-26 12:50:10 +00:00
parent d29a4bc889
commit 80b5ecaecd
3 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/fpdoc/dglobals.pp
View File

@ -99,8 +99,9 @@ resourcestring
// HTML usage // HTML usage
SHTMLUsageFooter = 'Append xhtml from file as footer to html page'; SHTMLUsageFooter = 'Append xhtml from file as footer to html page';
STitle = 'FPDoc - Free Pascal Documentation Tool'; STitle = 'FPDoc - Free Pascal Documentation Tool';
SCopyright = '(c) 2000 - 2003 Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org'; SVersion = 'Version %s [%s]';
SCopyright = '(c) 2000 - 2003 Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org';
SCmdLineHelp = 'Usage: %s [options]'; SCmdLineHelp = 'Usage: %s [options]';
SUsageOption010 = '--content Create content file for package cross-references'; SUsageOption010 = '--content Create content file for package cross-references';

3
utils/fpdoc/fpdoc.pp
View File

@ -30,6 +30,8 @@ uses
const const
OSTarget: String = {$I %FPCTARGETOS%}; OSTarget: String = {$I %FPCTARGETOS%};
CPUTarget: String = {$I %FPCTARGETCPU%}; CPUTarget: String = {$I %FPCTARGETCPU%};
FPCVersion: String = {$I %FPCVERSION%};
FPCDate: String = {$I %FPCDATE%};
var var
Backend : String; Backend : String;
@ -268,6 +270,7 @@ begin
gettext.TranslateResourceStrings('intl/fpdoc.%s.mo'); gettext.TranslateResourceStrings('intl/fpdoc.%s.mo');
{$ENDIF} {$ENDIF}
WriteLn(STitle); WriteLn(STitle);
WriteLn(Format(SVersion, [FPCVersion, FPCDate]));
WriteLn(SCopyright); WriteLn(SCopyright);
WriteLn; WriteLn;
InitOptions; InitOptions;

4
utils/fpdoc/makeskel.pp
View File

@ -23,6 +23,7 @@ uses
resourcestring resourcestring
STitle = 'MakeSkel - FPDoc skeleton XML description file generator'; STitle = 'MakeSkel - FPDoc skeleton XML description file generator';
SVersion = 'Version %s [%s]';
SCopyright = '(c) 2000 - 2003 Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org'; SCopyright = '(c) 2000 - 2003 Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org';
SCmdLineHelp = 'See documentation for usage.'; SCmdLineHelp = 'See documentation for usage.';
SCmdLineInvalidOption = 'Ignoring unknown option "%s"'; SCmdLineInvalidOption = 'Ignoring unknown option "%s"';
@ -44,6 +45,8 @@ const
CmdLineAction: TCmdLineAction = actionConvert; CmdLineAction: TCmdLineAction = actionConvert;
OSTarget: String = {$I %FPCTARGETOS%}; OSTarget: String = {$I %FPCTARGETOS%};
CPUTarget: String = {$I %FPCTARGETCPU%}; CPUTarget: String = {$I %FPCTARGETCPU%};
FPCVersion: String = {$I %FPCVERSION%};
FPCDate: String = {$I %FPCDATE%};
var var
EmittedList,InputFiles, DescrFiles: TStringList; EmittedList,InputFiles, DescrFiles: TStringList;
@ -334,6 +337,7 @@ begin
InitOptions; InitOptions;
ParseCommandLine; ParseCommandLine;
WriteLn(STitle); WriteLn(STitle);
WriteLn(Format(SVersion, [FPCVersion, FPCDate]));
WriteLn(SCopyright); WriteLn(SCopyright);
WriteLn; WriteLn;
if CmdLineAction = actionHelp then if CmdLineAction = actionHelp then