author | Claus Gittinger <cg@exept.de> |
Tue, 25 Jun 2019 14:28:51 +0200 | |
changeset 5050 | 44fa8672d102 |
parent 4935 | 2044cf9f3790 |
child 5146 | ad165bc9291c |
permissions | -rw-r--r-- |
4935 | 1 |
"{ Encoding: utf8 }" |
2 |
||
1311 | 3 |
" |
4 |
COPYRIGHT (c) 1996 by Claus Gittinger |
|
5 |
All Rights Reserved |
|
6 |
||
7 |
This software is furnished under a license and may be used |
|
8 |
only in accordance with the terms of that license and with the |
|
9 |
inclusion of the above copyright notice. This software may not |
|
10 |
be provided or otherwise made available to, or used by, any |
|
11 |
other person. No title to or ownership of the software is |
|
12 |
hereby transferred. |
|
13 |
" |
|
1222 | 14 |
"{ Package: 'stx:libbasic2' }" |
1094 | 15 |
|
3475 | 16 |
"{ NameSpace: Smalltalk }" |
17 |
||
188 | 18 |
OrderedCollection subclass:#Stack |
296 | 19 |
instanceVariableNames:'' |
188 | 20 |
classVariableNames:'' |
21 |
poolDictionaries:'' |
|
482
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
22 |
category:'Collections-Ordered' |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
23 |
! |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
24 |
|
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
25 |
!Stack class methodsFor:'documentation'! |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
26 |
|
1311 | 27 |
copyright |
28 |
" |
|
29 |
COPYRIGHT (c) 1996 by Claus Gittinger |
|
30 |
All Rights Reserved |
|
31 |
||
32 |
This software is furnished under a license and may be used |
|
33 |
only in accordance with the terms of that license and with the |
|
34 |
inclusion of the above copyright notice. This software may not |
|
35 |
be provided or otherwise made available to, or used by, any |
|
36 |
other person. No title to or ownership of the software is |
|
37 |
hereby transferred. |
|
38 |
" |
|
39 |
! |
|
40 |
||
482
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
41 |
documentation |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
42 |
" |
1245 | 43 |
A simple implementation of a Stack. |
3447 | 44 |
|
1245 | 45 |
Notice, this is simply syntactic sugar - all functionality is |
46 |
already provided by the OrderedCollection class |
|
47 |
(addLast <==> push / removeLast <==> pop / last <==> top) |
|
482
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
48 |
|
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
49 |
[author:] |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
50 |
Stefan Vogel |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
51 |
|
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
52 |
[see also:] |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
53 |
OrderedCollection Queue |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
54 |
" |
188 | 55 |
! |
56 |
||
482
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
57 |
examples |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
58 |
" |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
59 |
push-push-.... |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
60 |
[exBegin] |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
61 |
|aStack| |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
62 |
|
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
63 |
aStack := Stack new. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
64 |
Transcript showCR:aStack. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
65 |
Transcript showCR:'push 1: '. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
66 |
aStack push:1. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
67 |
Transcript showCR:'push 2: '. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
68 |
aStack push:2. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
69 |
Transcript showCR:'push 3: '. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
70 |
aStack push:3. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
71 |
Transcript showCR:aStack. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
72 |
Transcript show:'pop: '; showCR:(aStack pop). |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
73 |
Transcript show:'pop: '; showCR:(aStack pop). |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
74 |
Transcript show:'pop: '; showCR:(aStack pop). |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
75 |
Transcript showCR:aStack. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
76 |
[exEnd] |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
77 |
|
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
78 |
popping too many: |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
79 |
[exBegin] |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
80 |
|aStack| |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
81 |
|
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
82 |
aStack := Stack new. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
83 |
aStack push:1. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
84 |
|
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
85 |
aStack pop. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
86 |
aStack pop. |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
87 |
[exEnd] |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
88 |
" |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
89 |
! ! |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
90 |
|
188 | 91 |
!Stack class methodsFor:'instance creation'! |
92 |
||
93 |
new |
|
1094 | 94 |
|
95 |
^ self new:100 |
|
188 | 96 |
! ! |
97 |
||
98 |
!Stack methodsFor:'accessing'! |
|
99 |
||
4935 | 100 |
drop:n |
101 |
"remove n elements from the top of the stack." |
|
102 |
||
103 |
^ self dropLast:n |
|
104 |
||
105 |
"Created: / 03-04-2019 / 12:42:04 / Claus Gittinger" |
|
106 |
! |
|
107 |
||
188 | 108 |
pop |
1094 | 109 |
"Answer the object on top of the stack." |
188 | 110 |
|
111 |
^ self removeLast |
|
112 |
! |
|
113 |
||
114 |
pop: numElem |
|
1245 | 115 |
"Pop and discard top numElems and answer the receiver. |
116 |
Caveat: pop: is a misleading name; should propably be called drop:" |
|
188 | 117 |
|
1094 | 118 |
self removeLast:numElem |
188 | 119 |
! |
120 |
||
121 |
push: anObject |
|
1094 | 122 |
"Push anObject onto the top of the stack." |
188 | 123 |
|
124 |
^ self add:anObject |
|
125 |
! |
|
126 |
||
127 |
top |
|
1094 | 128 |
"Answer (without removing) the object on top of the stack." |
188 | 129 |
|
1094 | 130 |
^ self last |
188 | 131 |
! ! |
132 |
||
133 |
!Stack methodsFor:'enumerating'! |
|
134 |
||
135 |
do: aBlock |
|
1094 | 136 |
"Evaluate aBlock for each object on the stack, from top to bottom." |
188 | 137 |
|
3475 | 138 |
super reverseDo:aBlock |
188 | 139 |
! |
140 |
||
141 |
reverseDo: aBlock |
|
1094 | 142 |
"Evaluate aBlock for each object on the stack, from bottom to top." |
188 | 143 |
|
3476 | 144 |
super do:aBlock |
188 | 145 |
! ! |
146 |
||
482
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
147 |
!Stack class methodsFor:'documentation'! |
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
148 |
|
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
149 |
version |
4935 | 150 |
^ '$Header$' |
3476 | 151 |
! |
152 |
||
153 |
version_CVS |
|
4935 | 154 |
^ '$Header$' |
482
6cc6fd9e31fe
forced checkin / source container change from Stack.st
Claus Gittinger <cg@exept.de>
parents:
296
diff
changeset
|
155 |
! ! |
3447 | 156 |