blob: 1417b5e5e5881019056b2ad492ebda3250098b7d (
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
-- File: PCollection_HStack.cdl
-- Created: Mon Sep 2 14:48:13 1991
-- Author: Mireille MERCIEN
-- <apc@topsn1>
---Copyright: Matra Datavision 1991, 1992
generic class HStack from PCollection (Item as Storable)
inherits Persistent
---Purpose: A stack is a list of items in which items are
-- added and removed from the same end, called the
-- top of the stack.
raises NoSuchObject from Standard
class StackNode instantiates HSingleList from PCollection(Item);
class StackIterator from PCollection
---Purpose: Iterator of the Stack class.
raises NoMoreObject from Standard,
NoSuchObject from Standard
is
Create(S : HStack from PCollection)
returns StackIterator from PCollection;
---Purpose: Creates an iterator on the stack S.
-- Set the iterator at the beginning of the stack S.
More(me) returns Boolean from Standard;
---Level: Public
---Purpose: Returns True if there are other items.
Next(me: in out) raises NoMoreObject from Standard;
---Level: Public
---Purpose: Sets the iterator to the next item.
Value(me) returns any Item raises NoSuchObject from Standard;
---Level: Public
---Purpose: Returns the item value corresponding to
-- the current position of the iterator.
fields
TheIterator : StackNode;
end;
is
Create returns mutable HStack from PCollection;
---Purpose: Creates an empty stack.
Depth(me) returns Integer from Standard;
---Level: Public
---Purpose: Returns the number of items in the stack.
---Example: if me = (A B C)
-- returns 3
IsEmpty(me) returns Boolean from Standard;
---Level: Public
---Purpose: Returns True if the stack contains no item.
Top(me) returns any Item
---Level: Public
---Purpose: Returns the item on the top of the stack.
-- Raises an exception if the stack is empty.
---Example: before
-- me = (A B C)
-- after
-- me = (A B C)
-- returns
-- C
raises NoSuchObject from Standard;
FTop(me) returns StackNode;
---Level: Public
---Purpose: Returns the field TheTop (the top of the stack).
Push(me : mutable; T : Item);
---Level: Public
---Purpose: Inserts an item on the top of the stack.
---Example: before
-- me = (A B) , T = C
-- after
-- me = (A B C)
Pop(me : mutable) raises NoSuchObject from Standard;
---Level: Public
---Purpose: Removes an item from the top of the stack.
-- Raises an exception if the stack is empty.
---Example: before
-- me = (A B C)
-- after
-- me = (A B)
-- returns
-- C
Clear(me : mutable);
---Level: Public
---Purpose: Removes all the items from the stack.
---Example: before
-- me = (A B C)
-- after
-- me = ()
ChangeTop(me:mutable; T : Item) raises NoSuchObject from Standard;
---Level: Public
---Purpose: Replaces the top of the stack with T.
-- Raises an exception if the stack is empty.
---Example: before
-- me = (A B C) , T = D
-- after
-- me = (A B D)
ShallowCopy(me)
returns mutable like me
is redefined;
---Level: Advanced
---C++: function call
ShallowDump (me; s: in out OStream)
is redefined;
---Level: Advanced
---C++: function call
fields
TheTop : StackNode;
TheDepth : Integer from Standard;
end;
|
