append-buffer-until ( seps buffer accum -- sep/f )

Vocabulary

io.ports.private

Inputs

seps	an object
buffer	an object
accum	an object

Outputs

sep/f

an object

Definition

USING: accessors alien io.buffers kernel libc math sequences ;

IN: io.ports.private

:: append-buffer-until ( seps buffer accum -- sep/f )
    seps buffer buffer-find :> end end
    [ buffer buffer-length ] unless*
    :> count accum length :> start start count + accum lengthen
    start accum underlying>> <displaced-alien>
    count buffer buffer-read-unsafe swap memcpy end
    [ buffer buffer-pop ] [ f ] if ; inline