(parse-char) ( quot: ( ch -- ? ) accum spot -- )

Vocabulary

xml.tokenize

Inputs

quot	a quotation with stack effect ( ch -- ? )
accum	an object
spot	an object

Outputs

None

Definition

USING: accessors combinators kernel namespaces sequences
xml.state ;

IN: xml.tokenize

:: (parse-char) ( quot: ( ch -- ? ) accum spot -- )
    [
        spot char>> :> char {
            { [ char not ] [ f ] }
            { [ char quot call ] [ spot next* f ] }
            { [ char 38 eq? ] [ accum parse-entity t ] }
            {
                [ char 37 eq? [ in-dtd? get ] [ f ] if ]
                [ accum parse-pe t ]
            }
            [ char accum push spot next* t ]
        } cond
    ] loop ; inline