parse-text ( -- string )

Vocabulary

xml.tokenize

Inputs

None

Outputs

string

an object

Definition

USING: ascii kernel math namespaces strings xml.errors xml.state
;

IN: xml.tokenize

:: parse-text ( -- string )
    depth get zero? :> no-text 0 :> pos! [| char |
        pos char assure-no-]]> pos! no-text [
            char blank? char 60 eq? or
            [ char 1string t pre/post-content ] unless
        ] when char 60 eq?
    ] parse-char ;