Mercurial > hg > octave-nkf
diff src/ov-scalar.cc @ 5958:85c7dc4afe6b
[project @ 2006-08-23 18:35:38 by jwe]
author | jwe |
---|---|
date | Wed, 23 Aug 2006 18:35:39 +0000 |
parents | cdef72fcd206 |
children | 9e32bb109980 |
line wrap: on
line diff
--- a/src/ov-scalar.cc +++ b/src/ov-scalar.cc @@ -156,36 +156,19 @@ } bool -octave_scalar::save_ascii (std::ostream& os, bool& infnan_warned, - int strip_nan_and_inf) +octave_scalar::save_ascii (std::ostream& os, bool& infnan_warned) { double d = double_value (); - if (strip_nan_and_inf) + if (! infnan_warned && (xisnan (d) || xisinf (d))) { - if (xisnan (d)) - { - error ("only value to plot is NaN"); - return false; - } - else - { - d = xisinf (d) ? (d > 0 ? OCT_RBV : -OCT_RBV) : d; - octave_write_double (os, d); - os << "\n"; - } + warning ("save: Inf or NaN values may not be reloadable"); + infnan_warned = true; } - else - { - if (! infnan_warned && (xisnan (d) || xisinf (d))) - { - warning ("save: Inf or NaN values may not be reloadable"); - infnan_warned = true; - } - octave_write_double (os, d); - os << "\n"; - } + octave_write_double (os, d); + + os << "\n"; return true; }