1 /* Handle set and show GDB commands.
3 Copyright 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
5 This program is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 2 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330,
18 Boston, MA 02111-1307, USA. */
21 #include "readline/tilde.h"
24 #include "gdb_string.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
);
43 while (isspace (arg
[length
- 1]) && length
> 0)
45 if (strncmp (arg
, "on", length
) == 0
46 || strncmp (arg
, "1", length
) == 0
47 || strncmp (arg
, "yes", length
) == 0
48 || strncmp (arg
, "enable", length
) == 0)
49 return AUTO_BOOLEAN_TRUE
;
50 else if (strncmp (arg
, "off", length
) == 0
51 || strncmp (arg
, "0", length
) == 0
52 || strncmp (arg
, "no", length
) == 0
53 || strncmp (arg
, "disable", length
) == 0)
54 return AUTO_BOOLEAN_FALSE
;
55 else if (strncmp (arg
, "auto", length
) == 0
56 || (strncmp (arg
, "-1", length
) == 0 && length
> 1))
57 return AUTO_BOOLEAN_AUTO
;
59 error (_("\"on\", \"off\" or \"auto\" expected."));
60 return AUTO_BOOLEAN_AUTO
; /* pacify GCC */
64 parse_binary_operation (char *arg
)
71 length
= strlen (arg
);
73 while (arg
[length
- 1] == ' ' || arg
[length
- 1] == '\t')
76 if (strncmp (arg
, "on", length
) == 0
77 || strncmp (arg
, "1", length
) == 0
78 || strncmp (arg
, "yes", length
) == 0
79 || strncmp (arg
, "enable", length
) == 0)
81 else if (strncmp (arg
, "off", length
) == 0
82 || strncmp (arg
, "0", length
) == 0
83 || strncmp (arg
, "no", length
) == 0
84 || strncmp (arg
, "disable", length
) == 0)
88 error (_("\"on\" or \"off\" expected."));
94 deprecated_show_value_hack (struct ui_file
*ignore_file
,
96 struct cmd_list_element
*c
,
99 /* Print doc minus "show" at start. */
100 print_doc_line (gdb_stdout
, c
->doc
+ 5);
104 case var_string_noescape
:
105 case var_optional_filename
:
108 printf_filtered ((" is \"%s\".\n"), value
);
111 printf_filtered ((" is %s.\n"), value
);
116 /* Do a "set" or "show" command. ARG is NULL if no argument, or the text
117 of the argument, and FROM_TTY is nonzero if this command is being entered
118 directly by the user (i.e. these are just like any other
119 command). C is the command list element for the command. */
122 do_setshow_command (char *arg
, int from_tty
, struct cmd_list_element
*c
)
124 if (c
->type
== set_cmd
)
137 new = (char *) xmalloc (strlen (arg
) + 2);
140 while ((ch
= *p
++) != '\000')
144 /* \ at end of argument is used after spaces
145 so they won't be lost. */
146 /* This is obsolete now that we no longer strip
147 trailing whitespace and actually, the backslash
148 didn't get here in my test, readline or
149 something did something funky with a backslash
150 right before a newline. */
153 ch
= parse_escape (&p
);
163 if (*(p
- 1) != '\\')
167 new = (char *) xrealloc (new, q
- new);
168 if (*(char **) c
->var
!= NULL
)
169 xfree (*(char **) c
->var
);
170 *(char **) c
->var
= new;
173 case var_string_noescape
:
176 if (*(char **) c
->var
!= NULL
)
177 xfree (*(char **) c
->var
);
178 *(char **) c
->var
= savestring (arg
, strlen (arg
));
181 case var_optional_filename
:
184 if (c
->var_type
== var_optional_filename
)
187 error_no_arg (_("filename to set it to."));
189 if (*(char **) c
->var
!= NULL
)
190 xfree (*(char **) c
->var
);
191 *(char **) c
->var
= tilde_expand (arg
);
194 *(int *) c
->var
= parse_binary_operation (arg
);
196 case var_auto_boolean
:
197 *(enum auto_boolean
*) c
->var
= parse_auto_binary_operation (arg
);
201 error_no_arg (_("integer to set it to."));
202 *(unsigned int *) c
->var
= parse_and_eval_long (arg
);
203 if (*(unsigned int *) c
->var
== 0)
204 *(unsigned int *) c
->var
= UINT_MAX
;
210 error_no_arg (_("integer to set it to."));
211 val
= parse_and_eval_long (arg
);
213 *(int *) c
->var
= INT_MAX
;
214 else if (val
>= INT_MAX
)
215 error (_("integer %u out of range"), val
);
217 *(int *) c
->var
= val
;
222 error_no_arg (_("integer to set it to."));
223 *(int *) c
->var
= parse_and_eval_long (arg
);
230 const char *match
= NULL
;
233 /* if no argument was supplied, print an informative error message */
237 strcpy (msg
, "Requires an argument. Valid arguments are ");
238 for (i
= 0; c
->enums
[i
]; i
++)
242 strcat (msg
, c
->enums
[i
]);
248 p
= strchr (arg
, ' ');
256 for (i
= 0; c
->enums
[i
]; i
++)
257 if (strncmp (arg
, c
->enums
[i
], len
) == 0)
259 if (c
->enums
[i
][len
] == '\0')
263 break; /* exact match. */
273 error (_("Undefined item: \"%s\"."), arg
);
276 error (_("Ambiguous item \"%s\"."), arg
);
278 *(const char **) c
->var
= match
;
282 error (_("gdb internal error: bad var_type in do_setshow_command"));
285 else if (c
->type
== show_cmd
)
287 struct cleanup
*old_chain
;
288 struct ui_stream
*stb
;
290 stb
= ui_out_stream_new (uiout
);
291 old_chain
= make_cleanup_ui_out_stream_delete (stb
);
293 /* Possibly call the pre hook. */
294 if (c
->pre_show_hook
)
295 (c
->pre_show_hook
) (c
);
303 if (*(unsigned char **) c
->var
)
304 fputstr_filtered (*(unsigned char **) c
->var
, '"', stb
->stream
);
307 case var_string_noescape
:
308 case var_optional_filename
:
311 if (*(char **) c
->var
)
312 fputs_filtered (*(char **) c
->var
, stb
->stream
);
315 fputs_filtered (*(int *) c
->var
? "on" : "off", stb
->stream
);
317 case var_auto_boolean
:
318 switch (*(enum auto_boolean
*) c
->var
)
320 case AUTO_BOOLEAN_TRUE
:
321 fputs_filtered ("on", stb
->stream
);
323 case AUTO_BOOLEAN_FALSE
:
324 fputs_filtered ("off", stb
->stream
);
326 case AUTO_BOOLEAN_AUTO
:
327 fputs_filtered ("auto", stb
->stream
);
330 internal_error (__FILE__
, __LINE__
,
331 _("do_setshow_command: invalid var_auto_boolean"));
336 if (*(unsigned int *) c
->var
== UINT_MAX
)
338 fputs_filtered ("unlimited", stb
->stream
);
341 /* else fall through */
343 fprintf_filtered (stb
->stream
, "%u", *(unsigned int *) c
->var
);
346 if (*(int *) c
->var
== INT_MAX
)
348 fputs_filtered ("unlimited", stb
->stream
);
351 fprintf_filtered (stb
->stream
, "%d", *(int *) c
->var
);
355 error (_("gdb internal error: bad var_type in do_setshow_command"));
359 /* FIXME: cagney/2005-02-10: Need to split this in half: code to
360 convert the value into a string (esentially the above); and
361 code to print the value out. For the latter there should be
362 MI and CLI specific versions. */
364 if (ui_out_is_mi_like_p (uiout
))
365 ui_out_field_stream (uiout
, "value", stb
);
369 char *value
= ui_file_xstrdup (stb
->stream
, &length
);
370 make_cleanup (xfree
, value
);
371 if (c
->show_value_func
!= NULL
)
372 c
->show_value_func (gdb_stdout
, from_tty
, c
, value
);
374 deprecated_show_value_hack (gdb_stdout
, from_tty
, c
, value
);
376 do_cleanups (old_chain
);
379 error (_("gdb internal error: bad cmd_type in do_setshow_command"));
380 c
->func (c
, NULL
, from_tty
);
381 if (c
->type
== set_cmd
&& deprecated_set_hook
)
382 deprecated_set_hook (c
);
385 /* Show all the settings in a list of show commands. */
388 cmd_show_list (struct cmd_list_element
*list
, int from_tty
, char *prefix
)
390 struct cleanup
*showlist_chain
;
392 showlist_chain
= make_cleanup_ui_out_tuple_begin_end (uiout
, "showlist");
393 for (; list
!= NULL
; list
= list
->next
)
395 /* If we find a prefix, run its list, prefixing our output by its
396 prefix (with "show " skipped). */
397 if (list
->prefixlist
&& !list
->abbrev_flag
)
399 struct cleanup
*optionlist_chain
400 = make_cleanup_ui_out_tuple_begin_end (uiout
, "optionlist");
401 char *new_prefix
= strstr (list
->prefixname
, "show ") + 5;
402 if (ui_out_is_mi_like_p (uiout
))
403 ui_out_field_string (uiout
, "prefix", new_prefix
);
404 cmd_show_list (*list
->prefixlist
, from_tty
, new_prefix
);
405 /* Close the tuple. */
406 do_cleanups (optionlist_chain
);
408 if (list
->type
== show_cmd
)
410 struct cleanup
*option_chain
411 = make_cleanup_ui_out_tuple_begin_end (uiout
, "option");
412 ui_out_text (uiout
, prefix
);
413 ui_out_field_string (uiout
, "name", list
->name
);
414 ui_out_text (uiout
, ": ");
415 do_setshow_command ((char *) NULL
, from_tty
, list
);
416 /* Close the tuple. */
417 do_cleanups (option_chain
);
420 /* Close the tuple. */
421 do_cleanups (showlist_chain
);