# HG changeset patch
# User jwe
# Date 832063817 0
# Node ID c04b563fb768d91cab9bfd55ac55302e87862b6b
# Parent  484ddc3e7b827001e01c92e63960f3cc7974bdc6
[project @ 1996-05-14 08:50:17 by jwe]

diff -r 484ddc3e7b82 -r c04b563fb768 src/load-save.cc
--- a/src/load-save.cc	Tue May 14 08:29:13 1996 +0000
+++ b/src/load-save.cc	Tue May 14 08:50:17 1996 +0000
@@ -55,6 +55,13 @@
 #include "user-prefs.h"
 #include "utils.h"
 
+// The default output format.  May be one of "binary", "text", or
+// "mat-binary".
+static string Vdefault_save_format;
+
+// The number of decimal digits to use when writing ascii data.
+static int Vsave_precision;
+
 // Used when converting Inf to something that gnuplot can read.
 
 #ifndef OCT_RBV
@@ -1897,7 +1904,7 @@
   int success = 1;
 
   if (! precision)
-    precision = user_pref.save_precision;
+    precision = Vsave_precision;
 
   if (! name.empty ())
     os << "# name: " << name << "\n";
@@ -2107,7 +2114,7 @@
 {
   load_save_format retval = LS_ASCII;
 
-  string fmt = user_pref.default_save_format;
+  string fmt = Vdefault_save_format;
 
   if (fmt == "binary")
     retval = LS_BINARY;
@@ -2349,6 +2356,53 @@
   return (os && ! fail);
 }
 
+static int
+default_save_format (void)
+{
+  int status = 0;
+
+  string s = builtin_string_variable ("default_save_format");
+
+  if (s.empty ())
+    {
+      gripe_invalid_value_specified ("default_save_format");
+      status = -1;
+    }
+  else
+    Vdefault_save_format = s;
+
+  return status;
+}
+
+static int
+save_precision (void)
+{
+  double val;
+  if (builtin_real_scalar_variable ("save_precision", val)
+      && ! xisnan (val))
+    {
+      int ival = NINT (val);
+      if (ival >= 0 && (double) ival == val)
+	{
+	  Vsave_precision = ival;
+	  return 0;
+	}
+    }
+  gripe_invalid_value_specified ("save_precision");
+  return -1;
+}
+
+void
+symbols_of_load_save (void)
+{
+  DEFVAR (default_save_format, "ascii", 0, default_save_format,
+    "default format for files created with save, may be one of\n\
+\"binary\", \"text\", or \"mat-binary\"");
+
+  DEFVAR (save_precision, 15.0, 0, save_precision,
+    "number of significant figures kept by the ASCII save command");
+}
+
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***