select-table-token? ( obj -- ? )

Vocabulary

html5

Inputs

obj

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit sequences ;

IN: html5

:: select-table-token? ( obj -- ? )
    obj {
        [
            {
                [ tag? ]
                [
                    name>> {
                        "caption"
                        "col"
                        "colgroup"
                        "tbody"
                        "td"
                        "tfoot"
                        "th"
                        "thead"
                        "tr"
                        "table"
                    } member?
                ]
            } 1&&
        ]
        [
            {
                [ end-tag? ]
                [
                    name>> {
                        "caption"
                        "tbody"
                        "td"
                        "tfoot"
                        "th"
                        "thead"
                        "tr"
                        "table"
                    } member?
                ]
            } 1&&
        ]
    } 1|| ;