(data-state) ( document n/f string ch/f -- document n'/f string )

Vocabulary

html5

Inputs

document	an object
n/f	an object
string	an object
ch/f	an object

Outputs

document	an object
n'/f	an object
string	an object

Definition

USING: accessors combinators kernel ;

IN: html5

: (data-state)
    ( document n/f string ch/f -- document n'/f string )
    {
        {
            [ dup 38 = ]
            [
                drop [ \ data-state >>return-state ] 2dip
                character-reference-state
            ]
        }
        { [ dup 60 = ] [ drop tag-open-state ] }
        {
            [ dup 0 = ]
            [
                "unexpected-null-character" report-parse-error
                reach over foreign-token?
                [ drop pick 65533 append-node ] [ drop ] if
                data-state
            ]
        }
        { [ dup f = ] [ drop pick emit-eof ] }
        [ reach emit-char data-state ]
    } cond ;