From: "U.Nakamura" <usa@...>
Date: 2004-06-22T17:17:52+09:00
Subject: [ruby-dev:23747] Re: [mswin32] printf 	の NaN, Inf 表示

こんにちは、なかむら(う)です。

In message "[ruby-dev:23709] Re: [mswin32] printf   の NaN, Inf 表示"
    on Jun.17,2004 15:39:26, <usa@garbagecollect.jp> wrote:
| In message "[ruby-dev:23704] [mswin32] printf  の NaN, Inf 表示"
|     on Jun.17,2004 12:22:04, <katonbo@katontech.com> wrote:
| | 　NaN、Inf の扱いがどうあるべきか？という辺り、過去にも議論があっ
| | たようですが、とりあえず、[i386-cygwin]、[i386-freebsd4] などと同
| | じ出力になるようにしてみたパッチです。
(snip)
| * このパッチでは書式指定子で桁や符号が指定された場合の処理が
|   抜けている。

どうにかしてみました。以下パッチ。

Index: sprintf.c
===================================================================
RCS file: /home/cvs/ruby/sprintf.c,v
retrieving revision 1.39
diff -u -1 -p -r1.39 sprintf.c
--- sprintf.c	29 Mar 2004 07:54:15 -0000	1.39
+++ sprintf.c	22 Jun 2004 08:15:30 -0000
@@ -690,2 +690,38 @@ rb_f_sprintf(argc, argv)
 		fval = RFLOAT(rb_Float(val))->value;
+#if defined(_MSC_VER) || defined(__MINGW32__)
+		if (isnan(fval) || isinf(fval)) {
+		    char *expr;
+
+		    if  (isnan(fval)) {
+			expr = "NaN";
+		    }
+		    else {
+			expr = "Inf";
+		    }
+		    need = strlen(expr);
+		    if (fval < 0.0 || (flags & FPLUS))
+			need++;
+		    if ((flags & FWIDTH) && need < width)
+			need = width;
+
+		    CHECK(need);
+		    sprintf(&buf[blen], "%*s", need, "");
+		    if (flags & FMINUS) {
+			if (fval < 0.0)
+			    buf[blen++] = '-';
+			else if (flags & FPLUS)
+			    buf[blen++] = '+';
+			strncpy(&buf[blen], expr, strlen(expr));
+		    }
+		    else {
+			if (fval < 0.0)
+			    buf[blen + need - strlen(expr) - 1] = '-';
+			else if (flags & FPLUS)
+			    buf[blen + need - strlen(expr) - 1] = '+';
+			strncpy(&buf[blen + need - strlen(expr)], expr, strlen(expr));
+		    }
+		    blen += strlen(&buf[blen]);
+		    break;
+		}
+#endif
 		fmt_setup(fbuf, *p, flags, width, prec);

それでは。
-- 
U.Nakamura <usa@garbagecollect.jp>