opencl_ruby_ffi 1.3.8 → 1.3.9

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 409ed20eac2dc9aa0d410563053699e18528cd62471903fd862ee2f31bb60a81
-  data.tar.gz: 670b281a4ab283be7a8c429474008e9e280987e8d81bc5222a853c32a10a569b
+  metadata.gz: 5b82499588d782647276b70a17225849c4468bb0c3619191fcba4bb15729318a
+  data.tar.gz: 3b015990606ee221a9e7288b2f1b99bfdae814ae3016f8142fb1044df3b3ec3b
 SHA512:
-  metadata.gz: 9301ea0a86feed2d72684a63366ad1b6862cd8238497854b768044814940c3f7ec39a7badfa11d56cead96d0c01fddb64092b56d1399d5a8395ce6d9305754f9
-  data.tar.gz: 8fa725c1e61931b3d9cdff0cf5d557055398ecf058d56289a72bca1ee3d2e54f80d279266e2185177ac59f9386f32422054e6437e19f23f452a65c060c45fe0c
+  metadata.gz: 28148b57ac0b7cf8e8b619ed50e94c0bf5af77cfebad6fdae788efc23e90850bfe439a64f50270573367729a7fd47751a1fe3d75e8dd5b0405c9ffeb2b4012f6
+  data.tar.gz: 6b11039332b1c93141c350ab5b0a642521d0019e5bc1670af22daad333d85a4f32db8fa18d7bba5d2032944300ecdba6167903f623661f448b74fe45bd4a6948

data/lib/opencl_ruby_ffi.rb

@@ -2,6 +2,7 @@ require "opencl_ruby_ffi/opencl_types.rb"
 require "opencl_ruby_ffi/opencl_ruby_ffi_base_gen.rb"
 require "opencl_ruby_ffi/opencl_arithmetic_gen.rb"
 require "opencl_ruby_ffi/opencl_ruby_ffi_base.rb"
+require "opencl_ruby_ffi/opencl_ruby_ffi_library.rb"
 require "opencl_ruby_ffi/Context.rb"
 require "opencl_ruby_ffi/Platform.rb"
 require "opencl_ruby_ffi/Device.rb"

data/lib/opencl_ruby_ffi/opencl_ruby_ffi_base.rb

@@ -47,13 +47,13 @@ module OpenCL
     end
 
     # Creates a new ImageFormat from an image channel order and data type
-    def initialize( image_channel_order, image_channel_data_type = nil )
-      if image_channel_order.is_a?(FFI::Pointer) and image_channel_data_type.nil? then
+    def initialize( image_channel_order = nil, image_channel_data_type = nil )
+      if image_channel_order.is_a?(FFI::Pointer) then
         super(image_channel_order)
       else
         super()
-        self[:image_channel_order] = image_channel_order
-        self[:image_channel_data_type] = image_channel_data_type
+        self[:image_channel_order] = image_channel_order if image_channel_order
+        self[:image_channel_data_type] = image_channel_data_type if image_channel_data_type
       end
     end
 
@@ -98,18 +98,22 @@ module OpenCL
            :buffer,               Mem.ptr
 
      # Creates anew ImageDesc using the values provided by the user
-     def initialize( image_type, image_width, image_height, image_depth, image_array_size, image_row_pitch, image_slice_pitch, num_mip_levels, num_samples, buffer )
-       super()
-       self[:image_type] = image_type
-       self[:image_width] = image_width
-       self[:image_height] = image_height
-       self[:image_depth] = image_depth
-       self[:image_array_size] = image_array_size
-       self[:image_row_pitch] = image_row_pitch
-       self[:image_slice_pitch] = image_slice_pitch
-       self[:num_mip_levels] = num_mip_levels
-       self[:num_samples] = num_samples
-       self[:buffer] = buffer
+     def initialize( image_type = nil, image_width = nil, image_height = nil, image_depth = nil, image_array_size = nil, image_row_pitch = nil, image_slice_pitch = nil, num_mip_levels = nil, num_samples = nil, buffer = nil )
+       if (image_type.is_a?(FFI::Pointer))
+         super(image_type)
+       else
+         super()
+         self[:image_type] = image_type if image_type
+         self[:image_width] = image_width if image_width
+         self[:image_height] = image_height if image_height
+         self[:image_depth] = image_depth if image_depth
+         self[:image_array_size] = image_array_size if image_array_size
+         self[:image_row_pitch] = image_row_pitch if image_row_pitch
+         self[:image_slice_pitch] = image_slice_pitch if image_slice_pitch
+         self[:num_mip_levels] = num_mip_levels if num_mip_levels
+         self[:num_samples] = num_samples if num_samples
+         self[:buffer] = buffer if buffer
+       end
      end
   end
 
@@ -119,10 +123,14 @@ module OpenCL
            :size,   :size_t
 
     # Creates a new BufferRegion using the value provided by the user
-    def initialize( origin, sz )
-      super()
-      self[:origin] = origin
-      self[:size]   = sz
+    def initialize( origin = nil, sz = nil )
+      if (origin.is_a?(FFI::Pointer))
+        super(origin)
+      else
+        super()
+        self[:origin] = origin if origin
+        self[:size]   = sz if sz
+      end
     end
   end
 

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
@@ -1920,161 +1899,4 @@ EOF
     MAX_PACKETS = 0x1121
     PROPERTIES = 0x1122
   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 => e
-              warn "Warning OpenCL 2.2 loader detected!"
-            end
-          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!"
-  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 => 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
+  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 => e
+              warn "Warning OpenCL 2.2 loader detected!"
+            end
+          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!"
+  end
+end

data/opencl_ruby_ffi.gemspec

@@ -1,6 +1,6 @@
 Gem::Specification.new do |s|
   s.name = 'opencl_ruby_ffi'
-  s.version = "1.3.8"
+  s.version = "1.3.9"
   s.author = "Brice Videau"
   s.email = "bvideau@anl.gov"
   s.homepage = "https://github.com/Nanosim-LIG/opencl-ruby"

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: opencl_ruby_ffi
 version: !ruby/object:Gem::Version
-  version: 1.3.8
+  version: 1.3.9
 platform: ruby
 authors:
 - Brice Videau
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2021-03-07 00:00:00.000000000 Z
+date: 2021-04-08 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: narray
@@ -125,6 +125,7 @@ files:
 - lib/opencl_ruby_ffi/opencl_arithmetic_gen.rb
 - lib/opencl_ruby_ffi/opencl_ruby_ffi_base.rb
 - lib/opencl_ruby_ffi/opencl_ruby_ffi_base_gen.rb
+- lib/opencl_ruby_ffi/opencl_ruby_ffi_library.rb
 - lib/opencl_ruby_ffi/opencl_types.rb
 - opencl_ruby_ffi.gemspec
 - templates_custom/default/module/setup.rb