take-entity-decl ( -- entity-decl )

Vocabulary

xml.dtd

Inputs

None

Outputs

entity-decl

an object

Definition

USING: combinators kernel xml.data xml.state xml.tokenize ;

IN: xml.dtd

: take-entity-decl ( -- entity-decl )
    pass-blank get-char {
        { 37 [ next pass-blank pe-table take-entity-def t ] }
        [ drop extra-entities take-entity-def f ]
    } case close <entity-decl> ;