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

Last change on this file was 29, checked in by chronos, 12 years ago
  • Modified: Packages stored as uncompressed files.
File size: 2.9 KB
Line 
1unit SpecializedQueue;
2
3{$mode delphi}
4
5interface
6
7uses
8 Classes, SysUtils;
9
10type
11{$MACRO ON}
12
13// TQueueInteger<Integer, Integer>
14{$DEFINE TGQueueIndex := Integer}
15{$DEFINE TGQueueItem := Integer}
16{$DEFINE TGQueue := TQueueInteger}
17{$DEFINE TGQueueList := TQueueListInteger}
18{$DEFINE TGQueueSortCompare := TQueueSortCompareInteger}
19{$DEFINE TGQueueToStringConverter := TQueueToStringConverterInteger}
20{$DEFINE TGQueueFromStringConverter := TQueueFromStringConverterInteger}
21{$DEFINE TGQueueItemArray := TQueueIntegerItemArray}
22{$DEFINE INTERFACE}
23{$I 'GenericQueue.inc'}
24
25// TQueueInteger<Integer, Pointer>
26{$DEFINE TGQueueIndex := Integer}
27{$DEFINE TGQueueItem := Pointer}
28{$DEFINE TGQueue := TQueuePointer}
29{$DEFINE TGQueueList := TQueueListPointer}
30{$DEFINE TGQueueSortCompare := TQueueSortComparePointer}
31{$DEFINE TGQueueToStringConverter := TQueueToStringConverterPointer}
32{$DEFINE TGQueueFromStringConverter := TQueueFromStringConverterPointer}
33{$DEFINE TGQueueItemArray := TQueuePointerItemArray}
34{$DEFINE INTERFACE}
35{$I 'GenericQueue.inc'}
36
37// TQueueByte<Integer, Byte>
38{$DEFINE TGQueueIndex := Integer}
39{$DEFINE TGQueueItem := Byte}
40{$DEFINE TGQueue := TQueueByte}
41{$DEFINE TGQueueList := TQueueListByte}
42{$DEFINE TGQueueSortCompare := TQueueSortCompareByte}
43{$DEFINE TGQueueToStringConverter := TQueueToStringConverterByte}
44{$DEFINE TGQueueFromStringConverter := TQueueFromStringConverterByte}
45{$DEFINE TGQueueItemArray := TQueueByteItemArray}
46{$DEFINE INTERFACE}
47{$I 'GenericQueue.inc'}
48
49implementation
50
51{$DEFINE IMPLEMENTATION_USES}
52{$I 'GenericQueue.inc'}
53
54// TQueueInteger<Integer, Integer>
55{$DEFINE TGQueueIndex := Integer}
56{$DEFINE TGQueueItem := Integer}
57{$DEFINE TGQueue := TQueueInteger}
58{$DEFINE TGQueueList := TQueueListInteger}
59{$DEFINE TGQueueSortCompare := TQueueSortCompareInteger}
60{$DEFINE TGQueueToStringConverter := TQueueToStringConverterInteger}
61{$DEFINE TGQueueFromStringConverter := TQueueFromStringConverterInteger}
62{$DEFINE TGQueueItemArray := TQueueIntegerItemArray}
63{$DEFINE IMPLEMENTATION}
64{$I '..\Generic\GenericQueue.inc'}
65
66// TQueueInteger<Integer, Pointer>
67{$DEFINE TGQueueIndex := Integer}
68{$DEFINE TGQueueItem := Pointer}
69{$DEFINE TGQueue := TQueuePointer}
70{$DEFINE TGQueueList := TQueueListPointer}
71{$DEFINE TGQueueSortCompare := TQueueSortComparePointer}
72{$DEFINE TGQueueToStringConverter := TQueueToStringConverterPointer}
73{$DEFINE TGQueueFromStringConverter := TQueueFromStringConverterPointer}
74{$DEFINE TGQueueItemArray := TQueuePointerItemArray}
75{$DEFINE IMPLEMENTATION}
76{$I 'GenericQueue.inc'}
77
78// TQueueByte<Integer, Byte>
79{$DEFINE TGQueueIndex := Integer}
80{$DEFINE TGQueueItem := Byte}
81{$DEFINE TGQueue := TQueueByte}
82{$DEFINE TGQueueList := TQueueListByte}
83{$DEFINE TGQueueSortCompare := TQueueSortCompareByte}
84{$DEFINE TGQueueToStringConverter := TQueueToStringConverterByte}
85{$DEFINE TGQueueFromStringConverter := TQueueFromStringConverterByte}
86{$DEFINE TGQueueItemArray := TQueueByteItemArray}
87{$DEFINE IMPLEMENTATION}
88{$I 'GenericQueue.inc'}
89
90end.
Note: See TracBrowser for help on using the repository browser.