archive/paradoxxxzero_butterfly
0
0
Fork 0
mirror of https://github.com/paradoxxxzero/butterfly.git synced 2025-01-12 20:38:14 +00:00
Code Issues Projects Releases Wiki Activity
paradoxxxzero_butterfly/butterfly/static/coffees/worker.coffee

2303 lines
83 KiB
CoffeeScript
Raw Permalink Blame History

ws = null
backterm = null
self.addEventListener 'message', (e) ->
switch e.data.cmd
when 'init'
backterm = new BackTerminal(e.data.cols, e.data.rows)
ws = new WebSocket e.data.wsurl
ws.addEventListener 'open', ->
console.log "WebSocket open", arguments
ws.send 'R' + e.data.cols + ',' + e.data.rows
# ws.send 'R' + term.cols + ',' + term.rows
# if location.hash
# setTimeout ->
# ws.send 'S' + location.hash.slice(1) + '\n'
# , 100
ws.addEventListener 'error', ->
console.log "WebSocket error", arguments
ws.addEventListener 'message', (e) ->
backterm.write e.data
# setTimeout ->
# term.write e.data
# , 1
ws.addEventListener 'close', ->
console.log "WebSocket closed", arguments
# quit = true
# open('','_self').close()
when 'data'
ws.send 'S' + e.data.data
s = 0
State =
normal: s++
escaped: s++
csi: s++
osc: s++
charset: s++
dcs: s++
ignore: s++
class BackTerminal
constructor: (@cols, @rows) ->
@scrollback = 100000
@visualBell = 100
@convertEol = false
@termName = 'xterm'
@cursorBlink = true
@screenKeys = false
@cursorState = 0
@reset_vars()
reset_vars: ->
@ybase = 0
@ydisp = 0
@x = 0
@y = 0
@state = State.normal
@scrollTop = 0
@scrollBottom = @rows - 1
# modes
@applicationKeypad = false
@applicationCursor = false
@originMode = false
@wraparoundMode = false
@normal = null
# charset
@charset = null
@gcharset = null
@glevel = 0
@charsets = [null]
# stream
@defAttr = (0 << 18) | (257 << 9) | (256 << 0)
@curAttr = @defAttr
@params = []
@currentParam = 0
@prefix = ""
@lines = []
i = @rows
@lines.push @blankLine() while i--
@setupStops()
eraseAttr: ->
(@defAttr & ~0x1ff) | (@curAttr & 0x1ff)
scroll: ->
if ++@ybase is @scrollback
@ybase = @ybase / 2 | 0
@lines = @lines.slice(-(@ybase + @rows) + 1)
@ydisp = @ybase
# last line
row = @ybase + @rows - 1
# subtract the bottom scroll region
row -= @rows - 1 - @scrollBottom
if row is @lines.length
# potential optimization:
# pushing is faster than splicing
# when they amount to the same
# behavior.
@lines.push @blankLine()
else
# add our new line
@lines.splice row, 0, @blankLine()
if @scrollTop isnt 0
if @ybase isnt 0
@ybase--
@ydisp = @ybase
@lines.splice @ybase + @scrollTop, 1
@updateRange @scrollTop
@updateRange @scrollBottom
scrollDisp: (disp) ->
@ydisp += disp
if @ydisp > @ybase
@ydisp = @ybase
else
@ydisp = 0 if @ydisp < 0
@refresh 0, @rows - 1
refresh: (start, end) ->
self.postMessage
cmd: 'refresh'
lines: @lines.slice(@ydisp, @ydisp + @rows)
start: start
end: end
write: (data) ->
@refreshStart = @y
@refreshEnd = @y
if @ybase isnt @ydisp
@ydisp = @ybase
@maxRange()
i = 0
l = data.length
while i < l
ch = data[i]
switch @state
when State.normal
switch ch
# '\a'
when "\x07"
@bell()
# '\n', '\v', '\f'
when "\n", "\x0b", "\x0c"
@x = 0 if @convertEol
@y++
if @y > @scrollBottom
@y--
@scroll()
# '\r'
when "\r"
@x = 0
# '\b'
when "\b"
@x-- if @x > 0
# '\t'
when "\t"
@x = @nextStop()
# shift out
when "\x0e"
@setgLevel 1
# shift in
when "\x0f"
@setgLevel 0
# '\e'
when "\x1b"
@state = State.escaped
else
# ' '
if ch >= " "
ch = @charset[ch] if @charset?[ch]
if @x >= @cols
@x = 0
@y++
if @y > @scrollBottom
@y--
@scroll()
@lines[@y + @ybase][@x] = [@curAttr, ch]
@x++
@updateRange @y
if "\uff00" < ch < "\uffef"
j = @y + @ybase
if @cols < 2 or @x >= @cols
@lines[j][@x - 1] = [@curAttr, " "]
break
@lines[j][@x] = [@curAttr, " "]
@x++
when State.escaped
switch ch
# ESC [ Control Sequence Introducer ( CSI is 0x9b).
when "["
@params = []
@currentParam = 0
@state = State.csi
# ESC ] Operating System Command ( OSC is 0x9d).
when "]"
@params = []
@currentParam = 0
@state = State.osc
# ESC P Device Control String ( DCS is 0x90).
when "P"
@params = []
@currentParam = 0
@state = State.dcs
# ESC _ Application Program Command ( APC is 0x9f).
when "_"
@state = State.ignore
# ESC ^ Privacy Message ( PM is 0x9e).
when "^"
@state = State.ignore
# ESC c Full Reset (RIS).
when "c"
@reset()
# ESC E Next Line ( NEL is 0x85).
when "E"
@x = 0
@index()
# ESC D Index ( IND is 0x84).
when "D"
@index()
# ESC M Reverse Index ( RI is 0x8d).
when "M"
@reverseIndex()
# ESC % Select default/utf-8 character set.
# @ = default, G = utf-8
when "%"
@setgLevel 0
@setgCharset 0, BackTerminal::charsets.US
@state = State.normal
i++
# ESC (,),*,+,-,. Designate G0-G2 Character Set.
# <-- this seems to get all the attention
when "(", ")" , "*" , "+" , "-" , "."
switch ch
when "("
@gcharset = 0
when ")", "-"
@gcharset = 1
when "*", "."
@gcharset = 2
when "+"
@gcharset = 3
@state = State.charset
# Designate G3 Character Set (VT300).
# A = ISO Latin-1 Supplemental.
# Not implemented.
when "/"
@gcharset = 3
@state = State.charset
i--
# ESC n
# Invoke the G2 Character Set as GL (LS2).
when "n"
@setgLevel 2
# ESC o
# Invoke the G3 Character Set as GL (LS3).
when "o"
@setgLevel 3
# ESC |
# Invoke the G3 Character Set as GR (LS3R).
when "|"
@setgLevel 3
# ESC }
# Invoke the G2 Character Set as GR (LS2R).
when "}"
@setgLevel 2
# ESC ~
# Invoke the G1 Character Set as GR (LS1R).
when "~"
@setgLevel 1
# ESC 7 Save Cursor (DECSC).
when "7"
@saveCursor()
@state = State.normal
# ESC 8 Restore Cursor (DECRC).
when "8"
@restoreCursor()
@state = State.normal
# ESC # 3 DEC line height/width
when "#"
@state = State.normal
i++
# ESC H Tab Set (HTS is 0x88).
when "H"
@tabSet()
# ESC = Application Keypad (DECPAM).
when "="
@applicationKeypad = true
@state = State.normal
# ESC > Normal Keypad (DECPNM).
when ">"
@applicationKeypad = false
@state = State.normal
else
@state = State.normal
console.log "Unknown ESC control:", ch
when State.charset
switch ch
when "0" # DEC Special Character and Line Drawing Set.
cs = BackTerminal::charsets.SCLD
when "A" # UK
cs = BackTerminal::charsets.UK
when "B" # United States (USASCII).
cs = BackTerminal::charsets.US
when "4" # Dutch
cs = BackTerminal::charsets.Dutch
# Finnish
when "C", "5"
cs = BackTerminal::charsets.Finnish
when "R" # French
cs = BackTerminal::charsets.French
when "Q" # FrenchCanadian
cs = BackTerminal::charsets.FrenchCanadian
when "K" # German
cs = BackTerminal::charsets.German
when "Y" # Italian
cs = BackTerminal::charsets.Italian
# NorwegianDanish
when "E", "6"
cs = BackTerminal::charsets.NorwegianDanish
when "Z" # Spanish
cs = BackTerminal::charsets.Spanish
# Swedish
when "H", "7"
cs = BackTerminal::charsets.Swedish
when "=" # Swiss
cs = BackTerminal::charsets.Swiss
when "/" # ISOLatin (actually /A)
cs = BackTerminal::charsets.ISOLatin
i++
else # Default
cs = BackTerminal::charsets.US
@setgCharset @gcharset, cs
@gcharset = null
@state = State.normal
when State.osc
# OSC Ps ; Pt ST
# OSC Ps ; Pt BEL
# Set Text Parameters.
if ch is "\x1b" or ch is "\x07"
i++ if ch is "\x1b"
@params.push @currentParam
switch @params[0]
when 0, 1 , 2
if @params[1]
@title = @params[1] + " - ƸӜƷ butterfly"
@handleTitle @title
when 99
# Custom escape to produce raw html
html = "<div class=\"inline-html\">" + @params[1] + "</div>"
@lines[@y + @ybase][@x] = [
@curAttr
html
]
line = 0
while line < @get_html_height_in_lines(html) - 1
@y++
if @y > @scrollBottom
@y--
@scroll()
line++
@updateRange @y
# reset colors
@params = []
@currentParam = 0
@state = State.normal
else
unless @params.length
if ch >= "0" and ch <= "9"
@currentParam = @currentParam * 10 + ch.charCodeAt(0) - 48
else if ch is ";"
@params.push @currentParam
@currentParam = ""
else
@currentParam += ch
when State.csi
# '?', '>', '!'
if ch is "?" or ch is ">" or ch is "!"
@prefix = ch
break
# 0 - 9
if ch >= "0" and ch <= "9"
@currentParam = @currentParam * 10 + ch.charCodeAt(0) - 48
break
# '$', '"', ' ', '\''
if ch is "$" or ch is "\"" or ch is " " or ch is "'"
break
@params.push @currentParam
@currentParam = 0
# ';'
break if ch is ";"
@state = State.normal
switch ch
# CSI Ps A
# Cursor Up Ps Times (default = 1) (CUU).
when "A"
@cursorUp @params
# CSI Ps B
# Cursor Down Ps Times (default = 1) (CUD).
when "B"
@cursorDown @params
# CSI Ps C
# Cursor Forward Ps Times (default = 1) (CUF).
when "C"
@cursorForward @params
# CSI Ps D
# Cursor Backward Ps Times (default = 1) (CUB).
when "D"
@cursorBackward @params
# CSI Ps ; Ps H
# Cursor Position [row;column] (default = [1,1]) (CUP).
when "H"
@cursorPos @params
# CSI Ps J Erase in Display (ED).
when "J"
@eraseInDisplay @params
# CSI Ps K Erase in Line (EL).
when "K"
@eraseInLine @params
# CSI Pm m Character Attributes (SGR).
when "m"
@charAttributes @params unless @prefix
# CSI Ps n Device Status Report (DSR).
when "n"
@deviceStatus @params unless @prefix
# CSI Ps @
# Insert Ps (Blank) Character(s) (default = 1) (ICH).
when "@"
@insertChars @params
# CSI Ps E
# Cursor Next Line Ps Times (default = 1) (CNL).
when "E"
@cursorNextLine @params
# CSI Ps F
# Cursor Preceding Line Ps Times (default = 1) (CNL).
when "F"
@cursorPrecedingLine @params
# CSI Ps G
# Cursor Character Absolute [column] (default = [row,1]) (CHA).
when "G"
@cursorCharAbsolute @params
# CSI Ps L
# Insert Ps Line(s) (default = 1) (IL).
when "L"
@insertLines @params
# CSI Ps M
# Delete Ps Line(s) (default = 1) (DL).
when "M"
@deleteLines @params
# CSI Ps P
# Delete Ps Character(s) (default = 1) (DCH).
when "P"
@deleteChars @params
# CSI Ps X
# Erase Ps Character(s) (default = 1) (ECH).
when "X"
@eraseChars @params
# CSI Pm ` Character Position Absolute
# [column] (default = [row,1]) (HPA).
when "`"
@charPosAbsolute @params
# 141 61 a * HPR -
# Horizontal Position Relative
when "a"
@HPositionRelative @params
# CSI P s c
# Send Device Attributes (Primary DA).
# CSI > P s c
# Send Device Attributes (Secondary DA)
when "c"
@sendDeviceAttributes @params
# CSI Pm d
# Line Position Absolute [row] (default = [1,column]) (VPA).
when "d"
@linePosAbsolute @params
# 145 65 e * VPR - Vertical Position Relative
when "e"
@VPositionRelative @params
# CSI Ps ; Ps f
# Horizontal and Vertical Position [row;column] (default =
# [1,1]) (HVP).
when "f"
@HVPosition @params
# CSI Pm h Set Mode (SM).
# CSI ? Pm h - mouse escape codes, cursor escape codes
when "h"
@setMode @params
# CSI Pm l Reset Mode (RM).
# CSI ? Pm l
when "l"
@resetMode @params
# CSI Ps ; Ps r
# Set Scrolling Region [top;bottom] (default = full size of win-
# dow) (DECSTBM).
# CSI ? Pm r
when "r"
@setScrollRegion @params
# CSI s
# Save cursor (ANSI.SYS).
when "s"
@saveCursor @params
# CSI u
# Restore cursor (ANSI.SYS).
when "u"
@restoreCursor @params
# CSI Ps I
# Cursor Forward Tabulation Ps tab stops (default = 1) (CHT).
when "I"
@cursorForwardTab @params
# CSI Ps S Scroll up Ps lines (default = 1) (SU).
when "S"
@scrollUp @params
# CSI Ps T Scroll down Ps lines (default = 1) (SD).
# CSI Ps ; Ps ; Ps ; Ps ; Ps T
# CSI > Ps; Ps T
when "T"
@scrollDown @params if @params.length < 2 and not @prefix
# CSI Ps Z
# Cursor Backward Tabulation Ps tab stops (default = 1) (CBT).
when "Z"
@cursorBackwardTab @params
# CSI Ps b Repeat the preceding graphic character Ps times (REP).
when "b"
@repeatPrecedingCharacter @params
# CSI Ps g Tab Clear (TBC).
when "g"
@tabClear @params
# CSI > Ps p Set pointer mode.
# CSI ! p Soft terminal reset (DECSTR).
# CSI Ps$ p
# Request ANSI mode (DECRQM).
# CSI ? Ps$ p
# Request DEC private mode (DECRQM).
# CSI Ps ; Ps " p
when "p"
if @prefix is '!'
@softReset @params
else
@error "Unknown CSI code: %s.", ch
@prefix = ""
when State.dcs
if ch is "\x1b" or ch is "\x07"
i++ if ch is "\x1b"
switch @prefix
# User-Defined Keys (DECUDK).
when ""
break
# Request Status String (DECRQSS).
# test: echo -e '\eP$q"p\e\\'
when "$q"
pt = @currentParam
valid = false
switch pt
# DECSCA
when "\"q"
pt = "0\"q"
# DECSCL
when "\"p"
pt = "61\"p"
# DECSTBM
when "r"
pt = "" + (@scrollTop + 1) + ";" + (@scrollBottom + 1) + "r"
# SGR
when "m"
pt = "0m"
else
@error "Unknown DCS Pt: %s.", pt
pt = ""
@send "\x1bP" + +valid + "$r" + pt + "\x1b\\"
when "+q"
pt = @currentParam
valid = false
@send "\x1bP" + +valid + "+r" + pt + "\x1b\\"
else
@error "Unknown DCS prefix: %s.", @prefix
@currentParam = 0
@prefix = ""
@state = State.normal
else unless @currentParam
if not @prefix and ch isnt "$" and ch isnt "+"
@currentParam = ch
else if @prefix.length is 2
@currentParam = ch
else
@prefix += ch
else
@currentParam += ch
when State.ignore
# For PM and APC.
if ch is "\x1b" or ch is "\x07"
i++ if ch is "\x1b"
@state = State.normal
i++
@updateRange @y
@refresh @refreshStart, @refreshEnd
writeln: (data) ->
@write "#{data}\r\n"
setgLevel: (g) ->
@glevel = g
@charset = @charsets[g]
setgCharset: (g, charset) ->
@charsets[g] = charset
@charset = charset if @glevel is g
resize: (cols, rows) ->
@cols = cols
@rows = rows
# resize cols
if old_cols < @cols
# does xterm use the default attr?
ch = [@defAttr, " "]
i = @lines.length
while i--
@lines[i].push ch while @lines[i].length < @cols
else if old_cols > @cols
i = @lines.length
while i--
@lines[i].pop() while @lines[i].length > @cols
@setupStops old_cols
# resize rows
j = old_rows
if j < @rows
while j++ < @rows
@lines.push @blankLine() if @lines.length < @rows + @ybase
else if j > @rows
while j-- > @rows
@lines.pop() if @lines.length > @rows + @ybase
# make sure the cursor stays on screen
@y = @rows - 1 if @y >= @rows
@x = @cols - 1 if @x >= @cols
@scrollTop = 0
@scrollBottom = @rows - 1
# TODO
# @refresh 0, @rows - 1
# it's a real nightmare trying
# to resize the original
# screen buffer. just set it
# to null for now.
@normal = null
updateRange: (y) ->
@refreshStart = y if y < @refreshStart
@refreshEnd = y if y > @refreshEnd
maxRange: ->
@refreshStart = 0
@refreshEnd = @rows - 1
setupStops: (i) ->
if i?
i = @prevStop(i) unless @tabs[i]
else
@tabs = {}
i = 0
while i < @cols
@tabs[i] = true
i += 8
prevStop: (x) ->
x = @x unless x?
while not @tabs[--x] and x > 0
1
if x >= @cols then @cols - 1 else (if x < 0 then 0 else x)
nextStop: (x) ->
x = @x unless x?
while not @tabs[++x] and x < @cols
1
if x >= @cols then @cols - 1 else (if x < 0 then 0 else x)
eraseRight: (x, y) ->
line = @lines[@ybase + y]
# xterm
ch = [@eraseAttr(), " "]
while x < @cols
line[x] = ch
x++
@updateRange y
eraseLeft: (x, y) ->
line = @lines[@ybase + y]
# xterm
ch = [@eraseAttr(), " "]
x++
line[x] = ch while x--
@updateRange y
eraseLine: (y) ->
@eraseRight 0, y
blankLine: (cur) ->
attr = (if cur then @eraseAttr() else @defAttr)
ch = [attr, " "]
line = []
i = 0
while i < @cols
line[i] = ch
i++
line
ch: (cur) ->
if cur then [@eraseAttr(), " "] else [@defAttr, " "]
isterm: (term) ->
"#{@termName}".indexOf(term) is 0
handler: (data) ->
@out data
handleTitle: (title) ->
# document.title = title
## ESC ##
# ESC D Index (IND is 0x84).
index: ->
@y++
if @y > @scrollBottom
@y--
@scroll()
@state = State.normal
# ESC M Reverse Index (RI is 0x8d).
reverseIndex: ->
@y--
if @y < @scrollTop
@y++
# possibly move the code below to term.reverseScroll();
# test: echo -ne '\e[1;1H\e[44m\eM\e[0m'
# blankLine(true) is xterm/linux behavior
@lines.splice @y + @ybase, 0, @blankLine(true)
j = @rows - 1 - @scrollBottom
@lines.splice @rows - 1 + @ybase - j + 1, 1
# @maxRange();
@updateRange @scrollTop
@updateRange @scrollBottom
@state = State.normal
# ESC c Full Reset (RIS).
reset: ->
@reset_vars()
@refresh 0, @rows - 1
# ESC H Tab Set (HTS is 0x88).
tabSet: ->
@tabs[@x] = true
@state = State.normal
## CSI ##
# CSI Ps A
# Cursor Up Ps Times (default = 1) (CUU).
cursorUp: (params) ->
param = params[0]
param = 1 if param < 1
@y -= param
@y = 0 if @y < 0
# CSI Ps B
# Cursor Down Ps Times (default = 1) (CUD).
cursorDown: (params) ->
param = params[0]
param = 1 if param < 1
@y += param
@y = @rows - 1 if @y >= @rows
# CSI Ps C
# Cursor Forward Ps Times (default = 1) (CUF).
cursorForward: (params) ->
param = params[0]
param = 1 if param < 1
@x += param
@x = @cols - 1 if @x >= @cols
# CSI Ps D
# Cursor Backward Ps Times (default = 1) (CUB).
cursorBackward: (params) ->
param = params[0]
param = 1 if param < 1
@x -= param
@x = 0 if @x < 0
# CSI Ps ; Ps H
# Cursor Position [row;column] (default = [1,1]) (CUP).
cursorPos: (params) ->
row = params[0] - 1
if params.length >= 2
col = params[1] - 1
else
col = 0
if row < 0
row = 0
else
row = @rows - 1 if row >= @rows
if col < 0
col = 0
else
col = @cols - 1 if col >= @cols
@x = col
@y = row
# CSI Ps J Erase in Display (ED).
# Ps = 0 -> Erase Below (default).
# Ps = 1 -> Erase Above.
# Ps = 2 -> Erase All.
# Ps = 3 -> Erase Saved Lines (xterm).
# CSI ? Ps J
# Erase in Display (DECSED).
# Ps = 0 -> Selective Erase Below (default).
# Ps = 1 -> Selective Erase Above.
# Ps = 2 -> Selective Erase All.
eraseInDisplay: (params) ->
switch params[0]
when 0
@eraseRight @x, @y
j = @y + 1
while j < @rows
@eraseLine j
j++
when 1
@eraseLeft @x, @y
j = @y
@eraseLine j while j--
when 2
j = @rows
@eraseLine j while j--
# CSI Ps K Erase in Line (EL).
# Ps = 0 -> Erase to Right (default).
# Ps = 1 -> Erase to Left.
# Ps = 2 -> Erase All.
# CSI ? Ps K
# Erase in Line (DECSEL).
# Ps = 0 -> Selective Erase to Right (default).
# Ps = 1 -> Selective Erase to Left.
# Ps = 2 -> Selective Erase All.
eraseInLine: (params) ->
switch params[0]
when 0
@eraseRight @x, @y
when 1
@eraseLeft @x, @y
when 2
@eraseLine @y
# CSI Pm m Character Attributes (SGR).
# Ps = 0 -> Normal (default).
# Ps = 1 -> Bold.
# Ps = 4 -> Underlined.
# Ps = 5 -> Blink (appears as Bold).
# Ps = 7 -> Inverse.
# Ps = 8 -> Invisible, i.e., hidden (VT300).
# Ps = 2 2 -> Normal (neither bold nor faint).
# Ps = 2 4 -> Not underlined.
# Ps = 2 5 -> Steady (not blinking).
# Ps = 2 7 -> Positive (not inverse).
# Ps = 2 8 -> Visible, i.e., not hidden (VT300).
# Ps = 3 0 -> Set foreground color to Black.
# Ps = 3 1 -> Set foreground color to Red.
# Ps = 3 2 -> Set foreground color to Green.
# Ps = 3 3 -> Set foreground color to Yellow.
# Ps = 3 4 -> Set foreground color to Blue.
# Ps = 3 5 -> Set foreground color to Magenta.
# Ps = 3 6 -> Set foreground color to Cyan.
# Ps = 3 7 -> Set foreground color to White.
# Ps = 3 9 -> Set foreground color to default (original).
# Ps = 4 0 -> Set background color to Black.
# Ps = 4 1 -> Set background color to Red.
# Ps = 4 2 -> Set background color to Green.
# Ps = 4 3 -> Set background color to Yellow.
# Ps = 4 4 -> Set background color to Blue.
# Ps = 4 5 -> Set background color to Magenta.
# Ps = 4 6 -> Set background color to Cyan.
# Ps = 4 7 -> Set background color to White.
# Ps = 4 9 -> Set background color to default (original).
# If 16-color support is compiled, the following apply. Assume
# that xterm's resources are set so that the ISO color codes are
# the first 8 of a set of 16. Then the aixterm colors are the
# bright versions of the ISO colors:
# Ps = 9 0 -> Set foreground color to Black.
# Ps = 9 1 -> Set foreground color to Red.
# Ps = 9 2 -> Set foreground color to Green.
# Ps = 9 3 -> Set foreground color to Yellow.
# Ps = 9 4 -> Set foreground color to Blue.
# Ps = 9 5 -> Set foreground color to Magenta.
# Ps = 9 6 -> Set foreground color to Cyan.
# Ps = 9 7 -> Set foreground color to White.
# Ps = 1 0 0 -> Set background color to Black.
# Ps = 1 0 1 -> Set background color to Red.
# Ps = 1 0 2 -> Set background color to Green.
# Ps = 1 0 3 -> Set background color to Yellow.
# Ps = 1 0 4 -> Set background color to Blue.
# Ps = 1 0 5 -> Set background color to Magenta.
# Ps = 1 0 6 -> Set background color to Cyan.
# Ps = 1 0 7 -> Set background color to White.
# If xterm is compiled with the 16-color support disabled, it
# supports the following, from rxvt:
# Ps = 1 0 0 -> Set foreground and background color to
# default.
# If 88- or 256-color support is compiled, the following apply.
# Ps = 3 8 ; 5 ; Ps -> Set foreground color to the second
# Ps.
# Ps = 4 8 ; 5 ; Ps -> Set background color to the second
# Ps.
charAttributes: (params) ->
# Optimize a single SGR0.
if params.length is 1 and params[0] is 0
@curAttr = @defAttr
return
flags = @curAttr >> 18
fg = (@curAttr >> 9) & 0x1ff
bg = @curAttr & 0x1ff
l = params.length
i = 0
while i < l
p = params[i]
if p >= 30 and p <= 37
# fg color 8
fg = p - 30
else if p >= 40 and p <= 47
# bg color 8
bg = p - 40
else if p >= 90 and p <= 97
# fg color 16
p += 8
fg = p - 90
else if p >= 100 and p <= 107
# bg color 16
p += 8
bg = p - 100
else if p is 0
# default
flags = @defAttr >> 18
fg = (@defAttr >> 9) & 0x1ff
bg = @defAttr & 0x1ff
# flags = 0;
# fg = 0x1ff;
# bg = 0x1ff;
else if p is 1
# bold text
flags |= 1
else if p is 4
# underlined text
flags |= 2
else if p is 5
# blink
flags |= 4
else if p is 7
# inverse and positive
# test with: echo -e '\e[31m\e[42mhello\e[7mworld\e[27mhi\e[m'
flags |= 8
else if p is 8
# invisible
flags |= 16
else if p is 22
# not bold
flags &= ~1
else if p is 24
# not underlined
flags &= ~2
else if p is 25
# not blink
flags &= ~4
else if p is 27
# not inverse
flags &= ~8
else if p is 28
# not invisible
flags &= ~16
else if p is 39
# reset fg
fg = (@defAttr >> 9) & 0x1ff
else if p is 49
# reset bg
bg = @defAttr & 0x1ff
else if p is 38
if params[i + 1] is 2
# fg color 2^24
i += 2
fg = "#" + params[i] & 0xff + params[i + 1] & 0xff + params[i + 2] & 0xff
i += 2
else if params[i + 1] is 5
# fg color 256
i += 2
fg = params[i] & 0xff
else if p is 48
if params[i + 1] is 2
# bg color 2^24
i += 2
bg = "#" + params[i] & 0xff + params[i + 1] & 0xff + params[i + 2] & 0xff
i += 2
else if params[i + 1] is 5
# bg color 256
i += 2
bg = params[i] & 0xff
else if p is 100
# reset fg/bg
fg = (@defAttr >> 9) & 0x1ff
bg = @defAttr & 0x1ff
else
@error "Unknown SGR attribute: %d.", p
i++
@curAttr = (flags << 18) | (fg << 9) | bg
# CSI Ps n Device Status Report (DSR).
# Ps = 5 -> Status Report. Result (``OK'') is
# CSI 0 n
# Ps = 6 -> Report Cursor Position (CPR) [row;column].
# Result is
# CSI r ; c R
# CSI ? Ps n
# Device Status Report (DSR, DEC-specific).
# Ps = 6 -> Report Cursor Position (CPR) [row;column] as CSI
# ? r ; c R (assumes page is zero).
# Ps = 1 5 -> Report Printer status as CSI ? 1 0 n (ready).
# or CSI ? 1 1 n (not ready).
# Ps = 2 5 -> Report UDK status as CSI ? 2 0 n (unlocked)
# or CSI ? 2 1 n (locked).
# Ps = 2 6 -> Report Keyboard status as
# CSI ? 2 7 ; 1 ; 0 ; 0 n (North American).
# The last two parameters apply to VT400 & up, and denote key-
# board ready and LK01 respectively.
# Ps = 5 3 -> Report Locator status as
# CSI ? 5 3 n Locator available, if compiled-in, or
# CSI ? 5 0 n No Locator, if not.
deviceStatus: (params) ->
unless @prefix
switch params[0]
when 5
# status report
@send "\x1b[0n"
when 6
# cursor position
@send "\x1b[" + (@y + 1) + ";" + (@x + 1) + "R"
else if @prefix is "?"
# modern xterm doesnt seem to
# respond to any of these except ?6, 6, and 5
if params[0] is 6
# cursor position
@send "\x1b[?" + (@y + 1) + ";" + (@x + 1) + "R"
## Additions ##
# CSI Ps @
# Insert Ps (Blank) Character(s) (default = 1) (ICH).
insertChars: (params) ->
param = params[0]
param = 1 if param < 1
row = @y + @ybase
j = @x
# xterm
ch = [@eraseAttr(), " "]
while param-- and j < @cols
@lines[row].splice j++, 0, ch
@lines[row].pop()
# CSI Ps E
# Cursor Next Line Ps Times (default = 1) (CNL).
# same as CSI Ps B ?
cursorNextLine: (params) ->
param = params[0]
param = 1 if param < 1
@y += param
@y = @rows - 1 if @y >= @rows
@x = 0
# CSI Ps F
# Cursor Preceding Line Ps Times (default = 1) (CNL).
# reuse CSI Ps A ?
cursorPrecedingLine: (params) ->
param = params[0]
param = 1 if param < 1
@y -= param
@y = 0 if @y < 0
@x = 0
# CSI Ps G
# Cursor Character Absolute [column] (default = [row,1]) (CHA).
cursorCharAbsolute: (params) ->
param = params[0]
param = 1 if param < 1
@x = param - 1
# CSI Ps L
# Insert Ps Line(s) (default = 1) (IL).
insertLines: (params) ->
param = params[0]
param = 1 if param < 1
row = @y + @ybase
j = @rows - 1 - @scrollBottom
j = @rows - 1 + @ybase - j + 1
while param--
# test: echo -e '\e[44m\e[1L\e[0m'
# blankLine(true) - xterm/linux behavior
@lines.splice row, 0, @blankLine(true)
@lines.splice j, 1
@updateRange @y
@updateRange @scrollBottom
# CSI Ps M
# Delete Ps Line(s) (default = 1) (DL).
deleteLines: (params) ->
param = params[0]
param = 1 if param < 1
row = @y + @ybase
j = @rows - 1 - @scrollBottom
j = @rows - 1 + @ybase - j
while param--
# test: echo -e '\e[44m\e[1M\e[0m'
# blankLine(true) - xterm/linux behavior
@lines.splice j + 1, 0, @blankLine(true)
@lines.splice row, 1
@updateRange @y
@updateRange @scrollBottom
# CSI Ps P
# Delete Ps Character(s) (default = 1) (DCH).
deleteChars: (params) ->
param = params[0]
param = 1 if param < 1
row = @y + @ybase
# xterm
ch = [@eraseAttr(), " "]
while param--
@lines[row].splice @x, 1
@lines[row].push ch
# CSI Ps X
# Erase Ps Character(s) (default = 1) (ECH).
eraseChars: (params) ->
param = params[0]
param = 1 if param < 1
row = @y + @ybase
j = @x
# xterm
ch = [@eraseAttr(), " "]
@lines[row][j++] = ch while param-- and j < @cols
# CSI Pm ` Character Position Absolute
# [column] (default = [row,1]) (HPA).
charPosAbsolute: (params) ->
param = params[0]
param = 1 if param < 1
@x = param - 1
@x = @cols - 1 if @x >= @cols
# 141 61 a * HPR -
# Horizontal Position Relative
# reuse CSI Ps C ?
HPositionRelative: (params) ->
param = params[0]
param = 1 if param < 1
@x += param
@x = @cols - 1 if @x >= @cols
# CSI Ps c Send Device Attributes (Primary DA).
# Ps = 0 or omitted -> request attributes from terminal. The
# response depends on the decTerminalID resource setting.
# -> CSI ? 1 ; 2 c (``VT100 with Advanced Video Option'')
# -> CSI ? 1 ; 0 c (``VT101 with No Options'')
# -> CSI ? 6 c (``VT102'')
# -> CSI ? 6 0 ; 1 ; 2 ; 6 ; 8 ; 9 ; 1 5 ; c (``VT220'')
# The VT100-style response parameters do not mean anything by
# themselves. VT220 parameters do, telling the host what fea-
# tures the terminal supports:
# Ps = 1 -> 132-columns.
# Ps = 2 -> Printer.
# Ps = 6 -> Selective erase.
# Ps = 8 -> User-defined keys.
# Ps = 9 -> National replacement character sets.
# Ps = 1 5 -> Technical characters.
# Ps = 2 2 -> ANSI color, e.g., VT525.
# Ps = 2 9 -> ANSI text locator (i.e., DEC Locator mode).
# CSI > Ps c
# Send Device Attributes (Secondary DA).
# Ps = 0 or omitted -> request the terminal's identification
# code. The response depends on the decTerminalID resource set-
# ting. It should apply only to VT220 and up, but xterm extends
# this to VT100.
# -> CSI > Pp ; Pv ; Pc c
# where Pp denotes the terminal type
# Pp = 0 -> ``VT100''.
# Pp = 1 -> ``VT220''.
# and Pv is the firmware version (for xterm, this was originally
# the XFree86 patch number, starting with 95). In a DEC termi-
# nal, Pc indicates the ROM cartridge registration number and is
# always zero.
# More information:
# xterm/charproc.c - line 2012, for more information.
# vim responds with ^[[?0c or ^[[?1c after the terminal's response (?)
sendDeviceAttributes: (params) ->
return if params[0] > 0
unless @prefix
if @isterm("xterm") or @isterm("rxvt-unicode") or @isterm("screen")
@send "\x1b[?1;2c"
else @send "\x1b[?6c" if @isterm("linux")
else if @prefix is ">"
# xterm and urxvt
# seem to spit this
# out around ~370 times (?).
if @isterm("xterm")
@send "\x1b[>0;276;0c"
else if @isterm("rxvt-unicode")
@send "\x1b[>85;95;0c"
else if @isterm("linux")
# not supported by linux console.
# linux console echoes parameters.
@send params[0] + "c"
else @send "\x1b[>83;40003;0c" if @isterm("screen")
# CSI Pm d
# Line Position Absolute [row] (default = [1,column]) (VPA).
linePosAbsolute: (params) ->
param = params[0]
param = 1 if param < 1
@y = param - 1
@y = @rows - 1 if @y >= @rows
# 145 65 e * VPR - Vertical Position Relative
# reuse CSI Ps B ?
VPositionRelative: (params) ->
param = params[0]
param = 1 if param < 1
@y += param
@y = @rows - 1 if @y >= @rows
# CSI Ps ; Ps f
# Horizontal and Vertical Position [row;column] (default =
# [1,1]) (HVP).
HVPosition: (params) ->
params[0] = 1 if params[0] < 1
params[1] = 1 if params[1] < 1
@y = params[0] - 1
@y = @rows - 1 if @y >= @rows
@x = params[1] - 1
@x = @cols - 1 if @x >= @cols
# CSI Pm h Set Mode (SM).
# Ps = 2 -> Keyboard Action Mode (AM).
# Ps = 4 -> Insert Mode (IRM).
# Ps = 1 2 -> Send/receive (SRM).
# Ps = 2 0 -> Automatic Newline (LNM).
# CSI ? Pm h
# DEC Private Mode Set (DECSET).
# Ps = 1 -> Application Cursor Keys (DECCKM).
# Ps = 2 -> Designate USASCII for character sets G0-G3
# (DECANM), and set VT100 mode.
# Ps = 3 -> 132 Column Mode (DECCOLM).
# Ps = 4 -> Smooth (Slow) Scroll (DECSCLM).
# Ps = 5 -> Reverse Video (DECSCNM).
# Ps = 6 -> Origin Mode (DECOM).
# Ps = 7 -> Wraparound Mode (DECAWM).
# Ps = 8 -> Auto-repeat Keys (DECARM).
# Ps = 9 -> Send Mouse X & Y on button press. See the sec-
# tion Mouse Tracking.
# Ps = 1 0 -> Show toolbar (rxvt).
# Ps = 1 2 -> Start Blinking Cursor (att610).
# Ps = 1 8 -> Print form feed (DECPFF).
# Ps = 1 9 -> Set print extent to full screen (DECPEX).
# Ps = 2 5 -> Show Cursor (DECTCEM).
# Ps = 3 0 -> Show scrollbar (rxvt).
# Ps = 3 5 -> Enable font-shifting functions (rxvt).
# Ps = 3 8 -> Enter Tektronix Mode (DECTEK).
# Ps = 4 0 -> Allow 80 -> 132 Mode.
# Ps = 4 1 -> more(1) fix (see curses resource).
# Ps = 4 2 -> Enable Nation Replacement Character sets (DECN-
# RCM).
# Ps = 4 4 -> Turn On Margin Bell.
# Ps = 4 5 -> Reverse-wraparound Mode.
# Ps = 4 6 -> Start Logging. This is normally disabled by a
# compile-time option.
# Ps = 4 7 -> Use Alternate Screen Buffer. (This may be dis-
# abled by the titeInhibit resource).
# Ps = 6 6 -> Application keypad (DECNKM).
# Ps = 6 7 -> Backarrow key sends backspace (DECBKM).
# Ps = 1 0 0 0 -> Send Mouse X & Y on button press and
# release. See the section Mouse Tracking.
# Ps = 1 0 0 1 -> Use Hilite Mouse Tracking.
# Ps = 1 0 0 2 -> Use Cell Motion Mouse Tracking.
# Ps = 1 0 0 3 -> Use All Motion Mouse Tracking.
# Ps = 1 0 0 4 -> Send FocusIn/FocusOut events.
# Ps = 1 0 0 5 -> Enable Extended Mouse Mode.
# Ps = 1 0 1 0 -> Scroll to bottom on tty output (rxvt).
# Ps = 1 0 1 1 -> Scroll to bottom on key press (rxvt).
# Ps = 1 0 3 4 -> Interpret "meta" key, sets eighth bit.
# (enables the eightBitInput resource).
# Ps = 1 0 3 5 -> Enable special modifiers for Alt and Num-
# Lock keys. (This enables the numLock resource).
# Ps = 1 0 3 6 -> Send ESC when Meta modifies a key. (This
# enables the metaSendsEscape resource).
# Ps = 1 0 3 7 -> Send DEL from the editing-keypad Delete
# key.
# Ps = 1 0 3 9 -> Send ESC when Alt modifies a key. (This
# enables the altSendsEscape resource).
# Ps = 1 0 4 0 -> Keep selection even if not highlighted.
# (This enables the keepSelection resource).
# Ps = 1 0 4 1 -> Use the CLIPBOARD selection. (This enables
# the selectToClipboard resource).
# Ps = 1 0 4 2 -> Enable Urgency window manager hint when
# Control-G is received. (This enables the bellIsUrgent
# resource).
# Ps = 1 0 4 3 -> Enable raising of the window when Control-G
# is received. (enables the popOnBell resource).
# Ps = 1 0 4 7 -> Use Alternate Screen Buffer. (This may be
# disabled by the titeInhibit resource).
# Ps = 1 0 4 8 -> Save cursor as in DECSC. (This may be dis-
# abled by the titeInhibit resource).
# Ps = 1 0 4 9 -> Save cursor as in DECSC and use Alternate
# Screen Buffer, clearing it first. (This may be disabled by
# the titeInhibit resource). This combines the effects of the 1
# 0 4 7 and 1 0 4 8 modes. Use this with terminfo-based
# applications rather than the 4 7 mode.
# Ps = 1 0 5 0 -> Set terminfo/termcap function-key mode.
# Ps = 1 0 5 1 -> Set Sun function-key mode.
# Ps = 1 0 5 2 -> Set HP function-key mode.
# Ps = 1 0 5 3 -> Set SCO function-key mode.
# Ps = 1 0 6 0 -> Set legacy keyboard emulation (X11R6).
# Ps = 1 0 6 1 -> Set VT220 keyboard emulation.
# Ps = 2 0 0 4 -> Set bracketed paste mode.
# Modes:
# http://vt100.net/docs/vt220-rm/chapter4.html
setMode: (params) ->
if typeof params is "object"
l = params.length
i = 0
while i < l
@setMode params[i]
i++
return
if @prefix is "?"
switch params
when 1
@applicationCursor = true
when 2
@setgCharset 0, BackTerminal::charsets.US
@setgCharset 1, BackTerminal::charsets.US
@setgCharset 2, BackTerminal::charsets.US
@setgCharset 3, BackTerminal::charsets.US
# set VT100 mode here
when 3 # 132 col mode
@savedCols = @cols
@resize 132, @rows
when 6
@originMode = true
when 7
@wraparoundMode = true
when 66
@applicationKeypad = true
# X10 Mouse
# no release, no motion, no wheel, no modifiers.
when 9, 1000, 1002, 1003 # any event mouse
# any event - sends motion events,
# even if there is no button held down.
@x10Mouse = params is 9
@vt200Mouse = params is 1000
@normalMouse = params > 1000
@mouseEvents = true
@element.style.cursor = "default"
when 1004 # send focusin/focusout events
# focusin: ^[[I
# focusout: ^[[O
@sendFocus = true
when 1005 # utf8 ext mode mouse
@utfMouse = true
# for wide terminals
# simply encodes large values as utf8 characters
when 1006 # sgr ext mode mouse
@sgrMouse = true
# for wide terminals
# does not add 32 to fields
# press: ^[[<b;x;yM
# release: ^[[<b;x;ym
when 1015 # urxvt ext mode mouse
@urxvtMouse = true
# for wide terminals
# numbers for fields
# press: ^[[b;x;yM
# motion: ^[[b;x;yT
when 25 # show cursor
@cursorHidden = false
# alt screen buffer cursor
#@saveCursor();
when 1049, 47, 1047 # alt screen buffer
unless @normal
normal =
lines: @lines
ybase: @ybase
ydisp: @ydisp
x: @x
y: @y
scrollTop: @scrollTop
scrollBottom: @scrollBottom
tabs: @tabs
@reset()
@normal = normal
@showCursor()
# CSI Pm l Reset Mode (RM).
# Ps = 2 -> Keyboard Action Mode (AM).
# Ps = 4 -> Replace Mode (IRM).
# Ps = 1 2 -> Send/receive (SRM).
# Ps = 2 0 -> Normal Linefeed (LNM).
# CSI ? Pm l
# DEC Private Mode Reset (DECRST).
# Ps = 1 -> Normal Cursor Keys (DECCKM).
# Ps = 2 -> Designate VT52 mode (DECANM).
# Ps = 3 -> 80 Column Mode (DECCOLM).
# Ps = 4 -> Jump (Fast) Scroll (DECSCLM).
# Ps = 5 -> Normal Video (DECSCNM).
# Ps = 6 -> Normal Cursor Mode (DECOM).
# Ps = 7 -> No Wraparound Mode (DECAWM).
# Ps = 8 -> No Auto-repeat Keys (DECARM).
# Ps = 9 -> Don't send Mouse X & Y on button press.
# Ps = 1 0 -> Hide toolbar (rxvt).
# Ps = 1 2 -> Stop Blinking Cursor (att610).
# Ps = 1 8 -> Don't print form feed (DECPFF).
# Ps = 1 9 -> Limit print to scrolling region (DECPEX).
# Ps = 2 5 -> Hide Cursor (DECTCEM).
# Ps = 3 0 -> Don't show scrollbar (rxvt).
# Ps = 3 5 -> Disable font-shifting functions (rxvt).
# Ps = 4 0 -> Disallow 80 -> 132 Mode.
# Ps = 4 1 -> No more(1) fix (see curses resource).
# Ps = 4 2 -> Disable Nation Replacement Character sets (DEC-
# NRCM).
# Ps = 4 4 -> Turn Off Margin Bell.
# Ps = 4 5 -> No Reverse-wraparound Mode.
# Ps = 4 6 -> Stop Logging. (This is normally disabled by a
# compile-time option).
# Ps = 4 7 -> Use Normal Screen Buffer.
# Ps = 6 6 -> Numeric keypad (DECNKM).
# Ps = 6 7 -> Backarrow key sends delete (DECBKM).
# Ps = 1 0 0 0 -> Don't send Mouse X & Y on button press and
# release. See the section Mouse Tracking.
# Ps = 1 0 0 1 -> Don't use Hilite Mouse Tracking.
# Ps = 1 0 0 2 -> Don't use Cell Motion Mouse Tracking.
# Ps = 1 0 0 3 -> Don't use All Motion Mouse Tracking.
# Ps = 1 0 0 4 -> Don't send FocusIn/FocusOut events.
# Ps = 1 0 0 5 -> Disable Extended Mouse Mode.
# Ps = 1 0 1 0 -> Don't scroll to bottom on tty output
# (rxvt).
# Ps = 1 0 1 1 -> Don't scroll to bottom on key press (rxvt).
# Ps = 1 0 3 4 -> Don't interpret "meta" key. (This disables
# the eightBitInput resource).
# Ps = 1 0 3 5 -> Disable special modifiers for Alt and Num-
# Lock keys. (This disables the numLock resource).
# Ps = 1 0 3 6 -> Don't send ESC when Meta modifies a key.
# (This disables the metaSendsEscape resource).
# Ps = 1 0 3 7 -> Send VT220 Remove from the editing-keypad
# Delete key.
# Ps = 1 0 3 9 -> Don't send ESC when Alt modifies a key.
# (This disables the altSendsEscape resource).
# Ps = 1 0 4 0 -> Do not keep selection when not highlighted.
# (This disables the keepSelection resource).
# Ps = 1 0 4 1 -> Use the PRIMARY selection. (This disables
# the selectToClipboard resource).
# Ps = 1 0 4 2 -> Disable Urgency window manager hint when
# Control-G is received. (This disables the bellIsUrgent
# resource).
# Ps = 1 0 4 3 -> Disable raising of the window when Control-
# G is received. (This disables the popOnBell resource).
# Ps = 1 0 4 7 -> Use Normal Screen Buffer, clearing screen
# first if in the Alternate Screen. (This may be disabled by
# the titeInhibit resource).
# Ps = 1 0 4 8 -> Restore cursor as in DECRC. (This may be
# disabled by the titeInhibit resource).
# Ps = 1 0 4 9 -> Use Normal Screen Buffer and restore cursor
# as in DECRC. (This may be disabled by the titeInhibit
# resource). This combines the effects of the 1 0 4 7 and 1 0
# 4 8 modes. Use this with terminfo-based applications rather
# than the 4 7 mode.
# Ps = 1 0 5 0 -> Reset terminfo/termcap function-key mode.
# Ps = 1 0 5 1 -> Reset Sun function-key mode.
# Ps = 1 0 5 2 -> Reset HP function-key mode.
# Ps = 1 0 5 3 -> Reset SCO function-key mode.
# Ps = 1 0 6 0 -> Reset legacy keyboard emulation (X11R6).
# Ps = 1 0 6 1 -> Reset keyboard emulation to Sun/PC style.
# Ps = 2 0 0 4 -> Reset bracketed paste mode.
resetMode: (params) ->
if typeof params is "object"
l = params.length
i = 0
while i < l
@resetMode params[i]
i++
return
if @prefix is "?"
switch params
when 1
@applicationCursor = false
when 3
@resize @savedCols, @rows if @cols is 132 and @savedCols
delete @savedCols
when 6
@originMode = false
when 7
@wraparoundMode = false
when 66
@applicationKeypad = false
when 9, 1000, 1002 , 1003 # any event mouse
@x10Mouse = false
@vt200Mouse = false
@normalMouse = false
@mouseEvents = false
@element.style.cursor = ""
when 1004 # send focusin/focusout events
@sendFocus = false
when 1005 # utf8 ext mode mouse
@utfMouse = false
when 1006 # sgr ext mode mouse
@sgrMouse = false
when 1015 # urxvt ext mode mouse
@urxvtMouse = false
when 25 # hide cursor
@cursorHidden = true
when 1049, 47, 1047 # normal screen buffer - clearing it first
if @normal
@lines = @normal.lines
@ybase = @normal.ybase
@ydisp = @normal.ydisp
@x = @normal.x
@y = @normal.y
@scrollTop = @normal.scrollTop
@scrollBottom = @normal.scrollBottom
@tabs = @normal.tabs
@normal = null
@refresh 0, @rows - 1
@showCursor()
# CSI Ps ; Ps r
# Set Scrolling Region [top;bottom] (default = full size of win-
# dow) (DECSTBM).
# CSI ? Pm r
setScrollRegion: (params) ->
return if @prefix
@scrollTop = (params[0] or 1) - 1
@scrollBottom = (params[1] or @rows) - 1
@x = 0
@y = 0
# CSI s
# Save cursor (ANSI.SYS).
saveCursor: (params) ->
@savedX = @x
@savedY = @y
# CSI u
# Restore cursor (ANSI.SYS).
restoreCursor: (params) ->
@x = @savedX or 0
@y = @savedY or 0
## Lesser Used ##
# CSI Ps I
# Cursor Forward Tabulation Ps tab stops (default = 1) (CHT).
cursorForwardTab: (params) ->
param = params[0] or 1
@x = @nextStop() while param--
# CSI Ps S Scroll up Ps lines (default = 1) (SU).
scrollUp: (params) ->
param = params[0] or 1
while param--
@lines.splice @ybase + @scrollTop, 1
@lines.splice @ybase + @scrollBottom, 0, @blankLine()
@updateRange @scrollTop
@updateRange @scrollBottom
# CSI Ps T Scroll down Ps lines (default = 1) (SD).
scrollDown: (params) ->
param = params[0] or 1
while param--
@lines.splice @ybase + @scrollBottom, 1
@lines.splice @ybase + @scrollTop, 0, @blankLine()
@updateRange @scrollTop
@updateRange @scrollBottom
# CSI Ps ; Ps ; Ps ; Ps ; Ps T
# Initiate highlight mouse tracking. Parameters are
# [func;startx;starty;firstrow;lastrow]. See the section Mouse
# Tracking.
initMouseTracking: (params) ->
# Relevant: DECSET 1001
# CSI > Ps; Ps T
# Reset one or more features of the title modes to the default
# value. Normally, "reset" disables the feature. It is possi-
# ble to disable the ability to reset features by compiling a
# different default for the title modes into xterm.
# Ps = 0 -> Do not set window/icon labels using hexadecimal.
# Ps = 1 -> Do not query window/icon labels using hexadeci-
# mal.
# Ps = 2 -> Do not set window/icon labels using UTF-8.
# Ps = 3 -> Do not query window/icon labels using UTF-8.
# (See discussion of "Title Modes").
resetTitleModes: (params) ->
# CSI Ps Z Cursor Backward Tabulation Ps tab stops (default = 1) (CBT).
cursorBackwardTab: (params) ->
param = params[0] or 1
@x = @prevStop() while param--
# CSI Ps b Repeat the preceding graphic character Ps times (REP).
repeatPrecedingCharacter: (params) ->
param = params[0] or 1
line = @lines[@ybase + @y]
ch = line[@x - 1] or [@defAttr, " "]
line[@x++] = ch while param--
# CSI Ps g Tab Clear (TBC).
# Ps = 0 -> Clear Current Column (default).
# Ps = 3 -> Clear All.
# Potentially:
# Ps = 2 -> Clear Stops on Line.
# http://vt100.net/annarbor/aaa-ug/section6.html
tabClear: (params) ->
param = params[0]
if param <= 0
delete @tabs[@x]
else
@tabs = {} if param is 3
# CSI Pm i Media Copy (MC).
# Ps = 0 -> Print screen (default).
# Ps = 4 -> Turn off printer controller mode.
# Ps = 5 -> Turn on printer controller mode.
# CSI ? Pm i
# Media Copy (MC, DEC-specific).
# Ps = 1 -> Print line containing cursor.
# Ps = 4 -> Turn off autoprint mode.
# Ps = 5 -> Turn on autoprint mode.
# Ps = 1 0 -> Print composed display, ignores DECPEX.
# Ps = 1 1 -> Print all pages.
mediaCopy: (params) ->
# CSI > Ps; Ps m
# Set or reset resource-values used by xterm to decide whether
# to construct escape sequences holding information about the
# modifiers pressed with a given key. The first parameter iden-
# tifies the resource to set/reset. The second parameter is the
# value to assign to the resource. If the second parameter is
# omitted, the resource is reset to its initial value.
# Ps = 1 -> modifyCursorKeys.
# Ps = 2 -> modifyFunctionKeys.
# Ps = 4 -> modifyOtherKeys.
# If no parameters are given, all resources are reset to their
# initial values.
setResources: (params) ->
# CSI > Ps n
# Disable modifiers which may be enabled via the CSI > Ps; Ps m
# sequence. This corresponds to a resource value of "-1", which
# cannot be set with the other sequence. The parameter identi-
# fies the resource to be disabled:
# Ps = 1 -> modifyCursorKeys.
# Ps = 2 -> modifyFunctionKeys.
# Ps = 4 -> modifyOtherKeys.
# If the parameter is omitted, modifyFunctionKeys is disabled.
# When modifyFunctionKeys is disabled, xterm uses the modifier
# keys to make an extended sequence of functions rather than
# adding a parameter to each function key to denote the modi-
# fiers.
disableModifiers: (params) ->
# CSI > Ps p
# Set resource value pointerMode. This is used by xterm to
# decide whether to hide the pointer cursor as the user types.
# Valid values for the parameter:
# Ps = 0 -> never hide the pointer.
# Ps = 1 -> hide if the mouse tracking mode is not enabled.
# Ps = 2 -> always hide the pointer. If no parameter is
# given, xterm uses the default, which is 1 .
setPointerMode: (params) ->
# CSI ! p Soft terminal reset (DECSTR).
# http://vt100.net/docs/vt220-rm/table4-10.html
softReset: (params) ->
@cursorHidden = false
@insertMode = false
@originMode = false
@wraparoundMode = false # autowrap
@applicationKeypad = false # ?
@applicationCursor = false
@scrollTop = 0
@scrollBottom = @rows - 1
@curAttr = @defAttr
@x = @y = 0 # ?
@charset = null
@glevel = 0 # ??
@charsets = [null] # ??
# CSI Ps$ p
# Request ANSI mode (DECRQM). For VT300 and up, reply is
# CSI Ps; Pm$ y
# where Ps is the mode number as in RM, and Pm is the mode
# value:
# 0 - not recognized
# 1 - set
# 2 - reset
# 3 - permanently set
# 4 - permanently reset
requestAnsiMode: (params) ->
# CSI ? Ps$ p
# Request DEC private mode (DECRQM). For VT300 and up, reply is
# CSI ? Ps; Pm$ p
# where Ps is the mode number as in DECSET, Pm is the mode value
# as in the ANSI DECRQM.
requestPrivateMode: (params) ->
# CSI Ps ; Ps " p
# Set conformance level (DECSCL). Valid values for the first
# parameter:
# Ps = 6 1 -> VT100.
# Ps = 6 2 -> VT200.
# Ps = 6 3 -> VT300.
# Valid values for the second parameter:
# Ps = 0 -> 8-bit controls.
# Ps = 1 -> 7-bit controls (always set for VT100).
# Ps = 2 -> 8-bit controls.
setConformanceLevel: (params) ->
# CSI Ps q Load LEDs (DECLL).
# Ps = 0 -> Clear all LEDS (default).
# Ps = 1 -> Light Num Lock.
# Ps = 2 -> Light Caps Lock.
# Ps = 3 -> Light Scroll Lock.
# Ps = 2 1 -> Extinguish Num Lock.
# Ps = 2 2 -> Extinguish Caps Lock.
# Ps = 2 3 -> Extinguish Scroll Lock.
loadLEDs: (params) ->
# CSI Ps SP q
# Set cursor style (DECSCUSR, VT520).
# Ps = 0 -> blinking block.
# Ps = 1 -> blinking block (default).
# Ps = 2 -> steady block.
# Ps = 3 -> blinking underline.
# Ps = 4 -> steady underline.
setCursorStyle: (params) ->
# CSI Ps " q
# Select character protection attribute (DECSCA). Valid values
# for the parameter:
# Ps = 0 -> DECSED and DECSEL can erase (default).
# Ps = 1 -> DECSED and DECSEL cannot erase.
# Ps = 2 -> DECSED and DECSEL can erase.
setCharProtectionAttr: (params) ->
# CSI ? Pm r
# Restore DEC Private Mode Values. The value of Ps previously
# saved is restored. Ps values are the same as for DECSET.
restorePrivateValues: (params) ->
# CSI Pt; Pl; Pb; Pr; Ps$ r
# Change Attributes in Rectangular Area (DECCARA), VT400 and up.
# Pt; Pl; Pb; Pr denotes the rectangle.
# Ps denotes the SGR attributes to change: 0, 1, 4, 5, 7.
# NOTE: xterm doesn't enable this code by default.
setAttrInRectangle: (params) ->
t = params[0]
l = params[1]
b = params[2]
r = params[3]
attr = params[4]
while t < b + 1
line = @lines[@ybase + t]
i = l
while i < r
line[i] = [attr, line[i][1]]
i++
t++
@updateRange params[0]
@updateRange params[2]
# CSI ? Pm s
# Save DEC Private Mode Values. Ps values are the same as for
# DECSET.
savePrivateValues: (params) ->
# CSI Ps ; Ps ; Ps t
# Window manipulation (from dtterm, as well as extensions).
# These controls may be disabled using the allowWindowOps
# resource. Valid values for the first (and any additional
# parameters) are:
# Ps = 1 -> De-iconify window.
# Ps = 2 -> Iconify window.
# Ps = 3 ; x ; y -> Move window to [x, y].
# Ps = 4 ; height ; width -> Resize the xterm window to
# height and width in pixels.
# Ps = 5 -> Raise the xterm window to the front of the stack-
# ing order.
# Ps = 6 -> Lower the xterm window to the bottom of the
# stacking order.
# Ps = 7 -> Refresh the xterm window.
# Ps = 8 ; height ; width -> Resize the text area to
# [height;width] in characters.
# Ps = 9 ; 0 -> Restore maximized window.
# Ps = 9 ; 1 -> Maximize window (i.e., resize to screen
# size).
# Ps = 1 0 ; 0 -> Undo full-screen mode.
# Ps = 1 0 ; 1 -> Change to full-screen.
# Ps = 1 1 -> Report xterm window state. If the xterm window
# is open (non-iconified), it returns CSI 1 t . If the xterm
# window is iconified, it returns CSI 2 t .
# Ps = 1 3 -> Report xterm window position. Result is CSI 3
# ; x ; y t
# Ps = 1 4 -> Report xterm window in pixels. Result is CSI
# 4 ; height ; width t
# Ps = 1 8 -> Report the size of the text area in characters.
# Result is CSI 8 ; height ; width t
# Ps = 1 9 -> Report the size of the screen in characters.
# Result is CSI 9 ; height ; width t
# Ps = 2 0 -> Report xterm window's icon label. Result is
# OSC L label ST
# Ps = 2 1 -> Report xterm window's title. Result is OSC l
# label ST
# Ps = 2 2 ; 0 -> Save xterm icon and window title on
# stack.
# Ps = 2 2 ; 1 -> Save xterm icon title on stack.
# Ps = 2 2 ; 2 -> Save xterm window title on stack.
# Ps = 2 3 ; 0 -> Restore xterm icon and window title from
# stack.
# Ps = 2 3 ; 1 -> Restore xterm icon title from stack.
# Ps = 2 3 ; 2 -> Restore xterm window title from stack.
# Ps >= 2 4 -> Resize to Ps lines (DECSLPP).
manipulateWindow: (params) ->
# CSI Pt; Pl; Pb; Pr; Ps$ t
# Reverse Attributes in Rectangular Area (DECRARA), VT400 and
# up.
# Pt; Pl; Pb; Pr denotes the rectangle.
# Ps denotes the attributes to reverse, i.e., 1, 4, 5, 7.
# NOTE: xterm doesn't enable this code by default.
reverseAttrInRectangle: (params) ->
# CSI > Ps; Ps t
# Set one or more features of the title modes. Each parameter
# enables a single feature.
# Ps = 0 -> Set window/icon labels using hexadecimal.
# Ps = 1 -> Query window/icon labels using hexadecimal.
# Ps = 2 -> Set window/icon labels using UTF-8.
# Ps = 3 -> Query window/icon labels using UTF-8. (See dis-
# cussion of "Title Modes")
setTitleModeFeature: (params) ->
# CSI Ps SP t
# Set warning-bell volume (DECSWBV, VT520).
# Ps = 0 or 1 -> off.
# Ps = 2 , 3 or 4 -> low.
# Ps = 5 , 6 , 7 , or 8 -> high.
setWarningBellVolume: (params) ->
# CSI Ps SP u
# Set margin-bell volume (DECSMBV, VT520).
# Ps = 1 -> off.
# Ps = 2 , 3 or 4 -> low.
# Ps = 0 , 5 , 6 , 7 , or 8 -> high.
setMarginBellVolume: (params) ->
# CSI Pt; Pl; Pb; Pr; Pp; Pt; Pl; Pp$ v
# Copy Rectangular Area (DECCRA, VT400 and up).
# Pt; Pl; Pb; Pr denotes the rectangle.
# Pp denotes the source page.
# Pt; Pl denotes the target location.
# Pp denotes the target page.
# NOTE: xterm doesn't enable this code by default.
copyRectangle: (params) ->
# CSI Pt ; Pl ; Pb ; Pr ' w
# Enable Filter Rectangle (DECEFR), VT420 and up.
# Parameters are [top;left;bottom;right].
# Defines the coordinates of a filter rectangle and activates
# it. Anytime the locator is detected outside of the filter
# rectangle, an outside rectangle event is generated and the
# rectangle is disabled. Filter rectangles are always treated
# as "one-shot" events. Any parameters that are omitted default
# to the current locator position. If all parameters are omit-
# ted, any locator motion will be reported. DECELR always can-
# cels any prevous rectangle definition.
enableFilterRectangle: (params) ->
# CSI Ps x Request Terminal Parameters (DECREQTPARM).
# if Ps is a "0" (default) or "1", and xterm is emulating VT100,
# the control sequence elicits a response of the same form whose
# parameters describe the terminal:
# Ps -> the given Ps incremented by 2.
# Pn = 1 <- no parity.
# Pn = 1 <- eight bits.
# Pn = 1 <- 2 8 transmit 38.4k baud.
# Pn = 1 <- 2 8 receive 38.4k baud.
# Pn = 1 <- clock multiplier.
# Pn = 0 <- STP flags.
requestParameters: (params) ->
# CSI Ps x Select Attribute Change Extent (DECSACE).
# Ps = 0 -> from start to end position, wrapped.
# Ps = 1 -> from start to end position, wrapped.
# Ps = 2 -> rectangle (exact).
selectChangeExtent: (params) ->
# CSI Pc; Pt; Pl; Pb; Pr$ x
# Fill Rectangular Area (DECFRA), VT420 and up.
# Pc is the character to use.
# Pt; Pl; Pb; Pr denotes the rectangle.
# NOTE: xterm doesn't enable this code by default.
fillRectangle: (params) ->
ch = params[0]
t = params[1]
l = params[2]
b = params[3]
r = params[4]
while t < b + 1
line = @lines[@ybase + t]
i = l
while i < r
line[i] = [line[i][0], String.fromCharCode(ch)]
i++
t++
@updateRange params[1]
@updateRange params[3]
# CSI Ps ; Pu ' z
# Enable Locator Reporting (DECELR).
# Valid values for the first parameter:
# Ps = 0 -> Locator disabled (default).
# Ps = 1 -> Locator enabled.
# Ps = 2 -> Locator enabled for one report, then disabled.
# The second parameter specifies the coordinate unit for locator
# reports.
# Valid values for the second parameter:
# Pu = 0 <- or omitted -> default to character cells.
# Pu = 1 <- device physical pixels.
# Pu = 2 <- character cells.
enableLocatorReporting: (params) ->
val = params[0] > 0
# CSI Pt; Pl; Pb; Pr$ z
# Erase Rectangular Area (DECERA), VT400 and up.
# Pt; Pl; Pb; Pr denotes the rectangle.
# NOTE: xterm doesn't enable this code by default.
eraseRectangle: (params) ->
t = params[0]
l = params[1]
b = params[2]
r = params[3]
ch = [@eraseAttr(), " "]
while t < b + 1
line = @lines[@ybase + t]
i = l
while i < r
line[i] = ch
i++
t++
@updateRange params[0]
@updateRange params[2]
# CSI Pm ' {
# Select Locator Events (DECSLE).
# Valid values for the first (and any additional parameters)
# are:
# Ps = 0 -> only respond to explicit host requests (DECRQLP).
# (This is default). It also cancels any filter
# rectangle.
# Ps = 1 -> report button down transitions.
# Ps = 2 -> do not report button down transitions.
# Ps = 3 -> report button up transitions.
# Ps = 4 -> do not report button up transitions.
setLocatorEvents: (params) ->
# CSI Pt; Pl; Pb; Pr$ {
# Selective Erase Rectangular Area (DECSERA), VT400 and up.
# Pt; Pl; Pb; Pr denotes the rectangle.
selectiveEraseRectangle: (params) ->
# CSI Ps ' |
# Request Locator Position (DECRQLP).
# Valid values for the parameter are:
# Ps = 0 , 1 or omitted -> transmit a single DECLRP locator
# report.
# If Locator Reporting has been enabled by a DECELR, xterm will
# respond with a DECLRP Locator Report. This report is also
# generated on button up and down events if they have been
# enabled with a DECSLE, or when the locator is detected outside
# of a filter rectangle, if filter rectangles have been enabled
# with a DECEFR.
# -> CSI Pe ; Pb ; Pr ; Pc ; Pp & w
# Parameters are [event;button;row;column;page].
# Valid values for the event:
# Pe = 0 -> locator unavailable - no other parameters sent.
# Pe = 1 -> request - xterm received a DECRQLP.
# Pe = 2 -> left button down.
# Pe = 3 -> left button up.
# Pe = 4 -> middle button down.
# Pe = 5 -> middle button up.
# Pe = 6 -> right button down.
# Pe = 7 -> right button up.
# Pe = 8 -> M4 button down.
# Pe = 9 -> M4 button up.
# Pe = 1 0 -> locator outside filter rectangle.
# ``button'' parameter is a bitmask indicating which buttons are
# pressed:
# Pb = 0 <- no buttons down.
# Pb & 1 <- right button down.
# Pb & 2 <- middle button down.
# Pb & 4 <- left button down.
# Pb & 8 <- M4 button down.
# ``row'' and ``column'' parameters are the coordinates of the
# locator position in the xterm window, encoded as ASCII deci-
# mal.
# The ``page'' parameter is not used by xterm, and will be omit-
# ted.
requestLocatorPosition: (params) ->
# CSI P m SP }
# Insert P s Column(s) (default = 1) (DECIC), VT420 and up.
# NOTE: xterm doesn't enable this code by default.
insertColumns: ->
param = params[0]
l = @ybase + @rows
ch = [@eraseAttr(), " "]
while param--
i = @ybase
while i < l
@lines[i].splice @x + 1, 0, ch
@lines[i].pop()
i++
@maxRange()
# CSI P m SP ~
# Delete P s Column(s) (default = 1) (DECDC), VT420 and up
# NOTE: xterm doesn't enable this code by default.
deleteColumns: ->
param = params[0]
l = @ybase + @rows
ch = [@eraseAttr(), " "]
while param--
i = @ybase
while i < l
@lines[i].splice @x, 1
@lines[i].push ch
i++
@maxRange()
# DEC Special Character and Line Drawing Set.
# http://vt100.net/docs/vt102-ug/table5-13.html
# A lot of curses apps use this if they see TERM=xterm.
# testing: echo -e '\e(0a\e(B'
# The xterm output sometimes seems to conflict with the
# reference above. xterm seems in line with the reference
# when running vttest however.
# The table below now uses xterm's output from vttest.
charsets:
SCLD:# (0
"`": "◆" # '◆'
a: "▒" # '▒'
b: "\t" # '\t'
c: "\f" # '\f'
d: "\r" # '\r'
e: "\n" # '\n'
f: "°" # '°'
g: "±" # '±'
h: "␤" # '\u2424' (NL)
i: "\x0b" # '\v'
j: "┘" # '┘'
k: "┐" # '┐'
l: "┌" # '┌'
m: "└" # '└'
n: "┼" # '┼'
o: "⎺" # '⎺'
p: "⎻" # '⎻'
q: "─" # '─'
r: "⎼" # '⎼'
s: "⎽" # '⎽'
t: "├" # '├'
u: "┤" # '┤'
v: "┴" # '┴'
w: "┬" # '┬'
x: "│" # '│'
y: "≤" # '≤'
z: "≥" # '≥'
"{": "π" # 'π'
"|": "≠" # '≠'
"}": "£" # '£'
"~": "·" # '·'
UK: null # (A
US: null # (B (USASCII)
Dutch: null # (4
Finnish: null # (C or (5
French: null # (R
FrenchCanadian: null # (Q
German: null # (K
Italian: null # (Y
NorwegianDanish: null # (E or (6
Spanish: null # (Z
Swedish: null # (H or (7
Swiss: null # (=
ISOLatin: null # /A
Reference in a new issue View git blame Copy permalink