cl-queue-write-buffer ( buffer-range alien dependent-events -- event )
OpenCL

Prev:	cl-write-buffer ( buffer-range byte-array -- )
Next:	<cl-program> ( options strings -- program )

Vocabulary
opencl

Inputs

buffer-range	a cl-buffer-range
alien	an alien
dependent-events	a sequence of events

Outputs

event

a cl-event

Word description
Queue a write operation from alien to buffer-range. Dependent events can be passed to order the operation relative to other operations.

Definition

USING: accessors alien.c-types alien.data destructors kernel
opencl.ffi opencl.private sequences
specialized-arrays.instances.alien.c-types.void* ;

IN: opencl

: cl-queue-write-buffer
    ( buffer-range alien dependent-events -- event )
    [
        [ (current-cl-queue) handle>> ] dip
        [ buffer>> handle>> CL_FALSE ] [ offset>> ] [ size>> ]
        tri
    ] 2dip [ length ] keep
    [ f ] [ [ handle>> ] void*-array{ } map-as ] if-empty
    f void* <ref> [ clEnqueueWriteBuffer cl-success ] keep
    void* deref cl-event new-disposable swap >>handle ;