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

* Also show builtin templates other than the default

Browse Source 
git-svn-id: trunk@16943 -
This commit is contained in:
joost 2011-02-19 19:27:52 +00:00
parent 6ccb769768
commit 9b077ad93b
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
utils/fpcmkcfg/fpcmkcfg.pp
View File

@ -321,6 +321,7 @@ Procedure ProcessCommandline;
Var Var
I : Integer; I : Integer;
S : String; S : String;
ShowBuiltinCommand : boolean;
Function GetOptArg : String; Function GetOptArg : String;
@ -361,10 +362,7 @@ begin
case S[2] of case S[2] of
'v' : Verbose:=True; 'v' : Verbose:=True;
'h' : Usage; 'h' : Usage;
'b' : begin 'b' : ShowBuiltinCommand := true;
ShowBuiltin;
halt(0);
end;
'm' : begin 'm' : begin
ShowBuiltinMacros; ShowBuiltinMacros;
halt(0); halt(0);
@ -409,6 +407,11 @@ begin
TemplateParser.Values['TEMPLATEFILE'] := 'builtin'; TemplateParser.Values['TEMPLATEFILE'] := 'builtin';
end; end;
if ShowBuiltinCommand then
begin
ShowBuiltIn;
halt(0);
end;
end; end;