table-end-tag ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: accessors kernel sequences ;

IN: html5

:: table-end-tag ( document obj -- document )
    obj name>> :> name name "table" =
    [ document "table" close-table-element ] [
        name { "tbody" "thead" "tfoot" "tr" "colgroup" } member? 
        [
            document name
            { "html" "table" "template" } element-in-scope?
            [ document name close-table-element ] when
        ] [
            name
            { "body" "caption" "col" "html" "td" "th" } member?
            [ document obj foster-body-token drop ] unless
        ] if
    ] if document ;