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-metaprog (mrb_mod_s_constants): Module.constants implemented

Browse Source 
The method returns the list of all constants accessible from the point
of call.
This commit is contained in:
Yukihiro "Matz" Matsumoto
2025-04-13 23:35:44 +09:00
parent e08452585e
commit 95f9de4877
1 changed files with 20 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mrbgems/mruby-metaprog/src/metaprog.c
+20 -2
View File
@@ -646,8 +646,26 @@ mrb_mod_s_constants(mrb_state *mrb, mrb_value mod)
if (mrb_get_argc(mrb) > 0 || mrb_class_ptr(mod) != mrb->module_class) {
return mrb_mod_constants(mrb, mod);
}
mrb_raise(mrb, E_NOTIMP_ERROR, "Module.constants not implemented");
return mrb_nil_value(); /* not reached */
const struct RProc *proc = mrb->c->ci[-1].proc;
struct RClass *c = MRB_PROC_TARGET_CLASS(proc);
mrb_value ary = mrb_ary_new(mrb);
if (!c) c = mrb->object_class;
mrb_mod_const_at(mrb, c, ary);
proc = proc->upper;
while (proc) {
struct RClass *c2 = MRB_PROC_TARGET_CLASS(proc);
if (!c2) c2 = mrb->object_class;
mrb_mod_const_at(mrb, c2, ary);
proc = proc->upper;
}
while (c) {
mrb_mod_const_at(mrb, c, ary);
c = c->super;
if (c == mrb->object_class) break;
}
return ary;
}
static mrb_value