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

class.c: implement top-level public/private/protected in the core in C

Browse Source
This commit is contained in:
Yukihiro "Matz" Matsumoto
2025-02-28 23:04:19 +09:00
parent 43da490a1e
commit 2a876d2047
2 changed files with 27 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mrbgems/mruby-toplevel-ext/mrblib/toplevel.rb
-16
View File
@@ -4,20 +4,4 @@ class <<self
def include(*modules)
Object.include(*modules)
end
def private(*methods)
Object.instance_eval do
private(*methods)
end
end
def protected(*methods)
Object.instance_eval do
protected(*methods)
end
end
def public(*methods)
Object.instance_eval do
public(*methods)
end
end
end
src/class.c
+27
View File
@@ -1712,6 +1712,30 @@ mrb_mod_protected(mrb_state *mrb, mrb_value mod)
return mod;
}
static mrb_value
top_public(mrb_state *mrb, mrb_value self)
{
self = mrb_obj_value(mrb->object_class);
mrb_mod_visibility(mrb, self, MT_PUBLIC);
return self;
}
static mrb_value
top_private(mrb_state *mrb, mrb_value self)
{
self = mrb_obj_value(mrb->object_class);
mrb_mod_visibility(mrb, self, MT_PRIVATE);
return self;
}
static mrb_value
top_protected(mrb_state *mrb, mrb_value self)
{
self = mrb_obj_value(mrb->object_class);
mrb_mod_visibility(mrb, self, MT_PROTECTED);
return self;
}
MRB_API struct RClass*
mrb_singleton_class_ptr(mrb_state *mrb, mrb_value v)
{
@@ -3140,4 +3164,7 @@ mrb_init_class(mrb_state *mrb)
mrb_define_singleton_method_id(mrb, mrb->top_self, MRB_SYM(inspect), inspect_main, MRB_ARGS_NONE());
mrb_define_singleton_method_id(mrb, mrb->top_self, MRB_SYM(to_s), inspect_main, MRB_ARGS_NONE());
mrb_define_singleton_method_id(mrb, mrb->top_self, MRB_SYM(define_method), top_define_method, MRB_ARGS_ARG(1,1));
mrb_define_singleton_method_id(mrb, mrb->top_self, MRB_SYM(public), top_public, MRB_ARGS_ANY());
mrb_define_singleton_method_id(mrb, mrb->top_self, MRB_SYM(private), top_private, MRB_ARGS_ANY());
mrb_define_singleton_method_id(mrb, mrb->top_self, MRB_SYM(protected), top_protected, MRB_ARGS_ANY());
}