adoption-agency ( document token -- )

Vocabulary

html5

Inputs

document	an object
token	an object

Outputs

None

Definition

USING: accessors combinators.short-circuit kernel math sequences
;

IN: html5

:: adoption-agency ( document token -- )
    document open-elements>> :> stack document
    active-formatting-elements>> :> entries stack ?last [
        {
            [ html-element? ]
            [ name>> token name>> = ]
            [ entries node-member? not ]
        } 1&&
    ] [ f ] if*
    [ stack pop drop ] [
        0 :> count! t :> continue?!
        [ count 8 < continue? and ] [
            count 1 + count! document token adoption-pass
            continue?!
        ] while
    ] if ;