parse-def ( accum delimiter quot -- accum )

Vocabulary

xml.syntax.private

Inputs

accum	an object
delimiter	an object
quot	an object

Outputs

accum

an object

Definition

USING: kernel multiline sequences unicode ;

IN: xml.syntax.private

: parse-def ( accum delimiter quot -- accum )
    [ parse-multiline-string [ blank? ] trim ] dip call
    [ extract-variables collect ] 1check
    [ number<-> suffix! ] dip [ \ interpolate-xml suffix! ] when
    ; inline