From 6015d7f9cc88c73ca2f5a47e039dd38a2daeaa6f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 14 Nov 2011 02:16:00 +0000
Subject: [PATCH] cody: dictionary: Equals

git-svn-id: trunk@33518 -
---
 components/codetools/ide/unitdictionary.pas | 70 +++++++++++++++++++++
 1 file changed, 70 insertions(+)

diff --git a/components/codetools/ide/unitdictionary.pas b/components/codetools/ide/unitdictionary.pas
index 2eaa949d2c..51a6b82670 100644
--- a/components/codetools/ide/unitdictionary.pas
+++ b/components/codetools/ide/unitdictionary.pas
@@ -116,6 +116,7 @@ type
     procedure SaveToStream(aStream: TStream);
     procedure LoadFromFile(const Filename: string);
     procedure LoadFromStream(aStream: TMemoryStream);
+    function Equals(Dictionary: TUnitDictionary): boolean; reintroduce;
 
     // groups
     function AddUnitGroup(Group: TUDUnitGroup): TUDUnitGroup; overload;
@@ -369,6 +370,11 @@ begin
   if DefaultGroup=nil then
     e('DefaultGroup=nil');
 
+  if UnitGroupsByFilename.Count<>UnitGroupsByName.Count then
+    e('UnitGroupsByFilename.Count<>UnitGroupsByName.Count');
+  if UnitsByFilename.Count<>UnitsByName.Count then
+    e('UnitsByFilename.Count<>UnitsByName.Count');
+
   // check FUnitsByName
   AVLNode:=FUnitsByName.FindLowest;
   while AVLNode<>nil do begin
@@ -803,6 +809,70 @@ begin
   end;
 end;
 
+function TUnitDictionary.Equals(Dictionary: TUnitDictionary): boolean;
+var
+  Node1, Node2: TAVLTreeNode;
+  Group1: TUDUnitGroup;
+  Group2: TUDUnitGroup;
+  Unit1: TUDUnit;
+  Unit2: TUDUnit;
+  Item1: TUDIdentifier;
+  Item2: TUDIdentifier;
+begin
+  Result:=false;
+  debugln(['TUnitDictionary.Equals AAA1']);
+  if Dictionary=nil then exit;
+  if Dictionary=Self then exit(true);
+  debugln(['TUnitDictionary.Equals AAA1.1']);
+  if UnitGroupsByFilename.Count<>Dictionary.UnitGroupsByFilename.Count then exit;
+  debugln(['TUnitDictionary.Equals AAA1.2']);
+  if UnitGroupsByName.Count<>Dictionary.UnitGroupsByName.Count then exit;
+  debugln(['TUnitDictionary.Equals AAA1.3']);
+  if UnitsByFilename.Count<>Dictionary.UnitsByFilename.Count then exit;
+  debugln(['TUnitDictionary.Equals AAA1.4']);
+  if UnitsByName.Count<>Dictionary.UnitsByName.Count then exit;
+  debugln(['TUnitDictionary.Equals AAA1.5']);
+  if Identifiers.Count<>Dictionary.Identifiers.Count then exit;
+  debugln(['TUnitDictionary.Equals AAA2']);
+
+  Node1:=UnitGroupsByFilename.FindLowest;
+  Node2:=Dictionary.UnitGroupsByFilename.FindLowest;
+  while Node1<>nil do begin
+    Group1:=TUDUnitGroup(Node1.Data);
+    Group2:=TUDUnitGroup(Node2.Data);
+    if Group1.Name<>Group2.Name then exit;
+    if Group1.Filename<>Group2.Filename then exit;
+    Node1:=UnitGroupsByFilename.FindSuccessor(Node1);
+    Node2:=UnitGroupsByFilename.FindSuccessor(Node2);
+  end;
+
+  debugln(['TUnitDictionary.Equals AAA3']);
+  Node1:=UnitsByFilename.FindLowest;
+  Node2:=Dictionary.UnitsByFilename.FindLowest;
+  while Node1<>nil do begin
+    Unit1:=TUDUnit(Node1.Data);
+    Unit2:=TUDUnit(Node2.Data);
+    if Unit1.Name<>Unit2.Name then exit;
+    if Unit1.Filename<>Unit2.Filename then exit;
+    Node1:=UnitGroupsByFilename.FindSuccessor(Node1);
+    Node2:=UnitGroupsByFilename.FindSuccessor(Node2);
+  end;
+
+  debugln(['TUnitDictionary.Equals AAA4']);
+  Node1:=Identifiers.FindLowest;
+  Node2:=Dictionary.Identifiers.FindLowest;
+  while Node1<>nil do begin
+    Item1:=TUDIdentifier(Node1.Data);
+    Item2:=TUDIdentifier(Node2.Data);
+    if Item1.Name<>Item2.Name then exit;
+    if Item1.DUnit.Filename<>Item2.DUnit.Filename then exit;
+    Node1:=Identifiers.FindSuccessor(Node1);
+    Node2:=Identifiers.FindSuccessor(Node2);
+  end;
+
+  Result:=true
+end;
+
 function TUnitDictionary.AddUnitGroup(Group: TUDUnitGroup): TUDUnitGroup;
 begin
   if Group.Dictionary<>nil then