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

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>