(after-doctype-name-state) ( document n string ch -- document n' string )

Vocabulary

html5

Inputs

document	an object
n	an object
string	an object
ch	an object

Outputs

document	an object
n'	an object
string	an object

Definition

USING: combinators kernel math modern.slices ;

IN: html5

:: (after-doctype-name-state)
    ( document n string ch -- document n' string )
    ch {
        {
            [ dup html-space? ]
            [ drop document n string after-doctype-name-state ]
        }
        {
            [ dup 62 = ]
            [
                drop document emit-doctype
                document n string data-state
            ]
        }
        { [ dup f = ] [ drop document n string doctype-eof ] }
        [
            drop document n 1 - string {
                {
                    [ "PUBLIC" take-from-insensitive? ]
                    [ after-doctype-public-keyword-state ]
                }
                {
                    [ "SYSTEM" take-from-insensitive? ]
                    [ after-doctype-system-keyword-state ]
                }
                [
                    "invalid-character-sequence-after-doctype-name"
                    report-parse-error pick force-quirks
                    bogus-doctype-state
                ]
            } cond
        ]
    } cond ;