buffer-find ( seps buffer: buffer -- n/f )

Vocabulary

io.buffers

Inputs

seps	an object
buffer	a buffer

Outputs

n/f

an object

Definition

USING: accessors alien.accessors kernel math sequences typed ;

IN: io.buffers

TYPED: buffer-find ( seps buffer: buffer -- n/f )
    [
        swap [ [ pos>> ] [ fill>> ] [ ptr>> ] tri ] dip
        [ swap alien-unsigned-1 ] [ member-eq? ] bi-curry*
        compose find-integer-from
    ] [ [ pos>> - ] curry [ f ] if* ] bi ; inline