(character-reference-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: combinators kernel ;

IN: html5

: (character-reference-state)
    ( document n/f string ch/f -- document n'/f string )
    [ 38 reach ch>new-temporary-buffer ] dip {
        {
            [ dup ascii-alphanumeric? ]
            [ (named-character-reference-state) ]
        }
        {
            [ dup 35 = ]
            [
                reach push-temporary-buffer
                numeric-character-reference-state
            ]
        }
        [ reach flush-temporary-buffer (return-state) ]
    } cond ;