summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog13
-rw-r--r--class.c173
-rw-r--r--eval.c64
-rw-r--r--method.h1
-rw-r--r--test/ruby/test_module.rb59
5 files changed, 34 insertions, 276 deletions
diff --git a/ChangeLog b/ChangeLog
index f8cee58788..08795a7504 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+Sun Jul 10 23:24:29 2011 Yuki Sonoda (Yugui) <yugui@yugui.jp>
+
+ * class.c (rb_mix_module): reverted r31873.
+ (check_mix_method_i, do_mix_method_i) reverted r31917.
+
+ * test/ruby/test_module.rb (TestModule#test_mix_const): reverted
+ r31918.
+
Sun Jul 10 22:50:00 2011 Kenta Murata <mrkn@mrkn.jp>
* ext/bigdecimal/bigdecimal.c (rmpd_power_by_big_decimal): fix
@@ -2578,11 +2586,6 @@ Sat Jun 4 16:59:26 2011 Tadayoshi Funaba <tadf@dotrb.org>
* ext/date/date_core.c (d_lite_inspect): changed the format.
* ext/date/date_core.c: refactoring and fixing some bugs.
-Sat Jun 4 11:30:57 2011 Nobuyoshi Nakada <nobu@ruby-lang.org>
-
- * class.c (check_mix_method_i, do_mix_method_i): not mix methods
- renamed as nil.
-
Sat Jun 4 04:04:41 2011 NARUSE, Yui <naruse@ruby-lang.org>
* test/rubygems/test_gem_commands_which_command.rb:
diff --git a/class.c b/class.c
index d427393081..df19812d15 100644
--- a/class.c
+++ b/class.c
@@ -120,26 +120,27 @@ rb_class_new(VALUE super)
return rb_class_boot(super);
}
-static void
-rb_mod_clone_method(VALUE klass, ID mid, const rb_method_entry_t *me)
+struct clone_method_data {
+ st_table *tbl;
+ VALUE klass;
+};
+
+VALUE rb_iseq_clone(VALUE iseqval, VALUE newcbase);
+
+static int
+clone_method(ID mid, const rb_method_entry_t *me, struct clone_method_data *data)
{
VALUE newiseqval;
if (me->def && me->def->type == VM_METHOD_TYPE_ISEQ) {
rb_iseq_t *iseq;
- newiseqval = rb_iseq_clone(me->def->body.iseq->self, klass);
+ newiseqval = rb_iseq_clone(me->def->body.iseq->self, data->klass);
GetISeqPtr(newiseqval, iseq);
- rb_add_method(klass, mid, VM_METHOD_TYPE_ISEQ, iseq, me->flag);
+ rb_add_method(data->klass, mid, VM_METHOD_TYPE_ISEQ, iseq, me->flag);
RB_GC_GUARD(newiseqval);
}
else {
- rb_method_entry_set(klass, mid, me, me->flag);
+ rb_method_entry_set(data->klass, mid, me, me->flag);
}
-}
-
-static int
-clone_method_i(st_data_t key, st_data_t value, st_data_t data)
-{
- rb_mod_clone_method((VALUE)data, (ID)key, (const rb_method_entry_t *)value);
return ST_CONTINUE;
}
@@ -188,11 +189,15 @@ rb_mod_init_copy(VALUE clone, VALUE orig)
st_foreach(RCLASS_CONST_TBL(orig), clone_const_i, (st_data_t)RCLASS_CONST_TBL(clone));
}
if (RCLASS_M_TBL(orig)) {
+ struct clone_method_data data;
+
if (RCLASS_M_TBL(clone)) {
rb_free_m_table(RCLASS_M_TBL(clone));
}
- RCLASS_M_TBL(clone) = st_init_numtable();
- st_foreach(RCLASS_M_TBL(orig), clone_method_i, (st_data_t)clone);
+ data.tbl = RCLASS_M_TBL(clone) = st_init_numtable();
+ data.klass = clone;
+ st_foreach(RCLASS_M_TBL(orig), clone_method,
+ (st_data_t)&data);
}
return clone;
@@ -222,11 +227,12 @@ rb_singleton_class_clone(VALUE obj)
if (!FL_TEST(klass, FL_SINGLETON))
return klass;
else {
+ struct clone_method_data data;
/* copy singleton(unnamed) class */
VALUE clone = class_alloc((RBASIC(klass)->flags & ~(FL_MARK)), 0);
if (BUILTIN_TYPE(obj) == T_CLASS) {
- RBASIC(clone)->klass = clone;
+ RBASIC(clone)->klass = (VALUE)clone;
}
else {
RBASIC(clone)->klass = rb_singleton_class_clone(klass);
@@ -241,10 +247,13 @@ rb_singleton_class_clone(VALUE obj)
st_foreach(RCLASS_CONST_TBL(klass), clone_const_i, (st_data_t)RCLASS_CONST_TBL(clone));
}
RCLASS_M_TBL(clone) = st_init_numtable();
- st_foreach(RCLASS_M_TBL(klass), clone_method_i, (st_data_t)clone);
- rb_singleton_class_attached(RBASIC(clone)->klass, clone);
+ data.tbl = RCLASS_M_TBL(clone);
+ data.klass = (VALUE)clone;
+ st_foreach(RCLASS_M_TBL(klass), clone_method,
+ (st_data_t)&data);
+ rb_singleton_class_attached(RBASIC(clone)->klass, (VALUE)clone);
FL_SET(clone, FL_SINGLETON);
- return clone;
+ return (VALUE)clone;
}
}
@@ -695,136 +704,6 @@ rb_include_module(VALUE klass, VALUE module)
if (changed) rb_clear_cache();
}
-struct mixing_arg {
- st_table *mtbl;
- ID id;
- st_table *aliasing;
- VALUE klass;
-};
-
-static int
-check_mix_const_i(st_data_t key, st_data_t value, st_data_t arg)
-{
- struct mixing_arg *argp = (struct mixing_arg *)arg;
- ID id = (ID)key;
- st_table *aliasing = argp->aliasing;
- st_data_t alias;
-
- if (!rb_is_const_id(id)) return ST_CONTINUE;
- if (aliasing && st_lookup(aliasing, ID2SYM(id), &alias)) {
- id = rb_to_id(alias);
- }
- if (st_lookup(argp->mtbl, id, NULL)) {
- argp->id = id;
- return ST_STOP;
- }
- return ST_CONTINUE;
-}
-
-static int
-do_mix_const_i(st_data_t key, st_data_t value, st_data_t arg)
-{
- struct mixing_arg *argp = (struct mixing_arg *)arg;
- ID id = (ID)key;
- st_table *aliasing = argp->aliasing;
- st_data_t old, alias;
-
- if (!rb_is_const_id(id)) return ST_CONTINUE;
- if (aliasing && st_lookup(aliasing, ID2SYM(id), &alias)) {
- id = rb_to_id(alias);
- }
- if (st_lookup(argp->mtbl, id, &old)) {
- argp->id = id;
- return ST_STOP;
- }
- st_insert(argp->mtbl, id, value);
- return ST_CONTINUE;
-}
-
-static int
-check_mix_method_i(st_data_t key, st_data_t value, st_data_t arg)
-{
- struct mixing_arg *argp = (struct mixing_arg *)arg;
- ID id = (ID)key;
- st_table *aliasing = argp->aliasing;
- st_data_t alias;
-
- if (aliasing && st_lookup(aliasing, ID2SYM(id), &alias)) {
- if (NIL_P(alias)) return ST_CONTINUE;
- id = rb_to_id(alias);
- }
- if (st_lookup(argp->mtbl, id, NULL)) {
- argp->id = id;
- return ST_STOP;
- }
- return ST_CONTINUE;
-}
-
-static int
-do_mix_method_i(st_data_t key, st_data_t value, st_data_t arg)
-{
- struct mixing_arg *argp = (struct mixing_arg *)arg;
- ID id = (ID)key;
- st_table *aliasing = argp->aliasing;
- st_data_t old, alias;
-
- if (aliasing && st_lookup(aliasing, ID2SYM(id), &alias)) {
- if (NIL_P(alias)) return ST_CONTINUE;
- id = rb_to_id(alias);
- }
- if (st_lookup(argp->mtbl, id, &old)) {
- argp->id = id;
- return ST_STOP;
- }
- rb_mod_clone_method(argp->klass, id, (rb_method_entry_t *)value);
- return ST_CONTINUE;
-}
-
-void
-rb_mix_module(VALUE klass, VALUE module, st_table *constants, st_table *methods)
-{
- st_table *mtbl_from;
- struct mixing_arg methodarg, constarg;
-
- rb_frozen_class_p(klass);
- if (!OBJ_UNTRUSTED(klass)) {
- rb_secure(4);
- }
-
- if (TYPE(module) != T_MODULE) {
- Check_Type(module, T_MODULE);
- }
-
- OBJ_INFECT(klass, module);
-
- mtbl_from = RMODULE_M_TBL(module);
- methodarg.mtbl = RMODULE_M_TBL(klass);
- methodarg.id = 0;
- methodarg.aliasing = methods;
- methodarg.klass = klass;
- constarg.mtbl = RMODULE_IV_TBL(klass);
- constarg.id = 0;
- constarg.aliasing = constants;
-
- st_foreach(mtbl_from, check_mix_method_i, (st_data_t)&methodarg);
- if (methodarg.id) {
- rb_raise(rb_eArgError, "method would conflict - %s", rb_id2name(methodarg.id));
- }
- st_foreach(mtbl_from, check_mix_const_i, (st_data_t)&constarg);
- if (constarg.id) {
- rb_raise(rb_eArgError, "constant would conflict - %s", rb_id2name(constarg.id));
- }
- st_foreach(mtbl_from, do_mix_method_i, (st_data_t)&methodarg);
- if (methodarg.id) {
- rb_raise(rb_eArgError, "method would conflict - %s", rb_id2name(methodarg.id));
- }
- st_foreach(mtbl_from, do_mix_const_i, (st_data_t)&constarg);
- if (constarg.id) {
- rb_raise(rb_eArgError, "constant would conflict - %s", rb_id2name(constarg.id));
- }
- rb_vm_inc_const_missing_count();
-}
-
/*
* call-seq:
* mod.included_modules -> array
diff --git a/eval.c b/eval.c
index 783335d9d9..5b5b4662c0 100644
--- a/eval.c
+++ b/eval.c
@@ -869,69 +869,6 @@ rb_mod_include(int argc, VALUE *argv, VALUE module)
return module;
}
-/*
- * call-seq:
- * mix(module, ...) -> module
- *
- * Mix +Module+> into self.
- */
-
-static VALUE
-rb_mod_mix_into(int argc, VALUE *argv, VALUE klass)
-{
- VALUE module, tmp, constants = Qnil, methods = Qnil;
- st_table *const_tbl = 0, *method_tbl = 0;
- int i = 0;
-
- if (argc < 1 || argc > 3) {
- wrong_args:
- rb_raise(rb_eArgError, "wrong number of arguments (%d for 1)", argc);
- }
- module = argv[i++];
-
- switch (TYPE(module)) {
- case T_CLASS:
- case T_MODULE:
- break;
- default:
- Check_Type(module, T_CLASS);
- break;
- }
- if (i < argc) {
- constants = argv[i++];
- if (!NIL_P(tmp = rb_check_array_type(constants))) {
- constants = tmp;
- }
- else if (!NIL_P(methods = rb_check_hash_type(constants))) {
- constants = Qnil;
- }
- else {
- Check_Type(constants, T_HASH);
- }
- }
- if (i < argc && NIL_P(methods)) {
- methods = argv[i++];
- if (NIL_P(tmp = rb_check_hash_type(methods))) {
- Check_Type(methods, T_HASH);
- }
- methods = tmp;
- }
- if (i < argc) goto wrong_args;
- if (!NIL_P(constants)) {
- VALUE hash = rb_hash_new();
- for (i = 0; i < RARRAY_LEN(constants); ++i) {
- rb_hash_update_by(hash, RARRAY_PTR(constants)[i], NULL);
- }
- const_tbl = RHASH_TBL(RB_GC_GUARD(constants) = hash);
- }
- if (!NIL_P(methods)) {
- method_tbl = RHASH_TBL(RB_GC_GUARD(methods));
- }
-
- rb_mix_module(klass, module, const_tbl, method_tbl);
- return module;
-}
-
void
rb_obj_call_init(VALUE obj, int argc, VALUE *argv)
{
@@ -1193,7 +1130,6 @@ Init_eval(void)
rb_define_private_method(rb_cModule, "append_features", rb_mod_append_features, 1);
rb_define_private_method(rb_cModule, "extend_object", rb_mod_extend_object, 1);
rb_define_private_method(rb_cModule, "include", rb_mod_include, -1);
- rb_define_private_method(rb_cModule, "mix", rb_mod_mix_into, -1);
rb_undef_method(rb_cClass, "module_function");
diff --git a/method.h b/method.h
index da667505f4..9229896b6b 100644
--- a/method.h
+++ b/method.h
@@ -101,6 +101,5 @@ void rb_mark_method_entry(const rb_method_entry_t *me);
void rb_free_method_entry(rb_method_entry_t *me);
void rb_sweep_method_entry(void *vm);
void rb_free_m_table(st_table *tbl);
-void rb_mix_module(VALUE klass, VALUE module, struct st_table *constants, struct st_table *methods);
#endif /* METHOD_H */
diff --git a/test/ruby/test_module.rb b/test/ruby/test_module.rb
index e2649a908f..a35e98119b 100644
--- a/test/ruby/test_module.rb
+++ b/test/ruby/test_module.rb
@@ -1100,63 +1100,4 @@ class TestModule < Test::Unit::TestCase
INPUT
assert_in_out_err([], src, ["NameError"], [])
end
-
- def test_mix_method
- american = Module.new do
- attr_accessor :address
- end
- japanese = Module.new do
- attr_accessor :address
- end
-
- japanese_american = Class.new
- assert_nothing_raised(ArgumentError) {
- japanese_american.class_eval {mix american}
- }
- assert_raise(ArgumentError) {
- japanese_american.class_eval {mix japanese}
- }
-
- japanese_american = Class.new
- assert_nothing_raised(ArgumentError) {
- japanese_american.class_eval {
- mix american, :address => :us_address, :address= => :us_address=
- }
- }
- assert_nothing_raised(ArgumentError) {
- japanese_american.class_eval {
- mix japanese, :address => :jp_address, :address= => :jp_address=
- }
- }
-
- japanese_american = Class.new
- assert_nothing_raised(ArgumentError) {
- japanese_american.class_eval {
- mix japanese, :address => nil, :address= => nil
- }
- }
- assert_raise(NoMethodError) {
- japanese_american.new.address
- }
- assert_nothing_raised(ArgumentError) {
- japanese_american.class_eval {
- mix american
- }
- }
- end
-
- def test_mix_const
- foo = Module.new do
- const_set(:D, 55)
- end
- bar = Class.new do
- const_set(:D, 42)
- end
- assert_nothing_raised(ArgumentError) {
- bar.class_eval {
- mix foo
- }
- }
- assert_equal(42, bar::D)
- end
end