paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

xmlcfg: search neighbours first

Browse Source 
git-svn-id: trunk@47151 -
This commit is contained in:
mattias 2014-12-09 13:52:15 +00:00
parent 1ffb091432
commit 5c340cafc8
1 changed files with 53 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
components/lazutils/laz2_xmlcfg.pas
View File

@ -58,11 +58,12 @@ type
procedure WriteXMLFile(ADoc: TXMLDocument; const AFileName: String); virtual;
procedure FreeDoc; virtual;
procedure SetPathNodeCache(Index: integer; Node: TDomNode);
function GetPathNodeCache(Index: integer): TDomNode;
function GetPathNodeCache(Index: integer): TDomNode; inline;
procedure InvalidateCacheTilEnd(StartIndex: integer);
function InternalFindNode(const APath: String; PathLen: integer;
CreateNodes: boolean = false): TDomNode;
procedure InternalCleanNode(Node: TDomNode);
function FindChildNode(Parent, StartChild: TDomNode; const aName: string): TDomNode;
public
constructor Create(AOwner: TComponent); override; overload;
constructor Create(const AFilename: String); overload; // create and load
@ -124,6 +125,15 @@ type
implementation
// inline
function TXMLConfig.GetPathNodeCache(Index: integer): TDomNode;
begin
if Index<length(fPathNodeCache) then
Result:=fPathNodeCache[Index]
else
Result:=nil;
end;
constructor TXMLConfig.Create(const AFilename: String);
begin
//DebugLn(['TXMLConfig.Create ',AFilename]);
@ -458,7 +468,10 @@ var
begin
OldLength:=length(fPathNodeCache);
if OldLength<=Index then begin
NewSize:=OldLength*2+4;
if OldLength<8 then
NewSize:=8
else
NewSize:=OldLength*2;
if NewSize<Index then NewSize:=Index;
SetLength(fPathNodeCache,NewSize);
for i:=OldLength to length(fPathNodeCache)-1 do
@ -467,14 +480,6 @@ begin
fPathNodeCache[Index]:=Node;
end;
function TXMLConfig.GetPathNodeCache(Index: integer): TDomNode;
begin
if Index<length(fPathNodeCache) then
Result:=fPathNodeCache[Index]
else
Result:=nil;
end;
procedure TXMLConfig.InvalidateCacheTilEnd(StartIndex: integer);
var
i: LongInt;
@ -520,9 +525,9 @@ begin
if (Result=nil) or (length(NdName)<>NameLen)
or not CompareMem(PChar(NdName),@APath[StartPos],NameLen) then begin
// different path => search
InvalidateCacheTilEnd(PathIndex);
NodePath:=copy(APath,StartPos,NameLen);
Result:=Parent.FindNode(NodePath);
Result:=FindChildNode(Parent,Result,NodePath);
InvalidateCacheTilEnd(PathIndex);
if Result=nil then begin
if not CreateNodes then exit;
// create missing node
@ -554,6 +559,42 @@ begin
end;
end;
function TXMLConfig.FindChildNode(Parent, StartChild: TDomNode;
const aName: string): TDomNode;
var
Start: boolean;
PrevChild: TDOMNode;
NextChild: TDOMNode;
begin
if StartChild<>nil then begin
// usually the config is written in a similar order as it is read
// => the next config node is probably near the last node (StartChild)
// -> search beginning at StartChild in both directions
if StartChild.NodeName=aName then
exit(StartChild);
Start:=false;
repeat
if Start then
NextChild:=StartChild.NextSibling;
if (NextChild<>nil) then begin
if (NextChild.NodeName=aName) then
exit(NextChild);
NextChild:=NextChild.NextSibling;
end;
if Start then
PrevChild:=StartChild.PreviousSibling;
if (PrevChild<>nil) then begin
if (PrevChild.NodeName=aName) then
exit(PrevChild);
PrevChild:=PrevChild.PreviousSibling;
end;
Start:=true;
until (PrevChild=nil) and (NextChild=nil);
Result:=nil;
end else
Result:=Parent.FindNode(aName);
end;
constructor TXMLConfig.Create(AOwner: TComponent);
begin
// for compatibility with old TXMLConfig, which wrote #13 as #13, not as &xD;