--- 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!