(parse-quote) ( <-disallowed? ch -- string ) - Factor Documentation

(parse-quote) ( <-disallowed? ch -- string )

Vocabulary
xml.tokenize

Inputs

<-disallowed?	an object
ch	an object

Outputs

string

Definition

USING: kernel xml.errors xml.state ;

IN: xml.tokenize

: (parse-quote) ( <-disallowed? ch -- string )
swap [ [ 60 eq? ] ] dip [ and [ attr-w/< ] [ f ] if ] curry
compose
[ [ [ dup ] ] dip [ eq? [ drop t ] ] curry compose ] dip
[ if ] curry compose parse-char normalize-quote get-char
[ unclosed-quote ] unless ; inline