* ext/dl: change the callback mechanism.

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

1 files changed, 38 insertions, 71 deletions

diff --git a/ext/dl/mkcallback.rb b/ext/dl/mkcallback.rb
index 32c7b451d7..217fef4fba 100644
--- a/ext/dl/mkcallback.rb
+++ b/ext/dl/mkcallback.rb
@@ -5,79 +5,46 @@ $:.unshift File.dirname(__FILE__)
 require 'type'
 require 'dlconfig'
 
-$int_eq_long = try_run(<<EOF)
-int main() {
-  return sizeof(int) == sizeof(long) ? 0 : 1;
-}
-EOF
-
-def func_arg(x,i)
-  ctype = DLTYPE[x][:ctype]
-  "#{ctype} arg#{i}"
-end
-
-def func_args(types)
-  t = []
-  types[1..-1].each_with_index{|x,i| t.push(func_arg(x,i))}
-  t.join(", ")
-end
-
-def funcall_args(types)
-  num = types.length - 1
-  if( num > 0 )
-    t = []
-    types[1..-1].each_with_index{|x,i| t.push(DLTYPE[x][:c2rb].call("arg#{i}"))}
-    return num.to_s + ", " + t.join(", ")
-  else
-    return num.to_s
-  end
-end
-
-def output_func(types, n = 0)
-  func_name = "rb_dl_func#{types2num(types)}_#{n}"
-  code =
-    "#{func_name}(#{func_args(types)}) /* #{types2ctypes(types).inspect} */\n" +
-    "{\n" +
-    "  VALUE val, obj;\n" +
-    "#ifdef DEBUG\n" +
-    "  printf(\"#{func_name}()\\n\");\n" +
-    "#endif\n" +
-    "  obj = rb_hash_aref(DLFuncTable, INT2NUM(#{types2num(types)}));\n" +
-    "  obj = rb_hash_aref(obj,INT2NUM(#{n}));\n" +
-    "  val = rb_funcall(obj, id_call,\n" +
-    "                   #{funcall_args(types)});\n"
-
-  rtype = DLTYPE[types[0]][:ctype]
-  rcode = DLTYPE[types[0]][:rb2c]
-  if( rcode )
-    code += "  return #{rcode.call('val')};\n"
-  end
-
-  code =
-    rtype + "\n" +
-    code +
-    "}\n\n"
-  if( n < MAX_CBENT - 1)
-    return code + output_func(types, n+1)
-  else
-    return code
-  end
-end
-
-
-def rec_output(types = [VOID])
-  print output_func(types)
-  if( types.length <= MAX_CBARG )
-    DLTYPE.keys.sort.each{|t|
-      if( t != VOID && DLTYPE[t][:cb] )
-	rec_output(types + [t])
-      end
-    }
-  end
+def mkfunc(rettype, fnum, argc)
+  args = (0..(argc-1)).collect{|i| "long arg#{i}"}.join(", ")
+
+  subst_code = (0..(argc-1)).collect{|i|
+    "  buff[#{i.to_s}] = arg#{i.to_s};"
+  }.join("\n")
+
+  ret_code =
+    if( DLTYPE[rettype][:c2rb] )
+      "  return #{DLTYPE[rettype][:rb2c][\"retval\"]};"
+    else
+      "  /* no return value */"
+    end
+
+  code = [
+    "static #{DLTYPE[rettype][:ctype]}",
+    "rb_dl_callback_func_#{rettype.to_s}_#{fnum.to_s}(#{args})",
+    "{",
+    "  VALUE retval, proto, proc, obj;",
+    "  VALUE argv[#{argc.to_s}];",
+    "  int  argc;",
+    "  long buff[#{argc.to_s}];",
+    "",
+    subst_code,
+    "",
+    "  obj = rb_hash_aref(DLFuncTable, rb_assoc_new(INT2NUM(#{rettype.to_s}),INT2NUM(#{fnum.to_s})));",
+    "  proto = rb_ary_entry(obj, 0);",
+    "  proc  = rb_ary_entry(obj, 1);",
+    "  rb_dl_scan_callback_args(buff, STR2CSTR(proto), &argc, &argv);",
+    "  retval = rb_funcall2(proc, id_call, argc, argv);",
+    "",
+    ret_code,
+    "}",
+  ].join("\n")
+
+  return code
 end
 
 DLTYPE.keys.sort.each{|t|
-  if( DLTYPE[t][:cb] )
-    rec_output([t])
+  for n in 0..(MAX_CALLBACK - 1)
+    print(mkfunc(t, n, 15), "\n\n")
   end
 }