d6
/
nxu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

handle more ctrl seqs

This commit is contained in:
~d6 2023-02-14 23:26:36 -05:00
parent 65dec7a259
commit 3c471499c9
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
term.tal
View File

@ -552,15 +552,38 @@
ctrl ?on-ctrl-key ctrl ?on-ctrl-key
.Controller/key DEI .Console/w DEO BRK .Controller/key DEI .Console/w DEO BRK
( control seqs: )
( ctrl-sp -> 00 )
( ctrl-@ -> 00 )
( ctrl-a -> 01 )
( ... )
( ctrl-y -> 19 )
( ctrl-z -> 1a )
( ctrl-[ -> 1b )
( esc -> 1b )
( ctrl-\ -> 1c )
( ctrl-] -> 1d )
( ctrl-^ -> 1e )
( ctrl-/ -> 1f )
( ctrl-_ -> 1f )
( ctrl-$n emits: ) ( ctrl-$n emits: )
( 0 <= $n < @ -> $n ) ( 0 <= $n < @ -> $n )
( @ <= $n < ` -> $n #40 SUB ) ( @ <= $n < ` -> $n #40 SUB )
( ` <= $n <= #ff -> $n #60 SUB ) ( ` <= $n <= #ff -> $n #60 SUB )
@on-ctrl-key ( -> BRK ) @on-ctrl-key ( -> BRK )
.Controller/key DEI .Controller/key DEI
DUP #20 EQU ?&nul ( space )
DUP #2d EQU ?&us ( '-' i.e. '_' )
DUP #2f EQU ?&nul ( '/' )
DUP #32 EQU ?&nul ( '2' i.e. '@' )
DUP #36 EQU ?&rs ( '6' i.e. '^' )
DUP LIT "@ LTH ?&done DUP LIT "@ LTH ?&done
DUP LIT "` LTH ?&c1 DUP LIT "` LTH ?&c1
LIT "` SUB !&done LIT "` SUB !&done
&nul #00 !&done
&rs #1e !&done
&us #1f !&done
&c1 LIT "@ SUB &c1 LIT "@ SUB
&done .Console/w DEO BRK &done .Console/w DEO BRK