take-until ( ... sequence-parser quot: ( ... obj -- ... ? ) -- ... sequence/f )

Vocabulary

sequences.parser

Inputs

sequence-parser	a sequence-parser
quot	a quotation

Outputs

sequence/f

a sequence or f

Definition

USING: accessors kernel sequences ;

IN: sequences.parser

: take-until
    ( ... sequence-parser quot: ( ... obj -- ... ? ) -- ... sequence/f )
    over sequence-parse-end?
    [ 2drop f ] [
        [ drop n>> ] [ skip-until ]
        [ drop [ n>> ] [ sequence>> ] bi ] 2tri subseq f like
    ] if ; inline