Changeset 84 for Generics/TemplateGenerics/Generic/GenericTree.inc

Timestamp:

Oct 31, 2010, 3:14:23 PM (14 years ago)

Author:

george

Message:

• Modified: Thanks to compiler directives and simple macros specialized types was moved to one unit per base generic class. Directive $DEFINE is used to specify generic class template parameters which will be included to code. This approach enable to define more specialized types per unit.

File:

• Generics/TemplateGenerics/Generic/GenericTree.inc (modified) (3 diffs)

Generics/TemplateGenerics/Generic/GenericTree.inc

@@ -3 +3 @@
   TGTreeNode = class;
 
-  TListIndex = TTreeIndex;
-  TListItem = TGTreeNode;
-  {$DEFINE INTERFACE}
-  {$INCLUDE 'GenericList.inc'}
+{$DEFINE TGListIndex := TGTreeIndex}
+{$DEFINE TGListItem := TGTreeNode}
+{$DEFINE TGList := TGTreeNodeList}
+{$DEFINE TGListSortCompare := TGTreeSortCompare}
+{$DEFINE TGListStringConverter := TGTreeStringConverter}
+{$DEFINE INTERFACE}
+{$INCLUDE 'GenericList.inc'}
 
-  TTreeNodeList = class(TGList)
-  end;
-
-  // TGTreeNode<TTreeIndex, TTreeItem> = class
+  // TGTreeNode<TGTreeIndex, TGTreeItem> = class
   TGTreeNode = class
-    Childs: TTreeNodeList;
-    Value: TTreeItem;
+    Childs: TGTreeNodeList;
+    Value: TGTreeItem;
     procedure Clear;
   end;
 
-  // TGTree<TTreeIndex, TTreeItem> = class
+  // TGTree<TGTreeIndex, TGTreeItem> = class
   TGTree = class
     TopItem: TGTreeNode;
@@ -27 +27 @@
 {$ENDIF}
 
+{$IFDEF IMPLEMENTATION_USES}
+
+  {$DEFINE IMPLEMENTATION_USES}
+  {$INCLUDE 'GenericList.inc'}
+
+{$UNDEF INTERFACE_USES}
+{$ENDIF}
+
+
 {$IFDEF IMPLEMENTATION}
+{$UNDEF IMPLEMENTATION}
 
+{$DEFINE TGListIndex := TGTreeIndex}
+{$DEFINE TGListItem := TGTreeNode}
+{$DEFINE TGList := TGTreeNodeList}
+{$DEFINE TGListSortCompare := TGTreeSortCompare}
+{$DEFINE TGListStringConverter := TGTreeStringConverter}
 {$DEFINE IMPLEMENTATION}
 {$INCLUDE 'GenericList.inc'}
@@ -46 +61 @@
 end;
 
+{$UNDEF IMPLEMENTATION}
 {$ENDIF}