<cl-context> ( devices -- cl-context )

Vocabulary

opencl

Inputs

devices

an object

Outputs

cl-context

an object

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-context> ( devices -- cl-context )
    [ f ] dip [ length ] [ [ id>> ] void*-array{ } map-as ] bi
    f f 0 int <ref> [ clCreateContext ] keep int deref
    cl-success cl-context new-disposable swap >>handle ;