1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
## Copyright (C) 1996 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 2, 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, write to the Free
## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
## 02111-1307, USA.
## usage: dump_prefs (file)
##
## Have Octave dump all the current user preference variables to FILE
## in a format that can be parsed by Octave later. If FILE is omitted,
## the listing is printed to stdout.
## Author: jwe
function dump_prefs (file)
if (nargin == 0)
file = stdout;
endif
## XXX FIXME XXX -- 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
var_list = ["EDITOR";
"EXEC_PATH";
"IMAGEPATH";
"INFO_FILE";
"INFO_PROGRAM";
"LOADPATH";
"PAGER";
"PS1";
"PS2";
"PS4";
"auto_unload_dot_oct_files";
"automatic_replot";
"beep_on_error";
"completion_append_char";
"default_eval_print_flag";
"default_global_variable_value";
"default_return_value";
"default_save_format";
"define_all_return_values";
"do_fortran_indexing";
"echo_executing_commands";
"empty_list_elements_ok";
"fixed_point_format";
"gnuplot_binary";
"gnuplot_has_frames";
"gnuplot_has_multiplot";
"history_file";
"history_size";
"ignore_function_time_stamp";
"implicit_num_to_str_ok";
"implicit_str_to_num_ok";
"initialize_global_variables";
"max_recursion_depth";
"ok_to_lose_imaginary_part";
"output_max_field_width";
"output_precision";
"page_output_immediately";
"page_screen_output";
"prefer_column_vectors";
"prefer_zero_one_indexing";
"print_answer_id_name";
"print_empty_dimensions";
"propagate_empty_matrices";
"resize_on_range_error";
"return_last_computed_value";
"save_precision";
"saving_history";
"silent_functions";
"split_long_rows";
"string_fill_char";
"struct_levels_to_print";
"suppress_verbose_help_message";
"treat_neg_dim_as_zero";
"warn_assign_as_truth_value";
"warn_comma_in_global_decl";
"warn_divide_by_zero";
"warn_function_name_clash";
"warn_missing_semicolon";
"warn_reload_forces_clear";
"warn_variable_switch_label";
"whitespace_in_literal_matrix"];
for i = 1:rows(var_list)
var = deblank (var_list(i,:));
try
fprintf (file, " %s = %s\n", var, type ("-q", var));
catch
fprintf (file, "# %s = <no value or error in displaying it>\n", var);
end_try_catch
endfor
endfunction
|
