(parse-until) ( accum end -- accum )

Vocabulary

parser

Inputs

accum	a vector
end	a word

Outputs

accum

a vector

Word description

Parses objects from parser input until end is encountered, adding them to the accumulator.

Notes

This word should only be called from parsing words.

See also

parse-tokens, each-token, map-tokens, parse-until

Definition

USING: combinators kernel lexer sequences words ;

IN: parser

: (parse-until) ( accum end -- accum )
    [
        ?scan-datum {
            { [ 2dup eq? ] [ 2drop f ] }
            { [ dup not ] [ drop throw-unexpected-eof ] }
            { [ dup delimiter? ] [ unexpected ] }
            { [ dup parsing-word? ] [ nip execute-parsing t ] }
            [ pick push drop t ]
        } cond
    ] curry loop ;