(program) ( cl-context sources -- program-handle )

Vocabulary

opencl.private

Inputs

cl-context	an object
sources	an object

Outputs

program-handle

an object

Definition

USING: accessors alien.c-types alien.data destructors kernel
opencl.ffi sequences
specialized-arrays.instances.alien.c-types.size_t ;

IN: opencl.private

: (program) ( cl-context sources -- program-handle )
    [ handle>> ] dip [
        [ length ] [ strings>char*-array ]
        [ [ length ] size_t-array{ } map-as ] tri 0 int <ref>
        [ clCreateProgramWithSource ] keep int deref cl-success
    ] with-destructors ;