(meta) Do not print empty string

This commit is contained in:
neauoire 2023-11-17 11:25:35 -08:00
parent 2c6e19ed2f
commit 7ec46a0494
1 changed files with 9 additions and 7 deletions

View File

@ -45,7 +45,7 @@
BRK }
<load-metadata>
;metadata/body DUP2
( cli ) <pstr-ln>
( cli ) <pstr-ln>/
( gui ) <draw-metadata>
BRK
@ -88,8 +88,10 @@
[ LIT2 09 18 ] DEO
#00 OVR #03 MUL ;metadata/fields ADD2
( icon ) LDAk #83 NEQ ?{ INC2k LDA2 <draw-icon> }
( byte ) LDAk phex/b #2018 DEO
( shorts ) INC2 LDA2 phex #0a18 DEO
( byte ) LDAk <phex>/b
#2018 DEO
( shorts ) INC2 LDA2 <phex>
#0a18 DEO
INC GTHk ?&l
POP2 JMP2r
@ -142,10 +144,10 @@
#00 SWP sput #00 JMP2r
&eval POP2 #01 JMP2r
@phex ( short* -- )
SWP phex/b
@<phex> ( short* -- )
SWP <phex>/b
&b ( -- )
DUP #04 SFT phex/c
DUP #04 SFT <phex>/c
&c ( -- )
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
JMP2r
@ -153,7 +155,7 @@
@<pstr-ln> ( str* -- )
&w ( -- )
LDAk #18 DEO
INC2 LDAk ?&w
INC2 & LDAk ?&w
POP2 #0a18 DEO
JMP2r