hg/stx-libbasic2: CollectingReadStream.st@1befd13e063c (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
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	! !
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59
2673 ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	60	!CollectingReadStream methodsFor:'stream protocol'!
2363 cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	next
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	inStream atEnd ifTrue:[
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	^ self pastEndRead
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	].
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	^ collectBlock value:(inStream next)
2673 ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	67	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	68
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	69	nextOrNil
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	70	\|ch\|
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	71
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	72	ch := inStream nextOrNil.
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	73	ch notNil ifTrue:[
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	74	collectBlock value:ch
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	^ ch
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	77
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	78	"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	79	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	80
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	81	nextPeek
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	82	self next.
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	83	^ self peek
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	84
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	85	"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	86	!
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	peek
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	89	^ inStream peek
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	90
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	91	"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	92	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	93
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	94	peekOrNil
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	95	^ inStream peekOrNil
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	96
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	97	"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	98	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	99
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	100	position
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	101	^ inStream position
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	102
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	103	"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	104	!
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	105
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	106	position0Based
3083 1befd13e063c class: CollectingReadStream Stefan Vogel <sv@exept.de> parents: 2673 diff changeset	107	<resource: #obsolete>
1befd13e063c class: CollectingReadStream Stefan Vogel <sv@exept.de> parents: 2673 diff changeset	108	^ inStream position
2673 ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	109
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	110	"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	111	!
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	position1Based
3083 1befd13e063c class: CollectingReadStream Stefan Vogel <sv@exept.de> parents: 2673 diff changeset	114	<resource: #obsolete>
1befd13e063c class: CollectingReadStream Stefan Vogel <sv@exept.de> parents: 2673 diff changeset	115	^ inStream position + 1
2673 ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	116
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	117	"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	118	!
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	readStream
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	121	^ self
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	122
ea71dab56953 fixes to make JavaScript file reader happier Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	123	"Created: / 26-10-2011 / 17:25:43 / cg"
2363 cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124	! !
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	!CollectingReadStream class methodsFor:'documentation'!
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127
cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	version_CVS
3083 1befd13e063c class: CollectingReadStream Stefan Vogel <sv@exept.de> parents: 2673 diff changeset	129	^ '$Header: /cvs/stx/stx/libbasic2/CollectingReadStream.st,v 1.4 2013-08-10 11:31:17 stefan Exp $'
2363 cfc0e027297d initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	! !
3083 1befd13e063c class: CollectingReadStream Stefan Vogel <sv@exept.de> parents: 2673 diff changeset	131

author	Stefan Vogel <sv@exept.de>
	Sat, 10 Aug 2013 13:31:17 +0200
changeset 3083	1befd13e063c
parent 2673	ea71dab56953
child 3092	98fe1a07634d
permissions	-rw-r--r--