neauoire
/
left
mirror of https://git.sr.ht/~rabbits/left
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Removed paren match

This commit is contained in:
Devine Lu Linvega 2024-03-17 19:02:23 -07:00
parent 7c8af33a04
commit a162201062
1 changed files with 2 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/left.tal
View File

@ -14,7 +14,7 @@
@textarea &highlight $1 &lines $2 &length $2
@scroll &x $2 &y $2 &addr $2 &ratio $2
@scrollbar &height $2
@state &comment $1 &underline $1 &label $1 &mono $1 &rune $1 &match $1
@state &comment $1 &underline $1 &label $1 &mono $1 &rune $1
@nav &cat $1 &len $1 &buf $60
|100
@ -801,20 +801,6 @@
#00 .state/rune STZ
JMP2r
@match-parfwd ( addr* -- addr* match )
.selection/a LDZ2 OVR2 LTH2k ?&skip
#0001 SUB2 [ LITr 00 ]
&>l ( -- )
LDAk [ LIT "( ] NEQ ?{ INCr }
LDAk [ LIT ") ] NEQ ?{
[ LITr 01 ] SUBr STHkr #00 EQU ?&closed }
INC2 GTH2k ?&>l
POP2 POP2 STHr #01 EQU JMP2r
&closed ( addr* -- addr* match )
POPr
&skip ( addr* -- addr* match )
POP2 POP2 #00 JMP2r
@walk-blank ( addr* -- addr* )
LDAk DUP #00 NEQ SWP #21 LTH AND ?{ JMP2r }
INC2 !walk-blank
@ -824,9 +810,6 @@
INC2 !walk-word
@scan-state ( addr* -- addr* )
( | parentesis match )
[ LIT2 00 -state/match ] STZ
LDAk [ LIT "( ] NEQ ?{ match-parfwd .state/match STZ }
.textarea/highlight LDZ ?&skip
DUP2 #0001 SUB2 LDA [ LIT "( ] NEQ ?{
[ LIT2 00 -state/underline ] STZ }
@ -874,8 +857,7 @@
@get-color ( addr* -- addr* color )
DUP2 get-from LTH2 ?&no-selected
DUP2 get-to LTH2 ?&selected
&no-selected .state/match LDZ ?&label
.textarea/highlight LDZ ?&skip
&no-selected .textarea/highlight LDZ ?&skip
.state/comment LDZ ?&comment
.state/label LDZ ?&label
&skip #01 JMP2r