rua 0.3.8 → 0.3.9

data/ext/rua.c

@@ -21,7 +21,7 @@ __declspec(dllexport) void Init_rua(void);
 
 #include "rua.h"
 
-#define VERSION   "0.3.8"
+#define VERSION   "0.3.9"
 #define REF_RBOBJ "self"
 
 #define ICONV_JIS   "ISO-2022-JP"
@@ -87,6 +87,7 @@ static const char *insecure_methods[] = {
 static const int insecure_method_num = sizeof(insecure_methods) / sizeof(char*);
 static VALUE Rua, RuaFunc, RuaThread, RuaError, RuaDebug;
 static VALUE s_all, s_base, s_package, s_string, s_table, s_math, s_io, s_debug;
+static VALUE m_method_unbound, m_methods_unbound;
 
 void Init_rua() {
   Rua = rb_define_class("Rua", rb_cObject);
@@ -118,6 +119,11 @@ void Init_rua() {
   rb_define_method(Rua, "error_handler=", rua_set_error_handler, 1);
   rb_define_method(Rua, "method_missing", rua_method_missing, -1);
 
+  m_method_unbound = rb_funcall(rb_cObject, rb_intern("instance_method"), 1, ID2SYM(rb_intern("method")));
+  m_methods_unbound = rb_funcall(rb_cObject, rb_intern("instance_method"), 1, ID2SYM(rb_intern("methods")));
+  rb_define_class_variable(Rua, "@@m_method_unbound", m_method_unbound);
+  rb_define_class_variable(Rua, "@@m_methods_unbound", m_methods_unbound);
+
   rb_define_alloc_func(RuaFunc, rua_ref_alloc);
   rb_define_private_method(RuaFunc, "initialize", rua_func_initialize, 0);
   rb_define_method(RuaFunc, "call", rua_func_call, -1);
@@ -1022,13 +1028,17 @@ static void rua_newtable_from_hash(lua_State *L, VALUE hash, struct rua_state *R
 
 static void rua_newtable_from_obj(lua_State *L, VALUE obj, struct rua_state *R) {
   VALUE methods, name, method;
+  VALUE m_method_bound, m_methods_bound;
   int i, tblidx, prxidx;
 
   lua_newtable(L);
   prxidx = lua_gettop(L);
   lua_newtable(L);
   tblidx = lua_gettop(L);
-  methods = rb_check_convert_type(obj, T_ARRAY, "Array", "methods");
+
+  m_method_bound = rb_funcall(m_method_unbound, rb_intern("bind"), 1, obj);
+  m_methods_bound = rb_funcall(m_methods_unbound, rb_intern("bind"), 1, obj);
+  methods = rb_check_convert_type(m_methods_bound, T_ARRAY, "Array", "call");
 
   lua_pushstring(L, REF_RBOBJ);
   lua_pushlightuserdata(L, (void *) obj);
@@ -1038,7 +1048,7 @@ static void rua_newtable_from_obj(lua_State *L, VALUE obj, struct rua_state *R)
 
   for (i = 0; i < RARRAY(methods)->len; i++) {
     name = rb_ary_entry(methods, i);
-    method = rb_funcall(obj, rb_intern("method"), 1, name);
+    method = rb_funcall(m_method_bound, rb_intern("call"), 1, name);
     rb_hash_aset(R->refs, method, Qtrue);
 
     if (R->secure && rua_name_is_insecure_method(StringValuePtr(name))) {

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: rua
 version: !ruby/object:Gem::Version 
-  version: 0.3.8
+  version: 0.3.9
 platform: ruby
 authors: 
 - winebarrel