initial-token ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: accessors combinators ;

IN: html5

:: initial-token ( document obj -- document )
    {
        {
            [ obj doctype? ]
            [
                document obj >>tree-doctype
                before-html-mode >>insertion-mode
            ]
        }
        {
            [ obj misc-node? ]
            [ document obj append-node document ]
        }
        { [ obj html-space? ] [ document ] }
        [
            document t >>quirks-mode?
            before-html-mode >>insertion-mode obj tree-insert
        ]
    } cond ;