STXInstaller.st
changeset 792 bffad322b0bb
parent 791 108f933f9385
child 793 43a9a195b0f3
equal deleted inserted replaced
791:108f933f9385 792:bffad322b0bb
   263 !STXInstaller methodsFor:'installing'!
   263 !STXInstaller methodsFor:'installing'!
   264 
   264 
   265 changeWritability
   265 changeWritability
   266     |msg|
   266     |msg|
   267 
   267 
   268     msg := (resources array:#('ST/X Installation' '' 'making target dir writable' '' '' '')) asStringCollection.
       
   269 
       
   270     commandTraceView showCR:(resources string:'making target dir writable ...').
       
   271     commandTraceView endEntry.
       
   272     fullInstallation ifTrue:[
   268     fullInstallation ifTrue:[
       
   269         msg := (resources array:#('ST/X Installation' '' 'making target dir writable' '' '' '')) asStringCollection.
       
   270 
       
   271         commandTraceView showCR:(resources string:'making target dir writable ...').
       
   272         commandTraceView endEntry.
   273         OperatingSystem executeCommand:('(cd ' , fullDir , ' ; find . -exec chmod u+w {} \;)').
   273         OperatingSystem executeCommand:('(cd ' , fullDir , ' ; find . -exec chmod u+w {} \;)').
   274     ] ifFalse:[
   274     ].
   275         OperatingSystem executeCommand:('(cd ' , stxLibDir , ' ; find . -exec chmod u+w {} \;)').
       
   276     ].
       
   277     ^ true
       
   278 
   275 
   279     "Created: / 17.7.1996 / 15:24:19 / cg"
   276     "Created: / 17.7.1996 / 15:24:19 / cg"
   280     "Modified: / 20.4.1998 / 15:38:59 / cg"
   277     "Modified: / 20.4.1998 / 15:40:00 / cg"
   281 !
   278 !
   282 
   279 
   283 copyFiles
   280 copyFiles
   284     |msg fileSpec filesToCopy numFiles nDone cmd|
   281     |msg fileSpec filesToCopy numFiles nDone cmd|
   285 
   282 
   456     fullInstallation ifTrue:[
   453     fullInstallation ifTrue:[
   457         OperatingSystem executeCommand:('(cd ' , fullDir , '/doc/online ; make links)').
   454         OperatingSystem executeCommand:('(cd ' , fullDir , '/doc/online ; make links)').
   458     ] ifFalse:[
   455     ] ifFalse:[
   459         OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)').
   456         OperatingSystem executeCommand:('(cd ' , stxLibDir , '/doc/online ; make links)').
   460     ].
   457     ].
   461     ^ true
       
   462 
   458 
   463     "Created: / 17.7.1996 / 15:24:19 / cg"
   459     "Created: / 17.7.1996 / 15:24:19 / cg"
   464     "Modified: / 25.2.1998 / 19:20:59 / cg"
   460     "Modified: / 20.4.1998 / 15:40:11 / cg"
   465 !
   461 !
   466 
   462 
   467 executeCommandAndShowOutput:cmd
   463 executeCommandAndShowOutput:cmd
   468     |doneSemaphore line p|
   464     |doneSemaphore line p|
   469 
   465