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

Last change on this file was 1, checked in by chronos, 8 years ago
  • Imported initial version.
File size: 1.5 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 INTERFACE}
19{$I 'GenericQueue.inc'}
20
21// TQueueInteger<Integer, Pointer>
22{$DEFINE TGQueueIndex := Integer}
23{$DEFINE TGQueueItem := Pointer}
24{$DEFINE TGQueue := TQueuePointer}
25{$DEFINE TGQueueList := TQueueListPointer}
26{$DEFINE INTERFACE}
27{$I 'GenericQueue.inc'}
28
29// TQueueByte<Integer, Byte>
30{$DEFINE TGQueueIndex := Integer}
31{$DEFINE TGQueueItem := Byte}
32{$DEFINE TGQueue := TQueueByte}
33{$DEFINE TGQueueList := TQueueListByte}
34{$DEFINE INTERFACE}
35{$I 'GenericQueue.inc'}
36
37implementation
38
39{$DEFINE IMPLEMENTATION_USES}
40{$I 'GenericQueue.inc'}
41
42// TQueueInteger<Integer, Integer>
43{$DEFINE TGQueueIndex := Integer}
44{$DEFINE TGQueueItem := Integer}
45{$DEFINE TGQueue := TQueueInteger}
46{$DEFINE TGQueueList := TQueueListInteger}
47{$DEFINE IMPLEMENTATION}
48{$I '..\Generic\GenericQueue.inc'}
49
50// TQueueInteger<Integer, Pointer>
51{$DEFINE TGQueueIndex := Integer}
52{$DEFINE TGQueueItem := Pointer}
53{$DEFINE TGQueue := TQueuePointer}
54{$DEFINE TGQueueList := TQueueListPointer}
55{$DEFINE IMPLEMENTATION}
56{$I 'GenericQueue.inc'}
57
58// TQueueByte<Integer, Byte>
59{$DEFINE TGQueueIndex := Integer}
60{$DEFINE TGQueueItem := Byte}
61{$DEFINE TGQueue := TQueueByte}
62{$DEFINE TGQueueList := TQueueListByte}
63{$DEFINE IMPLEMENTATION}
64{$I 'GenericQueue.inc'}
65
66end.
Note: See TracBrowser for help on using the repository browser.