STXInstaller.st
changeset 30 7b6129ab86b0
parent 29 537410dfad60
child 31 0f95ba9204f6
equal deleted inserted replaced
29:537410dfad60 30:7b6129ab86b0
   269                 p := PipeStream readingFrom:cmd.
   269                 p := PipeStream readingFrom:cmd.
   270                 p isNil ifTrue:[
   270                 p isNil ifTrue:[
   271                     self warn:('command error. Could not execute:\\' , cmd) withCRs.
   271                     self warn:('command error. Could not execute:\\' , cmd) withCRs.
   272                 ] ifFalse:[
   272                 ] ifFalse:[
   273                     [p atEnd] whileFalse:[
   273                     [p atEnd] whileFalse:[
   274                         [p readWaitWithTimeout:0.1] whileTrue:[].
   274                         (p readWaitWithTimeout:0.1) ifFalse:[
   275                         line := p nextLine.
   275                             line := p nextLine.
   276                         (line notNil and:[line notEmpty]) ifTrue:[
   276                             (line notNil and:[line notEmpty]) ifTrue:[
   277                             commandTraceView showCR:(('  ' , line) asText emphasizeAllWith:(#color->Color red)).
   277                                 commandTraceView showCR:(('  ' , line) asText emphasizeAllWith:(#color->Color red)).
       
   278                             ]
   278                         ]
   279                         ]
   279                     ].
   280                     ].
   280                     p close.
   281                     p close.
   281                 ].
   282                 ].
   282                 doneSemaphore signal.
   283                 doneSemaphore signal.
   290     ].
   291     ].
   291 
   292 
   292     ^ true
   293     ^ true
   293 
   294 
   294     "Created: 17.7.1996 / 15:16:20 / cg"
   295     "Created: 17.7.1996 / 15:16:20 / cg"
   295     "Modified: 18.7.1996 / 22:20:24 / cg"
   296     "Modified: 9.1.1997 / 03:07:28 / cg"
   296 !
   297 !
   297 
   298 
   298 createDirectories
   299 createDirectories
   299     |msg dirsToMake numDirs nDone|
   300     |msg dirsToMake numDirs nDone|
   300 
   301