(decode-until) ( seps stream encoding -- string/f sep/f )

Vocabulary

io.encodings

Inputs

seps	an object
stream	an object
encoding	an object

Outputs

string/f	an object
sep/f	an object

Definition

USING: io.encodings.private kernel sbufs sequences ;

IN: io.encodings

: (decode-until) ( seps stream encoding -- string/f sep/f )
    [ decode-char dup ] 2curry swap [ dupd member? ] curry
    [ [ drop f t ] if ] curry compose [ 100 <sbuf> ] dip
    decode-until-loop ; inline