with-cl-state ( context/f device/f queue/f quot -- )
OpenCL

Prev:	<cl-queue> ( context device out-of-order? profiling? -- command-queue )
Next:	<cl-buffer> ( buffer-access-mode size initial-data -- buffer )

Vocabulary
opencl

Inputs

context/f	a cl-context or f
device/f	a cl-device or f
queue/f	a cl-queue or f
quot	a quotation

Outputs
None

Word description
Run the specified quotation with the given context, device and command queue. False arguments are not bound.

Definition

USING: kernel make namespaces ;

IN: opencl

: with-cl-state ( context/f device/f queue/f quot -- )
    [
        [
            [ cl-current-queue ,, ] when*
            [ cl-current-device ,, ] when*
            [ cl-current-context ,, ] when*
        ] 3curry H{ } make
    ] dip with-variables ; inline