<cl-kernel> ( program kernel-name -- kernel )
OpenCL

Prev:	<cl-program> ( options strings -- program )
Next:	cl-queue-kernel ( kernel args sizes dependent-events -- event )

Vocabulary
opencl

Inputs

program	an object
kernel-name	an object

Outputs

kernel

an object

Definition

USING: accessors alien.c-types alien.data destructors
io.encodings.ascii io.encodings.string kernel opencl.ffi
opencl.private sequences ;

IN: opencl

: <cl-kernel> ( program kernel-name -- kernel )
    [ handle>> ] [ ascii encode 0 suffix ] bi* 0 int <ref>
    [ clCreateKernel ] keep int deref cl-success
    cl-kernel new-disposable swap >>handle ; inline