middle-tag ( -- attrs-alist )

Vocabulary

xml.elements

Inputs

None

Outputs

attrs-alist

an object

Definition

USING: kernel math sequences xml.char-classes xml.state
xml.tokenize ;

IN: xml.elements

: middle-tag ( -- attrs-alist )
    [ pass-blank version-1.0? get-char name-start? ]
    [ parse-attr ] f produce-as pass-blank dup length 1 >
    [ assure-no-duplicates ] when ;