<cl-queue> ( context device out-of-order? profiling? -- command-queue )
OpenCL

Prev:	cl-platforms ( -- platforms )
Next:	with-cl-state ( context/f device/f queue/f quot -- )

Vocabulary
opencl

Inputs

context	an object
device	an object
out-of-order?	an object
profiling?	an object

Outputs

command-queue

an object

Definition

USING: accessors alien.c-types alien.data destructors kernel
math opencl.ffi opencl.private ;

IN: opencl

: <cl-queue>
    ( context device out-of-order? profiling? -- command-queue )
    [ [ handle>> ] [ id>> ] bi* ] 2dip
    [ [ CL_QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE ] [ 0 ] if ]
    [ [ CL_QUEUE_PROFILING_ENABLE ] [ 0 ] if ] bi* bitor
    0 int <ref> [ clCreateCommandQueue ] keep int deref
    cl-success cl-queue new-disposable swap >>handle ;