# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 958554801 -7200
# Node ID bef4d52749a48a09f9878761a385405df92a14bd
# Parent  f855cf3b2f67ed67dc4bd40cda448f1783653dcb
terminate command on close (also under unix)

diff -r f855cf3b2f67 -r bef4d52749a4 PipeStream.st
--- 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!