Project.st
changeset 7496 2ca58af0baba
parent 7229 1c008aaa2022
child 7640 3a88d6dd9eba
--- a/Project.st	Sat Jul 12 10:25:04 2003 +0200
+++ b/Project.st	Sat Jul 12 16:41:17 2003 +0200
@@ -1918,41 +1918,13 @@
 buildProjectWithOutputTo:aStream
     "invoke 'make' in the project directory"
 
-    |p cmdOutStream cmdInStream readerProcess|
-
-    aStream notNil ifTrue:[
-        "/ need an external stream for that.
-        aStream isExternalStream ifTrue:[
-            cmdOutStream := aStream
-        ] ifFalse:[
-            p := ExternalStream makePipe.
-            cmdOutStream := p at:2.
-            "/ start a reader process
-            readerProcess := [
-                |data|
-
-                cmdInStream := p at:1.
-                [cmdInStream atEnd] whileFalse:[
-                    data := cmdInStream nextAvailable:512.
-                    aStream nextPutAll:data.
-                ]
-            ] newProcess.
-            readerProcess name:'cmd output reader'.
-            readerProcess resume.
-        ]   
-    ].
-
     OperatingSystem 
         executeCommand:('cd ' , self directory , ' ; make')
         inputFrom:nil 
-        outputTo:cmdOutStream 
-        errorTo:cmdOutStream 
+        outputTo:aStream 
+        errorTo:aStream 
         inDirectory:nil
         onError:[:status| false].
-
-    readerProcess terminate.
-    cmdInStream close.
-    cmdOutStream close.
 !
 
 classesInOrderFor:whatMsg
@@ -3958,7 +3930,7 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.186 2003-04-23 17:23:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.187 2003-07-12 14:41:17 stefan Exp $'
 ! !
 
 Project initialize!