parse-attr ( -- array )

Vocabulary

xml.elements

Inputs

None

Outputs

array

an object

Definition

USING: arrays kernel xml.name xml.state xml.tokenize ;

IN: xml.elements

: parse-attr ( -- array )
    parse-name pass-blank "=" expect pass-blank get-char 60 eq?
    [ "<-" expect interpolate-quote ] [ t parse-quote* ] if
    2array ;