1 files changed, 94 insertions, 0 deletions
diff --git a/call_cfunc.ci b/call_cfunc.ci
new file mode 100644
index 000000000..7b8bfe85e
--- /dev/null
+++ b/call_cfunc.ci
@@ -0,0 +1,94 @@
+/* -*-c-*- */
+
+/* from ruby1.9/eval.c */
+
+static inline VALUE
+call_cfunc(func, recv, len, argc, argv)
+    VALUE (*func) ();
+    VALUE recv;
+    int len, argc;
+    const VALUE *argv;
+{
+    // printf("len: %d, argc: %d\n", len, argc);
+
+    if (len >= 0 && argc != len) {
+	rb_raise(rb_eArgError, "wrong number of arguments(%d for %d)",
+		 argc, len);
+    }
+
+    switch (len) {
+    case -2:
+	return (*func) (recv, rb_ary_new4(argc, argv));
+	break;
+    case -1:
+	return (*func) (argc, argv, recv);
+	break;
+    case 0:
+	return (*func) (recv);
+	break;
+    case 1:
+	return (*func) (recv, argv[0]);
+	break;
+    case 2:
+	return (*func) (recv, argv[0], argv[1]);
+	break;
+    case 3:
+	return (*func) (recv, argv[0], argv[1], argv[2]);
+	break;
+    case 4:
+	return (*func) (recv, argv[0], argv[1], argv[2], argv[3]);
+	break;
+    case 5:
+	return (*func) (recv, argv[0], argv[1], argv[2], argv[3], argv[4]);
+	break;
+    case 6:
+	return (*func) (recv, argv[0], argv[1], argv[2], argv[3], argv[4],
+			argv[5]);
+	break;
+    case 7:
+	return (*func) (recv, argv[0], argv[1], argv[2], argv[3], argv[4],
+			argv[5], argv[6]);
+	break;
+    case 8:
+	return (*func) (recv, argv[0], argv[1], argv[2], argv[3], argv[4],
+			argv[5], argv[6], argv[7]);
+	break;
+    case 9:
+	return (*func) (recv, argv[0], argv[1], argv[2], argv[3], argv[4],
+			argv[5], argv[6], argv[7], argv[8]);
+	break;
+    case 10:
+	return (*func) (recv, argv[0], argv[1], argv[2], argv[3], argv[4],
+			argv[5], argv[6], argv[7], argv[8], argv[9]);
+	break;
+    case 11:
+	return (*func) (recv, argv[0], argv[1], argv[2], argv[3], argv[4],
+			argv[5], argv[6], argv[7], argv[8], argv[9],
+			argv[10]);
+	break;
+    case 12:
+	return (*func) (recv, argv[0], argv[1], argv[2], argv[3], argv[4],
+			argv[5], argv[6], argv[7], argv[8], argv[9],
+			argv[10], argv[11]);
+	break;
+    case 13:
+	return (*func) (recv, argv[0], argv[1], argv[2], argv[3], argv[4],
+			argv[5], argv[6], argv[7], argv[8], argv[9], argv[10],
+			argv[11], argv[12]);
+	break;
+    case 14:
+	return (*func) (recv, argv[0], argv[1], argv[2], argv[3], argv[4],
+			argv[5], argv[6], argv[7], argv[8], argv[9], argv[10],
+			argv[11], argv[12], argv[13]);
+	break;
+    case 15:
+	return (*func) (recv, argv[0], argv[1], argv[2], argv[3], argv[4],
+			argv[5], argv[6], argv[7], argv[8], argv[9], argv[10],
+			argv[11], argv[12], argv[13], argv[14]);
+	break;
+    default:
+	rb_raise(rb_eArgError, "too many arguments(%d)", len);
+	break;
+    }
+    return Qnil;		/* not reached */
+}