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

Formatting in manifest

This commit is contained in:
Devine Lu Linvega 2024-03-17 18:14:02 -07:00
parent e3bad43c77
commit c56bc2d31a
1 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/manifest.tal
View File

@ -70,10 +70,10 @@
@get-cat ( cat -- cat* )
[ LIT2 00 _&t ] STR2
;<draw-menu>/manifest LDA2
&cat ( -- )
[ LIT2 &t $1 &id $1 ] INCk ,&id STR
EQU ?&end
skip-cat LDAk ?&cat
&>w ( -- )
[ LIT2 &t $1 &id $1 ] INCk ,&id STR
EQU ?&end
skip-cat LDAk ?&>w
POP2 #0000 &end JMP2r
@get-cat-length ( cat* -- sub* length )
@ -87,8 +87,7 @@
[ LIT2 &t $1 &id 00 ] INCk ,&id STR
EQU ?&end
INC2k get-strw #0008 ADD2 STH2
ADD2r
( ) skip-cat LDAk ?&>w
ADD2r skip-cat LDAk ?&>w
&end POP2 STH2r
( left padding + 4 ) #000e ADD2 JMP2r
@ -105,19 +104,19 @@
ORAk ?{ JMP2r }
( not null ) ,&mk STR2
;<draw-menu>/manifest LDA2
&cat ( -- )
get-cat-length #00
&subcat ( -- )
OVR2 LDA2 [ LIT2 &mk $2 ] NEQ2 ?{
POP2 INC2 INC2 LDA2 JMP2r }
next-sub ?&subcat
POP2 LDAk ?&cat
&>cat ( -- )
get-cat-length #00
&>subcat ( -- )
OVR2 LDA2 [ LIT2 &mk $2 ] NEQ2 ?{
POP2 INC2 INC2 LDA2 JMP2r }
next-sub ?&>subcat
POP2 LDAk ?&>cat
POP2 #0000 JMP2r
@skip-cat ( cat* -- next-cat* )
get-cat-length #00
&subcat ( -- )
next-sub ?&subcat
&>subcat ( -- )
next-sub ?&>subcat
POP2 JMP2r
@next-sub ( sub* to from -- sub* to from continue )
@ -286,10 +285,11 @@
POP2 JMP2r
@exit ( -- )
#010f DEO
#800f DEO
JMP2r
( @
| assets )
(
@|assets )
@hand-icn [ 2020 20b8 7c7c 3838 ]