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

* Added -m option to show values of all macros

Browse Source 
* Removed unused resourcestrings

git-svn-id: trunk@15216 -
This commit is contained in:
joost 2010-05-03 14:43:15 +00:00
parent 8d0444353c
commit 633aa31ea3
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
utils/fpcmkcfg/fpcmkcfg.pp
View File

@ -49,6 +49,7 @@ Resourcestring
SUsage50 = ' -h show this help and exit.'; SUsage50 = ' -h show this help and exit.';
SUsage60 = ' -u name remove name from list of name/value pairs.'; SUsage60 = ' -u name remove name from list of name/value pairs.';
// SUsage70 = ' -l filename read name/value pairs from filename'; // SUsage70 = ' -l filename read name/value pairs from filename';
SUsage70 = ' -m show builtin macros and exit.';
SUsage80 = ' -b show builtin template and exit.'; SUsage80 = ' -b show builtin template and exit.';
SUsage90 = ' -v be verbose.'; SUsage90 = ' -v be verbose.';
Susage100 = ' -0 use built in fpc.cfg template (default)'; Susage100 = ' -0 use built in fpc.cfg template (default)';
@ -64,8 +65,6 @@ Resourcestring
SErrDelBackupFailed = 'Error: Delete of old backup file "%s" failed.'; SErrDelBackupFailed = 'Error: Delete of old backup file "%s" failed.';
SWarnIgnoringFile = 'Warning: Ignoring non-existent file: '; SWarnIgnoringFile = 'Warning: Ignoring non-existent file: ';
SWarnIgnoringPair = 'Warning: ignoring wrong name/value pair: '; SWarnIgnoringPair = 'Warning: ignoring wrong name/value pair: ';
SStats = 'Replaced %d placeholders in %d lines.';
SSubstInLine = 'Replaced %s placeholders in line %d.';
Var Var
@ -126,7 +125,7 @@ begin
Writeln(SUsage40); Writeln(SUsage40);
Writeln(SUsage50); Writeln(SUsage50);
Writeln(SUsage60); Writeln(SUsage60);
// Writeln(SUsage70); Writeln(SUsage70);
Writeln(SUsage80); Writeln(SUsage80);
Writeln(SUsage90); Writeln(SUsage90);
Writeln(SUsage100); Writeln(SUsage100);
@ -156,6 +155,17 @@ begin
end; end;
Procedure ShowBuiltInMacros;
Var
I : Integer;
begin
For I:=0 to TemplateParser.ValueCount-1 do
Writeln(TemplateParser.NamesByIndex[I]+'='+TemplateParser.ValuesByIndex[I]);
end;
Procedure ProcessCommandline; Procedure ProcessCommandline;
Var Var
@ -205,6 +215,10 @@ begin
ShowBuiltin; ShowBuiltin;
halt(0); halt(0);
end; end;
'm' : begin
ShowBuiltinMacros;
halt(0);
end;
't' : TemplateFileName:=GetOptArg; 't' : TemplateFileName:=GetOptArg;
'd' : AddPair(GetOptArg); 'd' : AddPair(GetOptArg);
'u' : TemplateParser.Values[GetOptArg]:=''; 'u' : TemplateParser.Values[GetOptArg]:='';