equal
deleted
inserted
replaced
3020 as argument." |
3020 as argument." |
3021 |
3021 |
3022 |pid exitStatus sema| |
3022 |pid exitStatus sema| |
3023 |
3023 |
3024 sema := Semaphore new. |
3024 sema := Semaphore new. |
|
3025 sema name:'Unix command wait'. |
3025 |
3026 |
3026 [ |
3027 [ |
3027 pid := self |
3028 pid := self |
3028 startProcess:aCommandString |
3029 startProcess:aCommandString |
3029 inputFrom:anExternalInStream |
3030 inputFrom:anExternalInStream |
3058 as argument." |
3059 as argument." |
3059 |
3060 |
3060 |pid exitStatus sema| |
3061 |pid exitStatus sema| |
3061 |
3062 |
3062 sema := Semaphore new. |
3063 sema := Semaphore new. |
|
3064 sema name:'Unix command wait'. |
3063 |
3065 |
3064 [ |
3066 [ |
3065 pid := self startProcess:aCommandString. |
3067 pid := self startProcess:aCommandString. |
3066 pid > 0 ifTrue:[ |
3068 pid > 0 ifTrue:[ |
3067 Processor monitorPid:pid action:[:status | |
3069 Processor monitorPid:pid action:[:status | |
8300 ! ! |
8302 ! ! |
8301 |
8303 |
8302 !OperatingSystem class methodsFor:'documentation'! |
8304 !OperatingSystem class methodsFor:'documentation'! |
8303 |
8305 |
8304 version |
8306 version |
8305 ^ '$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.193 1997-01-24 10:33:07 cg Exp $' |
8307 ^ '$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.194 1997-01-24 22:11:36 cg Exp $' |
8306 ! ! |
8308 ! ! |
8307 OperatingSystem initialize! |
8309 OperatingSystem initialize! |