"

 COPYRIGHT (c) 1998 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.

"

TerminalView subclass:#VT100TerminalView

	instanceVariableNames:'currentParam parameters lastCursorLine'

	classVariableNames:''

	poolDictionaries:''

	category:'Views-TerminalViews'

!

!VT100TerminalView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1998 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

"

    A VT100 terminal emulator.

    Most of the functionality is inherited from my superclass,

    I redefine/specialize certain methods for VT100 escape sequences

    and vt100 keyboard codes

    BUGS:

        VT100 wrapMode (at right margin) is not supported

        this may lead to wrong display when a vi is started in a small window.

    [start with:]

        VT100TerminalView openShell

    [see also:]

        VT52TerminalView

        TelnetTool

"

! !

!VT100TerminalView methodsFor:'defaults'!

vt100KeyCodes

    "return a vt100 keyCode table"

    ^ IdentityDictionary withKeysAndValues:

        #(

             #CursorUp    '\e[A'

             #CursorDown  '\e[B'

             #CursorRight '\e[C'

             #CursorLeft  '\e[D'

             #Home        '\e[H'

             #Escape      '\e'

             #BackSpace   '\b'

             #Return      '\r'

             #Delete      '\0177'

             #Tab         '\t'

             #F1          '\eOP'

             #F2          '\eOQ'

             #F3          '\eOR'

             #F4          '\eOS'

             #F5          '\eOt'

             #F6          '\eOu'

             #F7          '\eOv'

             #F8          '\eOl'

             #F9          '\eOw'

         )

    "Created: / 10.6.1998 / 15:13:01 / cg"

    "Modified: / 5.5.1999 / 15:01:32 / cg"

! !

!VT100TerminalView methodsFor:'functions'!

addLines

    "Add the appropriate number of blank lines (param 1) 

     at the cursor position."

    self addLines:((parameters at:1) max:1).

    self endOfSequence

    "Created: / 10.6.1998 / 14:48:03 / cg"

!

addLines:aNumber

    "Add aNumber blank lines at the position indicated by the cursor."

    aNumber timesRepeat:[

        self insertLine:'' before:cursorLine

    ]

    "Created: / 10.6.1998 / 14:49:30 / cg"

!

autoMargin:aBoolean

    "set/clear autowrap at end of line (not yet implemented)"

    "Created: / 12.6.1998 / 21:42:06 / cg"

!

clearLines

    "Clear some part of the current line, as indicated by the first parameter:

     0 - clear to EOL

     1 - clear from beginning to cursorCol

     2 - clear entire line

    "

    |arg|

    arg := parameters at:1.

    arg = 0 ifTrue: [^self doClearToEndOfLine].

    arg = 1 ifTrue: [^self doClearFromBeginningOfLine].

    arg = 2 ifTrue: [^self doClearEntireLine]

    "Created: / 10.6.1998 / 14:44:22 / cg"

    "Modified: / 21.7.1998 / 20:07:42 / cg"

!

deleteCharacters

    "Delete the appropriate number of characters (param 1)

     at the cursor position."

    |n|

    n := ((parameters at: 1) max: 1).

    self deleteFromLine:cursorLine col:cursorCol toLine:cursorLine col:cursorCol+n-1.

    "Created: / 12.6.1998 / 21:19:02 / cg"

    "Modified: / 12.6.1998 / 21:19:15 / cg"

!

displayMode:anInteger

    "Set the current display mode (emphasis) as specified by param 1."

    |p1|

    p1 := parameters at:1.

"/    self endEntry.

    p1 == 1 ifTrue:[

        "/ ESC-[-1-m  -> bold

        "/ workaround: windows bold fonts are

        "/ wider, leading to ugly looking output

        "/ Therefore, use red color instead of bold

            self color:Color red.

        ] ifFalse:[

            self bold.

        ].

        ^ self.

    ].

    p1 == 4 ifTrue:[

        "/ ESC-[-4-m  -> underline

        self underline.

        ^ self.

    ].

    p1 == 5 ifTrue:[

        "/ ESC-[-5-m  -> blink

        self color:Color blue.

        ^ self.

    ].

    p1 == 7 ifTrue:[

        "/ ESC-[-7-m  -> reverse

        self reverse.

        ^ self.

    ].

    "/ ESC-[-any-m  -> normal

    self normal.

    "Created: / 10.6.1998 / 15:01:16 / cg"

    "Modified: / 5.5.1999 / 00:53:15 / cg"

!

doClearDisplay

    "Clear some part of the current screen, as indicated by the first parameter.

     0 - clear to endOfScreen

     1 - clear from beginning of screen to cursorCol

     2 - clear entire screen

    "

    |arg|

    arg := parameters at: 1.

    arg = 0 ifTrue: [^self doClearToEndOfScreen].

    arg = 1 ifTrue: [^self doClearFromBeginningOfScreen].

    arg = 2 ifTrue: [^self doClearEntireScreen]

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

    "Modified: / 21.7.1998 / 20:07:36 / cg"

!

insertCharacters

    "Insert the appropriate number of spaces (param 1) at the cursor position."

    |s|

    s := String new:((parameters at: 1) max: 1).

    self insertStringWithoutCRs:s atLine:cursorLine col:cursorCol.

    "Modified: / 12.6.1998 / 21:14:25 / cg"

    "Created: / 28.7.1998 / 00:53:51 / cg"

!

move

    "Move to the locations indicated by the first and second parameters."

    self moveToX: ((parameters at: 2) max: 1) y: ((parameters at: 1) max: 1).

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

    "Modified: / 20.6.1998 / 18:49:12 / cg"

!

moveToX: xLocation y: yLocation

    "Position the cursor at the location given by xLocation and yLocation.

     Ignore the command if the parameters are outside the allowable range."

"/ Transcript show:'numberOfColumns '; showCR:numberOfColumns.

"/ Transcript show:'numberOfLines '; showCR:numberOfLines.

"/    (xLocation < 1 or: [xLocation > numberOfColumns]) ifTrue: [^self].

"/    (yLocation < 1 or: [yLocation > numberOfLines]) ifTrue: [^self].

    self cursorVisibleLine:yLocation col:xLocation.

    "Created: / 10.6.1998 / 14:40:49 / cg"

    "Modified: / 20.6.1998 / 20:27:11 / cg"

!

reportTerminalType

    "currently, only cursor position is supported (param 6)"

    (parameters at: 1) == 6 ifTrue:[

        "/ report position

        self endEntry.

        inStream nextPut:(Character esc).

        inStream nextPutAll:'[' 

                            , cursorLine printString 

                            , ';' 

                            , cursorCol printString

                            , 'R'.

        ^ self

    ].

    (parameters at: 1) == 7 ifTrue:[

        "/ display name 

    ].

    "Created: / 11.6.1998 / 23:05:50 / cg"

    "Modified: / 28.7.1998 / 00:54:30 / cg"

!

resetDefaults

    "Reset the default parameters"

    |l1 c1 l2 c2|

    l1 := (parameters at: 1).

    l2 := (parameters at: 2).

"/ Transcript show:'resetDefaults:'; show:l1;show:' ';showCR:l2.

    (l1 ~~ 0 and:[l2 ~~ 0]) ifTrue:[

        rangeStartLine := l1.

        rangeEndLine := l2.

    ] ifFalse:[

"/        self halt.

    ].

"/    (rangeStartLine == 1 and:[rangeEndLine == numberOfLines]) ifTrue:[

"/        rangeEndLine := rangeStartLine := nil.

"/    ].

"/    autoLineFeed := false.

"/    autoMargin := true.

"/    displayMode := 0.                "Normal display"!! !!

    "Created: / 10.6.1998 / 14:50:53 / cg"

    "Modified: / 20.6.1998 / 20:28:26 / cg"

! !

!VT100TerminalView methodsFor:'initialization'!

initialize

    super initialize.

    self endOfSequence

    "Created: / 10.6.1998 / 14:46:07 / cg"

    "Modified: / 13.6.1998 / 13:58:01 / cg"

!

initializeKeyboardSequences

    "setup my keyboard sequences for a vt100"

    kbdSequences := (self vt100KeyCodes)

    "Modified: / 9.6.1998 / 20:49:21 / cg"

    "Created: / 10.6.1998 / 15:12:32 / cg"

! !

!VT100TerminalView methodsFor:'processing - input'!

addToParameter: char

    "The parameter char is a digit. Add it to the current parameter."

    | param |

    param := parameters at:currentParam.

    parameters at:currentParam put:(param * 10 + char digitValue)

    "Created: / 10.6.1998 / 14:39:00 / cg"

!

endOfSequence

    "private - reset state-machine at end of escape-sequence"

    state := 0. 

    currentParam := 1. 

    parameters := Array new:8 withAll:0.

    "Created: / 10.6.1998 / 14:30:40 / cg"

    "Modified: / 10.6.1998 / 14:30:57 / cg"

!

nextPut:char

    "process a character (i.e. the shells output)"

"/ Transcript show:state; show:' '; showCR:char storeString.

    state == #gotReturn ifTrue:[

        state := 0.

        char == Character nl ifTrue:[

            "/ cr-nl

            "/ stay in buffering mode.

            super nextPut:Character cr.

            ^ self.

        ].

        self endEntry.

        self cursorToBeginOfLine.

        "/ continue in initial state

    ].

    state == 0 ifTrue:[

        "/ Currently, we are in initial state.  

        "/ Decide what to do on the basis of the parameter char.

        char asciiValue < 32 ifTrue:[

            (char == Character esc) ifTrue:[ 

                state := #gotESC. 

                ^ self 

            ].

            (char == Character nl) ifTrue:[ 

                self endEntry.

                ^ self doCursorDown:1.

            ].

            (char == Character return) ifTrue:[ 

                (rangeEndLine notNil and:[rangeEndLine ~~ numberOfLines]) ifTrue:[

                    self endEntry.

                    self cursorToBeginOfLine.

                ] ifFalse:[

                    state := #gotReturn.

                ].

                ^ self.

            ].

            (char == Character backspace) ifTrue:[ 

                self endEntry.

                ^ self cursorLeft. "/ doBackspace

            ].

            (char == Character bell) ifTrue:[

                self beep.

                ^ self 

            ].

            (char == (Character value:5)) ifTrue:[

                "/ terminal-type query

                self reportTerminalType.

                ^ self 

            ].

            (char == (Character value:16rf)) ifTrue:[

                "/ SO

                ^ self 

            ].

            (char == (Character value:16re)) ifTrue:[

                "/ SI

                ^ self 

            ].

            char ~~ Character tab ifTrue:[

                char asciiValue ~~ 0 ifTrue:[

                    ('VT100 [info]: unhandled control key: ' , char storeString) infoPrintCR.

                ].

                ^ self.

            ]

        ].

        ^ super nextPut:char

    ].

    state == #gotESC ifTrue:[

        "/ Currently, we are in ESC state.  

        "/ Decide what to do on the basis of the parameter char.

        char == $[ ifTrue: [ 

            "/ ESC-[

            state := #gotCSI. 

            ^ self

        ].

        char == $] ifTrue: [ 

            "/ ESC-]

            "/xterm sequence

            state := #gotXTERMCSI. 

            ^ self

        ].

        char == $( ifTrue: [ 

            "/ ESC-(

            "/ todo: set-charset 0 ...

            state := #gotCSI3.

            ^ self

        ].

        char == $) ifTrue: [ 

            "/ ESC-(

            "/ todo: set-charset 1 ...

            ^ self doNothing

        ].

        char == $7 ifTrue:[

            "/ ESC-7

            self endEntry.

            self saveCursor.

            ^ self endOfSequence

        ].

        char == $8 ifTrue:[

            "/ ESC-7

            self endEntry.

            self restoreCursor.

            ^ self endOfSequence

        ].

        char == $M ifTrue:[

            "/ ESC-M

            self endEntry.

            self doCursorUp:1.

            ^ self endOfSequence

        ].

        char == $D ifTrue:[

            "/ ESC-D

            self endEntry.

            self doCursorDown:1.

            ^ self endOfSequence

        ].

        char == $E ifTrue:[

            "/ ESC-E

            "/ TODO add_lines

            ^ self doNothing

        ].

        (char == $Z) ifTrue:[

            "/ terminal-type query 2

            self reportTerminalType.

            ^ self endOfSequence

        ].

        char == $= ifTrue: [

            "/ ESC-=

            ^ self doNothing

        ].