hg/stx-libbasic2: Stack.st@19e99db6427d (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	"
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	14	a simple implementation of a Stack.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	15
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	16	[author:]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	17	Stefan Vogel
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	[see also:]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	20	OrderedCollection Queue
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	21	"
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	22	!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	23
482 6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	24	examples
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	25	"
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	26	push-push-....
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	27	[exBegin]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	28	\|aStack\|
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	29
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	30	aStack := Stack new.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	31	Transcript showCR:aStack.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	32	Transcript showCR:'push 1: '.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	33	aStack push:1.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	34	Transcript showCR:'push 2: '.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	35	aStack push:2.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	36	Transcript showCR:'push 3: '.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	37	aStack push:3.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	38	Transcript showCR:aStack.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	39	Transcript show:'pop: '; showCR:(aStack pop).
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	40	Transcript show:'pop: '; showCR:(aStack pop).
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	41	Transcript show:'pop: '; showCR:(aStack pop).
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	42	Transcript showCR:aStack.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	43	[exEnd]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	44
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	45	popping too many:
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	46	[exBegin]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	47	\|aStack\|
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	aStack := Stack new.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	50	aStack push:1.
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 pop.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	53	aStack pop.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	54	[exEnd]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	55	"
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	56	! !
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	57
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	58	!Stack class methodsFor:'instance creation'!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	59
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	60	new
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	61
6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	62	^ self new:100
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	63	! !
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	64
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	65	!Stack methodsFor:'accessing'!
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	pop
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	68	"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	69
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	70	^ self removeLast
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	71	!
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	pop: numElem
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	74	"Pop and discard top numElems and answer receiver"
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	75
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	76	self removeLast:numElem
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	77	!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	78
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	79	push: anObject
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	80	"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	81
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	82	^ self add:anObject
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	83	!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	84
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	85	top
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	86	"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	87
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	88	^ self last
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	89	! !
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	90
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	91	!Stack methodsFor:'enumerating'!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	92
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	93	do: aBlock
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	94	"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	95
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	96	^ super reverseDo:aBlock
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	97	!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	98
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	99	reverseDo: aBlock
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	100	"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	101
1094 6759af697a46 Formatting Stefan Vogel <sv@exept.de> parents: 482 diff changeset	102	^ super do:aBlock
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	103	! !
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	104
482 6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	105	!Stack class methodsFor:'documentation'!
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	106
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	107	version
1222 19e99db6427d * empty log message * Stefan Vogel <sv@exept.de> parents: 1094 diff changeset	108	^ '$Header: /cvs/stx/stx/libbasic2/Stack.st,v 1.5 2003-05-20 14:59:26 stefan Exp $'
482 6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	109	! !

author	Stefan Vogel <sv@exept.de>
	Tue, 20 May 2003 16:59:26 +0200
changeset 1222	19e99db6427d
parent 1094	6759af697a46
child 1245	99e070f7c351
permissions	-rw-r--r--