[ruby-dev:21032] Re: [BigDecimal] exception handling

斎藤です。

----- Original Message ----- 
From: "Tadashi Saito" <[e-mail]>
Sent: Monday, July 28, 2003 6:17 PM
Subject: [ruby-dev:20956] Re: [BigDecimal] exception handling


> この他にもBigDecimal.modeでは、不正な引数を渡した場合に
> その場で例外にならずnilを返していますが、こちらも
> Check_Typeなどで直ちに例外があがる仕様の方が、より
> 親切ではないでしょうか。
> 他のライブラリでも大抵、そうなっている気がします。

こちらのパッチを作ってみました。
こうした方が他とも合ってて良いと思うのですが、どうでしょうか。

Index: bigdecimal.c
===================================================================
RCS file: /src/ruby/ext/bigdecimal/bigdecimal.c,v
retrieving revision 1.17
diff -u -p -r1.17 bigdecimal.c
--- bigdecimal.c        29 Jul 2003 07:52:48 -0000      1.17
+++ bigdecimal.c        30 Jul 2003 11:06:32 -0000
@@ -269,31 +269,30 @@ static VALUE
 BigDecimal_mode(VALUE self, VALUE which, VALUE val)
 {
     unsigned long f,fo;
+    int sw;

-    if(TYPE(which)!=T_FIXNUM)     return Qnil;
-    f = (unsigned long)FIX2INT(which);
+    f = (unsigned long)NUM2LONG(which);

-       if(f&VP_EXCEPTION_ALL) {
+    if(f&VP_EXCEPTION_ALL) {
         /* Exception mode setting */
         fo = VpGetException();
-        if(val!=Qfalse && val!=Qtrue) return Qnil;
+        sw = RTEST(val);
         if(f&VP_EXCEPTION_INFINITY) {
-            VpSetException((unsigned
short)((val==Qtrue)?(fo|VP_EXCEPTION_INFINIT
Y):
+            VpSetException((unsigned
short)((sw)?(fo|VP_EXCEPTION_INFINITY):
                            (fo&(~VP_EXCEPTION_INFINITY))));
         }
         if(f&VP_EXCEPTION_NaN) {
-            VpSetException((unsigned
short)((val==Qtrue)?(fo|VP_EXCEPTION_NaN):
+            VpSetException((unsigned short)((sw)?(fo|VP_EXCEPTION_NaN):
                            (fo&(~VP_EXCEPTION_NaN))));
         }
-        return INT2FIX(fo);
+        return LONG2FIX(fo);
     }
     if(VP_ROUND_MODE==f) {
         /* Rounding mode setting */
-        if(TYPE(val)!=T_FIXNUM)     return Qnil;
-        fo = VpSetRoundMode((unsigned long)FIX2INT(val));
-        return INT2FIX(fo);
+        fo = VpSetRoundMode((unsigned long)NUM2LONG(val));
+        return LONG2FIX(fo);
     }
-    return Qnil;
+    rb_raise(rb_eArgError, "invalid mode %ld", (long)f);
 }

 static U_LONG

--
斎藤ただし