1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
#include "ruby.h"
static VALUE
with_funcall2(int argc, VALUE *argv, VALUE self)
{
return rb_funcallv(self, rb_intern("target"), argc, argv);
}
static VALUE
with_funcall_passing_block(int argc, VALUE *argv, VALUE self)
{
return rb_funcall_passing_block(self, rb_intern("target"), argc, argv);
}
static VALUE
with_funcall_passing_block_kw(int argc, VALUE *argv, VALUE self)
{
return rb_funcall_passing_block_kw(self, rb_intern("target"), argc-1, argv+1, FIX2INT(argv[0]));
}
static VALUE
with_funcallv_public_kw(int argc, VALUE *argv, VALUE self)
{
return rb_funcallv_public_kw(argv[0], SYM2ID(argv[1]), argc-3, argv+3, FIX2INT(argv[2]));
}
static VALUE
with_yield_splat_kw(int argc, VALUE *argv, VALUE self)
{
return rb_yield_splat_kw(argv[1], FIX2INT(argv[0]));
}
static VALUE
extra_args_name(VALUE self)
{
/*
* at least clang 5.x gets tripped by the extra 0 arg
* [ruby-core:85266] [Bug #14425]
*/
return rb_funcall(self, rb_intern("name"), 0, 0);
}
void
Init_funcall(void)
{
VALUE cTestFuncall = rb_path2class("TestFuncall");
VALUE cRelay = rb_define_module_under(cTestFuncall, "Relay");
rb_define_singleton_method(cRelay,
"with_funcall2",
with_funcall2,
-1);
rb_define_singleton_method(cRelay,
"with_funcall_passing_block_kw",
with_funcall_passing_block_kw,
-1);
rb_define_singleton_method(cRelay,
"with_funcall_passing_block",
with_funcall_passing_block,
-1);
rb_define_singleton_method(cRelay,
"with_funcallv_public_kw",
with_funcallv_public_kw,
-1);
rb_define_singleton_method(cRelay,
"with_yield_splat_kw",
with_yield_splat_kw,
-1);
rb_define_singleton_method(cTestFuncall, "extra_args_name",
extra_args_name,
0);
}
|
