platform-devices ( platform-id -- devices )

Vocabulary

opencl.private

Inputs

platform-id

an object

Outputs

devices

an object

Definition

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

IN: opencl.private

: platform-devices ( platform-id -- devices )
    CL_DEVICE_TYPE_ALL [
        0 f 0 uint <ref> [ clGetDeviceIDs cl-success ] keep
        uint deref
    ] [
        rot dup void* <c-array>
        [ f clGetDeviceIDs cl-success ] keep
    ] 2bi ; inline