take-token* ( sequence-parser escape-char quote-char -- string/f )


Vocabulary
c.lexer

Inputs
sequence-parseran object
escape-charan object
quote-charan object


Outputs
string/fan object


Definition


:: take-token*
( sequence-parser escape-char quote-char -- string/f )
sequence-parser skip-whitespace dup current {
{
quote-char
[ escape-char quote-char take-quoted-string ]
}
{ f [ drop f ] }
[ drop (take-token) ]
} case ;