.gitignore
mrimodexcl.rb
rbxmodexcl.rb
@@ -1,82 +1,5 @@
-require 'rubygems'
-require 'inline'
-
-class Object
- inline(:C) do |builder|
- builder.prefix %{
- static VALUE
- rb_obj_dummy()
- {
- return Qnil;
- }
- }
- builder.add_to_init %{
- rb_define_private_method(rb_cModule, "unextended", rb_obj_dummy, 1);
- }
- builder.c %{
- VALUE unextend(VALUE mod)
- {
- VALUE p, prev;
- Check_Type(mod, T_MODULE);
- if (mod == rb_mKernel)
- rb_raise(rb_eArgError, "unextending Kernel is prohibited");
-
-
- p = rb_singleton_class(self);
-
- while (p) {
- if (p == mod || RCLASS(p)->m_tbl == RCLASS(mod)->m_tbl) {
- RCLASS(prev)->super = RCLASS(p)->super;
- rb_clear_cache();
- rb_funcall(mod, rb_intern("unextended"), 1, self);
- return self;
- }
- prev = p;
- p = RCLASS(p)->super;
- }
- return self;
- }
- }
- end
-
-end
-
-class Class
-
- inline(:C) do |builder|
- builder.prefix %{
- static VALUE
- rb_obj_dummy()
- {
- return Qnil;
- }
- }
- builder.add_to_init %{
- rb_define_private_method(rb_cModule, "unincluded", rb_obj_dummy, 1);
- }
- builder.c %{
- VALUE uninclude(VALUE mod)
- {
- VALUE p, prev;
- Check_Type(mod, T_MODULE);
- if (mod == rb_mKernel)
- rb_raise(rb_eArgError, "unincluding Kernel is prohibited");
-
- p = self;
-
- while (p) {
- if (p == mod || RCLASS(p)->m_tbl == RCLASS(mod)->m_tbl) {
- RCLASS(prev)->super = RCLASS(p)->super;
- rb_clear_cache();
- rb_funcall(mod, rb_intern("unincluded"), 1, self);
- return self;
- }
- prev = p;
- p = RCLASS(p)->super;
- }
- return self;
- }
- }
- end
-
-end
+if defined?(RUBY_ENGINE) && RUBY_ENGINE == "rbx"
+ require 'rbxmodexcl'
+else
+ require 'mrimodexcl'
+end
\ No newline at end of file
rbmodexcl.rb
9091b094b3b2e799ac7dea4ddac0540e916447fa
Yurii Rashkovskii
yrashk@gmail.com
http://github.com/yrashk/rbmodexcl/commit/28209d5f7a4622bca3b9868ab839c01228e75208
28209d5f7a4622bca3b9868ab839c01228e75208
2008-05-20T03:26:04-07:00
2008-05-20T03:26:04-07:00
Initial rubinius implementation has been added
392e5901a406de7546526a850abd02ec92319b67
Yurii Rashkovskii
yrashk@gmail.com