Context Navigation

SpecializedStack.pas

Last change on this file was 2, checked in by chronos, 9 years ago
Added: TPakFile class for extraction PAK files from original game.
File size: 1.1 KB

Line
1	unit SpecializedStack;
2
3	{$mode delphi}
4
5	interface
6
7	uses
8	Classes, SysUtils;
9
10	type
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 INTERFACE}
19	{$I 'GenericStack.inc'}
20
21	// TStackInteger<Integer, Pointer>
22	{$DEFINE TGStackIndex := Integer}
23	{$DEFINE TGStackItem := Pointer}
24	{$DEFINE TGStackList := TListStackPointer}
25	{$DEFINE TGStack := TStackPointer}
26	{$DEFINE INTERFACE}
27	{$I 'GenericStack.inc'}
28
29
30	implementation
31
32	{$DEFINE IMPLEMENTATION_USES}
33	{$I 'GenericStack.inc'}
34
35	// TStackInteger<Integer, Integer>
36	{$DEFINE TGStackIndex := Integer}
37	{$DEFINE TGStackItem := Integer}
38	{$DEFINE TGStackList := TListStackInteger}
39	{$DEFINE TGStack := TStackInteger}
40	{$DEFINE IMPLEMENTATION}
41	{$I 'GenericStack.inc'}
42
43	// TStackInteger<Integer, Pointer>
44	{$DEFINE TGStackIndex := Integer}
45	{$DEFINE TGStackItem := Pointer}
46	{$DEFINE TGStackList := TListStackPointer}
47	{$DEFINE TGStack := TStackPointer}
48	{$DEFINE IMPLEMENTATION}
49	{$I 'GenericStack.inc'}
50	end.

Note: See TracBrowser for help on using the repository browser.