blob: 2d5cfe4020ceb3f77a88aee012a5473f03b2e571 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
{
This file is part of the Free Pascal FCL library.
BSD parts (c) 2011 Vlado Boza
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY;without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$mode objfpc}
unit gstack;
interface
uses gvector;
type
generic TStack<T>=class
private
type TContainer= specialize TVector<T>;
var FData:TContainer;
public
procedure Push(x:T);inline;
procedure Pop();inline;
function Top():T;inline;
function Size():longint;inline;
function IsEmpty():boolean;inline;
constructor Create;
destructor Destroy;override;
end;
implementation
constructor TStack.Create;
begin
FData:=TContainer.Create;
end;
destructor TStack.Destroy;
begin
FData.Destroy;
end;
procedure TStack.Push(x:T);inline;
begin
FData.PushBack(x);
end;
procedure TStack.Pop;inline;
begin
FData.PopBack;
end;
function TStack.Top:T;inline;
begin
Top:=FData.Back;
end;
function TStack.Size:longint;inline;
begin
Size:=FData.Size;
end;
function TStack.IsEmpty:boolean;inline;
begin
IsEmpty:=FData.IsEmpty;
end;
end.
|
