dtd-loop ( -- )

Vocabulary

xml.elements

Inputs

None

Outputs

None

Definition

USING: combinators kernel make strings xml.dtd xml.errors
xml.state xml.tokenize ;

IN: xml.elements

: dtd-loop ( -- )
    pass-blank get-char {
        { 93 [ next ] }
        { 37 [ expand-pe ] }
        {
            60
            [
                next make-tag dup dtd-acceptable?
                [ bad-doctype ] unless , dtd-loop
            ]
        }
        { f [ ] }
        [ 1string bad-doctype ]
    } case ;