device-info ( device-id -- device )

Vocabulary

opencl.private

Inputs

device-id

an object

Outputs

device

an object

Definition

USING: combinators kernel math opencl opencl.ffi ;

IN: opencl.private

: device-info ( device-id -- device )
    dup {
        [
            CL_DEVICE_TYPE device-info-size_t
            size_t>cl-device-type
        ]
        [ CL_DEVICE_VENDOR_ID device-info-uint ]
        [ CL_DEVICE_MAX_COMPUTE_UNITS device-info-uint ]
        [ CL_DEVICE_MAX_WORK_ITEM_DIMENSIONS device-info-uint ]
        [
            CL_DEVICE_MAX_WORK_ITEM_SIZES
            device-info-size_t-array
        ]
        [ CL_DEVICE_MAX_WORK_GROUP_SIZE device-info-size_t ]
        [
            CL_DEVICE_PREFERRED_VECTOR_WIDTH_CHAR
            device-info-uint
        ]
        [
            CL_DEVICE_PREFERRED_VECTOR_WIDTH_SHORT
            device-info-uint
        ]
        [
            CL_DEVICE_PREFERRED_VECTOR_WIDTH_INT
            device-info-uint
        ]
        [
            CL_DEVICE_PREFERRED_VECTOR_WIDTH_LONG
            device-info-uint
        ]
        [
            CL_DEVICE_PREFERRED_VECTOR_WIDTH_FLOAT
            device-info-uint
        ]
        [
            CL_DEVICE_PREFERRED_VECTOR_WIDTH_DOUBLE
            device-info-uint
        ]
        [ CL_DEVICE_MAX_CLOCK_FREQUENCY device-info-uint ]
        [ CL_DEVICE_ADDRESS_BITS device-info-uint ]
        [ CL_DEVICE_MAX_MEM_ALLOC_SIZE device-info-ulong ]
        [ CL_DEVICE_IMAGE_SUPPORT device-info-bool ]
        [ CL_DEVICE_MAX_READ_IMAGE_ARGS device-info-uint ]
        [ CL_DEVICE_MAX_WRITE_IMAGE_ARGS device-info-uint ]
        [ CL_DEVICE_IMAGE2D_MAX_WIDTH device-info-size_t ]
        [ CL_DEVICE_IMAGE2D_MAX_HEIGHT device-info-size_t ]
        [ CL_DEVICE_IMAGE3D_MAX_WIDTH device-info-size_t ]
        [ CL_DEVICE_IMAGE3D_MAX_HEIGHT device-info-size_t ]
        [ CL_DEVICE_IMAGE3D_MAX_DEPTH device-info-size_t ]
        [ CL_DEVICE_MAX_SAMPLERS device-info-uint ]
        [ CL_DEVICE_MAX_PARAMETER_SIZE device-info-size_t ]
        [ CL_DEVICE_MEM_BASE_ADDR_ALIGN device-info-uint ]
        [ CL_DEVICE_MIN_DATA_TYPE_ALIGN_SIZE device-info-uint ]
        [
            CL_DEVICE_SINGLE_FP_CONFIG device-info-ulong
            cl_device_fp_config>flags
        ]
        [
            CL_DEVICE_GLOBAL_MEM_CACHE_TYPE device-info-uint
            cl_device_mem_cache_type>cache-type
        ]
        [ CL_DEVICE_GLOBAL_MEM_CACHELINE_SIZE device-info-uint ]
        [ CL_DEVICE_GLOBAL_MEM_CACHE_SIZE device-info-ulong ]
        [ CL_DEVICE_GLOBAL_MEM_SIZE device-info-ulong ]
        [ CL_DEVICE_MAX_CONSTANT_BUFFER_SIZE device-info-ulong ]
        [ CL_DEVICE_MAX_CONSTANT_ARGS device-info-uint ]
        [ CL_DEVICE_LOCAL_MEM_TYPE device-info-uint CL_LOCAL = ]
        [ CL_DEVICE_LOCAL_MEM_SIZE device-info-ulong ]
        [ CL_DEVICE_ERROR_CORRECTION_SUPPORT device-info-bool ]
        [
            CL_DEVICE_PROFILING_TIMER_RESOLUTION
            device-info-size_t
        ]
        [ CL_DEVICE_ENDIAN_LITTLE device-info-bool ]
        [ CL_DEVICE_AVAILABLE device-info-bool ]
        [ CL_DEVICE_COMPILER_AVAILABLE device-info-bool ]
        [
            CL_DEVICE_EXECUTION_CAPABILITIES device-info-ulong
            CL_EXEC_KERNEL bitand 0 = not
        ]
        [
            CL_DEVICE_EXECUTION_CAPABILITIES device-info-ulong
            CL_EXEC_NATIVE_KERNEL bitand 0 = not
        ]
        [
            CL_DEVICE_QUEUE_PROPERTIES device-info-ulong
            CL_QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE bitand 0 =
            not
        ]
        [
            CL_DEVICE_QUEUE_PROPERTIES device-info-ulong
            CL_QUEUE_PROFILING_ENABLE bitand 0 = not
        ]
        [ CL_DEVICE_NAME device-info-string ]
        [ CL_DEVICE_VENDOR device-info-string ]
        [ CL_DRIVER_VERSION device-info-string ]
        [ CL_DEVICE_PROFILE device-info-string ]
        [ CL_DEVICE_VERSION device-info-string ]
        [ CL_DEVICE_EXTENSIONS device-info-string ]
    } cleave cl-device boa ;