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
73
74
75
76
77
78
79
80
81
82
83
84
85
|
#include "ruby.h"
#include "rubyspec.h"
#include <string.h>
#ifdef __cplusplus
extern "C" {
#endif
#ifdef HAVE_RB_PROC_NEW
VALUE proc_spec_rb_proc_new_function(VALUE args) {
return rb_funcall(args, rb_intern("inspect"), 0);
}
VALUE proc_spec_rb_proc_new(VALUE self) {
return rb_proc_new(proc_spec_rb_proc_new_function, Qnil);
}
#endif
#ifdef HAVE_RB_PROC_ARITY
VALUE proc_spec_rb_proc_arity(VALUE self, VALUE prc) {
return INT2FIX(rb_proc_arity(prc));
}
#endif
#ifdef HAVE_RB_PROC_CALL
VALUE proc_spec_rb_proc_call(VALUE self, VALUE prc, VALUE args) {
return rb_proc_call(prc, args);
}
#endif
/* This helper is not strictly necessary but reflects the code in wxRuby that
* originally exposed issues with this Proc.new behavior.
*/
VALUE proc_spec_rb_Proc_new_helper(void) {
return rb_funcall(rb_cProc, rb_intern("new"), 0);
}
VALUE proc_spec_rb_Proc_new(VALUE self, VALUE scenario) {
switch(FIX2INT(scenario)) {
case 0:
return proc_spec_rb_Proc_new_helper();
case 1:
rb_funcall(self, rb_intern("call_nothing"), 0);
return proc_spec_rb_Proc_new_helper();
case 2:
return rb_funcall(self, rb_intern("call_Proc_new"), 0);
case 3:
return rb_funcall(self, rb_intern("call_rb_Proc_new"), 0);
case 4:
return rb_funcall(self, rb_intern("call_rb_Proc_new_with_block"), 0);
case 5:
rb_funcall(self, rb_intern("call_rb_Proc_new_with_block"), 0);
return proc_spec_rb_Proc_new_helper();
case 6:
return rb_funcall(self, rb_intern("call_block_given?"), 0);
default:
rb_raise(rb_eException, "invalid scenario");
}
return Qnil;
}
void Init_proc_spec(void) {
VALUE cls;
cls = rb_define_class("CApiProcSpecs", rb_cObject);
#ifdef HAVE_RB_PROC_NEW
rb_define_method(cls, "rb_proc_new", proc_spec_rb_proc_new, 0);
#endif
#ifdef HAVE_RB_PROC_ARITY
rb_define_method(cls, "rb_proc_arity", proc_spec_rb_proc_arity, 1);
#endif
#ifdef HAVE_RB_PROC_CALL
rb_define_method(cls, "rb_proc_call", proc_spec_rb_proc_call, 2);
#endif
rb_define_method(cls, "rb_Proc_new", proc_spec_rb_Proc_new, 1);
}
#ifdef __cplusplus
}
#endif
|
