finish-numeric-reference ( document -- )

Vocabulary

html5

Inputs

document

an object

Outputs

None

Definition

USING: accessors kernel math.parser sequences strings ;

IN: html5

: finish-numeric-reference ( document -- )
    dup temporary-buffer>> >string dup ";" tail?
    [ but-last ] [
        "missing-semicolon-after-character-reference"
        report-parse-error
    ] if 2 tail dup first "xX" member? [ rest hex> ] [ dec> ] if
    normalize-numeric-reference 1string swap
    string>new-temporary-buffer ;