take-internal-subset ( -- dtd )

Vocabulary

xml.elements

Inputs

None

Outputs

dtd

an object

Definition

USING: kernel make namespaces xml.data xml.state ;

IN: xml.elements

: take-internal-subset ( -- dtd )
    [
        H{ } clone pe-table set t in-dtd? set
        dtd-loop pe-table get
    ] { } make swap extra-entities get swap <dtd> ;