(build-program) ( program-handle device options -- program )

Vocabulary

opencl.private

Inputs

program-handle	an object
device	an object
options	an object

Outputs

program

an object

Definition

USING: accessors arrays combinators destructors
io.encodings.ascii io.encodings.string opencl opencl.ffi
sequences specialized-arrays.instances.alien.c-types.void* ;

IN: opencl.private

:: (build-program)
    ( program-handle device options -- program )
    program-handle 1 device 1array
    [ id>> ] void*-array{ } map-as options ascii encode 0 suffix
    f f clBuildProgram {
        {
            CL_BUILD_PROGRAM_FAILURE
            [
                program-handle device id>> program-build-log
                program-handle clReleaseProgram cl-success
                cl-error f
            ]
        }
        {
            CL_SUCCESS
            [
                cl-program new-disposable program-handle
                >>handle
            ]
        }
        [
            program-handle clReleaseProgram cl-success
            cl-success f
        ]
    } case ;