[ruby-list:39167] Re: InternetExplorerってインターフェースとして使える？

artonです。

On Fri, 13 Feb 2004 01:35:05 +0900
[e-mail]さん wrote:

> GCとハッシュとの兼ね合いからです。
> 
> (1) Win32OLEIDispatchを共有するために、オブジェクトから
>     Win32OLEIDispatchへのテーブルが必要。
> 
> (2) オブジェクトを区別するために、値ではなくてIDをキーにしたい。
> 
> (3) しかしGCのためには、FixnumではなくてVALUE自体が必要。
> 
> (4) Win32OLEIDispatchはrubyオブジェクトではないので、GCでmarkし
>     てはいけない。
> 
> (5) キーと値のペア両方をmarkする関数はあるが、キーだけをmarkす
>     る関数は提供されていない。
> 
> という条件から、キーを整数として扱うtype_numhashを使う、ポイン
> タと見なされないようにFIXNUM_FLAGを立てておく、という方法を取っ
> ています。
うーん、わかったようなわからないような。
ruby-list:39161からの抜粋になりますが、*で示したものでも良いのではないで
しょうか？

 struct oledata {
@@ -234,6 +235,5 @@ static ULONG ( STDMETHODCALLTYPE Release
     ULONG u = --(p->refcount);
     if (u == 0) {
-	free(p->dispatch.lpVtbl);
-	rb_hash_delete(com_hash, ULONG2NUM((ULONG)p));
+	st_delete(DATA_PTR(com_hash), p->obj, 0);
*       rb_hash_delete(com_hash, p->obj);
 	free(p);
     }
@@ -308,18 +308,18 @@ val2dispatch(val)
     VALUE val;
 {
+    struct st_table *tbl = DATA_PTR(com_hash);
     Win32OLEIDispatch* pdisp;
-    IDispatchVtbl* p = ALLOC(IDispatchVtbl);
 ... snip ...
-    pdisp->obj = val;
-    rb_hash_aset(com_hash, ULONG2NUM((ULONG)pdisp), val);
+    st_data_t data;
+
+    if (st_lookup(tbl, val, &data)) {
+	pdisp = (Win32OLEIDispatch *)(data & ~FIXNUM_FLAG);
+    }
+    else {
+	pdisp = ALLOC(Win32OLEIDispatch);
+	pdisp->dispatch.lpVtbl = &com_vtbl;
+	pdisp->refcount = 1;
+	pdisp->obj = val;
+	st_insert(tbl, val, (VALUE)pdisp | FIXNUM_FLAG);
+    }
*    VALUE v = rb_hash_aref(com_hash, val);
*    if (v != Qnil) {
*       pdisp = (Win32OLEIDispatch *)(v & ~FIXNUM_FLAG);
*    } else {
*       ... snip...
*       rb_hash_aset(com_hash, val, (VALUE)pdisp | FIXNUM_FLAG);
*    }
     return &pdisp->dispatch;
 }
@@ -5408,5 +5408,13 @@ Init_win32ole()
     rb_global_variable(&ary_ole_event);
     id_events = rb_intern("events");
-    com_hash = rb_hash_new();
+
+    ... snip ...
+    com_hash = Data_Wrap_Struct(rb_cData, rb_mark_hash, st_free_table, st_init_numtable());
*    com_hash = rb_hash_new();
     rb_global_variable(&com_hash);

知りたいことは、この場合(*で示したように記述した場合)、キーとしてVALUE
(Objectのインスタンス)、値としてFIXNUMの普通のHashが登録されているという
状態ですが、これがまずいのかどうかです。僕は、ハッシュがグローバルなので
マーク対象となり、エントリーのキーもマークされるから問題ないと思っている
んですが。
別の理由としては、直接Rubyの内部インターフェイスに近いst_xxxを使うより、
インタープリタ自体の関数であるrb_hash_xxxxを使ったほうがRubyのバージョン
の変更に強いのではないかということです。たとえば、Hashのソースをst.cから
変える可能性のほうが(たとえばpublic domainでは実はなかった問題とか起きた
と仮定してください。あるいはもっと高速な実装を手に入れたとか)hash.cの関数
が変わる可能性より大きいだろうということです。

-- 
arton <[e-mail]>

__________________________________________________
Do You Yahoo!?
http://bb.yahoo.co.jp/