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

Housekeeping

This commit is contained in:
Devine Lu Linvega 2024-03-17 20:36:28 -07:00
parent 474bf75675
commit 766ebc3a96
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/left.tal
View File

@ -811,11 +811,9 @@
@scan-state ( addr* -- addr* )
.textarea/highlight LDZ ?&skip
DUP2 #0001 SUB2 LDA [ LIT "( ] NEQ ?{
[ LIT2 00 -state/underline ] STZ }
( | reset always )
[ LIT2 00 -state/rune ] STZ
( | reset state on ws )
( | reset on ws )
LDAk #20 GTH ?{
[ LIT2 00 -state/underline ] STZ
[ LIT2 00 -state/label ] STZ }
@ -828,11 +826,12 @@
INC2k LDA [ LIT "[ ] EQU ?&block-start }
POP2
( | after ws )
.state/comment LDZ ?&skip
DUP2 #0001 SUB2 LDA #20 GTH ?&skip
LDAk [ LIT "@ ] EQU ?&label
LDAk [ LIT "& ] EQU ?&label
get-rune INC2 ORA ?&rune
.state/comment LDZ ?{
DUP2 #0001 SUB2 LDA #20 GTH ?{
LDAk [ LIT "@ ] EQU ?&label
LDAk [ LIT "& ] EQU ?&label
get-rune INC2 ORA ?&rune }
}
&skip JMP2r
&comment-start ( cc* -- )
POP2 .state/comment LDZk INC SWP STZ