[ruby-list:23433] Re: dump a single object

なかだです。

At Thu, 22 Jun 2000 00:46:59 +0900,
Masatoshi SEKI <[e-mail]> wrote:
> > たぶん、違うと思います。marshalは一度dumpしたオブジェクトを
> > ぜんぶテーブルにいれて「これはもう出力したな」というチェック
> > を行ってますが、xmarshalはそれを行っていないのでしょう。とい
> > うか、しないのが普通で、してるmarshalが普通でないような気が
> > しますが。
> 
> そうそう。marshal.c ずるい。
略
> xmarshalですが、
> marshal の dump したデータを解釈して XML にしたり、
> その逆をしたりするっていうのも面白いのでは…、
> marshal.c読んでいて思ったんですけど、どうでしょう。
> オブジェクトの構造をなめたりする作業はmarshalに任せて
> marshalフォーマットの echoder/decoder みたいなの。

  marshal.c の [rw]_{byte,long} あたりの関数をそれぞれ Marshal
のメソッドにするような感じでしょうか、だいたい。

> ところで、instance_eval をしたオブジェクトは dump できなく
> なってしまうのは仕方がないのでしょうか? 
> インスタンス変数を覗くのに instance_eval を使ったら、
> 'singleton can't be dumped' とのことでした。
> 仕方ないんだろうなぁ。

  こんなんとか。


Index: marshal.c
===================================================================
RCS file: /home/cvs/ruby/marshal.c,v
retrieving revision 1.17
diff -u -2 -p -r1.17 marshal.c
--- marshal.c	2000/06/14 05:30:22	1.17
+++ marshal.c	2000/06/21 17:49:48
@@ -398,5 +398,7 @@ w_object(obj, arg, limit)
 
 		if (FL_TEST(klass, FL_SINGLETON)) {
-		    rb_raise(rb_eTypeError, "singleton can't be dumped");
+		    if (RCLASS(klass)->iv_tbl->num_entries > 0 || RCLASS(klass)->m_tbl->num_entries > 0)
+			rb_raise(rb_eTypeError, "singleton can't be dumped");
+		    klass = RCLASS(klass)->super;
 		}
 		path = rb_class2name(klass);


  あるいは FL_SINGLETON を捨てちゃうとか。あ、でも特異クラスを
外部に持ち出したりもできるからこれはまずいかも。


Index: eval.c
===================================================================
RCS file: /home/cvs/ruby/eval.c,v
retrieving revision 1.62
diff -u -2 -p -r1.62 eval.c
--- eval.c	2000/06/19 08:38:04	1.62
+++ eval.c	2000/06/21 17:41:10
@@ -4739,4 +4739,5 @@ specific_eval(argc, argv, klass, self)
     int   line = 1;
     int   iter = rb_block_given_p();
+    VALUE ret;
 
     if (argc > 0) {
@@ -4760,9 +4761,17 @@ specific_eval(argc, argv, klass, self)
 
     if (iter) {
-	return yield_under(klass, self);
+	ret = yield_under(klass, self);
     }
     else {
-	return eval_under(klass, self, argv[0], file, line);
+	ret = eval_under(klass, self, argv[0], file, line);
     }
+
+    if (!NIL_P(klass) && FL_TEST(klass, FL_SINGLETON)) {
+	if (RCLASS(klass)->iv_tbl->num_entries == 0 &&
+	    RCLASS(klass)->m_tbl->num_entries == 0)
+	    RBASIC(self)->klass = RCLASS(klass)->super;
+    }
+
+    return ret;
 }
 


-- 
そうだ 強気に ちょっと インチキに☆彡
    中田 "Bugるくらいがちょうどいいかも;-)" 伸悦