TextCollector subclass:#TerminalView

	instanceVariableNames:'inStream outStream readerProcess shellPid kbdSequences

		escapeSequenceTree currentSequence currentTree kbdMap

		escapeLeadingChars numberOfColumns numberOfLines

		shellTerminateAction rangeStartLine rangeEndLine state'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-TerminalViews'

!

!TerminalView class methodsFor:'documentation'!

documentation

"

    I provide terminal functionality, by forking a command interpreter

    and comunicating with it via a pty.

    I am abstract - concrete terminal characteristics are defined

    by concrete subclasses (see VT52TerminalView).

    [author:]

        Claus Gittinger

    [start with:]

        VT52TerminalView openShell

        VT100TerminalView openShell

"

! !

!TerminalView class methodsFor:'opening'!

open

    ^ self openShell

    "

     VT100TerminalView open

    "

    "Created: / 10.6.1998 / 15:47:25 / cg"

    "Modified: / 9.7.1998 / 17:55:37 / cg"

!

openDummy

    "for testing purposes only - opens a dummy tty-view, which simply

     echoes whatever is typed in"

    |in vt52|

    vt52 := self new.

    in := ForwardingStream on:''.

    in fwdStream:vt52.

    vt52 inStream:in.

    vt52 outStream:in.

    vt52 open

    "

     self openDummy

    "

!

openOnCommand:aCommandString

    "start a command on a pseudo-TTY, open a terminalView on it

     (i.e. this is kind of an xterm)"

    ^ self openOnCommand:aCommandString onExit:[]

    "

     VT100TerminalView openOnCommand:'ls -l'

    "

    "Created: / 9.7.1998 / 17:50:53 / cg"

    "Modified: / 9.7.1998 / 17:57:41 / cg"

!

openOnCommand:aCommandString onExit:aBlock

    "start a command on a pseudo-TTY, open a terminalView on its output

     (i.e. this is kind of an xterm).

     When the command finishes, evaluate aBlock."

    |in top scr vt52|

    top := StandardSystemView new.

    scr := ScrollableView for:self in:top.

    scr origin:0.0@0.0 corner:1.0@1.0.

    vt52 := scr scrolledView.

    vt52 startCommand:aCommandString.

    vt52 shellTerminateAction:[

        top label:('finished: "' , aCommandString , '"'). aBlock value

    ].

    top extent:(scr preferredExtent).

    top label:('executing: "' , aCommandString , '"').

    top open.

    ^ vt52

    "

     VT100TerminalView openOnCommand:'ls -lR'

     VT100TerminalView openOnCommand:'vi /etc/hosts'

    "

    "Created: / 9.7.1998 / 17:54:34 / cg"

    "Modified: / 9.7.1998 / 18:03:31 / cg"

!

openOnInput:inStream  output:outStream

    "open a terminalView on the given streams (which are typically some

     kind of socket). Keys pressed are sent to inStream, text appearing

     from outStream are displayed in the terminal view.

     This can be used to implement things like rlogin

     or telnet views (if connected to a modem, a call-unix can also be

     implemented this way)."

    |in top scr vt52|

    top := StandardSystemView new.

    scr := ScrollableView for:self in:top.

    scr origin:0.0@0.0 corner:1.0@1.0.

    vt52 := scr scrolledView.

    vt52 inStream:inStream.

    vt52 outStream:outStream.

    vt52 startReaderProcess.

    top extent:(scr preferredExtent).

    top label:'shell'.

    top open.

    ^ top

    "Modified: / 20.6.1998 / 17:32:38 / cg"

!

openShell

    "start a shell on a pseudo-TTY, open a terminalView on it

     (i.e. this is kind of an xterm)"

    ^ self openShellIn:nil

    "

     VT100TerminalView openShell

    "

    "Modified: / 21.7.1998 / 18:24:55 / cg"

!

openShellIn:aDirectory

    "start a shell on a pseudo-TTY, open a terminalView on it

     (i.e. this is kind of an xterm)"

    |in top scr vt52|

    top := StandardSystemView new.

    scr := ScrollableView for:self in:top.

    scr origin:0.0@0.0 corner:1.0@1.0.

    vt52 := scr scrolledView.

    vt52 startShellIn:aDirectory.

    vt52 shellTerminateAction:[top destroy].

    top extent:(scr preferredExtent).

    top label:'shell'.

    top open.

    ^ vt52

    "

     VT100TerminalView openShellIn:'/etc'

    "

    "Created: / 20.7.1998 / 18:28:15 / cg"

    "Modified: / 20.7.1998 / 18:28:31 / cg"

! !

!TerminalView class methodsFor:'queries'!

isVisualStartable

    "returns whether this application class can be started via #open"

    self == TerminalView ifTrue:[^ false].

    ^ true

    "Created: / 10.6.1998 / 15:48:43 / cg"

! !

!TerminalView methodsFor:'accessing'!

inStream

    "return the value of the instance variable 'inStream' (automatically generated)"

    ^ inStream!

inStream:something

    "set the value of the instance variable 'inStream' (automatically generated)"

    inStream := something.!

outStream

    "return the value of the instance variable 'outStream' (automatically generated)"

    ^ outStream!

outStream:something

    "set the value of the instance variable 'outStream' (automatically generated)"

    outStream := something.!

readerProcess

    "return the value of the instance variable 'readerProcess' (automatically generated)"

    ^ readerProcess

!

shellTerminateAction:aBlock

    "set the block which is evaluated when the shell terminates.

     Can be used to close down the application in this case."

    shellTerminateAction := aBlock.

    "Created: / 12.6.1998 / 17:02:58 / cg"

! !

!TerminalView methodsFor:'cursor handling'!

cursorCol:col

    "check of col is a valid cursor position; return a new col-nr if not.

     Here, the linelength is enforced"

    ^ super cursorCol:(col min:numberOfColumns)

    "Modified: / 10.6.1998 / 15:09:34 / cg"

!

cursorDown:n

    cursorLine + n > list size ifTrue:[

        list := list , (Array new:n).

        self textChanged.

    ].

    super cursorDown:n

    "Modified: / 10.6.1998 / 17:18:41 / cg"

    "Created: / 10.6.1998 / 17:18:50 / cg"

!

cursorLine:l col:col

    "check of col is a valid cursor position; return a new col-nr if not.

     Here, the linelength is enforced"

    ^ super cursorLine:l col:(col min:numberOfColumns)

    "Modified: / 10.6.1998 / 15:09:38 / cg"

!

cursorMovementAllowed

    "return true, if the user may move the cursor around

     (via button-click, or cursor-key with selection).

     Here false is returned - the cursor is only moved by

     cursor positioning escape sequences arriving from the

     stream."

    ^ false

    "Created: / 18.6.1998 / 14:12:02 / cg"

!

validateCursorCol:col inLine:line

    "check of col is a valid cursor position; return a new col-nr if not.

     Here, the linelength is enforced"

    ^ col min:numberOfColumns

    "Modified: / 10.6.1998 / 15:09:41 / cg"

! !

!TerminalView methodsFor:'event handling'!

computeNumberOfLinesShown

    |prevNLines prevNCols|

    prevNCols := (innerWidth // font width).

    prevNLines := nFullLinesShown.

    super computeNumberOfLinesShown.

    ((innerWidth // font width) ~~ prevNCols

    or:[prevNLines ~~ nFullLinesShown]) ifTrue:[

        self defineWindowSize.

    ]

    "Created: / 12.6.1998 / 22:34:39 / cg"

    "Modified: / 20.6.1998 / 19:45:28 / cg"

!

defineWindowSize

    inStream notNil ifTrue:[

        (OperatingSystem 

            setWindowSizeOnFileDescriptor:(inStream fileDescriptor)

            width:(innerWidth // font width)

            height:(nFullLinesShown)) ifFalse:[

"/            Transcript showCR:'VT100: cannot change windowSize'.

        ].

        numberOfLines := nFullLinesShown.

"/        Transcript showCR:'VT100: changed len to ', numberOfLines printString.

    ].

    shellPid notNil ifTrue:[

        OperatingSystem sendSignal:OperatingSystem sigWINCH to:shellPid

    ]

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

    "Modified: / 20.6.1998 / 20:29:13 / cg"

!

keyPress:aKey x:x y:y

    |rest rawKey seq|

    inStream isNil ifTrue:[^ self].

"/ Transcript showCR:'----'; show:'key:' ; showCR:aKey printString.

    aKey isCharacter ifTrue:[

        "/ send it down to inStream ...

        inStream nextPut:aKey.

        ^ self

    ].

    aKey == #Tab ifTrue:[

"/ Transcript show:'->' ; showCR:Character tab storeString.

        inStream nextPut:Character tab.

        ^ self

    ].

    seq := kbdSequences at:aKey ifAbsent:nil.

    seq notNil ifTrue:[

"/ Transcript show:'->' ; showCR:seq storeString.

        inStream nextPutAll:(seq withEscapes).

        ^ self

    ].

    rawKey := device keyboardMap keyAtValue:aKey ifAbsent:aKey.

    seq := kbdSequences at:rawKey ifAbsent:nil.

    seq notNil ifTrue:[

"/ Transcript show:'->' ; showCR:seq storeString.

        inStream nextPutAll:(seq withEscapes).

        ^ self

    ].

    (rawKey startsWith:'Ctrl') ifTrue:[

        rest := rawKey copyFrom:5.

        rest size == 1 ifTrue:[

            rest := rest at:1.

            (rest >= $a and:[rest <= $z]) ifTrue:[

"/ Transcript show:'->' ; showCR:(Character value:(rest - $a + 1)) storeString.

                inStream nextPut:(Character value:(rest - $a + 1)).

                ^ self

            ].

            (rest >= $A and:[rest <= $Z]) ifTrue:[

"/ Transcript show:'->' ; showCR:(Character value:(rest - $a + 1)) storeString.

                inStream nextPut:(Character value:(rest - $A + 1)).

                ^ self

            ].

        ]

    ].

    (rawKey startsWith:'Control') ifTrue:[

        ^ self

    ].

    (rawKey startsWith:'Shift') ifTrue:[

        ^ self

    ].

    (rawKey startsWith:'Alt') ifTrue:[

        ^ self

    ].

    (rawKey startsWith:'Cmd') ifTrue:[

        ^ super keyPress:aKey x:x y:y

    ].

    Transcript show:'unhandled: '; showCR:rawKey.

    "Modified: / 12.6.1998 / 22:16:50 / cg"

!

shellTerminated

    self closeDownShell.

    shellTerminateAction notNil ifTrue:[

        shellTerminateAction value

    ] ifFalse:[

        "/ may be removed ...

        self warn:'shell terminated'.

    ]

    "Modified: / 12.6.1998 / 17:03:26 / cg"

!

sizeChanged:how

    super sizeChanged:how.

    self defineWindowSize.

    "Modified: / 11.6.1998 / 22:51:48 / cg"

! !

!TerminalView methodsFor:'functions'!

doBackspace

    self cursorLeft.

    self replaceCharAtCursor:(Character space).

    self cursorLeft.

    "Modified: / 10.6.1998 / 17:09:12 / cg"

!

doClearDisplay

    self doClearEntireScreen.

    "Modified: / 21.7.1998 / 20:05:35 / cg"

!

doClearEntireScreen

    firstLineShown to:(list size) do:[:l |

        self at:l put:''

    ].

    "Modified: / 21.7.1998 / 20:00:19 / cg"

    "Created: / 21.7.1998 / 20:05:24 / cg"

!

doClearFromBeginningOfLine

    |l|

    l := self listAt:cursorLine.

    l notNil ifTrue:[

        (l size >= (cursorCol-1)) ifTrue:[

            l := l copy from:1 to:cursorCol-1 put:(Character space).

        ] ifFalse:[

            l := nil.

        ].

        self withoutRedrawAt:cursorLine put:l.

        self invalidateLine:cursorLine

        "/ self at:cursorLine put:l.

    ]

    "Modified: / 20.6.1998 / 19:10:21 / cg"

    "Created: / 21.7.1998 / 20:10:58 / cg"

!

doClearFromBeginningOfScreen

    self doClearFromBeginningOfLine.

    cursorLine-1 to:firstLineShown do:[:l |

        self at:l put:''

    ].

    "Modified: / 10.6.1998 / 14:45:43 / cg"

    "Created: / 21.7.1998 / 20:08:29 / cg"

!

doClearToEndOfLine

    |l|

    l := self listAt:cursorLine.

    (l size >= (cursorCol-1)) ifTrue:[

        l notNil ifTrue:[

            l := l copyTo:cursorCol-1.

            self withoutRedrawAt:cursorLine put:l.

            self invalidateLine:cursorLine

            "/ self at:cursorLine put:l.

        ]

    ]

    "Created: / 10.6.1998 / 14:45:01 / cg"

    "Modified: / 20.6.1998 / 19:10:21 / cg"

!

doClearToEndOfScreen

    self doClearToEndOfLine.

    cursorLine+1 to:(list size) do:[:l |

        self at:l put:''

    ].

    "Modified: / 10.6.1998 / 14:45:43 / cg"

    "Created: / 21.7.1998 / 20:06:14 / cg"

!

doCursorDown:n

    |wasOn rEnd|

"/    rangeEndLine == numberOfLines ifTrue:[

"/        ^ super cursorDown:n

"/    ].

    cursorLine + 1 - firstLineShown + n <= rangeEndLine ifTrue:[

        "/ no special action req'd

        ^ super cursorDown:n

    ].

    n timesRepeat:[

        wasOn := self hideCursor.

        rEnd := rangeEndLine+firstLineShown-1.

        cursorLine ==  rEnd ifTrue:[