expand-pack-format ( str -- str' )

Vocabulary

pack.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: ascii kernel math sequences strings ;

IN: pack.private

: expand-pack-format ( str -- str' )
    f swap [
        dup digit?
        [ [ 0 or 10 * ] [ 48 - ] bi* + f ]
        [ [ 1 or ] [ <string> ] bi* f swap ] if
    ] { } map-as "" concat-as nip ; foldable flushable