changeset 5868:84b5cd59e627

[project @ 2006-06-29 06:39:20 by jwe]
author jwe
date Thu, 29 Jun 2006 06:39:20 +0000
parents b305874f50ef
children 6a23ee71dd86
files scripts/ChangeLog scripts/miscellaneous/dump_prefs.m
diffstat 2 files changed, 19 insertions(+), 30 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Wed Jun 28 22:11:51 2006 +0000
+++ b/scripts/ChangeLog	Thu Jun 29 06:39:20 2006 +0000
@@ -1,3 +1,9 @@
+2006-06-29  John W. Eaton  <jwe@octave.org>
+
+	* miscellaneous/dump_prefs.m: Remove obsolete symbols from the list.
+	Use feval instead of "type -q" to get values now that all the
+	symbols are functions.
+
 2006-06-16  John W. Eaton  <jwe@octave.org>
 
 	* time/datevec.m: Avoid computing log of non-positive values.
--- a/scripts/miscellaneous/dump_prefs.m	Wed Jun 28 22:11:51 2006 +0000
+++ b/scripts/miscellaneous/dump_prefs.m	Thu Jun 29 06:39:20 2006 +0000
@@ -37,12 +37,11 @@
   ## remember to update it each time the list of preference variables
   ## changes
 
-  var_list = ["DEFAULT_EXEC_PATH";
-	      "DEFAULT_LOADPATH";
-	      "EDITOR";
+  ## Note that these are no longer variables.
+
+  sym_list = ["EDITOR";
               "EXEC_PATH";
-              "IMAGEPATH";
-              "LOADPATH";
+              "IMAGE_PATH";
               "PAGER";
               "PS1";
               "PS2";
@@ -51,7 +50,6 @@
               "beep_on_error";
               "completion_append_char";
               "crash_dumps_octave_core";
-              "default_save_format";
               "echo_executing_commands";
               "fixed_point_format";
               "gnuplot_binary";
@@ -62,7 +60,6 @@
               "gnuplot_command_title";
               "gnuplot_command_using";
               "gnuplot_command_with";
-              "gnuplot_has_frames";
               "history_file";
               "history_size";
               "ignore_function_time_stamp";
@@ -76,8 +73,6 @@
               "page_screen_output";
               "print_answer_id_name";
               "print_empty_dimensions";
-              "print_rhs_assign_val";
-              "return_last_computed_value";
               "save_precision";
               "saving_history";
               "sighup_dumps_octave_core";
@@ -86,30 +81,18 @@
               "split_long_rows";
               "string_fill_char";
               "struct_levels_to_print";
-              "suppress_verbose_help_message";
-              "warn_assign_as_truth_value";
-              "warn_divide_by_zero";
-              "warn_empty_list_elements";
-              "warn_fortran_indexing";
-              "warn_function_name_clash";
-              "warn_future_time_stamp";
-              "warn_imag_to_real";
-              "warn_missing_semicolon";
-              "warn_neg_dim_as_zero";
-              "warn_num_to_str";
-              "warn_resize_on_range_error";
-              "warn_separator_insert";
-              "warn_single_quote_string";
-              "warn_str_to_num";
-              "warn_undefined_return_values";
-              "warn_variable_switch_label"];
+              "suppress_verbose_help_message"];
 
-  for i = 1:rows(var_list)
-    var = deblank (var_list(i,:));
+  for i = 1:rows(sym_list)
+    sym = deblank (sym_list(i,:));
     try
-      fprintf (file, "  %s = %s\n", var, type ("-q", var));
+      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", var);
+      fprintf (file, "# %s = <no value or error in displaying it>\n", sym);
     end_try_catch
   endfor