[ruby-dev:14427] Re: [Patch] pp.rb and debug.rb

In article <[e-mail]>,
  "NAKAMURA, Hiroshi" <[e-mail]> writes:

> ただ田中 哲さんの考察のとおり、Thread.currentで
> Thread safeに && Threadの裏に隠しちゃうのがよさそうな気がするので、
> Thread.current[hoge]にHashを入れるのかしら。ちょっと単価が高い？

えぇと、私の考えは、pp から inspect を使うことがあるので、pp と
inspect が異なる cycle 検出機構を使っていると、cycle の検出が遅れて結
果が冗長になるので、inspect の機構に合わせたほうがいいだろう、というも
のです。

で、実装したんですが、テストしてみると冗長性が消えないのでどーもおかし
いと思ったら、実装上ユーザのコードが Thread.current[:__inspect_key__]
を設定することを想定していない(ところがある)ようです。

% ruby -e 'a=[1]; Thread.current[:__inspect_key__]=[a.id]; p a' 
[1]

というのが

% ruby -e 'a=[1]; Thread.current[:__inspect_key__]=[a.id]; p a'
[...]

となって欲しいんですが、こんなのはどーでしょう?

Index: array.c
===================================================================
RCS file: /src/ruby/array.c,v
retrieving revision 1.53
diff -u -r1.53 array.c
--- array.c	2001/08/06 03:05:12	1.53
+++ array.c	2001/08/11 04:01:54
@@ -910,7 +910,9 @@
 {
     VALUE inspect_tbl;
 
-    if (!inspect_key) return Qfalse;
+    if (!inspect_key) {
+	inspect_key = rb_intern("__inspect_key__");
+    }
     inspect_tbl = rb_thread_local_aref(rb_thread_current(), inspect_key);
     if (NIL_P(inspect_tbl)) return Qfalse;
     return rb_ary_includes(inspect_tbl, rb_obj_id(obj));
Index: ChangeLog
===================================================================
RCS file: /src/ruby/ChangeLog,v
retrieving revision 1.531
diff -u -r1.531 ChangeLog
--- ChangeLog	2001/08/07 00:21:17	1.531
+++ ChangeLog	2001/08/11 05:45:59
@@ -1,3 +1,8 @@
+Sat Aug 11 14:43:47 2001  Tanaka Akira  <[e-mail]>
+
+	* array.c (rb_inspecting_p): initialize inspect_key if it is
+	not initialized yet.
+
 Tue Aug  7 09:10:32 2001  Usaku Nakamura  <[e-mail]>
 
 	* win32/win32.h: fix problems with BC++ (ruby-bugs#PR161).
-- 
[田中 哲][たなか あきら][Tanaka Akira]
「ふえろ! わかめちゃん作戦です$(C⊇」(Little Worker, 桂遊生丸)