Callbacks are working sufficiently for qsort.rb to work

2 files changed, 23 insertions, 0 deletions

diff --git a/samples/getpid.rb.orig b/samples/getpid.rb.orig
new file mode 100644
index 0000000..a4d194b
--- /dev/null
+++ b/samples/getpid.rb.orig
@@ -0,0 +1,6 @@
+require 'ffi'
+module Foo
+  extend FFI::Library
+  attach_function :getpid, [ ], :int
+end
+puts "My pid=#{Foo.getpid do; end}"
diff --git a/samples/qsort.rb b/samples/qsort.rb
new file mode 100644
index 0000000..167a014
--- /dev/null
+++ b/samples/qsort.rb
@@ -0,0 +1,17 @@
+require 'ffi'
+
+module LibC
+  extend FFI::Library
+  callback :qsort_cmp, [ :pointer, :pointer ], :int
+  attach_function :qsort, [ :pointer, :int, :int, :qsort_cmp ], :int
+end
+
+p = MemoryPointer.new(:int, 2)
+p.put_array_of_int32(0, [ 2, 1 ])
+puts "Before qsort #{p.get_array_of_int32(0, 2).join(', ')}"
+LibC.qsort(p, 2, 4) do |p1, p2|
+  i1 = p1.get_int32(0)
+  i2 = p2.get_int32(0)
+  i1 < i2 ? -1 : i1 > i2 ? 1 : 0
+end
+puts "After qsort #{p.get_array_of_int32(0, 2).join(', ')}"