take-entity-def ( var -- entity-name entity-def )

Vocabulary

xml.dtd

Inputs

var

an object

Outputs

entity-name	an object
entity-def	an object

Definition

USING: combinators hashtables kernel namespaces xml.name
xml.state xml.tokenize ;

IN: xml.dtd

: take-entity-def ( var -- entity-name entity-def )
    [
        take-word pass-blank get-char {
            { 39 [ parse-quote ] }
            { 34 [ parse-quote ] }
            [ drop take-external-id close ]
        } case
    ] dip [ [ swap ] ] dip [ [ ?set-at ] change ] curry compose
    2keep ;