take-inner-directive ( string -- directive )

Vocabulary

xml.dtd

Inputs

string

an object

Outputs

directive

an object

Definition

USING: combinators xml.errors ;

IN: xml.dtd

: take-inner-directive ( string -- directive )
    {
        { "ELEMENT" [ take-element-decl ] }
        { "ATTLIST" [ take-attlist-decl ] }
        { "ENTITY" [ take-entity-decl ] }
        { "NOTATION" [ take-notation-decl ] }
        [ bad-directive ]
    } case ;