← Back to branch summary

~chronoscz/vcard-studio/trunk

« back to all changes in this revision

Viewing changes to Packages/TemplateGenerics/Specialized/SpecializedStack.pas

  • Committer: chronos
  • Date: 2019-05-08 10:11:40 UTC
  • Revision ID: svn-v4:b2f690cb-8b89-471c-b043-dbd4632e1e77:trunk:21
* Fixed: Build under Lazarus 2.0.
* Modified: Used .lrj files instead of .lrt files.
* Removed: TemplateGenerics package.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Packages/TemplateGenerics/Specialized/SpecializedStack.pas
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.