take-directive ( -- doctype )

Vocabulary

xml.elements

Inputs

None

Outputs

doctype

an object

Definition

USING: kernel namespaces xml.dtd xml.errors xml.name xml.state ;

IN: xml.elements

: take-directive ( -- doctype )
    take-name dup "DOCTYPE" =
    [ drop take-doctype-decl ] [
        in-dtd? get
        [ take-inner-directive ] [ misplaced-directive ] if
    ] if ;