opencl_ruby_ffi 1.3.5 → 1.3.10

data/lib/opencl_ruby_ffi/opencl_ruby_ffi_base_gen.rb

@@ -1,27 +1,6 @@
 using OpenCLRefinements if RUBY_VERSION.scan(/\d+/).collect(&:to_i).first >= 2
 # Maps the OpenCL API using FFI
 module OpenCL
-  begin
-    if ENV["LIBOPENCL_SO"]
-      ffi_lib ENV["LIBOPENCL_SO"]
-    else
-      raise LoadError
-    end
-  rescue LoadError => e
-    begin
-      ffi_lib "OpenCL"
-    rescue LoadError => e
-      begin
-        ffi_lib "libOpenCL.so.1"
-      rescue LoadError => e
-        begin
-          ffi_lib '/System/Library/Frameworks/OpenCL.framework/OpenCL'
-        rescue LoadError => e
-          raise "OpenCL implementation not found!"
-        end
-      end
-    end
-  end
   SUCCESS = 0
   DEVICE_NOT_FOUND = -1
   DEVICE_NOT_AVAILABLE = -2
@@ -102,6 +81,8 @@ module OpenCL
   PLATFORM_VENDOR = 0x0903
   PLATFORM_EXTENSIONS = 0x0904
   PLATFORM_HOST_TIMER_RESOLUTION = 0x0905
+  PLATFORM_NUMERIC_VERSION = 0x0906
+  PLATFORM_EXTENSIONS_WITH_VERSION = 0x0907
   DEVICE_TYPE_DEFAULT = (1 << 0)
   DEVICE_TYPE_CPU = (1 << 1)
   DEVICE_TYPE_GPU = (1 << 2)
@@ -201,6 +182,20 @@ module OpenCL
   DEVICE_IL_VERSION = 0x105B
   DEVICE_MAX_NUM_SUB_GROUPS = 0x105C
   DEVICE_SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS = 0x105D
+  DEVICE_NUMERIC_VERSION = 0x105E
+  DEVICE_EXTENSIONS_WITH_VERSION = 0x1060
+  DEVICE_ILS_WITH_VERSION = 0x1061
+  DEVICE_BUILT_IN_KERNELS_WITH_VERSION = 0x1062
+  DEVICE_ATOMIC_MEMORY_CAPABILITIES = 0x1063
+  DEVICE_ATOMIC_FENCE_CAPABILITIES = 0x1064
+  DEVICE_NON_UNIFORM_WORK_GROUP_SUPPORT = 0x1065
+  DEVICE_OPENCL_C_ALL_VERSIONS = 0x1066
+  DEVICE_PREFERRED_WORK_GROUP_SIZE_MULTIPLE = 0x1067
+  DEVICE_WORK_GROUP_COLLECTIVE_FUNCTIONS_SUPPORT = 0x1068
+  DEVICE_GENERIC_ADDRESS_SPACE_SUPPORT = 0x1069
+  DEVICE_OPENCL_C_FEATURES = 0x106F
+  DEVICE_DEVICE_ENQUEUE_SUPPORT = 0x1070
+  DEVICE_PIPE_SUPPORT = 0x1071
   FP_DENORM = (1 << 0)
   FP_INF_NAN = (1 << 1)
   FP_ROUND_TO_NEAREST = (1 << 2)
@@ -240,12 +235,20 @@ module OpenCL
   DEVICE_SVM_FINE_GRAIN_BUFFER = (1 << 1)
   DEVICE_SVM_FINE_GRAIN_SYSTEM = (1 << 2)
   DEVICE_SVM_ATOMICS = (1 << 3)
+  DEVICE_ATOMIC_ORDER_RELAXED = (1 << 0)
+  DEVICE_ATOMIC_ORDER_ACQ_REL = (1 << 1)
+  DEVICE_ATOMIC_ORDER_SEQ_CST = (1 << 2)
+  DEVICE_ATOMIC_SCOPE_WORK_ITEM = (1 << 3)
+  DEVICE_ATOMIC_SCOPE_WORK_GROUP = (1 << 4)
+  DEVICE_ATOMIC_SCOPE_DEVICE = (1 << 5)
+  DEVICE_ATOMIC_SCOPE_ALL_DEVICES = (1 << 6)
   QUEUE_CONTEXT = 0x1090
   QUEUE_DEVICE = 0x1091
   QUEUE_REFERENCE_COUNT = 0x1092
   QUEUE_PROPERTIES = 0x1093
   QUEUE_SIZE = 0x1094
   QUEUE_DEVICE_DEFAULT = 0x1095
+  QUEUE_PROPERTIES_ARRAY = 0x1098
   MEM_READ_WRITE = (1 << 0)
   MEM_WRITE_ONLY = (1 << 1)
   MEM_READ_ONLY = (1 << 2)
@@ -323,6 +326,7 @@ module OpenCL
   MEM_ASSOCIATED_MEMOBJECT = 0x1107
   MEM_OFFSET = 0x1108
   MEM_USES_SVM_POINTER = 0x1109
+  MEM_PROPERTIES = 0x110A
   IMAGE_FORMAT = 0x1110
   IMAGE_ELEMENT_SIZE = 0x1111
   IMAGE_ROW_PITCH = 0x1112
@@ -336,6 +340,7 @@ module OpenCL
   IMAGE_NUM_SAMPLES = 0x111A
   PIPE_PACKET_SIZE = 0x1120
   PIPE_MAX_PACKETS = 0x1121
+  PIPE_PROPERTIES = 0x1122
   ADDRESS_NONE = 0x1130
   ADDRESS_CLAMP_TO_EDGE = 0x1131
   ADDRESS_CLAMP = 0x1132
@@ -451,6 +456,7 @@ module OpenCL
   COMMAND_SVM_MEMFILL = 0x120B
   COMMAND_SVM_MAP = 0x120C
   COMMAND_SVM_UNMAP = 0x120D
+  COMMAND_SVM_MIGRATE_MEM = 0x120E
   COMPLETE = 0x0
   RUNNING = 0x1
   SUBMITTED = 0x2
@@ -482,6 +488,13 @@ module OpenCL
   MEM_HOST_WRITETHROUGH_QCOM = 0x40A6
   MEM_HOST_WRITE_COMBINING_QCOM = 0x40A7
   MEM_ION_HOST_PTR_QCOM = 0x40A8
+  NAME_VERSION_MAX_NAME_SIZE = 64
+  VERSION_MAJOR_BITS = 10
+  VERSION_MINOR_BITS = 10
+  VERSION_PATCH_BITS = 12
+  VERSION_MAJOR_MASK = (1 << VERSION_MAJOR_BITS) - 1
+  VERSION_MINOR_MASK = (1 << VERSION_MINOR_BITS) - 1
+  VERSION_PATCH_MASK = (1 << VERSION_PATCH_BITS) - 1
   # Parent class to map OpenCL errors, and is used to raise unknown errors
   class Error < StandardError
     attr_reader :code
@@ -695,8 +708,7 @@ EOF
 
     # Returns true if flag is bitwise included in the Bitfield
     def include?(flag)
-      return true if ( @val & flag ) == flag
-      return false
+      return ( @val & flag ) == flag
     end
 
     # Returns a String corresponding to the Bitfield description
@@ -744,7 +756,7 @@ EOF
       return @val
     end
 
-    # Setss the internal representation of the Bitfield to val
+    # Sets the internal representation of the Bitfield to val
     def flags=(val)
       @val = val
     end
@@ -762,7 +774,7 @@ EOF
       #   @!parse include $2
       #   @private
       def self.register_extension(name, mod, cond)
-        self.send(:include, mod)
+        self.send(:prepend, mod)
       end
 
     else
@@ -799,6 +811,8 @@ EOF
     VENDOR = 0x0903
     EXTENSIONS = 0x0904
     HOST_TIMER_RESOLUTION = 0x0905
+    NUMERIC_VERSION = 0x0906
+    EXTENSIONS_WITH_VERSION = 0x0907
   
     # Creates a new Platform and retains it if specified and aplicable
     def initialize(ptr, retain = true)
@@ -914,6 +928,20 @@ EOF
     IL_VERSION = 0x105B
     MAX_NUM_SUB_GROUPS = 0x105C
     SUB_GROUP_INDEPENDENT_FORWARD_PROGRESS = 0x105D
+    NUMERIC_VERSION = 0x105E
+    EXTENSIONS_WITH_VERSION = 0x1060
+    ILS_WITH_VERSION = 0x1061
+    BUILT_IN_KERNELS_WITH_VERSION = 0x1062
+    ATOMIC_MEMORY_CAPABILITIES = 0x1063
+    ATOMIC_FENCE_CAPABILITIES = 0x1064
+    NON_UNIFORM_WORK_GROUP_SUPPORT = 0x1065
+    OPENCL_C_ALL_VERSIONS = 0x1066
+    PREFERRED_WORK_GROUP_SIZE_MULTIPLE = 0x1067
+    WORK_GROUP_COLLECTIVE_FUNCTIONS_SUPPORT = 0x1068
+    GENERIC_ADDRESS_SPACE_SUPPORT = 0x1069
+    OPENCL_C_FEATURES = 0x106F
+    DEVICE_ENQUEUE_SUPPORT = 0x1070
+    PIPE_SUPPORT = 0x1071
     PARTITION_EQUALLY = 0x1086
     PARTITION_BY_COUNTS = 0x1087
     PARTITION_BY_COUNTS_LIST_END = 0x0
@@ -929,6 +957,13 @@ EOF
     SVM_FINE_GRAIN_SYSTEM = (1 << 2)
     SVM_ATOMICS = (1 << 3)
     PAGE_SIZE_QCOM = 0x40A1
+    ATOMIC_ORDER_RELAXED = (1 << 0)
+    ATOMIC_ORDER_ACQ_REL = (1 << 1)
+    ATOMIC_ORDER_SEQ_CST = (1 << 2)
+    ATOMIC_SCOPE_WORK_ITEM = (1 << 3)
+    ATOMIC_SCOPE_WORK_GROUP = (1 << 4)
+    ATOMIC_SCOPE_DEVICE = (1 << 5)
+    ATOMIC_SCOPE_ALL_DEVICES = (1 << 6)
 
     #DEFINED in ext/device_fission.rb  
 #    # Creates a new Device and retains it if specified and aplicable
@@ -1079,6 +1114,25 @@ EOF
       end
     end
 
+    # Bitfield that maps the :cl_device_atomic_capabilities
+    class AtomicCapabilities < Bitfield
+      ORDER_RELAXED = (1 << 0)
+      ORDER_ACQ_REL = (1 << 1)
+      ORDER_SEQ_CST = (1 << 2)
+      SCOPE_WORK_ITEM = (1 << 3)
+      SCOPE_WORK_GROUP = (1 << 4)
+      SCOPE_DEVICE = (1 << 5)
+      SCOPE_ALL_DEVICES = (1 << 6)
+      # Returns an Array of String representing the different flags set
+      def names
+        fs = []
+        %w( ORDER_RELAXED ORDER_ACQ_REL ORDER_SEQ_CST SCOPE_WORK_ITEM SCOPE_WORK_GROUP SCOPE_DEVICE SCOPE_ALL_DEVICES ).each { |f|
+          fs.push(f) if self.include?( self.class.const_get(f) )
+        }
+        return fs
+      end
+    end
+
   end
   class Context < ExtendedStruct
     layout :dummy, :pointer
@@ -1132,6 +1186,7 @@ EOF
     PROPERTIES = 0x1093
     SIZE = 0x1094
     DEVICE_DEFAULT = 0x1095
+    PROPERTIES_ARRAY = 0x1098
     # Creates a new CommandQueue and retains it if specified and aplicable
     def initialize(ptr, retain = true)
       super(ptr)
@@ -1202,6 +1257,7 @@ EOF
     ASSOCIATED_MEMOBJECT = 0x1107
     OFFSET = 0x1108
     USES_SVM_POINTER = 0x1109
+    PROPERTIES = 0x110A
     HOST_UNCACHED_QCOM = 0x40A4
     HOST_WRITEBACK_QCOM = 0x40A5
     HOST_WRITETHROUGH_QCOM = 0x40A6
@@ -1737,6 +1793,7 @@ EOF
     SVM_MEMFILL = 0x120B
     SVM_MAP = 0x120C
     SVM_UNMAP = 0x120D
+    SVM_MIGRATE_MEM = 0x120E
     @codes = {}
     @codes[0x11F0] = 'NDRANGE_KERNEL'
     @codes[0x11F1] = 'TASK'
@@ -1768,6 +1825,7 @@ EOF
     @codes[0x120B] = 'SVM_MEMFILL'
     @codes[0x120C] = 'SVM_MAP'
     @codes[0x120D] = 'SVM_UNMAP'
+    @codes[0x120E] = 'SVM_MIGRATE_MEM'
   end
 
   # Enum that maps the :cl_gl_object_type type
@@ -1839,154 +1897,6 @@ EOF
     layout :dummy, :pointer
     PACKET_SIZE = 0x1120
     MAX_PACKETS = 0x1121
-  end
-  attach_function :clGetPlatformIDs, [:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clGetPlatformInfo, [Platform,:cl_platform_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clGetDeviceIDs, [Platform,:cl_device_type,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clGetDeviceInfo, [Device,:cl_device_info,:size_t,:pointer,:pointer], :cl_int
-  callback :clCreateContext_notify, [:string,:pointer,:size_t,:pointer], :void
-  attach_function :clCreateContext, [:pointer,:cl_uint,:pointer,:clCreateContext_notify,:pointer,:pointer], Context
-  callback :clCreateContextFromType_notify, [:string,:pointer,:size_t,:pointer], :void
-  attach_function :clCreateContextFromType, [:pointer,:cl_device_type,:clCreateContextFromType_notify,:pointer,:pointer], Context
-  attach_function :clRetainContext, [Context], :cl_int
-  attach_function :clReleaseContext, [Context], :cl_int
-  attach_function :clGetContextInfo, [Context,:cl_context_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clRetainCommandQueue, [CommandQueue], :cl_int
-  attach_function :clReleaseCommandQueue, [CommandQueue], :cl_int
-  attach_function :clGetCommandQueueInfo, [CommandQueue,:cl_command_queue_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clCreateBuffer, [Context,:cl_mem_flags,:size_t,:pointer,:pointer], Mem
-  attach_function :clRetainMemObject, [Mem], :cl_int
-  attach_function :clReleaseMemObject, [Mem], :cl_int
-  attach_function :clGetSupportedImageFormats, [Context,:cl_mem_flags,:cl_mem_object_type,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clGetMemObjectInfo, [Mem,:cl_mem_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clGetImageInfo, [Mem,:cl_image_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clRetainSampler, [Sampler], :cl_int
-  attach_function :clReleaseSampler, [Sampler], :cl_int
-  attach_function :clGetSamplerInfo, [Sampler,:cl_sampler_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clCreateProgramWithSource, [Context,:cl_uint,:pointer,:pointer,:pointer], Program
-  attach_function :clCreateProgramWithBinary, [Context,:cl_uint,:pointer,:pointer,:pointer,:pointer,:pointer], Program
-  attach_function :clRetainProgram, [Program], :cl_int
-  attach_function :clReleaseProgram, [Program], :cl_int
-  callback :clBuildProgram_notify, [Program.by_ref,:pointer], :void
-  attach_function :clBuildProgram, [Program,:cl_uint,:pointer,:pointer,:clBuildProgram_notify,:pointer], :cl_int
-  attach_function :clGetProgramInfo, [Program,:cl_program_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clGetProgramBuildInfo, [Program,Device,:cl_program_build_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clCreateKernel, [Program,:pointer,:pointer], Kernel
-  attach_function :clCreateKernelsInProgram, [Program,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clRetainKernel, [Kernel], :cl_int
-  attach_function :clReleaseKernel, [Kernel], :cl_int
-  attach_function :clSetKernelArg, [Kernel,:cl_uint,:size_t,:pointer], :cl_int
-  attach_function :clGetKernelInfo, [Kernel,:cl_kernel_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clGetKernelWorkGroupInfo, [Kernel,Device,:cl_kernel_work_group_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clWaitForEvents, [:cl_uint,:pointer], :cl_int
-  attach_function :clGetEventInfo, [Event,:cl_event_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clRetainEvent, [Event], :cl_int
-  attach_function :clReleaseEvent, [Event], :cl_int
-  attach_function :clGetEventProfilingInfo, [Event,:cl_profiling_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clFlush, [CommandQueue], :cl_int
-  attach_function :clFinish, [CommandQueue], :cl_int
-  attach_function :clEnqueueReadBuffer, [CommandQueue,Mem,:cl_bool,:size_t,:size_t,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clEnqueueWriteBuffer, [CommandQueue,Mem,:cl_bool,:size_t,:size_t,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clEnqueueCopyBuffer, [CommandQueue,Mem,Mem,:size_t,:size_t,:size_t,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clEnqueueReadImage, [CommandQueue,Mem,:cl_bool,:pointer,:pointer,:size_t,:size_t,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clEnqueueWriteImage, [CommandQueue,Mem,:cl_bool,:pointer,:pointer,:size_t,:size_t,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clEnqueueCopyImage, [CommandQueue,Mem,Mem,:pointer,:pointer,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clEnqueueCopyImageToBuffer, [CommandQueue,Mem,Mem,:pointer,:pointer,:size_t,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clEnqueueCopyBufferToImage, [CommandQueue,Mem,Mem,:size_t,:pointer,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clEnqueueMapBuffer, [CommandQueue,Mem,:cl_bool,:cl_map_flags,:size_t,:size_t,:cl_uint,:pointer,:pointer,:pointer], :pointer
-  attach_function :clEnqueueMapImage, [CommandQueue,Mem,:cl_bool,:cl_map_flags,:pointer,:pointer,:pointer,:pointer,:cl_uint,:pointer,:pointer,:pointer], :pointer
-  attach_function :clEnqueueUnmapMemObject, [CommandQueue,Mem,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clEnqueueNDRangeKernel, [CommandQueue,Kernel,:cl_uint,:pointer,:pointer,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-  callback :clEnqueueNativeKernel_notify, [:pointer], :void
-  attach_function :clEnqueueNativeKernel, [CommandQueue,:clEnqueueNativeKernel_notify,:pointer,:size_t,:cl_uint,:pointer,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clCreateImage2D, [Context,:cl_mem_flags,:pointer,:size_t,:size_t,:size_t,:pointer,:pointer], Mem
-  attach_function :clCreateImage3D, [Context,:cl_mem_flags,:pointer,:size_t,:size_t,:size_t,:size_t,:size_t,:pointer,:pointer], Mem
-  attach_function :clEnqueueMarker, [CommandQueue,:pointer], :cl_int
-  attach_function :clEnqueueWaitForEvents, [CommandQueue,:cl_uint,:pointer], :cl_int
-  attach_function :clEnqueueBarrier, [CommandQueue], :cl_int
-  attach_function :clUnloadCompiler, [:void], :cl_int
-  attach_function :clGetExtensionFunctionAddress, [:pointer], :pointer
-  attach_function :clCreateCommandQueue, [Context,Device,:cl_command_queue_properties,:pointer], CommandQueue
-  attach_function :clCreateSampler, [Context,:cl_bool,:cl_addressing_mode,:cl_filter_mode,:pointer], Sampler
-  attach_function :clEnqueueTask, [CommandQueue,Kernel,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clCreateFromGLBuffer, [Context,:cl_mem_flags,:cl_GLuint,:pointer], Mem
-  attach_function :clCreateFromGLRenderbuffer, [Context,:cl_mem_flags,:cl_GLuint,:pointer], Mem
-  attach_function :clGetGLObjectInfo, [Mem,:pointer,:pointer], :cl_int
-  attach_function :clGetGLTextureInfo, [Mem,:cl_gl_texture_info,:size_t,:pointer,:pointer], :cl_int
-  attach_function :clEnqueueAcquireGLObjects, [CommandQueue,:cl_uint,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clEnqueueReleaseGLObjects, [CommandQueue,:cl_uint,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-  attach_function :clCreateFromGLTexture2D, [Context,:cl_mem_flags,:cl_GLenum,:cl_GLint,:cl_GLuint,:pointer], Mem
-  attach_function :clCreateFromGLTexture3D, [Context,:cl_mem_flags,:cl_GLenum,:cl_GLint,:cl_GLuint,:pointer], Mem
-  begin # OpenCL 1.1
-    attach_function :clCreateSubBuffer, [Mem,:cl_mem_flags,:cl_buffer_create_type,:pointer,:pointer], Mem
-    attach_function :clEnqueueReadBufferRect, [CommandQueue,Mem,:cl_bool,:pointer,:pointer,:pointer,:size_t,:size_t,:size_t,:size_t,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-    attach_function :clEnqueueWriteBufferRect, [CommandQueue,Mem,:cl_bool,:pointer,:pointer,:pointer,:size_t,:size_t,:size_t,:size_t,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-    attach_function :clEnqueueCopyBufferRect, [CommandQueue,Mem,Mem,:pointer,:pointer,:pointer,:size_t,:size_t,:size_t,:size_t,:cl_uint,:pointer,:pointer], :cl_int
-    callback :clSetMemObjectDestructorCallback_notify, [:pointer,:pointer], :void
-    attach_function :clSetMemObjectDestructorCallback, [Mem,:clSetMemObjectDestructorCallback_notify,:pointer], :cl_int
-    attach_function :clCreateUserEvent, [Context,:pointer], Event
-    attach_function :clSetUserEventStatus, [Event,:cl_int], :cl_int
-    callback :clSetEventCallback_notify, [Event.by_ref,:cl_int,:pointer], :void
-    attach_function :clSetEventCallback, [Event,:cl_int,:clSetEventCallback_notify,:pointer], :cl_int
-    begin # OpenCL 1.2
-      attach_function :clCreateSubDevices, [Device,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-      attach_function :clRetainDevice, [Device], :cl_int
-      attach_function :clReleaseDevice, [Device], :cl_int
-      attach_function :clCreateImage, [Context,:cl_mem_flags,:pointer,:pointer,:pointer,:pointer], Mem
-      attach_function :clCreateProgramWithBuiltInKernels, [Context,:cl_uint,:pointer,:pointer,:pointer], Program
-      callback :clCompileProgram_notify, [Program.by_ref,:pointer], :void
-      attach_function :clCompileProgram, [Program,:cl_uint,:pointer,:pointer,:cl_uint,:pointer,:pointer,:clCompileProgram_notify,:pointer], :cl_int
-      callback :clLinkProgram_notify, [Program.by_ref,:pointer], :void
-      attach_function :clLinkProgram, [Context,:cl_uint,:pointer,:pointer,:cl_uint,:pointer,:clLinkProgram_notify,:pointer,:pointer], Program
-      attach_function :clUnloadPlatformCompiler, [Platform], :cl_int
-      attach_function :clGetKernelArgInfo, [Kernel,:cl_uint,:cl_kernel_arg_info,:size_t,:pointer,:pointer], :cl_int
-      attach_function :clEnqueueFillBuffer, [CommandQueue,Mem,:pointer,:size_t,:size_t,:size_t,:cl_uint,:pointer,:pointer], :cl_int
-      attach_function :clEnqueueFillImage, [CommandQueue,Mem,:pointer,:pointer,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-      attach_function :clEnqueueMigrateMemObjects, [CommandQueue,:cl_uint,:pointer,:cl_mem_migration_flags,:cl_uint,:pointer,:pointer], :cl_int
-      attach_function :clEnqueueMarkerWithWaitList, [CommandQueue,:cl_uint,:pointer,:pointer], :cl_int
-      attach_function :clEnqueueBarrierWithWaitList, [CommandQueue,:cl_uint,:pointer,:pointer], :cl_int
-      attach_function :clGetExtensionFunctionAddressForPlatform, [Platform,:pointer], :pointer
-      attach_function :clCreateFromGLTexture, [Context,:cl_mem_flags,:cl_GLenum,:cl_GLint,:cl_GLuint,:pointer], Mem
-      begin # OpenCL 2.0
-        attach_function :clCreateCommandQueueWithProperties, [Context,Device,:pointer,:pointer], CommandQueue
-        attach_function :clCreatePipe, [Context,:cl_mem_flags,:cl_uint,:cl_uint,:pointer,:pointer], Mem
-        attach_function :clGetPipeInfo, [Mem,:cl_pipe_info,:size_t,:pointer,:pointer], :cl_int
-        attach_function :clSVMAlloc, [Context,:cl_svm_mem_flags,:size_t,:cl_uint], :pointer
-        attach_function :clSVMFree, [Context,:pointer], :void
-        attach_function :clCreateSamplerWithProperties, [Context,:pointer,:pointer], Sampler
-        attach_function :clSetKernelArgSVMPointer, [Kernel,:cl_uint,:pointer], :cl_int
-        attach_function :clSetKernelExecInfo, [Kernel,:cl_kernel_exec_info,:size_t,:pointer], :cl_int
-        callback :clEnqueueSVMFree_notify, [CommandQueue.by_ref,:cl_uint,:pointer,:pointer], :void
-        attach_function :clEnqueueSVMFree, [CommandQueue,:cl_uint,:pointer,:clEnqueueSVMFree_notify,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-        attach_function :clEnqueueSVMMemcpy, [CommandQueue,:cl_bool,:pointer,:pointer,:size_t,:cl_uint,:pointer,:pointer], :cl_int
-        attach_function :clEnqueueSVMMemFill, [CommandQueue,:pointer,:pointer,:size_t,:size_t,:cl_uint,:pointer,:pointer], :cl_int
-        attach_function :clEnqueueSVMMap, [CommandQueue,:cl_bool,:cl_map_flags,:pointer,:size_t,:cl_uint,:pointer,:pointer], :cl_int
-        attach_function :clEnqueueSVMUnmap, [CommandQueue,:pointer,:cl_uint,:pointer,:pointer], :cl_int
-        begin # OpenCL 2.1
-          attach_function :clSetDefaultDeviceCommandQueue, [Context,Device,CommandQueue], :cl_int
-          attach_function :clGetDeviceAndHostTimer, [Device,:pointer,:pointer], :cl_int
-          attach_function :clGetHostTimer, [Device,:pointer], :cl_int
-          attach_function :clCreateProgramWithIL, [Context,:pointer,:size_t,:pointer], Program
-          attach_function :clCloneKernel, [Kernel,:pointer], Kernel
-          attach_function :clGetKernelSubGroupInfo, [Kernel,Device,:cl_kernel_sub_group_info,:size_t,:pointer,:size_t,:pointer,:pointer], :cl_int
-          attach_function :clEnqueueSVMMigrateMem, [CommandQueue,:cl_uint,:pointer,:pointer,:cl_mem_migration_flags,:cl_uint,:pointer,:pointer], :cl_int
-          begin # OpenCL 2.2
-            callback :clSetProgramReleaseCallback_notify, [Program.by_ref,:pointer], :void
-            attach_function :clSetProgramReleaseCallback, [Program,:clSetProgramReleaseCallback_notify,:pointer], :cl_int
-            attach_function :clSetProgramSpecializationConstant, [Program,:cl_uint,:size_t,:pointer], :cl_int
-          rescue NotFoundError => e
-            warn "Warning OpenCL 2.1 loader detected!"
-          end
-        rescue NotFoundError => e
-          warn "Warning OpenCL 2.0 loader detected!"
-        end
-      rescue NotFoundError => e
-        warn "Warning OpenCL 1.2 loader detected!"
-      end
-    rescue NotFoundError => e
-      warn "Warning OpenCL 1.1 loader detected!"
-    end
-  rescue NotFoundError => e
-      warn "Warning OpenCL 1.0 loader detected!"
+    PROPERTIES = 0x1122
   end
 end

data/lib/opencl_ruby_ffi/opencl_ruby_ffi_library.rb

@@ -0,0 +1,181 @@
+using OpenCLRefinements if RUBY_VERSION.scan(/\d+/).collect(&:to_i).first >= 2
+module OpenCL
+  begin
+    if ENV["LIBOPENCL_SO"]
+      ffi_lib ENV["LIBOPENCL_SO"]
+    else
+      raise LoadError
+    end
+  rescue LoadError
+    begin
+      ffi_lib "OpenCL"
+    rescue LoadError
+      begin
+        ffi_lib "libOpenCL.so.1"
+      rescue LoadError
+        begin
+          ffi_lib '/System/Library/Frameworks/OpenCL.framework/OpenCL'
+        rescue LoadError
+          raise "OpenCL implementation not found!"
+        end
+      end
+    end
+  end
+  attach_function :clGetPlatformIDs, [:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clGetPlatformInfo, [Platform,:cl_platform_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clGetDeviceIDs, [Platform,:cl_device_type,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clGetDeviceInfo, [Device,:cl_device_info,:size_t,:pointer,:pointer], :cl_int
+  callback :clCreateContext_notify, [:string,:pointer,:size_t,:pointer], :void
+  attach_function :clCreateContext, [:pointer,:cl_uint,:pointer,:clCreateContext_notify,:pointer,:pointer], Context
+  callback :clCreateContextFromType_notify, [:string,:pointer,:size_t,:pointer], :void
+  attach_function :clCreateContextFromType, [:pointer,:cl_device_type,:clCreateContextFromType_notify,:pointer,:pointer], Context
+  attach_function :clRetainContext, [Context], :cl_int
+  attach_function :clReleaseContext, [Context], :cl_int
+  attach_function :clGetContextInfo, [Context,:cl_context_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clRetainCommandQueue, [CommandQueue], :cl_int
+  attach_function :clReleaseCommandQueue, [CommandQueue], :cl_int
+  attach_function :clGetCommandQueueInfo, [CommandQueue,:cl_command_queue_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clCreateBuffer, [Context,:cl_mem_flags,:size_t,:pointer,:pointer], Mem
+  attach_function :clRetainMemObject, [Mem], :cl_int
+  attach_function :clReleaseMemObject, [Mem], :cl_int
+  attach_function :clGetSupportedImageFormats, [Context,:cl_mem_flags,:cl_mem_object_type,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clGetMemObjectInfo, [Mem,:cl_mem_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clGetImageInfo, [Mem,:cl_image_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clRetainSampler, [Sampler], :cl_int
+  attach_function :clReleaseSampler, [Sampler], :cl_int
+  attach_function :clGetSamplerInfo, [Sampler,:cl_sampler_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clCreateProgramWithSource, [Context,:cl_uint,:pointer,:pointer,:pointer], Program
+  attach_function :clCreateProgramWithBinary, [Context,:cl_uint,:pointer,:pointer,:pointer,:pointer,:pointer], Program
+  attach_function :clRetainProgram, [Program], :cl_int
+  attach_function :clReleaseProgram, [Program], :cl_int
+  callback :clBuildProgram_notify, [Program.by_ref,:pointer], :void
+  attach_function :clBuildProgram, [Program,:cl_uint,:pointer,:pointer,:clBuildProgram_notify,:pointer], :cl_int
+  attach_function :clGetProgramInfo, [Program,:cl_program_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clGetProgramBuildInfo, [Program,Device,:cl_program_build_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clCreateKernel, [Program,:pointer,:pointer], Kernel
+  attach_function :clCreateKernelsInProgram, [Program,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clRetainKernel, [Kernel], :cl_int
+  attach_function :clReleaseKernel, [Kernel], :cl_int
+  attach_function :clSetKernelArg, [Kernel,:cl_uint,:size_t,:pointer], :cl_int
+  attach_function :clGetKernelInfo, [Kernel,:cl_kernel_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clGetKernelWorkGroupInfo, [Kernel,Device,:cl_kernel_work_group_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clWaitForEvents, [:cl_uint,:pointer], :cl_int
+  attach_function :clGetEventInfo, [Event,:cl_event_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clRetainEvent, [Event], :cl_int
+  attach_function :clReleaseEvent, [Event], :cl_int
+  attach_function :clGetEventProfilingInfo, [Event,:cl_profiling_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clFlush, [CommandQueue], :cl_int
+  attach_function :clFinish, [CommandQueue], :cl_int
+  attach_function :clEnqueueReadBuffer, [CommandQueue,Mem,:cl_bool,:size_t,:size_t,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clEnqueueWriteBuffer, [CommandQueue,Mem,:cl_bool,:size_t,:size_t,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clEnqueueCopyBuffer, [CommandQueue,Mem,Mem,:size_t,:size_t,:size_t,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clEnqueueReadImage, [CommandQueue,Mem,:cl_bool,:pointer,:pointer,:size_t,:size_t,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clEnqueueWriteImage, [CommandQueue,Mem,:cl_bool,:pointer,:pointer,:size_t,:size_t,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clEnqueueCopyImage, [CommandQueue,Mem,Mem,:pointer,:pointer,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clEnqueueCopyImageToBuffer, [CommandQueue,Mem,Mem,:pointer,:pointer,:size_t,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clEnqueueCopyBufferToImage, [CommandQueue,Mem,Mem,:size_t,:pointer,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clEnqueueMapBuffer, [CommandQueue,Mem,:cl_bool,:cl_map_flags,:size_t,:size_t,:cl_uint,:pointer,:pointer,:pointer], :pointer
+  attach_function :clEnqueueMapImage, [CommandQueue,Mem,:cl_bool,:cl_map_flags,:pointer,:pointer,:pointer,:pointer,:cl_uint,:pointer,:pointer,:pointer], :pointer
+  attach_function :clEnqueueUnmapMemObject, [CommandQueue,Mem,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clEnqueueNDRangeKernel, [CommandQueue,Kernel,:cl_uint,:pointer,:pointer,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+  callback :clEnqueueNativeKernel_notify, [:pointer], :void
+  attach_function :clEnqueueNativeKernel, [CommandQueue,:clEnqueueNativeKernel_notify,:pointer,:size_t,:cl_uint,:pointer,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clCreateImage2D, [Context,:cl_mem_flags,:pointer,:size_t,:size_t,:size_t,:pointer,:pointer], Mem
+  attach_function :clCreateImage3D, [Context,:cl_mem_flags,:pointer,:size_t,:size_t,:size_t,:size_t,:size_t,:pointer,:pointer], Mem
+  attach_function :clEnqueueMarker, [CommandQueue,:pointer], :cl_int
+  attach_function :clEnqueueWaitForEvents, [CommandQueue,:cl_uint,:pointer], :cl_int
+  attach_function :clEnqueueBarrier, [CommandQueue], :cl_int
+  attach_function :clUnloadCompiler, [:void], :cl_int
+  attach_function :clGetExtensionFunctionAddress, [:pointer], :pointer
+  attach_function :clCreateCommandQueue, [Context,Device,:cl_command_queue_properties,:pointer], CommandQueue
+  attach_function :clCreateSampler, [Context,:cl_bool,:cl_addressing_mode,:cl_filter_mode,:pointer], Sampler
+  attach_function :clEnqueueTask, [CommandQueue,Kernel,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clCreateFromGLBuffer, [Context,:cl_mem_flags,:cl_GLuint,:pointer], Mem
+  attach_function :clCreateFromGLRenderbuffer, [Context,:cl_mem_flags,:cl_GLuint,:pointer], Mem
+  attach_function :clGetGLObjectInfo, [Mem,:pointer,:pointer], :cl_int
+  attach_function :clGetGLTextureInfo, [Mem,:cl_gl_texture_info,:size_t,:pointer,:pointer], :cl_int
+  attach_function :clEnqueueAcquireGLObjects, [CommandQueue,:cl_uint,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clEnqueueReleaseGLObjects, [CommandQueue,:cl_uint,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+  attach_function :clCreateFromGLTexture2D, [Context,:cl_mem_flags,:cl_GLenum,:cl_GLint,:cl_GLuint,:pointer], Mem
+  attach_function :clCreateFromGLTexture3D, [Context,:cl_mem_flags,:cl_GLenum,:cl_GLint,:cl_GLuint,:pointer], Mem
+  begin # OpenCL 1.1
+    attach_function :clCreateSubBuffer, [Mem,:cl_mem_flags,:cl_buffer_create_type,:pointer,:pointer], Mem
+    attach_function :clEnqueueReadBufferRect, [CommandQueue,Mem,:cl_bool,:pointer,:pointer,:pointer,:size_t,:size_t,:size_t,:size_t,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+    attach_function :clEnqueueWriteBufferRect, [CommandQueue,Mem,:cl_bool,:pointer,:pointer,:pointer,:size_t,:size_t,:size_t,:size_t,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+    attach_function :clEnqueueCopyBufferRect, [CommandQueue,Mem,Mem,:pointer,:pointer,:pointer,:size_t,:size_t,:size_t,:size_t,:cl_uint,:pointer,:pointer], :cl_int
+    callback :clSetMemObjectDestructorCallback_notify, [:pointer,:pointer], :void
+    attach_function :clSetMemObjectDestructorCallback, [Mem,:clSetMemObjectDestructorCallback_notify,:pointer], :cl_int
+    attach_function :clCreateUserEvent, [Context,:pointer], Event
+    attach_function :clSetUserEventStatus, [Event,:cl_int], :cl_int
+    callback :clSetEventCallback_notify, [Event.by_ref,:cl_int,:pointer], :void
+    attach_function :clSetEventCallback, [Event,:cl_int,:clSetEventCallback_notify,:pointer], :cl_int
+    begin # OpenCL 1.2
+      attach_function :clCreateSubDevices, [Device,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+      attach_function :clRetainDevice, [Device], :cl_int
+      attach_function :clReleaseDevice, [Device], :cl_int
+      attach_function :clCreateImage, [Context,:cl_mem_flags,:pointer,:pointer,:pointer,:pointer], Mem
+      attach_function :clCreateProgramWithBuiltInKernels, [Context,:cl_uint,:pointer,:pointer,:pointer], Program
+      callback :clCompileProgram_notify, [Program.by_ref,:pointer], :void
+      attach_function :clCompileProgram, [Program,:cl_uint,:pointer,:pointer,:cl_uint,:pointer,:pointer,:clCompileProgram_notify,:pointer], :cl_int
+      callback :clLinkProgram_notify, [Program.by_ref,:pointer], :void
+      attach_function :clLinkProgram, [Context,:cl_uint,:pointer,:pointer,:cl_uint,:pointer,:clLinkProgram_notify,:pointer,:pointer], Program
+      attach_function :clUnloadPlatformCompiler, [Platform], :cl_int
+      attach_function :clGetKernelArgInfo, [Kernel,:cl_uint,:cl_kernel_arg_info,:size_t,:pointer,:pointer], :cl_int
+      attach_function :clEnqueueFillBuffer, [CommandQueue,Mem,:pointer,:size_t,:size_t,:size_t,:cl_uint,:pointer,:pointer], :cl_int
+      attach_function :clEnqueueFillImage, [CommandQueue,Mem,:pointer,:pointer,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+      attach_function :clEnqueueMigrateMemObjects, [CommandQueue,:cl_uint,:pointer,:cl_mem_migration_flags,:cl_uint,:pointer,:pointer], :cl_int
+      attach_function :clEnqueueMarkerWithWaitList, [CommandQueue,:cl_uint,:pointer,:pointer], :cl_int
+      attach_function :clEnqueueBarrierWithWaitList, [CommandQueue,:cl_uint,:pointer,:pointer], :cl_int
+      attach_function :clGetExtensionFunctionAddressForPlatform, [Platform,:pointer], :pointer
+      attach_function :clCreateFromGLTexture, [Context,:cl_mem_flags,:cl_GLenum,:cl_GLint,:cl_GLuint,:pointer], Mem
+      begin # OpenCL 2.0
+        attach_function :clCreateCommandQueueWithProperties, [Context,Device,:pointer,:pointer], CommandQueue
+        attach_function :clCreatePipe, [Context,:cl_mem_flags,:cl_uint,:cl_uint,:pointer,:pointer], Mem
+        attach_function :clGetPipeInfo, [Mem,:cl_pipe_info,:size_t,:pointer,:pointer], :cl_int
+        attach_function :clSVMAlloc, [Context,:cl_svm_mem_flags,:size_t,:cl_uint], :pointer
+        attach_function :clSVMFree, [Context,:pointer], :void
+        attach_function :clCreateSamplerWithProperties, [Context,:pointer,:pointer], Sampler
+        attach_function :clSetKernelArgSVMPointer, [Kernel,:cl_uint,:pointer], :cl_int
+        attach_function :clSetKernelExecInfo, [Kernel,:cl_kernel_exec_info,:size_t,:pointer], :cl_int
+        callback :clEnqueueSVMFree_notify, [CommandQueue.by_ref,:cl_uint,:pointer,:pointer], :void
+        attach_function :clEnqueueSVMFree, [CommandQueue,:cl_uint,:pointer,:clEnqueueSVMFree_notify,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+        attach_function :clEnqueueSVMMemcpy, [CommandQueue,:cl_bool,:pointer,:pointer,:size_t,:cl_uint,:pointer,:pointer], :cl_int
+        attach_function :clEnqueueSVMMemFill, [CommandQueue,:pointer,:pointer,:size_t,:size_t,:cl_uint,:pointer,:pointer], :cl_int
+        attach_function :clEnqueueSVMMap, [CommandQueue,:cl_bool,:cl_map_flags,:pointer,:size_t,:cl_uint,:pointer,:pointer], :cl_int
+        attach_function :clEnqueueSVMUnmap, [CommandQueue,:pointer,:cl_uint,:pointer,:pointer], :cl_int
+        begin # OpenCL 2.1
+          attach_function :clSetDefaultDeviceCommandQueue, [Context,Device,CommandQueue], :cl_int
+          attach_function :clGetDeviceAndHostTimer, [Device,:pointer,:pointer], :cl_int
+          attach_function :clGetHostTimer, [Device,:pointer], :cl_int
+          attach_function :clCreateProgramWithIL, [Context,:pointer,:size_t,:pointer], Program
+          attach_function :clCloneKernel, [Kernel,:pointer], Kernel
+          attach_function :clGetKernelSubGroupInfo, [Kernel,Device,:cl_kernel_sub_group_info,:size_t,:pointer,:size_t,:pointer,:pointer], :cl_int
+          attach_function :clEnqueueSVMMigrateMem, [CommandQueue,:cl_uint,:pointer,:pointer,:cl_mem_migration_flags,:cl_uint,:pointer,:pointer], :cl_int
+          begin # OpenCL 2.2
+            callback :clSetProgramReleaseCallback_notify, [Program.by_ref,:pointer], :void
+            attach_function :clSetProgramReleaseCallback, [Program,:clSetProgramReleaseCallback_notify,:pointer], :cl_int
+            attach_function :clSetProgramSpecializationConstant, [Program,:cl_uint,:size_t,:pointer], :cl_int
+            begin # OpenCL 3.0
+              attach_function :clCreateBufferWithProperties, [Context,:pointer,:cl_mem_flags,:size_t,:pointer,:pointer], Mem
+              attach_function :clCreateImageWithProperties, [Context,:pointer,:cl_mem_flags,:pointer,:pointer,:pointer,:pointer], Mem
+              callback :clSetContextDestructorCallback_notify, [Context.by_ref,:pointer], :void
+              attach_function :clSetContextDestructorCallback, [Context,:clSetContextDestructorCallback_notify,:pointer], :cl_int
+            rescue NotFoundError
+              warn "Warning OpenCL 2.2 loader detected!"
+            end
+          rescue NotFoundError
+            warn "Warning OpenCL 2.1 loader detected!"
+          end
+        rescue NotFoundError
+          warn "Warning OpenCL 2.0 loader detected!"
+        end
+      rescue NotFoundError
+        warn "Warning OpenCL 1.2 loader detected!"
+      end
+    rescue NotFoundError
+      warn "Warning OpenCL 1.1 loader detected!"
+    end
+  rescue NotFoundError
+      warn "Warning OpenCL 1.0 loader detected!"
+  end
+end