mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
1d15d5f080
* Other ruby implementations use the spec/ruby directory. [Misc #13792] [ruby-core:82287] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@59979 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
85 lines
2.1 KiB
C
85 lines
2.1 KiB
C
#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
|