hg/stx-libbasic2: Stack.st@6cc6fd9e31fe (annotated)

188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	1	OrderedCollection subclass:#Stack
296 3519dbc41ab1 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	2	instanceVariableNames:''
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	3	classVariableNames:''
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	4	poolDictionaries:''
482 6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	5	category:'Collections-Ordered'
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	6	!
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	7
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	8	!Stack class methodsFor:'documentation'!
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	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	a simple implementation of a Stack.
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	[author:]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	15	Stefan Vogel
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	16
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	17	[see also:]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	18	OrderedCollection Queue
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	19	"
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	20	!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	21
482 6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	22	examples
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	push-push-....
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	25	[exBegin]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	26	\|aStack\|
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	27
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	28	aStack := Stack new.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	29	Transcript showCR:aStack.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	30	Transcript showCR:'push 1: '.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	31	aStack push:1.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	32	Transcript showCR:'push 2: '.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	33	aStack push:2.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	34	Transcript showCR:'push 3: '.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	35	aStack push:3.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	36	Transcript showCR:aStack.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	37	Transcript show:'pop: '; showCR:(aStack pop).
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	38	Transcript show:'pop: '; showCR:(aStack pop).
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 showCR:aStack.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	41	[exEnd]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	42
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	43	popping too many:
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	44	[exBegin]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	45	\|aStack\|
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	46
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	47	aStack := Stack new.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	48	aStack push:1.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	49
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	50	aStack pop.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	51	aStack pop.
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	52	[exEnd]
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	53	"
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
188 74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	56	!Stack class methodsFor:'instance creation'!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	57
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	58	new
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	59	^self new: 100
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	60	! !
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	61
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	62	!Stack methodsFor:'accessing'!
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	pop
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	65	"Answer the object on top of the stack."
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	^ self removeLast
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	68
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	69	"Created: 7.2.1996 / 00:12:53 / stefan"
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	70	"Modified: 7.2.1996 / 00:13:53 / stefan"
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
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	74	"Pop and discard top numElems and answer receiver"
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	self removeLast:numElem
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	"Created: 7.2.1996 / 00:12:53 / stefan"
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	79	"Modified: 7.2.1996 / 00:14:16 / stefan"
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	80	!
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	push: anObject
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	83	"Push anObject onto the top of the stack."
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	^ self add:anObject
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	86
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	87	"Created: 7.2.1996 / 00:12:53 / stefan"
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	88	"Modified: 7.2.1996 / 00:14:52 / stefan"
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	top
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	92	"Answer (without removing) the object on top of the stack."
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	^self last
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	95
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	96	"Created: 7.2.1996 / 00:12:54 / stefan"
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	97	"Modified: 7.2.1996 / 00:15:26 / stefan"
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
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	100	!Stack methodsFor:'enumerating'!
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	do: aBlock
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	103	"Evaluate aBlock for each object on the stack, from top to bottom."
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	104
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	105	^ super reverseDo:aBlock
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	106
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	107	"Created: 7.2.1996 / 00:12:53 / stefan"
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	108	"Modified: 7.2.1996 / 00:16:00 / stefan"
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	109	!
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	110
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	111	reverseDo: aBlock
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	112	"Evaluate aBlock for each object on the stack, from bottom to top."
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	113
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	114	^ super do:aBlock
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	115
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	116	"Created: 7.2.1996 / 00:12:54 / stefan"
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	117	"Modified: 7.2.1996 / 00:16:18 / stefan"
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	118	! !
74c8f104cd71 ST/X port of tgen-2.1 Stefan Vogel <sv@exept.de> parents: diff changeset	119
482 6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	120	!Stack class methodsFor:'documentation'!
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	121
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	122	version
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	123	^ '$Header: /cvs/stx/stx/libbasic2/Stack.st,v 1.3 1997-01-16 13:03:14 cg Exp $'
6cc6fd9e31fe forced checkin / source container change from Stack.st Claus Gittinger <cg@exept.de> parents: 296 diff changeset	124	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 16 Jan 1997 14:03:14 +0100
changeset 482	6cc6fd9e31fe
parent 296	3519dbc41ab1
child 1094	6759af697a46
permissions	-rw-r--r--