equal
deleted
inserted
replaced
243 setupBlock value. |
243 setupBlock value. |
244 "/ fork a shell process on the slave-side |
244 "/ fork a shell process on the slave-side |
245 slaveFD := (ptyTriple at:2). |
245 slaveFD := (ptyTriple at:2). |
246 execFDArray := Array with:slaveFD with:slaveFD with:slaveFD. |
246 execFDArray := Array with:slaveFD with:slaveFD with:slaveFD. |
247 ]. |
247 ]. |
248 ! |
|
249 |
|
250 isOpen |
|
251 (inStream notNil and:[inStream isOpen]) ifTrue:[^ true]. |
|
252 (outStream notNil and:[outStream isOpen]) ifTrue:[^ true]. |
|
253 (errStream notNil and:[errStream isOpen]) ifTrue:[^ true]. |
|
254 ^ false |
|
255 ! |
248 ! |
256 |
249 |
257 killShell |
250 killShell |
258 "shut down my shell process and stop the background reader thread." |
251 "shut down my shell process and stop the background reader thread." |
259 |
252 |
642 "start collecting output in a collecting stream" |
635 "start collecting output in a collecting stream" |
643 |
636 |
644 collectedOutput := nil. |
637 collectedOutput := nil. |
645 ! ! |
638 ! ! |
646 |
639 |
|
640 !TerminalSession methodsFor:'queries'! |
|
641 |
|
642 isOpen |
|
643 (inStream notNil and:[inStream isOpen]) ifTrue:[^ true]. |
|
644 (outStream notNil and:[outStream isOpen]) ifTrue:[^ true]. |
|
645 (errStream notNil and:[errStream isOpen]) ifTrue:[^ true]. |
|
646 ^ false |
|
647 ! ! |
|
648 |
647 !TerminalSession methodsFor:'reader process'! |
649 !TerminalSession methodsFor:'reader process'! |
648 |
650 |
649 collectOutputAndCheckForPrompt:buffer count:n |
651 collectOutputAndCheckForPrompt:buffer count:n |
650 |string collectedString collectedLines i i2 lastLine| |
652 |string collectedString collectedLines i i2 lastLine| |
651 |
653 |