17 The optional String word set

17.6.1.0780 BLANK STRING

( c-addr u -- )

If u is greater than zero, store the character value for space in u consecutive character positions beginning at c-addr.

Testing:

: s13 S" aaaaa a" ;           \ Six spaces

T{ PAD 25 CHAR a FILL -> }T        \ Fill PAD with 25 'a's
T{ PAD 5 CHARS + 6 BLANK -> }T    \ Put 6 spaced from character 5
T{ PAD 12 s13 COMPARE -> 0 }T       \ PAD Should now be same as s13

ContributeContributions

JimPetersonavatar of JimPeterson [294] Possible Reference ImplementationSuggested reference implementation2023-04-09 12:41:33

I think this is effectively:

: BLANK ( c-addr u -- )
  BL FILL
;
Reply New Version