"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 2013 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice. This software may not

 be provided or otherwise made available to, or used by, any

 other person. No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic2' }"

"{ NameSpace: Smalltalk }"

Object subclass:#TerminalSession

	instanceVariableNames:'inStream outStream errStream readerProcess shellPid shellCommand

		shellDirectory readerDelay pluggableCheckBeforeReadAction

		pluggableProcessInputAction execFDArray stxToStdinPipe

		stdOutToStxPipe pty ptyName terminatedAction collectedOutput

		promptActions'

	classVariableNames:'Debug'

	poolDictionaries:''

	category:'Views-TerminalViews'

!

!TerminalSession class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2013 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice. This software may not

 be provided or otherwise made available to, or used by, any

 other person. No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    This is basically a TerminalView without a view.

    This keeps the state and API to interact with another program

    via a terminal session. Under Unix, a pseudo-tty connection

    is used; other operating systems might use other mechanisms.

    This is (currently) used by the GDBApplication, to interact

    with gdb, cscope and the program.

    It can be used wherever more control is needed than a simple pipe

    offers (such as terminal emulation, window size, CTRL-c support etc.)

    A major feature is a mechanism to catch certain prompt strings of the output

    and get a notification.

    This is very useful, if a program's output is to be shown both in a terminalview,

    and also to be analyzed for robot actions.

    Applications for this are telnet like interaction, interactions with a debugger

    or monitor (gdb, android-adb) etc.,

    A lot of code has been extracted from TerminalView, 

    which will be refactored, once this is stable. 

    For now, there is some code duplication (as of Summer 2014).

    outStream   - the controlled program's output (a pty-half)

    inStream    - the controlled program's input (a pty-half)

    errStream   - the controlled program's output (a pty-half)

"

!

examples

"

    |session|

    session := TerminalSession new.

    session startReaderProcess.

    session 

        pluggableProcessInputAction:[:buffer :n |

            Transcript show:(buffer copyTo:n).

            Transcript endEntry.

        ].

    session 

        startCommand:'ls -l' in:'~' 

        environment:nil 

        setupTerminalWith:[] 

        terminatedAction:[ Transcript showCR:'finished' ].

    session 

        startCommand:'(cd ~/work/cg/schemeNew ; make)' in:'~' 

        environment:nil 

        setupTerminalWith:[] 

        terminatedAction:[ Transcript showCR:'finished' ].

    session 

        startCommand:'(ls ~/work/cg/schemeNew)' in:'~' 

        environment:nil 

        setupTerminalWith:[] 

        terminatedAction:[ Transcript showCR:'finished' ].

"

! !

!TerminalSession class methodsFor:'initialization'!

initialize

    Debug := false.

    "

     self initialize

     Debug := true.

    "

! !

!TerminalSession methodsFor:'accessing'!

errStream

    "the stdErrToStx stream.

     Stuff written by the process' to its stderr will appear here"

    ^ errStream

!

inStream

    "the stxTostdIn stream.

     Stuff written to this stream will appear at the process' stdin"

    ^ inStream

!

outStream

    "the process' stdOutToStx stream.

     Stuff written by the process to its stdout will appear here"

    ^ outStream

!

pluggableCheckBeforeReadAction:aBlockOrNil

    pluggableCheckBeforeReadAction := aBlockOrNil.

!

pluggableProcessInputAction:aBlockOrNil

    pluggableProcessInputAction := aBlockOrNil.

!

pty

    ^ pty

!

ptyName

    ^ ptyName

!

shellCommand

    ^ shellCommand

!

shellDirectory

    ^ shellDirectory

!

shellPid

    ^ shellPid

!

terminatedAction:aBlock

    "hook to be called when terminated"

    terminatedAction := aBlock.

    "Modified (comment): / 07-02-2017 / 16:05:55 / cg"

! !

!TerminalSession methodsFor:'initialization & release'!

closeDownShell

    "shut down my shell process"

    self closeDownShell:1

!

closeDownShell:waitTimeInSeconds

    "shut down my shell process"

    |pid waitTime|

    (pid := shellPid) notNil ifTrue:[

        Logger info:'killing shell pid=%1' with:shellPid.

        Debug ifTrue:[

            Logger info:'killing shell pid=%1' with:pid.

        ].

        OperatingSystem terminateProcessGroup:pid.

        OperatingSystem terminateProcess:pid.

        waitTime := 0.

        [shellPid notNil and:[waitTime < waitTimeInSeconds]] whileTrue:[

            Delay waitForSeconds:0.1.

            waitTime := waitTime + 0.1

        ].

        Logger info:'shell pid after SIGTERM=%1' with:shellPid.

        "/ still not dead?

        shellPid notNil ifTrue:[

            Logger info:'still not dead after %1' with:waitTimeInSeconds.

            OperatingSystem isMSWINDOWSlike ifFalse:[

                OperatingSystem killProcessGroup:pid.

            ].

            OperatingSystem killProcess:pid.

            shellPid := nil.

        ].

        OperatingSystem closePid:pid.

    ].

    "Modified: / 5.5.1999 / 18:43:02 / cg"

!

closeDownShellAndStopReaderProcess

    "shut down my shell process, stop the background reader thread

     and close the streams"

    self closeDownShell.

    self stopReaderProcess.

    self closeStreams

!

closeStreams

    |s|

    self stopReaderProcess.

    (s := inStream) notNil ifTrue:[

        inStream := nil.

        s isStream ifTrue:[s close].

    ].

    (s := outStream) notNil ifTrue:[

        outStream := nil.

        s close.

    ].

    (s := errStream) notNil ifTrue:[

        errStream := nil.

        s close.

    ].

!

createTerminalConnectionAndSetupWith:setupBlock

    "create a terminal connection (pseudo terminal or pipe)"

    |slaveFD master slave ptyTriple|

    OperatingSystem isMSWINDOWSlike ifTrue:[

        "use two pipes (eg. to COMMAND.COM)"

        stxToStdinPipe := NonPositionableExternalStream makePipe.

        stxToStdinPipe isNil ifTrue:[

            self error:(self class classResources string:'Could not create pipe to COMMAND.COM.') mayProceed:true. 

            ^ self.

        ].

        stdOutToStxPipe := NonPositionableExternalStream makePipe.

        stdOutToStxPipe isNil ifTrue:[

            self error:(self class classResources classResources string:'Could not create pipe from COMMAND.COM.') mayProceed:true. 

            ^ self.

        ].

        "/ pipe readSide is p at:1;

        "/      writeSide is p at:2

        slaveFD := (stdOutToStxPipe at:2) fileDescriptor.

        execFDArray := Array 

                         with:(stxToStdinPipe at:1) fileDescriptor        "stdin"

                         with:slaveFD                                       "stdout"

                         with:slaveFD.                                      "stderr"

        outStream := stdOutToStxPipe at:1.

        inStream  := stxToStdinPipe at:2.

    ] ifFalse:[

        "Use a pseudo-tty"

        ptyTriple := OperatingSystem makePTY.

        ptyTriple isNil ifTrue:[

            self warn:'Cannot open pty.'.

            ^ self.

        ].

        "/ pty at:1 is the master;

        "/ pty at:2 is the slave

        "/ pty at:3 is the name of the pty

        ptyName := ptyTriple at:3.

        master := NonPositionableExternalStream forReadWriteToFileDescriptor:(ptyTriple at:1).

        master buffered:false.

        slave := NonPositionableExternalStream forReadWriteToFileDescriptor:(ptyTriple at:2).

        slave buffered:false.

        pty := { master . slave }.

        inStream := outStream := master.

        setupBlock value.

        "/ fork a shell process on the slave-side

        slaveFD := (ptyTriple at:2).

        execFDArray := Array with:slaveFD with:slaveFD with:slaveFD.

    ].

!

reinitialize

    shellPid := nil.

    inStream := outStream := errStream := nil.

!

startCommand:aCommand in:aDirectory environment:envIn setupTerminalWith:setupBlock terminatedAction:terminatedActionArg

    "start a command on a pseudo terminal. 

     If the command arg is nil, a shell is started. 

     If aDirectory is nil, the command is executed in the current directory.

     Also fork a reader process, to read the shell's output 

     and tell me, whenever something arrives"

    |exitStatus 

     cmd shell args env shellAndArgs didOpenTerminal|

    shellCommand := aCommand.

    shellDirectory := aDirectory.

    terminatedAction := terminatedActionArg.

    didOpenTerminal := false.

    env := Dictionary new.

    env declareAllFrom:envIn.

    (inStream isNil or:[outStream isNil]) ifTrue:[

        self createTerminalConnectionAndSetupWith:setupBlock.

        didOpenTerminal := true.

    ].

    OperatingSystem isMSWINDOWSlike ifTrue:[

        shellAndArgs := OperatingSystem commandAndArgsForOSCommand:aCommand.

        shell := shellAndArgs at:1.

        args  := (shellAndArgs at:2) ? ''.

    ] ifFalse:[

        aCommand isNil ifTrue:[

            shell := OperatingSystem getEnvironment:'SHELL'.

            shell size == 0 ifTrue:[

                shell := '/bin/sh'.

            ].

            cmd := shell asFilename baseName.

            args := (Array with:cmd).

        ] ifFalse:[

            shell := '/bin/sh'.

            args := (Array with:'sh' with:'-c' with:aCommand).

        ].

        env at:'SHELL' put:shell.

    ].

    shellPid := Processor

               monitor:[

                  Debug ifTrue:[

                      Logger info:'exec: "%1" args: "%2"' with:shell with:args.

                  ].

                  OperatingSystem

                      exec:shell

                      withArguments:args

                      environment:env

                      fileDescriptors:execFDArray

                      fork:true

                      newPgrp:true

                      inDirectory:aDirectory

                      showWindow:false.

               ]

               action:[:status |

                    Debug ifTrue:[

                        Logger info:'pid: %1' with:status pid.

                        Logger info:'status %1:' with:status status.

                        Logger info:'code: %1' with:status code.

                        Logger info:'core %1:' with:status core.

                    ].

                    status stillAlive ifFalse:[

                        exitStatus := status.

                        OperatingSystem closePid:shellPid.

                        shellPid := nil.

                        terminatedAction valueWithOptionalArgument:status

                    ].

               ].

    Logger info:'started shell pid: %1' with:shellPid.

    "close the slave side of the pty/pipes (only used by the child)"

    pty notNil ifTrue:[

        (pty at:2) close.

    ].

    didOpenTerminal ifTrue:[

        stdOutToStxPipe notNil ifTrue:[

            (stdOutToStxPipe at:2) close.

            (stxToStdinPipe at:1) close.

        ].

        shellPid isNil ifTrue:[

        "/ self warn:'Cannot start shell'.

            outStream notNil ifTrue:[outStream close].

            inStream notNil ifTrue:[inStream close].

            inStream := outStream := nil.

        ].

    ].

    ^ shellPid

    "Created: / 20-07-1998 / 18:19:32 / cg"

    "Modified: / 01-08-2013 / 20:38:37 / cg"

! !

!TerminalSession methodsFor:'input / output'!

paste:someText

    "paste - redefined to send the chars to the shell instead

     of pasting into the view"

    |s nLines|

    s := someText.

    s isString ifTrue:[

        s := s asStringCollection

    ] ifFalse:[

        (s isKindOf:StringCollection) ifFalse:[

            self warn:'selection (' , s class name , ') is not convertable to text'.

            ^ self

        ]

    ].

    (nLines := s size) == 0 ifTrue:[^ self].

    (nLines == 1 and:[(s at:1) size == 0]) ifTrue:[^ self].

    s keysAndValuesDo:[:idx :line |

        line notNil ifTrue:[inStream nextPutAll:line].

        idx ~~ nLines ifTrue:[

            self sendLineEnd.

        ]

    ].

    "Modified: / 12.6.1998 / 22:12:47 / cg"

!

send:aString

    inStream nextPutAll:aString.

    "Created: / 26-05-2018 / 11:32:04 / Claus Gittinger"

!

sendCharacter:aCharacter

    inStream nextPut:aCharacter.

!

sendLine:aString

    inStream nextPutAll:aString.

    self sendLineEnd

!

sendLineEnd

    OperatingSystem isMSDOSlike ifTrue:[

        inStream nextPut:Character return.

        inStream nextPut:Character linefeed.

    ] ifFalse:[

        inStream nextPut:Character return.

    ].

! !

!TerminalSession methodsFor:'misc'!

collectedOutput

    "return any collected output, so far"

    collectedOutput isNil ifTrue:[^ nil].

    ^ collectedOutput contents

!

defineWindowSizeLines:numberOfLines columns:numberOfColumns

    "/ any idea, how to do this under windows ?

    OperatingSystem isUNIXlike ifTrue:[

        "/

        "/ tell the pty;

        "/ tell the shell;

        "/

        (inStream notNil 

        and:[inStream isExternalStream

        and:[inStream isOpen]]) ifTrue:[

            Debug ifTrue:[

                Logger info:'TerminalSession [info]: changed len to %1' with:numberOfLines.

            ].

            (OperatingSystem 

                setWindowSizeOnFileDescriptor:inStream fileDescriptor

                width:numberOfColumns

                height:numberOfLines) ifFalse:[

                Debug ifTrue:[

                    Logger info:'TerminalSession [warning]: cannot change windowSize'.

                ].

            ].

        ].

        shellPid notNil ifTrue:[

            OperatingSystem sendSignal:OperatingSystem sigWINCH to:shellPid

        ]

    ].

    "Created: / 11.6.1998 / 22:51:39 / cg"