--- a/PipeStream.st Fri May 12 14:09:17 2000 +0200
+++ b/PipeStream.st Wed May 17 11:13:21 2000 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libbasic' }"
+
NonPositionableExternalStream subclass:#PipeStream
instanceVariableNames:'commandString pid exitStatus exitSema exitAction'
classVariableNames:'BrokenPipeSignal'
@@ -400,23 +402,23 @@
|tpid|
filePointer notNil ifTrue:[
- (tpid := pid) notNil ifTrue:[
- OperatingSystem isMSDOSlike ifTrue:[
- OperatingSystem terminateProcess:tpid.
- OperatingSystem terminateProcessGroup:tpid.
- pid := nil.
- ]
- ].
- super closeFile.
+ (tpid := pid) notNil ifTrue:[
+ "/ OperatingSystem isMSDOSlike ifTrue:[
+ OperatingSystem terminateProcess:tpid.
+ OperatingSystem terminateProcessGroup:tpid.
+ pid := nil.
+ "/ ]
+ ].
+ super closeFile.
- filePointer := nil.
- pid notNil ifTrue:[
- [
- pid notNil ifTrue:[
- exitSema wait.
- ]
- ] valueUninterruptably
- ].
+ filePointer := nil.
+ pid notNil ifTrue:[
+ [
+ pid notNil ifTrue:[
+ exitSema wait.
+ ]
+ ] valueUninterruptably
+ ].
].
"Modified: / 12.9.1998 / 16:51:04 / cg"
@@ -702,6 +704,6 @@
!PipeStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.83 2000-02-07 18:17:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.84 2000-05-17 09:13:21 cg Exp $'
! !
PipeStream initialize!