Mercurial > octave
comparison info/variables.c @ 171:d6fae6ef3e60
[project @ 1993-10-21 22:39:46 by jwe]
Initial revision
author | jwe |
---|---|
date | Thu, 21 Oct 1993 22:39:46 +0000 |
parents | |
children | 5fb4ee02da70 |
comparison
equal
deleted
inserted
replaced
170:a76cfc0fc794 | 171:d6fae6ef3e60 |
---|---|
1 /* variables.c -- How to manipulate user visible variables in Info. */ | |
2 | |
3 /* This file is part of GNU Info, a program for reading online documentation | |
4 stored in Info format. | |
5 | |
6 Copyright (C) 1993 Free Software Foundation, Inc. | |
7 | |
8 This program is free software; you can redistribute it and/or modify | |
9 it under the terms of the GNU General Public License as published by | |
10 the Free Software Foundation; either version 2, or (at your option) | |
11 any later version. | |
12 | |
13 This program is distributed in the hope that it will be useful, | |
14 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 GNU General Public License for more details. | |
17 | |
18 You should have received a copy of the GNU General Public License | |
19 along with this program; if not, write to the Free Software | |
20 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. | |
21 | |
22 Written by Brian Fox (bfox@ai.mit.edu). */ | |
23 | |
24 #include "info.h" | |
25 #include "variables.h" | |
26 | |
27 /* **************************************************************** */ | |
28 /* */ | |
29 /* User Visible Variables in Info */ | |
30 /* */ | |
31 /* **************************************************************** */ | |
32 | |
33 /* Choices used by the completer when reading a zero/non-zero value for | |
34 a variable. */ | |
35 static char *on_off_choices[] = { "Off", "On", (char *)NULL }; | |
36 | |
37 VARIABLE_ALIST info_variables[] = { | |
38 { "automatic-footnotes", | |
39 "When \"On\", footnotes appear and disappear automatically", | |
40 &auto_footnotes_p, (char **)on_off_choices }, | |
41 | |
42 { "automatic-tiling", | |
43 "When \"On\", creating or deleting a window resizes other windows", | |
44 &auto_tiling_p, (char **)on_off_choices }, | |
45 | |
46 { "visible-bell", | |
47 "When \"On\", flash the screen instead of ringing the bell", | |
48 &terminal_use_visible_bell_p, (char **)on_off_choices }, | |
49 | |
50 { "errors-ring-bell", | |
51 "When \"On\", errors cause the bell to ring", | |
52 &info_error_rings_bell_p, (char **)on_off_choices }, | |
53 | |
54 { "gc-compressed-files", | |
55 "When \"On\", Info garbage collects files which had to be uncompressed", | |
56 &gc_compressed_files, (char **)on_off_choices }, | |
57 { "show-index-match", | |
58 "When \"On\", the portion of the matched search string is highlighted", | |
59 &show_index_match, (char **)on_off_choices }, | |
60 | |
61 { "scroll-behaviour", | |
62 "Controls what happens when scrolling is requested at the end of a node", | |
63 &info_scroll_behaviour, (char **)info_scroll_choices }, | |
64 | |
65 { "scroll-step", | |
66 "The number lines to scroll when the cursor moves out of the window", | |
67 &window_scroll_step, (char **)NULL }, | |
68 | |
69 { "ISO-Latin", | |
70 "When \"On\", Info accepts and displays ISO Latin characters", | |
71 &ISO_Latin_p, (char **)on_off_choices }, | |
72 | |
73 { (char *)NULL, (char *)NULL, (int *)NULL, (char **)NULL } | |
74 }; | |
75 | |
76 DECLARE_INFO_COMMAND (describe_variable, "Explain the use of a variable") | |
77 { | |
78 VARIABLE_ALIST *var; | |
79 char *description; | |
80 | |
81 /* Get the variable's name. */ | |
82 var = read_variable_name ("Describe variable: ", window); | |
83 | |
84 if (!var) | |
85 return; | |
86 | |
87 description = (char *)xmalloc (20 + strlen (var->name) + strlen (var->doc)); | |
88 | |
89 if (var->choices) | |
90 sprintf (description, "%s (%s): %s.", | |
91 var->name, var->choices[*(var->value)], var->doc); | |
92 else | |
93 sprintf (description, "%s (%d): %s.", var->name, *(var->value), var->doc); | |
94 | |
95 window_message_in_echo_area ("%s", description); | |
96 free (description); | |
97 } | |
98 | |
99 DECLARE_INFO_COMMAND (set_variable, "Set the value of an Info variable") | |
100 { | |
101 VARIABLE_ALIST *var; | |
102 char *line; | |
103 | |
104 /* Get the variable's name and value. */ | |
105 var = read_variable_name ("Set variable: ", window); | |
106 | |
107 if (!var) | |
108 return; | |
109 | |
110 /* Read a new value for this variable. */ | |
111 { | |
112 char prompt[100]; | |
113 | |
114 if (!var->choices) | |
115 { | |
116 int potential_value; | |
117 | |
118 if (info_explicit_arg || count != 1) | |
119 potential_value = count; | |
120 else | |
121 potential_value = *(var->value); | |
122 | |
123 sprintf (prompt, "Set %s to value (%d): ", | |
124 var->name, potential_value); | |
125 line = info_read_in_echo_area (active_window, prompt); | |
126 | |
127 /* If no error was printed, clear the echo area. */ | |
128 if (!info_error_was_printed) | |
129 window_clear_echo_area (); | |
130 | |
131 /* User aborted? */ | |
132 if (!line) | |
133 return; | |
134 | |
135 /* If the user specified a value, get that, otherwise, we are done. */ | |
136 canonicalize_whitespace (line); | |
137 if (*line) | |
138 *(var->value) = atoi (line); | |
139 else | |
140 *(var->value) = potential_value; | |
141 | |
142 free (line); | |
143 } | |
144 else | |
145 { | |
146 register int i; | |
147 REFERENCE **array = (REFERENCE **)NULL; | |
148 int array_index = 0; | |
149 int array_slots = 0; | |
150 | |
151 for (i = 0; var->choices[i]; i++) | |
152 { | |
153 REFERENCE *entry; | |
154 | |
155 entry = (REFERENCE *)xmalloc (sizeof (REFERENCE)); | |
156 entry->label = savestring (var->choices[i]); | |
157 entry->nodename = (char *)NULL; | |
158 entry->filename = (char *)NULL; | |
159 | |
160 add_pointer_to_array | |
161 (entry, array_index, array, array_slots, 10, REFERENCE *); | |
162 } | |
163 | |
164 sprintf (prompt, "Set %s to value (%s): ", | |
165 var->name, var->choices[*(var->value)]); | |
166 | |
167 /* Ask the completer to read a variable value for us. */ | |
168 line = info_read_completing_in_echo_area (window, prompt, array); | |
169 | |
170 info_free_references (array); | |
171 | |
172 if (!echo_area_is_active) | |
173 window_clear_echo_area (); | |
174 | |
175 /* User aborted? */ | |
176 if (!line) | |
177 { | |
178 info_abort_key (active_window, 0, 0); | |
179 return; | |
180 } | |
181 | |
182 /* User accepted default choice? If so, no change. */ | |
183 if (!*line) | |
184 { | |
185 free (line); | |
186 return; | |
187 } | |
188 | |
189 /* Find the choice in our list of choices. */ | |
190 for (i = 0; var->choices[i]; i++) | |
191 if (strcmp (var->choices[i], line) == 0) | |
192 break; | |
193 | |
194 if (var->choices[i]) | |
195 *(var->value) = i; | |
196 } | |
197 } | |
198 } | |
199 | |
200 /* Read the name of an Info variable in the echo area and return the | |
201 address of a VARIABLE_ALIST member. A return value of NULL indicates | |
202 that no variable could be read. */ | |
203 VARIABLE_ALIST * | |
204 read_variable_name (prompt, window) | |
205 char *prompt; | |
206 WINDOW *window; | |
207 { | |
208 register int i; | |
209 char *line; | |
210 REFERENCE **variables; | |
211 | |
212 /* Get the completion array of variable names. */ | |
213 variables = make_variable_completions_array (); | |
214 | |
215 /* Ask the completer to read a variable for us. */ | |
216 line = | |
217 info_read_completing_in_echo_area (window, prompt, variables); | |
218 | |
219 info_free_references (variables); | |
220 | |
221 if (!echo_area_is_active) | |
222 window_clear_echo_area (); | |
223 | |
224 /* User aborted? */ | |
225 if (!line) | |
226 { | |
227 info_abort_key (active_window, 0, 0); | |
228 return ((VARIABLE_ALIST *)NULL); | |
229 } | |
230 | |
231 /* User accepted "default"? (There is none.) */ | |
232 if (!*line) | |
233 { | |
234 free (line); | |
235 return ((VARIABLE_ALIST *)NULL); | |
236 } | |
237 | |
238 /* Find the variable in our list of variables. */ | |
239 for (i = 0; info_variables[i].name; i++) | |
240 if (strcmp (info_variables[i].name, line) == 0) | |
241 break; | |
242 | |
243 if (!info_variables[i].name) | |
244 return ((VARIABLE_ALIST *)NULL); | |
245 else | |
246 return (&(info_variables[i])); | |
247 } | |
248 | |
249 /* Make an array of REFERENCE which actually contains the names of the | |
250 variables available in Info. */ | |
251 REFERENCE ** | |
252 make_variable_completions_array () | |
253 { | |
254 register int i; | |
255 REFERENCE **array = (REFERENCE **)NULL; | |
256 int array_index = 0, array_slots = 0; | |
257 | |
258 for (i = 0; info_variables[i].name; i++) | |
259 { | |
260 REFERENCE *entry; | |
261 | |
262 entry = (REFERENCE *)xmalloc (sizeof (REFERENCE)); | |
263 entry->label = savestring (info_variables[i].name); | |
264 entry->nodename = (char *)NULL; | |
265 entry->filename = (char *)NULL; | |
266 | |
267 add_pointer_to_array | |
268 (entry, array_index, array, array_slots, 200, REFERENCE *); | |
269 } | |
270 | |
271 return (array); | |
272 } |