cl-platforms ( -- platforms )
OpenCL

Next:

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

Vocabulary
opencl

Inputs
None

Outputs

platforms

sequence of cl-platform

Word description
Returns the platforms available for OpenCL computation on this hardware.

Definition

USING: alien.c-types alien.data kernel opencl.ffi opencl.private
sequences ;

IN: opencl

: cl-platforms ( -- platforms )
    0 f 0 uint <ref> [ clGetPlatformIDs cl-success ] keep
    uint deref dup void* <c-array>
    [ f clGetPlatformIDs cl-success ] keep [
        dup
        [ platform-info ]
        [ platform-devices [ device-info ] { } map-as ] bi
        cl-platform boa
    ] { } map-as ;