1 /* Handle set and show GDB commands.
3 Copyright (c) 2000, 2001, 2002, 2003, 2007, 2008, 2009, 2010, 2011
4 Free Software Foundation, Inc.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program. If not, see <http://www.gnu.org/licenses/>. */
20 #include "readline/tilde.h"
23 #include "gdb_string.h"
24 #include "arch-utils.h"
28 #include "cli/cli-decode.h"
29 #include "cli/cli-cmds.h"
30 #include "cli/cli-setshow.h"
32 /* Prototypes for local functions. */
34 static int parse_binary_operation (char *);
37 static enum auto_boolean
38 parse_auto_binary_operation (const char *arg
)
40 if (arg
!= NULL
&& *arg
!= '\0')
42 int length
= strlen (arg
);
44 while (isspace (arg
[length
- 1]) && length
> 0)
46 if (strncmp (arg
, "on", length
) == 0
47 || strncmp (arg
, "1", length
) == 0
48 || strncmp (arg
, "yes", length
) == 0
49 || strncmp (arg
, "enable", length
) == 0)
50 return AUTO_BOOLEAN_TRUE
;
51 else if (strncmp (arg
, "off", length
) == 0
52 || strncmp (arg
, "0", length
) == 0
53 || strncmp (arg
, "no", length
) == 0
54 || strncmp (arg
, "disable", length
) == 0)
55 return AUTO_BOOLEAN_FALSE
;
56 else if (strncmp (arg
, "auto", length
) == 0
57 || (strncmp (arg
, "-1", length
) == 0 && length
> 1))
58 return AUTO_BOOLEAN_AUTO
;
60 error (_("\"on\", \"off\" or \"auto\" expected."));
61 return AUTO_BOOLEAN_AUTO
; /* Pacify GCC. */
65 parse_binary_operation (char *arg
)
72 length
= strlen (arg
);
74 while (arg
[length
- 1] == ' ' || arg
[length
- 1] == '\t')
77 if (strncmp (arg
, "on", length
) == 0
78 || strncmp (arg
, "1", length
) == 0
79 || strncmp (arg
, "yes", length
) == 0
80 || strncmp (arg
, "enable", length
) == 0)
82 else if (strncmp (arg
, "off", length
) == 0
83 || strncmp (arg
, "0", length
) == 0
84 || strncmp (arg
, "no", length
) == 0
85 || strncmp (arg
, "disable", length
) == 0)
89 error (_("\"on\" or \"off\" expected."));
95 deprecated_show_value_hack (struct ui_file
*ignore_file
,
97 struct cmd_list_element
*c
,
100 /* If there's no command or value, don't try to print it out. */
101 if (c
== NULL
|| value
== NULL
)
103 /* Print doc minus "show" at start. */
104 print_doc_line (gdb_stdout
, c
->doc
+ 5);
108 case var_string_noescape
:
109 case var_optional_filename
:
112 printf_filtered ((" is \"%s\".\n"), value
);
115 printf_filtered ((" is %s.\n"), value
);
120 /* Do a "set" or "show" command. ARG is NULL if no argument, or the
121 text of the argument, and FROM_TTY is nonzero if this command is
122 being entered directly by the user (i.e. these are just like any
123 other command). C is the command list element for the command. */
126 do_setshow_command (char *arg
, int from_tty
, struct cmd_list_element
*c
)
128 struct ui_out
*uiout
= current_uiout
;
130 if (c
->type
== set_cmd
)
143 new = (char *) xmalloc (strlen (arg
) + 2);
146 while ((ch
= *p
++) != '\000')
150 /* \ at end of argument is used after spaces
151 so they won't be lost. */
152 /* This is obsolete now that we no longer strip
153 trailing whitespace and actually, the backslash
154 didn't get here in my test, readline or
155 something did something funky with a backslash
156 right before a newline. */
159 ch
= parse_escape (get_current_arch (), &p
);
169 if (*(p
- 1) != '\\')
173 new = (char *) xrealloc (new, q
- new);
174 if (*(char **) c
->var
!= NULL
)
175 xfree (*(char **) c
->var
);
176 *(char **) c
->var
= new;
179 case var_string_noescape
:
182 if (*(char **) c
->var
!= NULL
)
183 xfree (*(char **) c
->var
);
184 *(char **) c
->var
= xstrdup (arg
);
186 case var_optional_filename
:
189 if (*(char **) c
->var
!= NULL
)
190 xfree (*(char **) c
->var
);
191 *(char **) c
->var
= xstrdup (arg
);
195 error_no_arg (_("filename to set it to."));
196 if (*(char **) c
->var
!= NULL
)
197 xfree (*(char **) c
->var
);
199 /* Clear trailing whitespace of filename. */
200 char *ptr
= arg
+ strlen (arg
) - 1;
202 while (ptr
>= arg
&& (*ptr
== ' ' || *ptr
== '\t'))
206 *(char **) c
->var
= tilde_expand (arg
);
209 *(int *) c
->var
= parse_binary_operation (arg
);
211 case var_auto_boolean
:
212 *(enum auto_boolean
*) c
->var
= parse_auto_binary_operation (arg
);
216 error_no_arg (_("integer to set it to."));
217 *(unsigned int *) c
->var
= parse_and_eval_long (arg
);
218 if (*(unsigned int *) c
->var
== 0)
219 *(unsigned int *) c
->var
= UINT_MAX
;
226 error_no_arg (_("integer to set it to."));
227 val
= parse_and_eval_long (arg
);
229 *(int *) c
->var
= INT_MAX
;
230 else if (val
>= INT_MAX
)
231 error (_("integer %u out of range"), val
);
233 *(int *) c
->var
= val
;
238 error_no_arg (_("integer to set it to."));
239 *(int *) c
->var
= parse_and_eval_long (arg
);
243 error_no_arg (_("integer to set it to."));
244 *(unsigned int *) c
->var
= parse_and_eval_long (arg
);
251 const char *match
= NULL
;
254 /* If no argument was supplied, print an informative error
261 for (i
= 0; c
->enums
[i
]; i
++)
262 msg_len
+= strlen (c
->enums
[i
]) + 2;
264 msg
= xmalloc (msg_len
);
266 make_cleanup (xfree
, msg
);
268 for (i
= 0; c
->enums
[i
]; i
++)
272 strcat (msg
, c
->enums
[i
]);
274 error (_("Requires an argument. Valid arguments are %s."),
278 p
= strchr (arg
, ' ');
286 for (i
= 0; c
->enums
[i
]; i
++)
287 if (strncmp (arg
, c
->enums
[i
], len
) == 0)
289 if (c
->enums
[i
][len
] == '\0')
293 break; /* Exact match. */
303 error (_("Undefined item: \"%s\"."), arg
);
306 error (_("Ambiguous item \"%s\"."), arg
);
308 *(const char **) c
->var
= match
;
312 error (_("gdb internal error: bad var_type in do_setshow_command"));
315 else if (c
->type
== show_cmd
)
317 struct cleanup
*old_chain
;
318 struct ui_stream
*stb
;
320 stb
= ui_out_stream_new (uiout
);
321 old_chain
= make_cleanup_ui_out_stream_delete (stb
);
323 /* Possibly call the pre hook. */
324 if (c
->pre_show_hook
)
325 (c
->pre_show_hook
) (c
);
330 if (*(char **) c
->var
)
331 fputstr_filtered (*(char **) c
->var
, '"', stb
->stream
);
333 case var_string_noescape
:
334 case var_optional_filename
:
337 if (*(char **) c
->var
)
338 fputs_filtered (*(char **) c
->var
, stb
->stream
);
341 fputs_filtered (*(int *) c
->var
? "on" : "off", stb
->stream
);
343 case var_auto_boolean
:
344 switch (*(enum auto_boolean
*) c
->var
)
346 case AUTO_BOOLEAN_TRUE
:
347 fputs_filtered ("on", stb
->stream
);
349 case AUTO_BOOLEAN_FALSE
:
350 fputs_filtered ("off", stb
->stream
);
352 case AUTO_BOOLEAN_AUTO
:
353 fputs_filtered ("auto", stb
->stream
);
356 internal_error (__FILE__
, __LINE__
,
357 _("do_setshow_command: "
358 "invalid var_auto_boolean"));
364 if (c
->var_type
== var_uinteger
365 && *(unsigned int *) c
->var
== UINT_MAX
)
366 fputs_filtered ("unlimited", stb
->stream
);
368 fprintf_filtered (stb
->stream
, "%u", *(unsigned int *) c
->var
);
372 if (c
->var_type
== var_integer
373 && *(int *) c
->var
== INT_MAX
)
374 fputs_filtered ("unlimited", stb
->stream
);
376 fprintf_filtered (stb
->stream
, "%d", *(int *) c
->var
);
380 error (_("gdb internal error: bad var_type in do_setshow_command"));
384 /* FIXME: cagney/2005-02-10: Need to split this in half: code to
385 convert the value into a string (esentially the above); and
386 code to print the value out. For the latter there should be
387 MI and CLI specific versions. */
389 if (ui_out_is_mi_like_p (uiout
))
390 ui_out_field_stream (uiout
, "value", stb
);
393 char *value
= ui_file_xstrdup (stb
->stream
, NULL
);
395 make_cleanup (xfree
, value
);
396 if (c
->show_value_func
!= NULL
)
397 c
->show_value_func (gdb_stdout
, from_tty
, c
, value
);
399 deprecated_show_value_hack (gdb_stdout
, from_tty
, c
, value
);
401 do_cleanups (old_chain
);
404 error (_("gdb internal error: bad cmd_type in do_setshow_command"));
405 c
->func (c
, NULL
, from_tty
);
406 if (c
->type
== set_cmd
&& deprecated_set_hook
)
407 deprecated_set_hook (c
);
410 /* Show all the settings in a list of show commands. */
413 cmd_show_list (struct cmd_list_element
*list
, int from_tty
, char *prefix
)
415 struct cleanup
*showlist_chain
;
416 struct ui_out
*uiout
= current_uiout
;
418 showlist_chain
= make_cleanup_ui_out_tuple_begin_end (uiout
, "showlist");
419 for (; list
!= NULL
; list
= list
->next
)
421 /* If we find a prefix, run its list, prefixing our output by its
422 prefix (with "show " skipped). */
423 if (list
->prefixlist
&& !list
->abbrev_flag
)
425 struct cleanup
*optionlist_chain
426 = make_cleanup_ui_out_tuple_begin_end (uiout
, "optionlist");
427 char *new_prefix
= strstr (list
->prefixname
, "show ") + 5;
429 if (ui_out_is_mi_like_p (uiout
))
430 ui_out_field_string (uiout
, "prefix", new_prefix
);
431 cmd_show_list (*list
->prefixlist
, from_tty
, new_prefix
);
432 /* Close the tuple. */
433 do_cleanups (optionlist_chain
);
437 if (list
->class != no_set_class
)
439 struct cleanup
*option_chain
440 = make_cleanup_ui_out_tuple_begin_end (uiout
, "option");
442 ui_out_text (uiout
, prefix
);
443 ui_out_field_string (uiout
, "name", list
->name
);
444 ui_out_text (uiout
, ": ");
445 if (list
->type
== show_cmd
)
446 do_setshow_command ((char *) NULL
, from_tty
, list
);
448 cmd_func (list
, NULL
, from_tty
);
449 /* Close the tuple. */
450 do_cleanups (option_chain
);
454 /* Close the tuple. */
455 do_cleanups (showlist_chain
);
This page took 0.038006 seconds and 4 git commands to generate.