MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 10:03:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

new tpl syntax [^section] will prepend to [section]

Browse Source
This commit is contained in:
Massimo Melina 2020-08-01 20:46:07 +02:00
parent a47541286a
commit db2ad83c77
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
classesLib.pas
View File

@ -1127,7 +1127,7 @@ var
ss: TStringDynArray;
s, si: string;
till: pchar;
append: boolean;
append, prepend, add: boolean;
sect, from: PtplSection;
begin
till:=pred(bos);
@ -1143,8 +1143,10 @@ var
if not parseFlagsAndAcceptSection(ss) then
exit;
append:=ansiStartsStr('+', cur_section);
if append then
prepend:=startsStr('^', cur_section);
append:=startsStr('+', cur_section);
add:=prepend or append;
if add then
delete(cur_section,1,1);
// there may be several section names separated by =
@ -1160,16 +1162,19 @@ var
from:=NIL;
if sect = NIL then // not found
begin
if append then
if add then
from:=getSection(s);
sect:=newSection(s);
end
else
if append then
if add then
from:=sect;
if from<>NIL then
begin // inherit from it
sect.txt:=from.txt+base.txt;
if append then
sect.txt:=from.txt+base.txt
else
sect.txt:=base.txt+CRLF+from.txt;
sect.nolog:=from.nolog or base.nolog;
sect.public:=from.public or base.public;
sect.noList:=from.noList or base.noList;