read-until-loop ( handle seps accum -- accum ch )

Vocabulary

io.streams.c

Inputs

handle	an object
seps	an object
accum	an object

Outputs

accum	an object
ch	an object

Definition

USING: kernel sequences ;

IN: io.streams.c

: read-until-loop ( handle seps accum -- accum ch )
    pick fgetc dup [
        pick dupd member-eq?
        [ 2nipd ] [ suffix! read-until-loop ] if
    ] [ 2nipd ] if ; inline recursive