hg/stx-libbasic: comparison NonPositionableExternalStream.st

equal deleted inserted replaced

-:bf7f37b63ea2
+:eb433f2c42b2
 ^ PositionError raiseRequestWith:self
 "
 Stderr positionError
 "
+! !
+!NonPositionableExternalStream methodsFor:'initialization'!
+initialize
+"non-positionalble streams do now work well when buffered"
+super initialize.
+buffered := false.
 ! !
 !NonPositionableExternalStream methodsFor:'non homogenous reading'!
 nextBytes:count into:anObject startingAt:start
 offset := initialOffset.
 remaining := initialWriteCount.
 wasBlocking := self blocking:false.
 [remaining ~~ 0] whileTrue:[
-	count := super nextPutBytes:remaining from:buffer startingAt:offset.
+count := super nextPutBytes:remaining from:buffer startingAt:offset.
-	count ~~ remaining ifTrue:[ self writeWait. ].
+count ~~ remaining ifTrue:[ "Transcript showCR:'writeWait'. "self writeWait. ].
-	remaining := remaining - count.
+remaining := remaining - count.
-	offset := offset + count.
+offset := offset + count.
 ].
 wasBlocking ifTrue:[self blocking:true].
 ^ offset - initialOffset.
 ! !
 !NonPositionableExternalStream class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.64 2013-10-28 17:28:00 stefan Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.67 2014-01-30 16:41:04 stefan Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.64 2013-10-28 17:28:00 stefan Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.67 2014-01-30 16:41:04 stefan Exp $'
 ! !

branch	jv
changeset 18117	eb433f2c42b2
parent 18107	d46c13a0795b
parent 15924	73f0da45e706
child 18120	e3a375d5f6a8