]> www.ginac.de Git - cln.git/blobdiff - src/complex/input/cl_N_read_stream.cc
* All Files have been modified for inclusion of namespace cln;
[cln.git] / src / complex / input / cl_N_read_stream.cc
index 3fa746217b129ea14a3797d779a0ca620bd9618d..f22f3ed63e471b3a571573455b3b262ff81b8f32 100644 (file)
@@ -4,14 +4,16 @@
 #include "cl_sysdep.h"
 
 // Specification.
-#include "cl_complex_io.h"
+#include "cln/complex_io.h"
 
 
 // Implementation.
 
-#include "cl_io.h"
+#include "cln/io.h"
 #include "cl_spushstring.h"
-#include "cl_input.h"
+#include "cln/input.h"
+
+namespace cln {
 
 // We read an entire token (or even more, if it begins with #C) into a
 // buffer and then call read_complex() on the buffer.
@@ -29,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;
@@ -112,3 +114,5 @@ syntax:     read_number_bad_syntax(buffer.start_pointer(),buffer.end_pointer());
        // Handle premature EOF.
 eof:   read_number_eof();
 }
+
+}  // namespace cln