(meta) Do not print empty string
This commit is contained in:
parent
2c6e19ed2f
commit
7ec46a0494
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue