* ext/fiddle/handle.c: Make Fiddle independent of DL, copy DL::Handle

to Fiddle::Handle.
* ext/fiddle/pointer.c: Make Fiddle independent of DL, copy
  DL::Pointer to Fiddle::Pointer.
* test/fiddle/test_func.rb: relevent tests
* test/fiddle/test_handle.rb: ditto
* test/fiddle/test_pointer.rb: ditto
* ext/dl/lib/dl/struct.rb: use Fiddle::Pointer if available
* ext/fiddle/extconf.rb: check for dlfcn.h
* ext/fiddle/fiddle.c: add constants for sizeof() things
* ext/fiddle/fiddle.h: include dlfcn.h
* ext/fiddle/function.c: expose a C function for creating new
  Fiddle::Function objects.
* ext/fiddle/lib/fiddle.rb: include constants for dl backwards compat
* ext/fiddle/lib/fiddle/function.rb: read the pointer from the
  function for dl backwards compat.
* test/dl/test_callback.rb: check the addresses of the pointers rather
  than their types.
* test/fiddle/helper.rb: remove dependency on dl
* test/fiddle/test_closure.rb: ditto
* test/fiddle/test_fiddle.rb: ditto

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@37907 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

test/fiddle/test_func.rb

@@ -0,0 +1,79 @@
+require_relative 'helper'
+
+module Fiddle
+  class TestFunc < TestCase
+    def test_random
+      f = Function.new(@libc['srand'], [-TYPE_LONG], TYPE_VOID)
+      assert_nil f.call(10)
+    end
+
+    def test_sinf
+      begin
+        f = Function.new(@libm['sinf'], [TYPE_FLOAT], TYPE_FLOAT)
+      rescue Fiddle::DLError
+        skip "libm may not have sinf()"
+      end
+      assert_in_delta 1.0, f.call(90 * Math::PI / 180), 0.0001
+    end
+
+    def test_sin
+      f = Function.new(@libm['sin'], [TYPE_DOUBLE], TYPE_DOUBLE)
+      assert_in_delta 1.0, f.call(90 * Math::PI / 180), 0.0001
+    end
+
+    def test_string
+      stress, GC.stress = GC.stress, true
+      f = Function.new(@libc['strcpy'], [TYPE_VOIDP, TYPE_VOIDP], TYPE_VOIDP)
+      buff = "000"
+      str = f.call(buff, "123")
+      assert_equal("123", buff)
+      assert_equal("123", str.to_s)
+    ensure
+      GC.stress = stress
+    end
+
+    def test_isdigit
+      f = Function.new(@libc['isdigit'], [TYPE_INT], TYPE_INT)
+      r1 = f.call(?1.ord)
+      r2 = f.call(?2.ord)
+      rr = f.call(?r.ord)
+      assert_operator r1, :>, 0
+      assert_operator r2, :>, 0
+      assert_equal 0, rr
+    end
+
+    def test_atof
+      f = Function.new(@libc['atof'], [TYPE_VOIDP], TYPE_DOUBLE)
+      r = f.call("12.34")
+      assert_includes(12.00..13.00, r)
+    end
+
+    def test_strtod
+      f = Function.new(@libc['strtod'], [TYPE_VOIDP, TYPE_VOIDP], TYPE_DOUBLE)
+      buff1 = Pointer["12.34"]
+      buff2 = buff1 + 4
+      r = f.call(buff1, - buff2)
+      assert_in_delta(12.34, r, 0.001)
+    end
+
+    def test_qsort1
+      cb = Class.new(Closure) {
+        def call(x, y)
+          Pointer.new(x)[0] <=> Pointer.new(y)[0]
+        end
+      }.new(TYPE_INT, [TYPE_VOIDP, TYPE_VOIDP])
+
+      qsort = Function.new(@libc['qsort'],
+                           [TYPE_VOIDP, TYPE_SIZE_T, TYPE_SIZE_T, TYPE_VOIDP],
+                           TYPE_VOID)
+      buff = "9341"
+      qsort.call(buff, buff.size, 1, cb)
+      assert_equal("1349", buff)
+
+      bug4929 = '[ruby-core:37395]'
+      buff = "9341"
+      EnvUtil.under_gc_stress {qsort.call(buff, buff.size, 1, cb)}
+      assert_equal("1349", buff, bug4929)
+    end
+  end
+end