1 /* Handle set and show GDB commands.
2 Copyright 2000, 2001 Free Software Foundation, Inc.
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 59 Temple Place - Suite 330,
17 Boston, MA 02111-1307, USA. */
23 #include "gdb_string.h"
30 #include "cli/cli-decode.h"
31 #include "cli/cli-cmds.h"
32 #include "cli/cli-setshow.h"
34 /* Prototypes for local functions */
36 static int parse_binary_operation (char *);
38 static enum cmd_auto_boolean
parse_auto_binary_operation (const char *arg
);
40 static enum cmd_auto_boolean
41 parse_auto_binary_operation (const char *arg
)
43 if (arg
!= NULL
&& *arg
!= '\0')
45 int length
= strlen (arg
);
46 while (isspace (arg
[length
- 1]) && length
> 0)
48 if (strncmp (arg
, "on", length
) == 0
49 || strncmp (arg
, "1", length
) == 0
50 || strncmp (arg
, "yes", length
) == 0
51 || strncmp (arg
, "enable", length
) == 0)
52 return CMD_AUTO_BOOLEAN_TRUE
;
53 else if (strncmp (arg
, "off", length
) == 0
54 || strncmp (arg
, "0", length
) == 0
55 || strncmp (arg
, "no", length
) == 0
56 || strncmp (arg
, "disable", length
) == 0)
57 return CMD_AUTO_BOOLEAN_FALSE
;
58 else if (strncmp (arg
, "auto", length
) == 0
59 || (strncmp (arg
, "-1", length
) == 0 && length
> 1))
60 return CMD_AUTO_BOOLEAN_AUTO
;
62 error ("\"on\", \"off\" or \"auto\" expected.");
63 return CMD_AUTO_BOOLEAN_AUTO
; /* pacify GCC */
67 parse_binary_operation (char *arg
)
74 length
= strlen (arg
);
76 while (arg
[length
- 1] == ' ' || arg
[length
- 1] == '\t')
79 if (strncmp (arg
, "on", length
) == 0
80 || strncmp (arg
, "1", length
) == 0
81 || strncmp (arg
, "yes", length
) == 0
82 || strncmp (arg
, "enable", length
) == 0)
84 else if (strncmp (arg
, "off", length
) == 0
85 || strncmp (arg
, "0", length
) == 0
86 || strncmp (arg
, "no", length
) == 0
87 || strncmp (arg
, "disable", length
) == 0)
91 error ("\"on\" or \"off\" expected.");
96 /* Do a "set" or "show" command. ARG is NULL if no argument, or the text
97 of the argument, and FROM_TTY is nonzero if this command is being entered
98 directly by the user (i.e. these are just like any other
99 command). C is the command list element for the command. */
102 do_setshow_command (char *arg
, int from_tty
, struct cmd_list_element
*c
)
104 if (c
->type
== set_cmd
)
117 new = (char *) xmalloc (strlen (arg
) + 2);
120 while ((ch
= *p
++) != '\000')
124 /* \ at end of argument is used after spaces
125 so they won't be lost. */
126 /* This is obsolete now that we no longer strip
127 trailing whitespace and actually, the backslash
128 didn't get here in my test, readline or
129 something did something funky with a backslash
130 right before a newline. */
133 ch
= parse_escape (&p
);
143 if (*(p
- 1) != '\\')
147 new = (char *) xrealloc (new, q
- new);
148 if (*(char **) c
->var
!= NULL
)
149 xfree (*(char **) c
->var
);
150 *(char **) c
->var
= new;
153 case var_string_noescape
:
156 if (*(char **) c
->var
!= NULL
)
157 xfree (*(char **) c
->var
);
158 *(char **) c
->var
= savestring (arg
, strlen (arg
));
162 error_no_arg ("filename to set it to.");
163 if (*(char **) c
->var
!= NULL
)
164 xfree (*(char **) c
->var
);
165 *(char **) c
->var
= tilde_expand (arg
);
168 *(int *) c
->var
= parse_binary_operation (arg
);
170 case var_auto_boolean
:
171 *(enum cmd_auto_boolean
*) c
->var
= parse_auto_binary_operation (arg
);
175 error_no_arg ("integer to set it to.");
176 *(unsigned int *) c
->var
= parse_and_eval_long (arg
);
177 if (*(unsigned int *) c
->var
== 0)
178 *(unsigned int *) c
->var
= UINT_MAX
;
184 error_no_arg ("integer to set it to.");
185 val
= parse_and_eval_long (arg
);
187 *(int *) c
->var
= INT_MAX
;
188 else if (val
>= INT_MAX
)
189 error ("integer %u out of range", val
);
191 *(int *) c
->var
= val
;
196 error_no_arg ("integer to set it to.");
197 *(int *) c
->var
= parse_and_eval_long (arg
);
204 const char *match
= NULL
;
207 /* if no argument was supplied, print an informative error message */
211 strcpy (msg
, "Requires an argument. Valid arguments are ");
212 for (i
= 0; c
->enums
[i
]; i
++)
216 strcat (msg
, c
->enums
[i
]);
222 p
= strchr (arg
, ' ');
230 for (i
= 0; c
->enums
[i
]; i
++)
231 if (strncmp (arg
, c
->enums
[i
], len
) == 0)
233 if (c
->enums
[i
][len
] == '\0')
237 break; /* exact match. */
247 error ("Undefined item: \"%s\".", arg
);
250 error ("Ambiguous item \"%s\".", arg
);
252 *(const char **) c
->var
= match
;
256 error ("gdb internal error: bad var_type in do_setshow_command");
259 else if (c
->type
== show_cmd
)
262 struct cleanup
*old_chain
;
263 struct ui_stream
*stb
;
266 stb
= ui_out_stream_new (uiout
);
267 old_chain
= make_cleanup_ui_out_stream_delete (stb
);
270 /* Possibly call the pre hook. */
271 if (c
->pre_show_hook
)
272 (c
->pre_show_hook
) (c
);
274 /* Print doc minus "show" at start. */
275 print_doc_line (gdb_stdout
, c
->doc
+ 5);
278 ui_out_text (uiout
, " is ");
279 ui_out_wrap_hint (uiout
, " ");
287 if (*(unsigned char **) c
->var
)
288 fputstr_filtered (*(unsigned char **) c
->var
, '"', stb
->stream
);
292 case var_string_noescape
:
295 if (*(char **) c
->var
)
296 fputs_filtered (*(char **) c
->var
, stb
->stream
);
300 fputs_filtered (*(int *) c
->var
? "on" : "off", stb
->stream
);
302 case var_auto_boolean
:
303 switch (*(enum cmd_auto_boolean
*) c
->var
)
305 case CMD_AUTO_BOOLEAN_TRUE
:
306 fputs_filtered ("on", stb
->stream
);
308 case CMD_AUTO_BOOLEAN_FALSE
:
309 fputs_filtered ("off", stb
->stream
);
311 case CMD_AUTO_BOOLEAN_AUTO
:
312 fputs_filtered ("auto", stb
->stream
);
315 internal_error (__FILE__
, __LINE__
,
316 "do_setshow_command: invalid var_auto_boolean");
321 if (*(unsigned int *) c
->var
== UINT_MAX
)
323 fputs_filtered ("unlimited", stb
->stream
);
326 /* else fall through */
328 fprintf_filtered (stb
->stream
, "%u", *(unsigned int *) c
->var
);
331 if (*(int *) c
->var
== INT_MAX
)
333 fputs_filtered ("unlimited", stb
->stream
);
336 fprintf_filtered (stb
->stream
, "%d", *(int *) c
->var
);
340 error ("gdb internal error: bad var_type in do_setshow_command");
343 ui_out_text (uiout
, "\"");
344 ui_out_field_stream (uiout
, "value", stb
);
346 ui_out_text (uiout
, "\"");
347 ui_out_text (uiout
, ".\n");
348 do_cleanups (old_chain
);
350 fputs_filtered (" is ", gdb_stdout
);
356 fputs_filtered ("\"", gdb_stdout
);
357 if (*(unsigned char **) c
->var
)
358 fputstr_filtered (*(unsigned char **) c
->var
, '"', gdb_stdout
);
359 fputs_filtered ("\"", gdb_stdout
);
362 case var_string_noescape
:
365 fputs_filtered ("\"", gdb_stdout
);
366 if (*(char **) c
->var
)
367 fputs_filtered (*(char **) c
->var
, gdb_stdout
);
368 fputs_filtered ("\"", gdb_stdout
);
371 fputs_filtered (*(int *) c
->var
? "on" : "off", gdb_stdout
);
373 case var_auto_boolean
:
374 switch (*(enum cmd_auto_boolean
*) c
->var
)
376 case CMD_AUTO_BOOLEAN_TRUE
:
377 fputs_filtered ("on", gdb_stdout
);
379 case CMD_AUTO_BOOLEAN_FALSE
:
380 fputs_filtered ("off", gdb_stdout
);
382 case CMD_AUTO_BOOLEAN_AUTO
:
383 fputs_filtered ("auto", gdb_stdout
);
386 internal_error (__FILE__
, __LINE__
,
387 "do_setshow_command: invalid var_auto_boolean");
392 if (*(unsigned int *) c
->var
== UINT_MAX
)
394 fputs_filtered ("unlimited", gdb_stdout
);
397 /* else fall through */
399 fprintf_filtered (gdb_stdout
, "%u", *(unsigned int *) c
->var
);
402 if (*(int *) c
->var
== INT_MAX
)
404 fputs_filtered ("unlimited", gdb_stdout
);
407 fprintf_filtered (gdb_stdout
, "%d", *(int *) c
->var
);
411 error ("gdb internal error: bad var_type in do_setshow_command");
413 fputs_filtered (".\n", gdb_stdout
);
417 error ("gdb internal error: bad cmd_type in do_setshow_command");
418 (*c
->function
.sfunc
) (NULL
, from_tty
, c
);
419 if (c
->type
== set_cmd
&& set_hook
)
423 /* Show all the settings in a list of show commands. */
426 cmd_show_list (struct cmd_list_element
*list
, int from_tty
, char *prefix
)
429 ui_out_tuple_begin (uiout
, "showlist");
431 for (; list
!= NULL
; list
= list
->next
)
433 /* If we find a prefix, run its list, prefixing our output by its
434 prefix (with "show " skipped). */
436 if (list
->prefixlist
&& !list
->abbrev_flag
)
438 ui_out_tuple_begin (uiout
, "optionlist");
439 ui_out_field_string (uiout
, "prefix", list
->prefixname
+ 5);
440 cmd_show_list (*list
->prefixlist
, from_tty
, list
->prefixname
+ 5);
441 ui_out_tuple_end (uiout
);
443 if (list
->type
== show_cmd
)
445 ui_out_tuple_begin (uiout
, "option");
446 ui_out_text (uiout
, prefix
);
447 ui_out_field_string (uiout
, "name", list
->name
);
448 ui_out_text (uiout
, ": ");
449 do_setshow_command ((char *) NULL
, from_tty
, list
);
450 ui_out_tuple_end (uiout
);
453 if (list
->prefixlist
&& !list
->abbrev_flag
)
454 cmd_show_list (*list
->prefixlist
, from_tty
, list
->prefixname
+ 5);
455 if (list
->type
== show_cmd
)
457 fputs_filtered (prefix
, gdb_stdout
);
458 fputs_filtered (list
->name
, gdb_stdout
);
459 fputs_filtered (": ", gdb_stdout
);
460 do_setshow_command ((char *) NULL
, from_tty
, list
);
465 ui_out_tuple_end (uiout
);
This page took 0.039495 seconds and 4 git commands to generate.