Accept floats with 1.2L0_100 syntax when reading from streams, not only when

reading from strings.

diff --git a/ChangeLog b/ChangeLog
index 3f72f40d2f8c1294f7a0165b265ed52da66806a7..f28104657fd2a1fe88aee8c12574584ea4713a9b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2000-07-13  Bruno Haible  <haible@clisp.cons.org>
+
+        * src/float/input/cl_F_read_stream.cc (number_char_p): Accept '_',
+          used as precision marker for floats.
+          Reported by Keith Briggs (in 1998) and Thomas Roessler.
+        * src/integer/input/cl_I_read_stream.cc (number_char_p): Likewise.
+        * src/rational/input/cl_RA_read_stream.cc (number_char_p): Likewise.
+        * src/real/input/cl_R_read_stream.cc (number_char_p): Likewise.
+        * src/complex/input/cl_N_read_stream.cc (number_char_p): Likewise.
+
 2000-06-22  Bruno Haible  <haible@clisp.cons.org>
 
         * include/cl_object.h: Rename cl_word_size to cl_pointer_size.

diff --git a/src/complex/input/cl_N_read_stream.cc b/src/complex/input/cl_N_read_stream.cc
index 3fa746217b129ea14a3797d779a0ca620bd9618d..9d5e1b904e25b931cd06cc8a51cdea64457b41fe 100644 (file)
--- a/src/complex/input/cl_N_read_stream.cc
+++ b/src/complex/input/cl_N_read_stream.cc
@@ -29,7 +29,7 @@ static cl_boolean number_char_p (char c)
        if (((c >= 'A') && (c <= 'Z')) || ((c >= 'a') && (c <= 'z')))
                return cl_true;
        switch (c) {
-               case '+': case '-': case '.': case '/':
+               case '+': case '-': case '.': case '_': case '/':
                        return cl_true;
                default:
                        return cl_false;

diff --git a/src/float/input/cl_F_read_stream.cc b/src/float/input/cl_F_read_stream.cc
index 30ef9682f8bee5b9f41825ceb9d3c1bcfede5401..889c6ae6c74f8a3518cca454d49d8e5ff8740834 100644 (file)
--- a/src/float/input/cl_F_read_stream.cc
+++ b/src/float/input/cl_F_read_stream.cc
@@ -31,7 +31,7 @@ static cl_boolean number_char_p (char c)
        if (((c >= 'A') && (c <= 'Z')) || ((c >= 'a') && (c <= 'z')))
                return cl_true;
        switch (c) {
-               case '+': case '-': case '.': case '/':
+               case '+': case '-': case '.': case '_': case '/':
                        return cl_true;
                default:
                        return cl_false;

diff --git a/src/integer/input/cl_I_read_stream.cc b/src/integer/input/cl_I_read_stream.cc
index e3756651fb632017ec26a571dda008e7e39c1e97..44f79c0d557f985ce394099eafa21861d2e36fa8 100644 (file)
--- a/src/integer/input/cl_I_read_stream.cc
+++ b/src/integer/input/cl_I_read_stream.cc
@@ -31,7 +31,7 @@ static cl_boolean number_char_p (char c)
        if (((c >= 'A') && (c <= 'Z')) || ((c >= 'a') && (c <= 'z')))
                return cl_true;
        switch (c) {
-               case '+': case '-': case '.': case '/':
+               case '+': case '-': case '.': case '_': case '/':
                        return cl_true;
                default:
                        return cl_false;

diff --git a/src/rational/input/cl_RA_read_stream.cc b/src/rational/input/cl_RA_read_stream.cc
index b7a8ce73b8de167ac4127c076e0cc0e2437468d6..f4266a7f3e432d330473ae1ca26d967c5dce44be 100644 (file)
--- a/src/rational/input/cl_RA_read_stream.cc
+++ b/src/rational/input/cl_RA_read_stream.cc
@@ -32,7 +32,7 @@ static cl_boolean number_char_p (char c)
        if (((c >= 'A') && (c <= 'Z')) || ((c >= 'a') && (c <= 'z')))
                return cl_true;
        switch (c) {
-               case '+': case '-': case '.': case '/':
+               case '+': case '-': case '.': case '_': case '/':
                        return cl_true;
                default:
                        return cl_false;

diff --git a/src/real/input/cl_R_read_stream.cc b/src/real/input/cl_R_read_stream.cc
index 5bdc7736977b07ba57f34047eaefc1703fe55e5a..c7983580c592fa17d54932fb144b6b28884dcf0d 100644 (file)
--- a/src/real/input/cl_R_read_stream.cc
+++ b/src/real/input/cl_R_read_stream.cc
@@ -31,7 +31,7 @@ static cl_boolean number_char_p (char c)
        if (((c >= 'A') && (c <= 'Z')) || ((c >= 'a') && (c <= 'z')))
                return cl_true;
        switch (c) {
-               case '+': case '-': case '.': case '/':
+               case '+': case '-': case '.': case '_': case '/':
                        return cl_true;
                default:
                        return cl_false;