create cl write_bffer exampe. matmul: factor out CL buffer.

Author: cirosantilli

opencl/README.md

@@ -10,6 +10,7 @@
     1.  [Vector type](vector_type.c)
     1.  [clinfo](clinfo.c)
     1.  [Preprocessor](matmul.c)
+    1.  [Write buffer](write_buffer.c)
     1.  [Benchmark examples](benchmark-examples.md)
         1.  [Matrix multiplication](matmul.c)
 1.  Tools

opencl/common.h

@@ -23,20 +23,34 @@ typedef struct {
     cl_program program;
 } Common;
 
-void common_init_options(
+char* common_read_file(const char *path) {
+    char *buffer;
+    FILE *f;
+    long length;
+
+    f = fopen(path, "r");
+    assert(NULL != f);
+    fseek(f, 0, SEEK_END);
+    length = ftell(f);
+    fseek(f, 0, SEEK_SET);
+    buffer = malloc(length + 1);
+    if (fread(buffer, 1, length, f) < (size_t)length) {
+        return NULL;
+    }
+    fclose(f);
+    buffer[length] = '\0';
+    return buffer;
+}
+
+void common_create_kernel(
     Common *common,
     const char *source,
     const char *options
 ) {
-	char *err;
-	size_t err_len;
     cl_int ret;
-    cl_platform_id platform;
+    char *err;
+    size_t err_len;
 
-    clGetPlatformIDs(1, &platform, NULL);
-    clGetDeviceIDs(platform, CL_DEVICE_TYPE_ALL, 1, &(common->device), NULL);
-    common->context = clCreateContext(NULL, 1, &(common->device), NULL, NULL, NULL);
-    common->command_queue = clCreateCommandQueue(common->context, common->device, 0, NULL);
     if (NULL != source) {
         common->program = clCreateProgramWithSource(common->context, 1, &source, NULL, NULL);
         ret = clBuildProgram(common->program, 1, &(common->device), options, NULL, NULL);
@@ -55,30 +69,36 @@ void common_init_options(
     }
 }
 
-void common_init(
+void common_create_kernel_file(
     Common *common,
-    const char *source
+    const char *source_path,
+    const char *options
 ) {
-	common_init_options(common, source, "");
+    char *source;
+    source = common_read_file(source_path);
+    common_create_kernel(common, source, options);
+    free(source);
 }
 
-char* common_read_file(const char *path) {
-    char *buffer;
-    FILE *f;
-    long length;
+void common_init_options(
+    Common *common,
+    const char *source,
+    const char *options
+) {
+    cl_platform_id platform;
 
-    f = fopen(path, "r");
-    assert(NULL != f);
-    fseek(f, 0, SEEK_END);
-    length = ftell(f);
-    fseek(f, 0, SEEK_SET);
-    buffer = malloc(length + 1);
-    if (fread(buffer, 1, length, f) < (size_t)length) {
-    	return NULL;
-    }
-    fclose(f);
-    buffer[length] = '\0';
-    return buffer;
+    clGetPlatformIDs(1, &platform, NULL);
+    clGetDeviceIDs(platform, CL_DEVICE_TYPE_ALL, 1, &(common->device), NULL);
+    common->context = clCreateContext(NULL, 1, &(common->device), NULL, NULL, NULL);
+    common->command_queue = clCreateCommandQueue(common->context, common->device, 0, NULL);
+    common_create_kernel(common, source, options);
+}
+
+void common_init(
+    Common *common,
+    const char *source
+) {
+    common_init_options(common, source, "");
 }
 
 void common_init_file_options(
@@ -96,7 +116,7 @@ void common_init_file(
     Common *common,
     const char *source_path
 ) {
-	common_init_file_options(common, source_path, "");
+    common_init_file_options(common, source_path, "");
 }
 
 void common_deinit(
@@ -111,7 +131,7 @@ void common_deinit(
         clReleaseContext(common->context);
     }
 #ifdef CL_1_2
-	clReleaseDevice(common->device);
+    clReleaseDevice(common->device);
 #endif
 }
 

opencl/introduction.md

@@ -35,3 +35,7 @@ OpenCL, like any other language has versions. As of 2013 the latest version is O
 - <http://stackoverflow.com/questions/33575715/opencl-opengl-interop-how-to-fill-a-climagegl>
 
 Also see compute shaders for OpenGL 4.X, they seem to integrate better.
+
+## Implement OpenGL with OpenCL:
+
+- <https://github.com/a2flo/oclraster>