source: trunk/Packages/TemplateGenerics/Specialized/SpecializedStack.pas

Last change on this file was 29, checked in by chronos, 12 years ago
  • Modified: Packages stored as uncompressed files.
File size: 2.0 KB
Line 
1unit SpecializedStack;
2
3{$mode delphi}
4
5interface
6
7uses
8 Classes, SysUtils;
9
10type
11{$MACRO ON}
12
13// TStackInteger<Integer, Integer>
14{$DEFINE TGStackIndex := Integer}
15{$DEFINE TGStackItem := Integer}
16{$DEFINE TGStackList := TListStackInteger}
17{$DEFINE TGStack := TStackInteger}
18{$DEFINE TGStackSortCompare := TStackSortCompareInteger}
19{$DEFINE TGStackToStringConverter := TStackToStringConverterInteger}
20{$DEFINE TGStackFromStringConverter := TStackFromStringConverterInteger}
21{$DEFINE TGStackItemArray := TStackIntegerItemArray}
22{$DEFINE INTERFACE}
23{$I 'GenericStack.inc'}
24
25// TStackInteger<Integer, Pointer>
26{$DEFINE TGStackIndex := Integer}
27{$DEFINE TGStackItem := Pointer}
28{$DEFINE TGStackList := TListStackPointer}
29{$DEFINE TGStack := TStackPointer}
30{$DEFINE TGStackSortCompare := TStackSortComparePointer}
31{$DEFINE TGStackToStringConverter := TStackToStringConverterPointer}
32{$DEFINE TGStackFromStringConverter := TStackFromStringConverterPointer}
33{$DEFINE TGStackItemArray := TStackStringItemArray}
34{$DEFINE INTERFACE}
35{$I 'GenericStack.inc'}
36
37
38implementation
39
40{$DEFINE IMPLEMENTATION_USES}
41{$I 'GenericStack.inc'}
42
43// TStackInteger<Integer, Integer>
44{$DEFINE TGStackIndex := Integer}
45{$DEFINE TGStackItem := Integer}
46{$DEFINE TGStackList := TListStackInteger}
47{$DEFINE TGStack := TStackInteger}
48{$DEFINE TGStackSortCompare := TStackSortCompareInteger}
49{$DEFINE TGStackToStringConverter := TStackToStringConverterInteger}
50{$DEFINE TGStackFromStringConverter := TStackFromStringConverterInteger}
51{$DEFINE TGStackItemArray := TStackIntegerItemArray}
52{$DEFINE IMPLEMENTATION}
53{$I 'GenericStack.inc'}
54
55// TStackInteger<Integer, Pointer>
56{$DEFINE TGStackIndex := Integer}
57{$DEFINE TGStackItem := Pointer}
58{$DEFINE TGStackList := TListStackPointer}
59{$DEFINE TGStack := TStackPointer}
60{$DEFINE TGStackSortCompare := TStackSortComparePointer}
61{$DEFINE TGStackToStringConverter := TStackToStringConverterPointer}
62{$DEFINE TGStackFromStringConverter := TStackFromStringConverterPointer}
63{$DEFINE TGStackItemArray := TStackStringItemArray}
64{$DEFINE IMPLEMENTATION}
65{$I 'GenericStack.inc'}
66end.
Note: See TracBrowser for help on using the repository browser.