hg/stx-libbasic2: Stack.st@99e070f7c351 (annotated)

1222 19e99db6427d * empty log message * Stefan Vogel <sv@exept.de> parents: 1094 diff changeset	1	"{ Package: 'stx:libbasic2' }"
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	2
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	3	OrderedCollection subclass:#Stack
296 3519dbc41ab1 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	4	instanceVariableNames:''
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	5	classVariableNames:''
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	6	poolDictionaries:''
482 6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	7	category:'Collections-Ordered'
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	8	!
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	9
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	10	!Stack class methodsFor:'documentation'!
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	11
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	12	documentation
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	13	"
1245 99e070f7c351 comments Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	14	A simple implementation of a Stack.
99e070f7c351 comments Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	15	Notice, this is simply syntactic sugar - all functionality is
99e070f7c351 comments Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	16	already provided by the OrderedCollection class
99e070f7c351 comments Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	17	(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	18
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	19	[author:]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	20	Stefan Vogel
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	21
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	22	[see also:]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	23	OrderedCollection Queue
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	24	"
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	25	!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	26
482 6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	27	examples
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	28	"
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	29	push-push-....
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	30	[exBegin]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	31	\|aStack\|
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	32
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	33	aStack := Stack new.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	34	Transcript showCR:aStack.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	35	Transcript showCR:'push 1: '.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	36	aStack push:1.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	37	Transcript showCR:'push 2: '.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	38	aStack push:2.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	39	Transcript showCR:'push 3: '.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	40	aStack push:3.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	41	Transcript showCR:aStack.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	42	Transcript show:'pop: '; showCR:(aStack pop).
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	43	Transcript show:'pop: '; showCR:(aStack pop).
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	44	Transcript show:'pop: '; showCR:(aStack pop).
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	45	Transcript showCR:aStack.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	46	[exEnd]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	47
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	48	popping too many:
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	49	[exBegin]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	50	\|aStack\|
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	aStack := Stack new.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	53	aStack push:1.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	54
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	55	aStack pop.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	56	aStack pop.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	57	[exEnd]
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	! !
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	60
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	61	!Stack class methodsFor:'instance creation'!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	62
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	63	new
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	64
6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	65	^ self new:100
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	66	! !
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	67
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	68	!Stack methodsFor:'accessing'!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	69
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	70	pop
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	71	"Answer the object on top of the stack."
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	72
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	73	^ self removeLast
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	74	!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	75
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	76	pop: numElem
1245 99e070f7c351 comments Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	77	"Pop and discard top numElems and answer the receiver.
99e070f7c351 comments Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	78	Caveat: pop: is a misleading name; should propably be called drop:"
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	79
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	80	self removeLast:numElem
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	81	!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	82
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	83	push: anObject
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	84	"Push anObject onto the top of the stack."
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	85
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	86	^ self add:anObject
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	87	!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	88
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	89	top
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	90	"Answer (without removing) the object on top of the stack."
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	91
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	92	^ self last
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	93	! !
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	94
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	95	!Stack methodsFor:'enumerating'!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	96
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	97	do: aBlock
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	98	"Evaluate aBlock for each object on the stack, from top to bottom."
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	99
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	100	^ super reverseDo:aBlock
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	101	!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	102
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	103	reverseDo: aBlock
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	104	"Evaluate aBlock for each object on the stack, from bottom to top."
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	105
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	106	^ super do:aBlock
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	107	! !
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	108
482 6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	109	!Stack class methodsFor:'documentation'!
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	110
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	111	version
1245 99e070f7c351 comments Claus Gittinger <cg@exept.de> parents: 1222 diff changeset	112	^ '$Header: /cvs/stx/stx/libbasic2/Stack.st,v 1.6 2003-06-11 08:36:55 cg Exp $'
482 6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	113	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 11 Jun 2003 10:37:18 +0200
changeset 1245	99e070f7c351
parent 1222	19e99db6427d
child 1311	e20fa06ce5f8
permissions	-rw-r--r--