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

Generics/TemplateGenerics/Generic/GenericStack.inc

@@ -1 +1 @@
 {$IFDEF INTERFACE}
 
-  TListIndex = TStackIndex;
-  TListItem = TStackItem;
-  {$DEFINE INTERFACE}
-  {$INCLUDE 'GenericList.inc'}
+{$DEFINE TGListIndex := TGStackIndex}
+{$DEFINE TGListItem := TGStackItem}
+{$DEFINE TGList := TGStackList}
+{$DEFINE TGListSortCompare := TGStackSortCompare}
+{$DEFINE TGListStringConverter := TGStackStringConverter}
+{$DEFINE INTERFACE}
+{$INCLUDE 'GenericList.inc'}
 
   // TGStack<TStackIndex, TStackItem> = class(TGList)
@@ -11 +14 @@
     FList: TGList;
   public
-    procedure Push(Value: TStackItem);
-    function Pop: TStackItem;
+    procedure Push(Value: TGStackItem);
+    function Pop: TGStackItem;
     constructor Create;
     destructor Destroy; override;
@@ -21 +24 @@
 {$ENDIF}
 
+{$IFDEF IMPLEMENTATION_USES}
+
+  {$DEFINE IMPLEMENTATION_USES}
+  {$INCLUDE '..\Generic\GenericList.inc'}
+
+{$UNDEF IMPLEMENTATION_USES}
+{$ENDIF}
+
 {$IFDEF IMPLEMENTATION}
 
+{$DEFINE TGListIndex := TGStackIndex}
+{$DEFINE TGListItem := TGStackItem}
+{$DEFINE TGList := TGStackList}
+{$DEFINE TGListSortCompare := TGStackSortCompare}
+{$DEFINE TGListStringConverter := TGStackStringConverter}
 {$DEFINE IMPLEMENTATION}
 {$INCLUDE 'GenericList.inc'}
@@ -28 +44 @@
 { TGStack }
 
-procedure TGStack.Push(Value: TStackItem);
+procedure TGStack.Push(Value: TGStackItem);
 begin
   FList.Add(Value);
 end;
 
-function TGStack.Pop: TStackItem;
+function TGStack.Pop: TGStackItem;
 begin
   Result := FList.Extract(FList.Last);
@@ -49 +65 @@
 end;
 
+{$UNDEF IMPLEMENTATION}
 {$ENDIF}