hg/stx-libbasic2: CollectingReadStream.st@98fe1a07634d (annotated)

2363 cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:libbasic2' }"
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
2673 ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3	PeekableStream subclass:#CollectingReadStream
2363 cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'collectBlock inStream'
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
2365 992361c42f71 * empty log message * Claus Gittinger <cg@exept.de> parents: 2363 diff changeset	7	category:'Streams-Misc'
2363 cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!CollectingReadStream class methodsFor:'documentation'!
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	documentation
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	"
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	A stream which provides the result of applying a collectBlock
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	to the elements of an underlying stream.
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	"
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	!
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	examples
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	"
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	[exBegin]
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	\|s\|
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	s := CollectingReadStream
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	on:#(1 2 3 4 5 6 7 8) readStream
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	collecting:[:each \| each squared].
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	s upToEnd
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	[exEnd]
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	[exBegin]
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	\|s\|
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	s := (#(1 2 3 4 5 6 7 8) readStream
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	selecting:[:n \| n odd])
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	collecting:[:n \| n squared].
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	s upToEnd
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	[exEnd]
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	"
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	! !
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	!CollectingReadStream class methodsFor:'instance creation'!
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	on:aStream collecting:aBlock
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	^ self basicNew on:aStream collecting:aBlock
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	! !
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	!CollectingReadStream methodsFor:'instance creation'!
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	on:aStream collecting:aBlock
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	inStream := aStream.
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	collectBlock := aBlock.
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	! !
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	!CollectingReadStream methodsFor:'queries'!
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	atEnd
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	^ inStream atEnd
3092 98fe1a07634d class: CollectingReadStream Claus Gittinger <cg@exept.de> parents: 3083 diff changeset	58	!
98fe1a07634d class: CollectingReadStream Claus Gittinger <cg@exept.de> parents: 3083 diff changeset	59
98fe1a07634d class: CollectingReadStream Claus Gittinger <cg@exept.de> parents: 3083 diff changeset	60	contentsSpecies
98fe1a07634d class: CollectingReadStream Claus Gittinger <cg@exept.de> parents: 3083 diff changeset	61	"return a class of which instances will be returned, when
98fe1a07634d class: CollectingReadStream Claus Gittinger <cg@exept.de> parents: 3083 diff changeset	62	parts of the collection are asked for.
98fe1a07634d class: CollectingReadStream Claus Gittinger <cg@exept.de> parents: 3083 diff changeset	63	(see upTo-kind of methods in Stream)"
98fe1a07634d class: CollectingReadStream Claus Gittinger <cg@exept.de> parents: 3083 diff changeset	64
98fe1a07634d class: CollectingReadStream Claus Gittinger <cg@exept.de> parents: 3083 diff changeset	65	^ inStream contentsSpecies.
2363 cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	! !
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67
2673 ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	68	!CollectingReadStream methodsFor:'stream protocol'!
2363 cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	next
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	inStream atEnd ifTrue:[
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	^ self pastEndRead
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	].
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	^ collectBlock value:(inStream next)
2673 ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	75	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	76
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	77	nextOrNil
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	78	\|ch\|
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	79
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	80	ch := inStream nextOrNil.
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	81	ch notNil ifTrue:[
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	82	collectBlock value:ch
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	83	].
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	84	^ ch
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	85
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	86	"Created: / 26-10-2011 / 17:29:01 / cg"
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	87	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	88
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	89	nextPeek
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	90	self next.
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	91	^ self peek
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	92
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	93	"Created: / 26-10-2011 / 17:25:16 / cg"
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	94	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	95
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	96	peek
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	97	^ inStream peek
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	98
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	99	"Created: / 26-10-2011 / 17:24:59 / cg"
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	100	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	101
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	102	peekOrNil
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	103	^ inStream peekOrNil
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	104
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	105	"Created: / 26-10-2011 / 17:25:32 / cg"
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	106	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	107
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	108	position
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	109	^ inStream position
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	110
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	111	"Created: / 26-10-2011 / 17:25:08 / cg"
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	112	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	113
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	114	position0Based
3083 1befd13e063c class: CollectingReadStream Stefan Vogel <sv@exept.de> parents: 2673 diff changeset	115	<resource: #obsolete>
1befd13e063c class: CollectingReadStream Stefan Vogel <sv@exept.de> parents: 2673 diff changeset	116	^ inStream position
2673 ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	117
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	118	"Created: / 26-10-2011 / 17:23:56 / cg"
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	119	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	120
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	121	position1Based
3083 1befd13e063c class: CollectingReadStream Stefan Vogel <sv@exept.de> parents: 2673 diff changeset	122	<resource: #obsolete>
1befd13e063c class: CollectingReadStream Stefan Vogel <sv@exept.de> parents: 2673 diff changeset	123	^ inStream position + 1
2673 ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	124
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	125	"Created: / 26-10-2011 / 17:22:42 / cg"
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	126	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	127
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	128	readStream
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	129	^ self
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	130
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	131	"Created: / 26-10-2011 / 17:25:43 / cg"
2363 cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	! !
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	!CollectingReadStream class methodsFor:'documentation'!
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136	version_CVS
3092 98fe1a07634d class: CollectingReadStream Claus Gittinger <cg@exept.de> parents: 3083 diff changeset	137	^ '$Header: /cvs/stx/stx/libbasic2/CollectingReadStream.st,v 1.5 2013-08-18 10:56:38 cg Exp $'
2363 cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	! !
3083 1befd13e063c class: CollectingReadStream Stefan Vogel <sv@exept.de> parents: 2673 diff changeset	139

author	Claus Gittinger <cg@exept.de>
	Sun, 18 Aug 2013 12:56:38 +0200
changeset 3092	98fe1a07634d
parent 3083	1befd13e063c
child 3270	35d2087d156a
permissions	-rw-r--r--