update packages

[CreaPhase.git] / octave_packages / m / miscellaneous / dump_prefs.m

diff --git a/octave_packages/m/miscellaneous/dump_prefs.m b/octave_packages/m/miscellaneous/dump_prefs.m
new file mode 100644 (file)
index 0000000..d544eae
--- /dev/null
+++ b/octave_packages/m/miscellaneous/dump_prefs.m
@@ -0,0 +1,98 @@
+## Copyright (C) 1994-2012 John W. Eaton
+##
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify it
+## under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 3 of the License, or (at
+## your option) any later version.
+##
+## Octave is distributed in the hope that it will be useful, but
+## WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+## General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with Octave; see the file COPYING.  If not, see
+## <http://www.gnu.org/licenses/>.
+
+## -*- texinfo -*-
+## @deftypefn  {Function File} {} dump_prefs ()
+## @deftypefnx {Function File} {} dump_prefs (@var{fid})
+## Dump all of the current user preference variables in a format that can be
+## parsed by Octave later.  @var{fid} is a file descriptor as returned by
+## @code{fopen}.  If @var{file} is omitted, the listing is printed to stdout.
+## @end deftypefn
+
+## Author: jwe
+
+function dump_prefs (file)
+
+  if (nargin == 0)
+    file = stdout;
+  endif
+
+  ## FIXME -- it would be nice to be able to get the list of
+  ## built-in variables directly from Octave so that we wouldn't have to
+  ## remember to update it each time the list of preference variables
+  ## changes
+
+  ## Note that these are no longer variables.
+
+  sym_list = ["EDITOR";
+              "EXEC_PATH";
+              "IMAGE_PATH";
+              "PAGER";
+              "PS1";
+              "PS2";
+              "PS4";
+              "beep_on_error";
+              "completion_append_char";
+              "crash_dumps_octave_core";
+              "echo_executing_commands";
+              "fixed_point_format";
+              "gnuplot_binary";
+              "gnuplot_command_end";
+              "gnuplot_command_plot";
+              "gnuplot_command_replot";
+              "gnuplot_command_splot";
+              "gnuplot_command_title";
+              "gnuplot_command_using";
+              "gnuplot_command_with";
+              "history_file";
+              "history_size";
+              "ignore_function_time_stamp";
+              "info_file";
+              "info_program";
+              "makeinfo_program";
+              "max_recursion_depth";
+              "output_max_field_width";
+              "output_precision";
+              "page_output_immediately";
+              "page_screen_output";
+              "print_answer_id_name";
+              "print_empty_dimensions";
+              "save_precision";
+              "saving_history";
+              "sighup_dumps_octave_core";
+              "sigterm_dumps_octave_core";
+              "silent_functions";
+              "split_long_rows";
+              "string_fill_char";
+              "struct_levels_to_print";
+              "suppress_verbose_help_message"];
+
+  for i = 1:rows(sym_list)
+    sym = deblank (sym_list(i,:));
+    try
+      val = feval (sym);
+      if (isnumeric (val))
+        val = sprintf ("%g", val);
+      endif
+      fprintf (file, "  %s = %s\n", sym, val);
+    catch
+      fprintf (file, "# %s = <no value or error in displaying it>\n", sym);
+    end_try_catch
+  endfor
+
+endfunction