mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* object.c (rb_cstr_to_dbl): return 0.0 if hexadecimal and
baccheck is FALSE: Float("0x1p+0") works, but "0x1p+0".to_f doesn't. [ruby-dev:40650] * util.c (ruby_strtod): allow hexdecimal integers. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@27140 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
2067e4eb30
commit
4d399f12d4
5 changed files with 45 additions and 15 deletions
|
@ -1,3 +1,11 @@
|
|||
Thu Apr 1 13:24:12 2010 NARUSE, Yui <naruse@ruby-lang.org>
|
||||
|
||||
* object.c (rb_cstr_to_dbl): return 0.0 if hexadecimal and
|
||||
baccheck is FALSE: Float("0x1p+0") works, but "0x1p+0".to_f
|
||||
doesn't. [ruby-dev:40650]
|
||||
|
||||
* util.c (ruby_strtod): allow hexdecimal integers.
|
||||
|
||||
Thu Apr 1 13:20:50 2010 NARUSE, Yui <naruse@ruby-lang.org>
|
||||
|
||||
* lib/scanf.rb: support %a format. [ruby-dev:40650]
|
||||
|
|
10
object.c
10
object.c
|
@ -2246,6 +2246,11 @@ rb_cstr_to_dbl(const char *p, int badcheck)
|
|||
if (!p) return 0.0;
|
||||
q = p;
|
||||
while (ISSPACE(*p)) p++;
|
||||
|
||||
if (!badcheck && p[0] == '0' && (p[1] == 'x' || p[1] == 'X')) {
|
||||
return 0.0;
|
||||
}
|
||||
|
||||
d = strtod(p, &end);
|
||||
if (errno == ERANGE) {
|
||||
OutOfRange();
|
||||
|
@ -2284,6 +2289,11 @@ rb_cstr_to_dbl(const char *p, int badcheck)
|
|||
}
|
||||
*n = '\0';
|
||||
p = buf;
|
||||
|
||||
if (!badcheck && p[0] == '0' && (p[1] == 'x' || p[1] == 'X')) {
|
||||
return 0.0;
|
||||
}
|
||||
|
||||
d = strtod(p, &end);
|
||||
if (errno == ERANGE) {
|
||||
OutOfRange();
|
||||
|
|
|
@ -87,6 +87,18 @@ class TestFloat < Test::Unit::TestCase
|
|||
assert_raise(ArgumentError){Float("1__1")}
|
||||
# add expected behaviour here.
|
||||
assert_equal(10, Float("1_0"))
|
||||
|
||||
assert_equal([ 0.0].pack('G'), [Float(" 0x0p+0").to_f].pack('G'))
|
||||
assert_equal([-0.0].pack('G'), [Float("-0x0p+0").to_f].pack('G'))
|
||||
assert_equal(255.0, Float("0Xff"))
|
||||
assert_equal(255.5, Float("0Xff.8"))
|
||||
assert_equal(1.0, Float("0X1.P+0"))
|
||||
assert_equal(1024.0, Float("0x1p10"))
|
||||
assert_equal(1024.0, Float("0x1p+10"))
|
||||
assert_equal(0.0009765625, Float("0x1p-10"))
|
||||
assert_equal(2.6881171418161356e+43, Float("0x1.3494a9b171bf5p+144"))
|
||||
assert_equal(-3.720075976020836e-44, Float("-0x1.a8c1f14e2af5dp-145"))
|
||||
|
||||
end
|
||||
|
||||
def test_divmod
|
||||
|
|
|
@ -1398,7 +1398,10 @@ class TestString < Test::Unit::TestCase
|
|||
assert_equal([-0.0].pack('G'), [S("-0.0").to_f].pack('G'))
|
||||
assert_equal([ 0.0].pack('G'), [S(" 0x0p+0").to_f].pack('G'))
|
||||
assert_equal([-0.0].pack('G'), [S("-0x0p+0").to_f].pack('G'))
|
||||
assert_equal(255.0, S("0Xff").to_f)
|
||||
assert_equal(255.5, S("0Xff.8").to_f)
|
||||
assert_equal(1.0, S("0X1.P+0").to_f)
|
||||
assert_equal(1024.0, S("0x1p10").to_f)
|
||||
assert_equal(1024.0, S("0x1p+10").to_f)
|
||||
assert_equal(0.0009765625, S("0x1p-10").to_f)
|
||||
assert_equal(2.6881171418161356e+43, S("0x1.3494a9b171bf5p+144").to_f)
|
||||
|
|
27
util.c
27
util.c
|
@ -2124,24 +2124,21 @@ break2:
|
|||
}
|
||||
}
|
||||
|
||||
if (*s != 'P' && *s != 'p') {
|
||||
s = s0;
|
||||
goto ret;
|
||||
}
|
||||
if (*s == 'P' || *s == 'p') {
|
||||
dsign = 0x2C - *++s; /* +: 2B, -: 2D */
|
||||
if (abs(dsign) == 1) s++;
|
||||
else dsign = 1;
|
||||
|
||||
dsign = 0x2C - *++s; /* +: 2B, -: 2D */
|
||||
if (abs(dsign) != 1) {
|
||||
s = s0;
|
||||
goto ret;
|
||||
for (nd = 0; (c = *s) >= '0' && c <= '9'; s++) {
|
||||
nd *= 10;
|
||||
nd += c;
|
||||
nd -= '0';
|
||||
}
|
||||
dval(rv) = ldexp(adj, nd * dsign);
|
||||
}
|
||||
|
||||
for (nd = 0, s++; (c = *s) >= '0' && c <= '9'; s++) {
|
||||
nd *= 10;
|
||||
nd += c;
|
||||
nd -= '0';
|
||||
else {
|
||||
dval(rv) = adj;
|
||||
}
|
||||
|
||||
dval(rv) = ldexp(adj, nd * dsign);
|
||||
goto ret;
|
||||
}
|
||||
nz0 = 1;
|
||||
|
|
Loading…
Reference in a new issue