prefixed-name ( str -- name/f )

Vocabulary

xml.name.private

Inputs

str

an object

Outputs

name/f

an object

Definition

USING: kernel math sequences ;

IN: xml.name.private

: prefixed-name ( str -- name/f )
    58 over index [
        58 2over 1 + swap index-from
        [ 2drop f ] [ [ head ] [ 1 + tail ] 2bi maybe-name ] if
    ] [ drop f ] if* ;