Changeset 84 for Generics/TemplateGenerics/Generic/GenericSet.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/GenericSet.inc (modified) (4 diffs)

Generics/TemplateGenerics/Generic/GenericSet.inc

@@ -1 +1 @@
 {$IFDEF INTERFACE}
 
-  TListIndex = TSetIndex;
-  TListItem = TSetItem;
-  {$DEFINE INTERFACE}
-  {$INCLUDE 'GenericList.inc'}
+{$DEFINE TGListIndex := TGSetIndex}
+{$DEFINE TGListItem := TGSetItem}
+{$DEFINE TGList := TGSetList}
+{$DEFINE TGListSortCompare := TGSetSortCompare}
+{$DEFINE TGListStringConverter := TGSetStringConverter}
+{$DEFINE INTERFACE}
+{$INCLUDE 'GenericList.inc'}
 
-  // TGSet<TSetIndex, TSetItem> = class(TGSet)
+  // TGSet<TGSetIndex, TGSetItem> = class
   TGSet = class
   private
     FList: TGList;
   public
-    function IsIn(Item: TSetItem): Boolean;
+    function IsIn(Item: TGSetItem): Boolean;
     constructor Create;
     destructor Destroy; override;
@@ -20 +23 @@
 {$ENDIF}
 
+{$IFDEF IMPLEMENTATION_USES}
+
+  {$DEFINE IMPLEMENTATION_USES}
+  {$INCLUDE '..\Generic\GenericList.inc'}
+
+{$UNDEF IMPLEMENTATION_USES}
+{$ENDIF}
+
 {$IFDEF IMPLEMENTATION}
 
+{$DEFINE TGListIndex := TGSetIndex}
+{$DEFINE TGListItem := TGSetItem}
+{$DEFINE TGList := TGSetList}
+{$DEFINE TGListSortCompare := TGSetSortCompare}
+{$DEFINE TGListStringConverter := TGSetStringConverter}
 {$DEFINE IMPLEMENTATION}
 {$INCLUDE 'GenericList.inc'}
@@ -27 +43 @@
 { TGSet }
 
-function TGSet.IsIn(Item: TSetItem): Boolean;
+function TGSet.IsIn(Item: TGSetItem): Boolean;
 begin
   Result := FList.IndexOf(Item) <> -1;
@@ -43 +59 @@
 end;
 
+{$UNDEF IMPLEMENTATION}
 {$ENDIF}