take-cdata ( -- cdata )

Vocabulary

xml.elements

Inputs

None

Outputs

cdata

an object

Definition

USING: kernel math namespaces xml.data xml.errors xml.state
xml.tokenize ;

IN: xml.elements

: take-cdata ( -- cdata )
    depth get zero? [ bad-cdata ] when "[CDATA[" expect
    "]]>" take-string <cdata> ;