admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

suppress intern inside of 'respond_to?'.

Browse Source
This commit is contained in:
crimsonwoods
2013-04-25 15:56:53 +09:00
parent a517a7f314
commit 09dad05a72
1 changed files with 23 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/kernel.c
+23 -3
View File
@@ -966,15 +966,35 @@ obj_respond_to(mrb_state *mrb, mrb_value self)
int argc;
mrb_value mid, priv;
mrb_sym id, rtm_id;
mrb_bool respond_to_p;
mrb_bool respond_to_p = TRUE;
mrb_get_args(mrb, "*", &argv, &argc);
mid = argv[0];
if (argc > 1) priv = argv[1];
else priv = mrb_nil_value();
id = mrb_to_id(mrb, mid);
respond_to_p = basic_obj_respond_to(mrb, self, id, !mrb_test(priv));
if (mrb_symbol_p(mid)) {
id = mrb_symbol(mid);
} else {
mrb_value tmp;
if (!mrb_string_p(mid)) {
tmp = mrb_check_string_type(mrb, mid);
if (mrb_nil_p(tmp)) {
tmp = mrb_inspect(mrb, mid);
mrb_raisef(mrb, E_TYPE_ERROR, "%S is not a symbol", tmp);
}
}
tmp = mrb_str_interned(mrb, mid);
if (mrb_nil_p(tmp)) {
respond_to_p = FALSE;
} else {
id = mrb_intern_str(mrb, mid);
}
}
if (respond_to_p) {
respond_to_p = basic_obj_respond_to(mrb, self, id, !mrb_test(priv));
}
if (!respond_to_p) {
rtm_id = mrb_intern2(mrb, "respond_to_missing?", 19);