Extract Truffle::FiddleBackend.get_pointer_value

Author: chrisseaton

lib/truffle/truffle/fiddle_backend.rb

@@ -55,19 +55,7 @@ def self.int_type(size)
   def self.convert_ruby_to_native(type, val)
     case type
     when Fiddle::TYPE_VOIDP
-      if val.is_a?(String)
-        Truffle::CExt.string_pointer_to_native(val)
-      elsif val.is_a?(Fiddle::Pointer)
-        val.to_i
-      elsif val.respond_to?(:to_ptr)
-        val.to_ptr.to_i
-      elsif val.nil?
-        0
-      elsif val.is_a?(Integer)
-        val
-      else
-        raise NotImplementedError, "#{val.inspect} to pointer"
-      end
+      get_pointer_value(val)
     when Fiddle::TYPE_INT
       Integer(val)
     when -Fiddle::TYPE_LONG
@@ -79,6 +67,22 @@ def self.convert_ruby_to_native(type, val)
     end
   end
 
+  def self.get_pointer_value(val)
+    if val.is_a?(String)
+      Truffle::CExt.string_pointer_to_native(val)
+    elsif val.is_a?(Fiddle::Pointer)
+      val.to_i
+    elsif val.respond_to?(:to_ptr)
+      val.to_ptr.to_i
+    elsif val.nil?
+      0
+    elsif val.is_a?(Integer)
+      val
+    else
+      raise NotImplementedError, "#{val.inspect} to pointer"
+    end
+  end
+
   def self.convert_native_to_ruby(type, val)
     case type
     when Fiddle::TYPE_VOID