[ruby-dev:1825] Re: [Req] Float#frexp and Float.ldexp

まつもと ゆきひろです

In message "[ruby-dev:1822] Re: [Req] Float#frexp and Float.ldexp"
    on 98/03/17, 石塚圭樹 <[e-mail]> writes:

|けいじゅ＠日本ラショナルソフトウェアです.

|>|  Math.frexp(f)
|>|  Math.ldexp(仮数, 指数)
|
|>こっちを採用します．
|
|できたら, パッチを流してくれると嬉しいなあ... 

では．書いただけでテストしてません．

diff -u -1 -r1.1.1.2.2.1 math.c
--- math.c	1998/01/16 12:35:46	1.1.1.2.2.1
+++ math.c	1998/03/17 05:21:07
@@ -92,2 +92,26 @@
 
+static VALUE
+math_frexp(obj, x)
+    VALUE obj, x;
+{
+    double d;
+    int exp;
+
+    Need_Float(x);
+    d = frexp(RFLOAT(x)->value, &exp);
+
+    return assoc_new(float_new(d), INT2NUM(exp));
+}
+
+static VALUE
+math_ldexp(obj, x, n)
+    VALUE obj, x, n;
+{
+    double d;
+    int exp;
+
+    Need_Float(x);
+    return float_new(d = ldexp(RFLOAT(x)->value, NUM2INT(n)));
+}
+
 void
@@ -117,3 +141,5 @@
     rb_define_module_function(mMath, "log10", math_log10, 1);
-    rb_define_module_function(mMath, "sqrt", math_sqrt, 1);
+
+    rb_define_module_function(mMath, "frexp", math_frexp, 1);
+    rb_define_module_function(mMath, "ldexp", math_ldexp, 2);
 }