frameset-token ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: accessors combinators kernel sequences ;

IN: html5

:: frameset-token ( document obj -- document )
    document insertion-mode>> :> mode obj {
        {
            [ dup misc-node? ]
            [
                mode after-after-frameset-mode =
                [ document tree>> push ]
                [ document swap append-node ] if
            ]
        }
        { [ dup html-space? ] [ document swap append-node ] }
        {
            [ dup tag? ]
            [
                dup name>> {
                    { "noframes" ~quotation~ }
                    { "frameset" ~quotation~ }
                    { "frame" ~quotation~ }
                    [
                        2drop
                        "unexpected-token-in-frameset"
                        report-parse-error
                    ]
                } case
            ]
        }
        {
            [ dup end-tag? ]
            [
                dup name>> {
                    { "noframes" ~quotation~ }
                    { "frameset" ~quotation~ }
                    { "html" ~quotation~ }
                    [
                        2drop
                        "unexpected-token-in-frameset"
                        report-parse-error
                    ]
                } case
            ]
        }
        { [ dup f = ] [ drop ] }
        [
            drop
            "unexpected-token-in-frameset" report-parse-error
        ]
    } cond document ;