Mercurial > hg > octave-nkf

diff src/ls-oct-ascii.cc @ 6171:4508e9d73ea1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-11-15 20:03:18 by jwe]
author jwe
date Wed, 15 Nov 2006 20:03:18 +0000
parents 85c7dc4afe6b
children e5ed0d1edddc
line wrap: on
line diff
--- a/src/ls-oct-ascii.cc
+++ b/src/ls-oct-ascii.cc
@@ -350,7 +350,7 @@
 {
   bool infnan_warned = true;
 
-  return save_ascii_data (os, t, name, infnan_warned, false, 0);
+  return save_ascii_data (os, t, name, infnan_warned, false, 4);
 }
 
 // Maybe this should be a static function in tree-plot.cc?
@@ -374,6 +374,9 @@
 	 << "# total rows: " << nr << "\n"
 	 << "# total columns: " << nc << "\n";
 
+      long old_precision = os.precision ();
+      os.precision (4);
+
       if (parametric)
 	{
 	  octave_idx_type extras = nc % 3;
@@ -402,6 +405,8 @@
 		os << "\n";
 	    }
 	}
+
+      os.precision (old_precision);
     }
   else
     {