mirror of https://git.sr.ht/~rabbits/left
Improved symbols search
This commit is contained in:
parent
9a98887da6
commit
abcc43690d
19
src/left.tal
19
src/left.tal
|
@ -1422,21 +1422,24 @@
|
|||
;blinker-icn .Screen/addr DEO2
|
||||
[ LIT2 01 -Screen/sprite ] DEO
|
||||
<draw-symbol-bubble>
|
||||
INC2 .Screen/width DEI2 #0080 SUB2 #02 draw-word-until walk-blank LDAk [ LIT "& ] EQU ?{ draw-sym-field }
|
||||
INC2 .Screen/width DEI2 #0080 SUB2 #02 draw-word-until
|
||||
( ) walk-blank LDAk [ LIT "& ] EQU ?{ draw-sym-field }
|
||||
<draw-symbol-fill>
|
||||
walk-blank #0001 SUB2
|
||||
( members )
|
||||
&>l ( -- )
|
||||
LDAk DUP #00 NEQ SWP [ LIT "@ ] NEQ AND ?{
|
||||
POP2 ,&anchor LDR2 .Screen/x DEO2
|
||||
LDAk [ LIT "@ ] EQU ?&end
|
||||
LDAk ?{
|
||||
&end POP2 ,&anchor LDR2 .Screen/x DEO2
|
||||
#20 !<draw-symbol-frame> }
|
||||
LDAk #20 GTH ?{
|
||||
INC2k LDA2 #21 LTH SWP [ LIT "& ] NEQ ORA ?{
|
||||
LDAk #20 LTH ?{
|
||||
LDAk [ LIT "& ] NEQ ?{
|
||||
[ LIT2 &anchor $2 ] .Screen/x DEO2
|
||||
INC2 INC2 #01 draw-symbol-key walk-blank LDAk [ LIT "@ ] EQU ?{ draw-sym-field }
|
||||
INC2 #01 draw-symbol-key walk-blank
|
||||
( ) LDAk [ LIT "@ ] EQU ?{ draw-sym-field }
|
||||
<draw-symbol-fill>
|
||||
walk-blank #0001 SUB2 !&>l }
|
||||
}
|
||||
walk-blank !&>l }
|
||||
walk-word }
|
||||
INC2 !&>l
|
||||
|
||||
@<draw-symbol-frame> ( flip -- )
|
||||
|
|
|
@ -5,7 +5,7 @@ a very long line that doesn't quite display on a single screen to test the scrol
|
|||
@delete ( -- )
|
||||
[ LIT2 &name $2 ]
|
||||
[ LIT &field -default ]
|
||||
has-length ?&block
|
||||
has-length ?&block [ LIT "@ ]
|
||||
get-from INC2k get-eof NEQ2 ?&single
|
||||
POP2 JMP2r
|
||||
&block ( a -- b )
|
||||
|
|
Loading…
Reference in New Issue