/* -*-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;
{
  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 */
}

