Enable creating and releasing kernels

README.md

@@ -31,7 +31,7 @@ It is mainly developed and tested on Linux and with Intel and Nvidia GPUs. It sh
   - [ ] unloading the compiler
   - [ ] querying program (build) info
 - [ ] kernel objects
-  - [ ] creating and releasing kernels
+  - [x] creating and releasing kernels
   - [ ] setting arguments
   - [ ] querying kernel, work group and argument info
   - [ ] executing kernels

kernel.go

+package opencl
+
+/*
+#ifdef __APPLE__
+#include <OpenCL/opencl.h>
+#else
+#include <CL/cl.h>
+#endif
+
+#include <stdlib.h>
+*/
+import "C"
+import (
+	"fmt"
+	"unsafe"
+)
+
+type Kernel struct {
+	kernel C.cl_kernel
+}
+
+func createKernel(program Program, name string) (*Kernel, error) {
+	clName := C.CString(name)
+	defer C.free(unsafe.Pointer(clName))
+	var err C.cl_int
+	kernel := C.clCreateKernel(program.program, clName, &err)
+	if err != C.CL_SUCCESS {
+		return nil, fmt.Errorf("failed to create kernel: %d", err)
+	}
+	return &Kernel{kernel}, nil
+}
+
+func (k Kernel) Release() error {
+	err := C.clReleaseKernel(k.kernel)
+	if err != C.CL_SUCCESS {
+		return fmt.Errorf("failed to release kernel: %d", err)
+	}
+	return nil
+}

program.go

@@ -56,3 +56,7 @@ func (p Program) BuildLog(device Device) (string, error) {
 
 	return C.GoString(&result[0]), nil
 }
+
+func (p Program) CreateKernel(name string) (*Kernel, error) {
+	return createKernel(p, name)
+}