Re: [Pharo-dev] Streaming over a UTF-8 encoded file using upToAll:

Dec. 30, 2017


      Here is a fix.

------------------------------------
PositionableStream>>#upToAll: aCollection
	"Answer a subcollection from the current access position to the occurrence
(if any, but not inclusive) of aCollection. If aCollection is not in the
stream, answer the entire rest of the stream."

	| output pattern |
	
	aCollection ifEmpty: [ ^ collection species empty ].
	
	output := (collection species new: 100) writeStream.
	pattern := aCollection readStream.
	
	[ pattern atEnd ] whileFalse: [ | item |
		self atEnd ifTrue: [ 
			output next: pattern position putAll: aCollection startingAt: 1.
			^ output contents 
		].

		item := self next.
		(pattern peekFor: item) ifFalse: [
			output 
				next: pattern position putAll: aCollection startingAt: 1;
			 	nextPut: item.
					
			pattern reset.
		].
	].

	^ output contents
------------------------------------

Best regards,
Henrik


--
Sent from: http://forum.world.st/Pharo-Smalltalk-Developers-f1294837.html

Re: [Pharo-dev] Streaming over a UTF-8 encoded file using upToAll:

Henrik-Nergaard