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

* generate fp.cfg help section.

Browse Source 
(cherry picked from commit d2ddf47d19)
This commit is contained in:
marcoonthegit 2023-01-28 15:22:35 +01:00
parent bd1682f3e9
commit f14b65ccdc
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/fpcmkcfg/fpcmkcfg.pp
View File

@ -90,6 +90,7 @@ Resourcestring
Susage120 = ' -2 use built in fp.ini template';
Susage130 = ' -3 use built in fppkg.cfg template';
Susage140 = ' -4 use built in fppkg default compiler template';
Susage150 = ' -g add help section to fp.ini';
SVersion = 'Version: %s';
@ -348,6 +349,7 @@ begin
Writeln(SUsage120);
Writeln(SUsage130);
Writeln(SUsage140);
Writeln(SUsage150);
Halt(1);
end;
@ -405,7 +407,7 @@ Var
I : Integer;
S : String;
ShowBuiltinCommand : boolean;
AppendHelp : boolean;
Function GetOptArg : String;
begin
@ -439,6 +441,7 @@ begin
ShowBuiltinCommand := False;
SkipBackup := False;
CreateDir := False;
AppendHelp:=False;
While( I<=ParamCount) do
begin
S:=Paramstr(i);
@ -454,6 +457,7 @@ begin
ShowBuiltinMacros;
halt(0);
end;
'g' : AppendHelp:=True;
't' : TemplateFileName:=GetOptArg;
'd' : AddPair(GetOptArg);
'u' : TemplateParser.Values[GetOptArg]:='';
@ -495,6 +499,8 @@ begin
TemplateParser.Values['TEMPLATEFILE'] := 'builtin';
end;
If AppendHelp Then
Cfg.Text:=Cfg.Text+'[Help]'+LineEnding+'Files="%basepath%/help/toc.chm;%basepath%/help/fcl.chm;%basepath%/help/ref.chm;%basepath%/help/rtl.chm;%basepath%/help/prog.chm;%basepath%/help/user.chm;%basepath%/help/fclres.chm"'+LineEnding;
if ShowBuiltinCommand then
begin
ShowBuiltIn;