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

mruby-binding-core (mrb_binding_p) add new function

Browse Source
This commit is contained in:
Yukihiro "Matz" Matsumoto
2023-03-21 15:53:54 +09:00
parent 35e2779575
commit 495845443c
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mrbgems/mruby-binding-core/src/binding-core.c
+13 -3
View File
@@ -116,12 +116,22 @@ binding_proc_upper_count(const struct RProc *proc)
return count;
}
mrb_bool
mrb_binding_p(mrb_state *mrb, mrb_value obj)
{
if (!mrb_obj_is_kind_of(mrb, obj, mrb_class_get_id(mrb, MRB_SYM(Binding)))) return FALSE;
if (mrb_type(obj) != MRB_TT_OBJECT) return FALSE;
if (!mrb_obj_iv_defined(mrb, mrb_obj_ptr(obj), MRB_SYM(proc))) return FALSE;
if (!mrb_obj_iv_defined(mrb, mrb_obj_ptr(obj), MRB_SYM(recv))) return FALSE;
if (!mrb_obj_iv_defined(mrb, mrb_obj_ptr(obj), MRB_SYM(env))) return FALSE;
return TRUE;
}
static void
binding_type_ensure(mrb_state *mrb, mrb_value obj)
{
if (!mrb_obj_is_kind_of(mrb, obj, mrb_class_get_id(mrb, MRB_SYM(Binding)))) {
mrb_raise(mrb, E_TYPE_ERROR, "not a binding");
}
if (mrb_binding_p(mrb, obj)) return;
mrb_raise(mrb, E_TYPE_ERROR, "not a binding");
}
static mrb_value