[ruby-dev:10102] Re: [PATCH] module === string.extend(module).dup

なかだです。

On Wed, 21 Jun 2000 23:14:35 +0900
[e-mail] (Yukihiro Matsumoto) wrote:
> |> 要するにfrozenなオブジェクトに対しても(変更しさえしなければ)
> |> 特異クラスを定義(というか参照)できれば問題なしのようですね。
> |> なんとかしましょう。
> |
> |  えーと、こんなんでしょうか。
> 
> ああっ、実はこちらでも作業してたのでした。

  いやちょっと気分転換に(^^;。まぁほぼ予想通りということですか。

> 基本的にやったことは同じですね。違いと言えば
> 
>   * rb_alias(), rb_undef()にもチェックを追加した

  undef は見落としてました。

  ついでに…。以前 OBJ_INFECT() ってのを作ってもらいましたが、こんなのは
どうかなとか。


--- ruby.h.orig	Mon May 29 11:10:18 2000
+++ ruby.h	Thu Jun 22 00:07:18 2000
@@ -359,14 +359,19 @@ struct RBignum {
 #define FL_ABLE(x) (!SPECIAL_CONST_P(x))
 #define FL_TEST(x,f) (FL_ABLE(x)?(RBASIC(x)->flags&(f)):0)
-#define FL_SET(x,f) do {if (FL_ABLE(x)) RBASIC(x)->flags |= (f);} while (0)
-#define FL_UNSET(x,f) do {if (FL_ABLE(x)) RBASIC(x)->flags &= ~(f);} while (0)
-#define FL_REVERSE(x,f) do {if (FL_ABLE(x)) RBASIC(x)->flags ^= (f);} while (0)
+#define FL_SET(x,f)	     (void) (FL_ABLE(x) && (RBASIC(x)->flags |= (f)))
+#define FL_UNSET(x,f)	     (void) (FL_ABLE(x) && (RBASIC(x)->flags &= ~(f)))
+#define FL_REVERSE(x,f)      (void) (FL_ABLE(x) && (RBASIC(x)->flags ^= (f)))
+#define FL_SET_FROM(x,s,f)   (void) (FL_ABLE(x) && FL_ABLE(s) && (RBASIC(x)->flags |= RBASIC(s)->flags & (f)))
+#define FL_UNSET_FROM(x,s,f) (void) (FL_ABLE(x) && FL_ABLE(s) && (RBASIC(x)->flags &= RBASIC(s)->flags & ~(f)))
+#define FL_COPY(x,s,f)	     (void) (FL_ABLE(x) && FL_ABLE(s) && \
+				     (RBASIC(x)->flags &= RBASIC(x)->flags & ~(f) | RBASIC(s)->flags & (f)))
 
 #define OBJ_TAINTED(x) FL_TEST((x), FL_TAINT)
 #define OBJ_TAINT(x) FL_SET((x), FL_TAINT)
-#define OBJ_INFECT(x,s) do {if (FL_ABLE(x) && FL_ABLE(s)) RBASIC(x)->flags |= RBASIC(s)->flags & FL_TAINT;} while (0)
+#define OBJ_INFECT(x,s) FL_SET_FROM((x), (s), FL_TAINT)
 
 #define OBJ_FROZEN(x) FL_TEST((x), FL_FREEZE)
 #define OBJ_FREEZE(x) FL_SET((x), FL_FREEZE)
+#define OBJ_FREEZE_BY(x,s) FL_SET_FROM((x), (s), FL_FREEZE)
 
 #define xmalloc ruby_xmalloc


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