[ruby-dev:23483] Re: [BUG] numeric.c (flo_to_s) broken?

山本です。

>  avalue < 1.0e-7 || avalue >= 1.0e15 なら指数表示(e)で、そうでなければ
>  小数表示(f)で、ともに有効１５桁。ただし、小数点以下の余分な０は削除する
>
>という仕様で間違いないでしょうか？この仕様でトライしてみようと思っています。

実装してみました。

printf("%.14e" で精度を確定した後、atoi で指数の大きさを見て、
十分０に近ければ小数点を移動して指数部を消します。

  * printf("%.14e" ... => '.'があってその直前が整数部分（１桁）、eから始まる指数部が存在する

  * atoi は、"032" といった数字も10進数として解釈する

という二点が満たされる必要があります。（両方とも仕様のはずですが、環境によっては・・・・？）


Index: numeric.c
===================================================================
RCS file: /ruby/ruby/numeric.c,v
retrieving revision 1.101.2.5
diff -u -w -b -p -r1.101.2.5 numeric.c
--- numeric.c	7 May 2004 08:48:20 -0000	1.101.2.5
+++ numeric.c	8 May 2004 07:27:17 -0000
@@ -489,9 +489,8 @@ flo_to_s(flt)
     VALUE flt;
 {
     char buf[32];
-    char *fmt = "%.15f";
     double value = RFLOAT(flt)->value;
-    double avalue, d1, d2;
+    int exp;
     char *p, *e;
 
     if (isinf(value))
@@ -499,13 +498,24 @@ flo_to_s(flt)
     else if(isnan(value))
 	return rb_str_new2("NaN");
 
-    avalue = fabs(value);
-    if (avalue < 1.0e-7 || avalue >= 1.0e15) {
-	fmt = "%.16e";
+    sprintf(buf, "%.14e", value);
+    e = strchr(buf, 'e');
+    exp = atoi(e+1);
+    if (-7 <= exp && exp <= 13) {
+	char *d = strchr(buf, '.');
+	if (exp > 0) {
+	    memmove(d, d+1, exp);
+	    d[exp] = '.';
     }    
-    sprintf(buf, fmt, value);
-    if (!(e = strchr(buf, 'e'))) {
-	e = buf + strlen(buf);
+	if (exp < 0) {
+	    int n = -exp;
+	    d[0] = d[-1];
+	    memmove(d+n, d, strlen(d)+1);
+	    e += n;
+	    memset(buf, '0', n+1);
+	    buf[1] = '.';
+	}
+	*e = '\0';
     }
     p = e;
     while (*--p=='0')