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

Vocabulary

c.lexer

Inputs

sequence-parser	an object
escape-char	an object
quote-char	an object

Outputs

string/f

an object

Definition

USING: combinators kernel sequences.parser ;

IN: c.lexer

:: 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 ;