Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/str2double.cc @ 11586:12df7854fa7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from source files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:24:59 -0500
parents 01f703952eff
children 1d13679b587e
comparison
equal deleted inserted replaced
11585:1473d0cf86d2 11586:12df7854fa7c
36 #include "ov.h" 36 #include "ov.h"
37 #include "defun-dld.h" 37 #include "defun-dld.h"
38 #include "gripes.h" 38 #include "gripes.h"
39 #include "utils.h" 39 #include "utils.h"
40 40
41 static inline bool 41 static inline bool
42 is_imag_unit (int c) 42 is_imag_unit (int c)
43 { return c == 'i' || c == 'j'; } 43 { return c == 'i' || c == 'j'; }
44 44
45 static std::istringstream& 45 static std::istringstream&
46 single_num (std::istringstream& is, double& num) 46 single_num (std::istringstream& is, double& num)
67 if (c1 == 'A') 67 if (c1 == 'A')
68 { 68 {
69 num = octave_NA; 69 num = octave_NA;
70 is.peek (); // Sets eof bit. 70 is.peek (); // Sets eof bit.
71 } 71 }
72 else 72 else
73 { 73 {
74 char c2 = is.get (); 74 char c2 = is.get ();
75 if (c1 == 'a' && c2 == 'N') 75 if (c1 == 'a' && c2 == 'N')
76 { 76 {
77 num = octave_NaN; 77 num = octave_NaN;