table-colgroup-token ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: combinators kernel ;

IN: html5

:: table-colgroup-token ( document obj -- document )
    {
        {
            [ obj "col" start-tag-named? ]
            [ document obj insert-element document ]
        }
        {
            [ obj misc-node? obj html-space? or obj f = or ]
            [ document obj ordinary-body-token ]
        }
        {
            [
                obj "col" end-tag-named?
                obj "html" start-tag-named? or
                document "template" current-element-named? or
            ]
            [ document ]
        }
        [ document obj leave-table-colgroup ]
    } cond ;