--- a/NonPositionableExternalStream.st Thu Feb 04 10:11:16 2010 +0100
+++ b/NonPositionableExternalStream.st Thu Feb 04 10:13:26 2010 +0100
@@ -154,18 +154,18 @@
pipe := OperatingSystem makePipe.
pipe isNil ifTrue:[
- "/ ok, someone has forgotten to close a stream; enforce finalization and try again
- 'MakePipe: enforce finalization to close any open streams' infoPrintCR.
- ObjectMemory garbageCollect.
- pipe := OperatingSystem makePipe.
+ "/ ok, maybe someone has forgotten to close a stream; enforce finalization and try again
+ 'makePipe: enforcing finalization to close any open streams' infoPrintCR.
+ ObjectMemory garbageCollect.
+ pipe := OperatingSystem makePipe.
].
pipe notNil ifTrue:[
- rs := self forReadingFromFileDescriptor:(pipe at:1).
- rs buffered:false.
- ws := self forWritingToFileDescriptor:(pipe at:2).
- ws buffered:false.
- ^ Array with:rs with:ws
+ rs := self forReadingFromFileDescriptor:(pipe at:1).
+ rs buffered:false.
+ ws := self forWritingToFileDescriptor:(pipe at:2).
+ ws buffered:false.
+ ^ Array with:rs with:ws
].
^ nil
@@ -178,18 +178,18 @@
'read ...'.
[
- 1 to:10 do:[:i |
- Transcript showCR:rs nextLine
- ].
- rs close.
+ 1 to:10 do:[:i |
+ Transcript showCR:rs nextLine
+ ].
+ rs close.
] forkAt:7.
'write ...'.
[
- 1 to:10 do:[:i |
- ws nextPutAll:'hello world '; nextPutAll:i printString; cr
- ].
- ws close.
+ 1 to:10 do:[:i |
+ ws nextPutAll:'hello world '; nextPutAll:i printString; cr
+ ].
+ ws close.
] fork.
"
@@ -559,9 +559,9 @@
!NonPositionableExternalStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.58 2010-02-01 18:20:44 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.59 2010-02-04 09:13:26 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.58 2010-02-01 18:20:44 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.59 2010-02-04 09:13:26 stefan Exp $'
! !