(after-doctype-system-keyword-state) ( document n/f string ch/f -- document n'/f string )

Vocabulary

html5

Inputs

document	an object
n/f	an object
string	an object
ch/f	an object

Outputs

document	an object
n'/f	an object
string	an object

Definition

USING: combinators kernel sequences ;

IN: html5

: (after-doctype-system-keyword-state)
    ( document n/f string ch/f -- document n'/f string )
    {
        {
            [ dup "\t\n\f " member? ]
            [
                drop
                between-doctype-public-and-system-identifiers-state
            ]
        }
        {
            [ dup 34 = ]
            [
                drop
                missing-whitespace-after-doctype-system-keyword
                pick initialize-doctype-system-identifier
                doctype-system-identifier-double-quoted-state
            ]
        }
        {
            [ dup 39 = ]
            [
                drop
                missing-whitespace-after-doctype-system-keyword
                pick initialize-doctype-system-identifier
                doctype-system-identifier-single-quoted-state
            ]
        }
        {
            [ dup 62 = ]
            [
                drop missing-doctype-system-identifier pick
                [ force-quirks ] [ emit-doctype ] bi data-state
            ]
        }
        {
            [ dup f = ]
            [
                drop eof-in-doctype pick
                [ force-quirks ] [ emit-doctype ] [ emit-eof ]
                tri
            ]
        }
        [
            missing-quote-before-doctype-system-identifier
            [ reach force-quirks ] dip (bogus-doctype-state)
        ]
    } cond ;