nobu	2012-07-31 18:22:36 +0900 (Tue, 31 Jul 2012)

  New Revision: 36584

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=36584

  Log:
    variable.c: fix r36574
    
    * variable.c (classname): tell if found name is permanent.  search
      tmp_classpath only if class id is set.  [ruby-core:42865][Bug #6078]
    * variable.c (rb_class_path): duplicate found temporary path.
    * variable.c (rb_set_class_path_string, rb_set_class_path): set class
      id to find classpath.

  Modified files:
    trunk/ChangeLog
    trunk/variable.c

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 36583)
+++ ChangeLog	(revision 36584)
@@ -1,3 +1,13 @@
+Tue Jul 31 18:22:34 2012  Nobuyoshi Nakada  <nobu@r...>
+
+	* variable.c (classname): tell if found name is permanent.  search
+	  tmp_classpath only if class id is set.  [ruby-core:42865][Bug #6078]
+
+	* variable.c (rb_class_path): duplicate found temporary path.
+
+	* variable.c (rb_set_class_path_string, rb_set_class_path): set class
+	  id to find classpath.
+
 Tue Jul 31 10:36:12 2012  Aaron Patterson <aaron@t...>
 
 	* ext/psych/lib/psych.rb: updated to released version.
Index: variable.c
===================================================================
--- variable.c	(revision 36583)
+++ variable.c	(revision 36584)
@@ -29,8 +29,11 @@
     rb_global_tbl = st_init_numtable();
     rb_class_tbl = st_init_numtable();
     CONST_ID(autoload, "__autoload__");
+    /* __classpath__: fully qualified class path */
     CONST_ID(classpath, "__classpath__");
+    /* __tmp_classpath__: temporary class path which contains anonymous names */
     CONST_ID(tmp_classpath, "__tmp_classpath__");
+    /* __classid__: name given to class/module under an anonymous namespace */
     CONST_ID(classid, "__classid__");
 }
 
@@ -110,6 +113,13 @@
     return ST_CONTINUE;
 }
 
+/**
+ * Traverse constant namespace and find +classpath+ for _klass_.  If
+ * _preferred_ is not 0, choice the path whose base name is set to it.
+ * If +classpath+ is found, the hidden instance variable __classpath__
+ * is set to the found path, and __tmp_classpath__ is removed.
+ * The path is frozen.
+ */
 static VALUE
 find_class_path(VALUE klass, ID preferred)
 {
@@ -139,33 +149,39 @@
     return Qnil;
 }
 
+/**
+ * Returns +classpath+ of _klass_, if it is named, or +nil+ for
+ * anonymous +class+/+module+.  The last part of named +classpath+ is
+ * never anonymous, but anonymous +class+/+module+ names may be
+ * contained.  If the path is "permanent", that means it has no
+ * anonymous names, <code>*permanent</code> is set to 1.
+ */
 static VALUE
-classname(VALUE klass)
+classname(VALUE klass, int *permanent)
 {
     VALUE path = Qnil;
     st_data_t n;
 
     if (!klass) klass = rb_cObject;
+    *permanent = 1;
     if (RCLASS_IV_TBL(klass)) {
 	if (!st_lookup(RCLASS_IV_TBL(klass), (st_data_t)classpath, &n)) {
+	    ID cid = 0;
 	    if (st_lookup(RCLASS_IV_TBL(klass), (st_data_t)classid, &n)) {
-		path = find_class_path(klass, SYM2ID(n));
+		cid = SYM2ID(n);
+		path = find_class_path(klass, cid);
 	    }
 	    if (NIL_P(path)) {
 		path = find_class_path(klass, (ID)0);
 	    }
 	    if (NIL_P(path)) {
-		if (!st_lookup(RCLASS_IV_TBL(klass), (st_data_t)tmp_classpath, &n)) {
+		if (!cid || !st_lookup(RCLASS_IV_TBL(klass), (st_data_t)tmp_classpath, &n)) {
 		    return Qnil;
 		}
-		path = rb_str_dup((VALUE)n);
-		OBJ_FREEZE(path);
+		*permanent = 0;
+		path = (VALUE)n;
 		return path;
 	    }
-	    OBJ_FREEZE(path);
-	    st_insert(RCLASS_IV_TBL(klass), (st_data_t)classpath, (st_data_t)path);
-	    n = classid;
-	    st_delete(RCLASS_IV_TBL(klass), &n, 0);
 	}
 	else {
 	    path = (VALUE)n;
@@ -188,7 +204,8 @@
 VALUE
 rb_mod_name(VALUE mod)
 {
-    VALUE path = classname(mod);
+    int permanent;
+    VALUE path = classname(mod, &permanent);
 
     if (!NIL_P(path)) return rb_str_dup(path);
     return path;
@@ -197,11 +214,10 @@
 static VALUE
 rb_tmp_class_path(VALUE klass, int *permanent)
 {
-    VALUE path = classname(klass);
+    VALUE path = classname(klass, permanent);
     st_data_t n = (st_data_t)path;
 
     if (!NIL_P(path)) {
-	*permanent = 1;
 	return path;
     }
     if (RCLASS_IV_TBL(klass) && st_lookup(RCLASS_IV_TBL(klass),
@@ -233,7 +249,9 @@
 rb_class_path(VALUE klass)
 {
     int permanent;
-    return rb_tmp_class_path(klass, &permanent);
+    VALUE path = rb_tmp_class_path(klass, &permanent);
+    if (!NIL_P(path)) path = rb_str_dup(path);
+    return path;
 }
 
 void
@@ -251,7 +269,10 @@
 	rb_str_cat2(str, "::");
 	rb_str_append(str, name);
 	OBJ_FREEZE(str);
-	if (!permanent) pathid = tmp_classpath;
+	if (!permanent) {
+	    pathid = tmp_classpath;
+	    rb_ivar_set(klass, classid, ID2SYM(rb_intern_str(name)));
+	}
     }
     rb_ivar_set(klass, pathid, str);
 }
@@ -270,7 +291,10 @@
 	str = rb_str_dup(rb_tmp_class_path(under, &permanent));
 	rb_str_cat2(str, "::");
 	rb_str_cat2(str, name);
-	if (!permanent) pathid = tmp_classpath;
+	if (!permanent) {
+	    pathid = tmp_classpath;
+	    rb_ivar_set(klass, classid, ID2SYM(rb_intern(name)));
+	}
     }
     OBJ_FREEZE(str);
     rb_ivar_set(klass, pathid, str);

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/