buffer-read-into ( dst n: fixnum buffer: buffer -- count )

Vocabulary

io.buffers

Inputs

dst	an object
n	a fixnum
buffer	a buffer

Outputs

count

an object

Definition

USING: alien alien.accessors kernel libc math sequences.private
typed ;

IN: io.buffers

TYPED: buffer-read-into
    ( dst n: fixnum buffer: buffer -- count )
    buffer-read-unsafe swap [
        pick c-ptr?
        [ memcpy ] [
            spin
            [ swap alien-unsigned-1 ] [ set-nth-unsafe ]
            bi-curry* [ bi ] 2curry each-integer
        ] if
    ] keep ; inline