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

reduce DEI usage

This commit is contained in:
~d6 2022-03-30 23:41:16 -04:00
parent 33a23ed0c8
commit e035b456f6
1 changed files with 55 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
femto.tal
View File

@ -114,6 +114,7 @@
] ]
@state [ @state [
&key $1 ( last key read )
&saw-esc $1 ( did we just see ESC? ) &saw-esc $1 ( did we just see ESC? )
&saw-xterm $1 ( did we just see an ESC [ xterm sequence? ) &saw-xterm $1 ( did we just see an ESC [ xterm sequence? )
&saw-vt $1 ( did we just see an ESC [ $N vt sequence? ) &saw-vt $1 ( did we just see an ESC [ $N vt sequence? )
@ -204,9 +205,10 @@
JMP2r JMP2r
@receive-terminal-size ( -> ) @receive-terminal-size ( -> )
.Console/read DEI .tmp/pos LDZ2 STA .Console/read DEI .state/key STZ
.state/key LDZ .tmp/pos LDZ2 STA
.tmp/pos LDZ2 INC2 .tmp/pos STZ2 .tmp/pos LDZ2 INC2 .tmp/pos STZ2
.Console/read DEI LIT 'R EQU ;parse-terminal-size JCN2 .state/key LDZ LIT 'R EQU ;parse-terminal-size JCN2
BRK BRK
@parse-terminal-size ( -> ) @parse-terminal-size ( -> )
@ -619,13 +621,14 @@
( maybe M-% for search&replace ) ( maybe M-% for search&replace )
@on-key-escaped ( -> ) @on-key-escaped ( -> )
#00 .state/saw-esc STZ #00 .state/saw-esc STZ
.Console/read DEI LIT '< EQU ( M-< ) ;goto-start JCN2 .Console/read DEI .state/key STZ
.Console/read DEI LIT '> EQU ( M-> ) ;goto-end JCN2 .state/key LDZ LIT '< EQU ( M-< ) ;goto-start JCN2
.Console/read DEI LIT 'c EQU ( M-c ) ;toggle-color JCN2 .state/key LDZ LIT '> EQU ( M-> ) ;goto-end JCN2
.Console/read DEI LIT 'g EQU ( M-g ) ;goto-line JCN2 .state/key LDZ LIT 'c EQU ( M-c ) ;toggle-color JCN2
.Console/read DEI LIT 't EQU ( M-t ) ;toggle-tabs JCN2 .state/key LDZ LIT 'g EQU ( M-g ) ;goto-line JCN2
.Console/read DEI LIT 'v EQU ( M-v ) ;page-up JCN2 .state/key LDZ LIT 't EQU ( M-t ) ;toggle-tabs JCN2
.Console/read DEI LIT '[ EQU ( M-[ ) ;xterm JCN2 .state/key LDZ LIT 'v EQU ( M-v ) ;page-up JCN2
.state/key LDZ LIT '[ EQU ( M-[ ) ;xterm JCN2
BRK BRK
@xterm @xterm
@ -657,15 +660,16 @@
@on-key-xterm ( -> ) @on-key-xterm ( -> )
#00 .state/saw-xterm STZ #00 .state/saw-xterm STZ
.Console/read DEI LIT 'A EQU ( ^[[A -> up ) ;up JCN2 .Console/read DEI .state/key STZ
.Console/read DEI LIT 'B EQU ( ^[[B -> down ) ;down JCN2 .state/key LDZ LIT 'A EQU ( ^[[A -> up ) ;up JCN2
.Console/read DEI LIT 'C EQU ( ^[[C -> right ) ;forward JCN2 .state/key LDZ LIT 'B EQU ( ^[[B -> down ) ;down JCN2
.Console/read DEI LIT 'D EQU ( ^[[D -> left ) ;back JCN2 .state/key LDZ LIT 'C EQU ( ^[[C -> right ) ;forward JCN2
.Console/read DEI LIT 'F EQU ( ^[[F -> end ) ;eol JCN2 .state/key LDZ LIT 'D EQU ( ^[[D -> left ) ;back JCN2
.Console/read DEI LIT 'H EQU ( ^[[H -> home ) ;bol JCN2 .state/key LDZ LIT 'F EQU ( ^[[F -> end ) ;eol JCN2
.Console/read DEI LIT '0 LTH ;ignore JCN2 .state/key LDZ LIT 'H EQU ( ^[[H -> home ) ;bol JCN2
.Console/read DEI LIT '8 GTH ;ignore JCN2 .state/key LDZ LIT '0 LTH ;ignore JCN2
.Console/read DEI .state/saw-vt STZ ( ^[[1 through ^[[8 ) .state/key LDZ LIT '8 GTH ;ignore JCN2
.state/key LDZ .state/saw-vt STZ ( ^[[1 through ^[[8 )
BRK BRK
@clear-line ( -> ) @clear-line ( -> )
@ -688,19 +692,21 @@
@move-to-prev-match BRK @move-to-prev-match BRK
@on-key-searching @on-key-searching
.Console/read DEI #07 EQU ( C-g ) ;cancel-search JCN2 .Console/read DEI .state/key STZ
.Console/read DEI #0d EQU ( \r ) ;finish-search JCN2 .state/key LDZ #07 EQU ( C-g ) ;cancel-search JCN2
.Console/read DEI #6e EQU ( n ) ;move-to-next-match JCN2 .state/key LDZ #0d EQU ( \r ) ;finish-search JCN2
.Console/read DEI #70 EQU ( p ) ;move-to-prev-match JCN2 .state/key LDZ #6e EQU ( n ) ;move-to-next-match JCN2
.state/key LDZ #70 EQU ( p ) ;move-to-prev-match JCN2
;ignore JMP2 ;ignore JMP2
@on-key-prompt @on-key-prompt
.Console/read DEI #07 EQU ( C-g ) ;cancel-prompt JCN2 .Console/read DEI .state/key STZ
.Console/read DEI #0d EQU ( \r ) ;finish-prompt JCN2 .state/key LDZ #07 EQU ( C-g ) ;cancel-prompt JCN2
.Console/read DEI #7f EQU ( DEL ) ;backspace-prompt JCN2 .state/key LDZ #0d EQU ( \r ) ;finish-prompt JCN2
.Console/read DEI #20 LTH ;ignore JCN2 ( ignore for now ) .state/key LDZ #7f EQU ( DEL ) ;backspace-prompt JCN2
.Console/read DEI #7e GTH ;ignore JCN2 ( ignore for now ) .state/key LDZ #20 LTH ;ignore JCN2 ( ignore for now )
.Console/read DEI ( printable ASCII ) ;insert-prompt JMP2 .state/key LDZ #7e GTH ;ignore JCN2 ( ignore for now )
.state/key LDZ ( printable ASCII ) ;insert-prompt JMP2
BRK BRK
( TODO: C-h for help ) ( TODO: C-h for help )
@ -713,27 +719,27 @@
.state/saw-vt LDZ ;on-key-vt JCN2 .state/saw-vt LDZ ;on-key-vt JCN2
.state/saw-xterm LDZ ;on-key-xterm JCN2 .state/saw-xterm LDZ ;on-key-xterm JCN2
.state/saw-esc LDZ ;on-key-escaped JCN2 .state/saw-esc LDZ ;on-key-escaped JCN2
.Console/read DEI #01 EQU ( C-a ) ;bol JCN2 .Console/read DEI .state/key STZ
.Console/read DEI #02 EQU ( C-b ) ;back JCN2 .state/key LDZ #01 EQU ( C-a ) ;bol JCN2
.Console/read DEI #04 EQU ( C-d ) ;delete JCN2 .state/key LDZ #02 EQU ( C-b ) ;back JCN2
.Console/read DEI #05 EQU ( C-e ) ;eol JCN2 .state/key LDZ #04 EQU ( C-d ) ;delete JCN2
.Console/read DEI #06 EQU ( C-f ) ;forward JCN2 .state/key LDZ #05 EQU ( C-e ) ;eol JCN2
.Console/read DEI #09 EQU ( \t ) ;insert-tab JCN2 .state/key LDZ #06 EQU ( C-f ) ;forward JCN2
.Console/read DEI #0c EQU ( C-l ) ;center-view JCN2 .state/key LDZ #09 EQU ( \t ) ;insert-tab JCN2
.Console/read DEI #0d EQU ( \r ) ;newline JCN2 .state/key LDZ #0c EQU ( C-l ) ;center-view JCN2
.Console/read DEI #0e EQU ( C-n ) ;down JCN2 .state/key LDZ #0d EQU ( \r ) ;newline JCN2
.Console/read DEI #0f EQU ( C-o ) ;save JCN2 .state/key LDZ #0e EQU ( C-n ) ;down JCN2
.Console/read DEI #10 EQU ( C-p ) ;up JCN2 .state/key LDZ #0f EQU ( C-o ) ;save JCN2
.Console/read DEI #13 EQU ( C-s ) ;search JCN2 .state/key LDZ #10 EQU ( C-p ) ;up JCN2
.Console/read DEI #16 EQU ( C-v ) ;page-down JCN2 .state/key LDZ #13 EQU ( C-s ) ;search JCN2
.Console/read DEI #18 EQU ( C-x ) ;quit JCN2 .state/key LDZ #16 EQU ( C-v ) ;page-down JCN2
.Console/read DEI #1a EQU ( C-z ) ;debug JCN2 .state/key LDZ #18 EQU ( C-x ) ;quit JCN2
.Console/read DEI #1b EQU ( ESC ) ;escape JCN2 .state/key LDZ #1a EQU ( C-z ) ;debug JCN2
.Console/read DEI #7f EQU ( DEL ) ;backspace JCN2 .state/key LDZ #1b EQU ( ESC ) ;escape JCN2
.Console/read DEI #20 LTH ;ignore JCN2 ( ignore for now ) .state/key LDZ #7f EQU ( DEL ) ;backspace JCN2
.Console/read DEI #7e GTH ;ignore JCN2 ( ignore for now ) .state/key LDZ #20 LTH ;ignore JCN2 ( ignore for now )
.Console/read DEI ( printable ASCII ) ;insert JMP2 .state/key LDZ #7e GTH ;ignore JCN2 ( ignore for now )
BRK .state/key LDZ ( printable ASCII ) ;insert JMP2
@min2 ( x* y* -> min* ) @min2 ( x* y* -> min* )
LTH2k JMP SWP2 POP2 JMP2r LTH2k JMP SWP2 POP2 JMP2r