in-head-noscript-token ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: accessors combinators combinators.short-circuit kernel
sequences ;

IN: html5

:: in-head-noscript-token ( document obj -- document )
    {
        { [ obj doctype? ] [ document ] }
        {
            [ obj "html" start-tag-named? ]
            [ document obj ordinary-body-token ]
        }
        {
            [ obj "noscript" end-tag-named? ]
            [
                document obj close-element
                document in-head-mode >>insertion-mode
            ]
        }
        {
            [
                obj html-space? obj misc-node? or obj
                { [ tag? ] [ name>> ~array~ member? ] } 1&& or
            ]
            [ document obj in-head-token ]
        }
        {
            [
                obj "head" start-tag-named?
                obj "noscript" start-tag-named? or
                obj end-tag? obj "br" end-tag-named? not and or
            ]
            [
                "unexpected-token-in-head-noscript"
                report-parse-error document
            ]
        }
        [
            "unexpected-token-in-head-noscript"
            report-parse-error document open-elements>> pop drop
            document in-head-mode >>insertion-mode
            obj tree-insert
        ]
    } cond ;