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
:
107 printf_filtered ((" is \"%s\".\n"), value
);
110 printf_filtered ((" is %s.\n"), value
);
115 /* Do a "set" or "show" command. ARG is NULL if no argument, or the text
116 of the argument, and FROM_TTY is nonzero if this command is being entered
117 directly by the user (i.e. these are just like any other
118 command). C is the command list element for the command. */
121 do_setshow_command (char *arg
, int from_tty
, struct cmd_list_element
*c
)
123 if (c
->type
== set_cmd
)
136 new = (char *) xmalloc (strlen (arg
) + 2);
139 while ((ch
= *p
++) != '\000')
143 /* \ at end of argument is used after spaces
144 so they won't be lost. */
145 /* This is obsolete now that we no longer strip
146 trailing whitespace and actually, the backslash
147 didn't get here in my test, readline or
148 something did something funky with a backslash
149 right before a newline. */
152 ch
= parse_escape (&p
);
162 if (*(p
- 1) != '\\')
166 new = (char *) xrealloc (new, q
- new);
167 if (*(char **) c
->var
!= NULL
)
168 xfree (*(char **) c
->var
);
169 *(char **) c
->var
= new;
172 case var_string_noescape
:
175 if (*(char **) c
->var
!= NULL
)
176 xfree (*(char **) c
->var
);
177 *(char **) c
->var
= savestring (arg
, strlen (arg
));
181 error_no_arg (_("filename to set it to."));
182 if (*(char **) c
->var
!= NULL
)
183 xfree (*(char **) c
->var
);
184 *(char **) c
->var
= tilde_expand (arg
);
187 *(int *) c
->var
= parse_binary_operation (arg
);
189 case var_auto_boolean
:
190 *(enum auto_boolean
*) c
->var
= parse_auto_binary_operation (arg
);
194 error_no_arg (_("integer to set it to."));
195 *(unsigned int *) c
->var
= parse_and_eval_long (arg
);
196 if (*(unsigned int *) c
->var
== 0)
197 *(unsigned int *) c
->var
= UINT_MAX
;
203 error_no_arg (_("integer to set it to."));
204 val
= parse_and_eval_long (arg
);
206 *(int *) c
->var
= INT_MAX
;
207 else if (val
>= INT_MAX
)
208 error (_("integer %u out of range"), val
);
210 *(int *) c
->var
= val
;
215 error_no_arg (_("integer to set it to."));
216 *(int *) c
->var
= parse_and_eval_long (arg
);
223 const char *match
= NULL
;
226 /* if no argument was supplied, print an informative error message */
230 strcpy (msg
, "Requires an argument. Valid arguments are ");
231 for (i
= 0; c
->enums
[i
]; i
++)
235 strcat (msg
, c
->enums
[i
]);
241 p
= strchr (arg
, ' ');
249 for (i
= 0; c
->enums
[i
]; i
++)
250 if (strncmp (arg
, c
->enums
[i
], len
) == 0)
252 if (c
->enums
[i
][len
] == '\0')
256 break; /* exact match. */
266 error (_("Undefined item: \"%s\"."), arg
);
269 error (_("Ambiguous item \"%s\"."), arg
);
271 *(const char **) c
->var
= match
;
275 error (_("gdb internal error: bad var_type in do_setshow_command"));
278 else if (c
->type
== show_cmd
)
280 struct cleanup
*old_chain
;
281 struct ui_stream
*stb
;
283 stb
= ui_out_stream_new (uiout
);
284 old_chain
= make_cleanup_ui_out_stream_delete (stb
);
286 /* Possibly call the pre hook. */
287 if (c
->pre_show_hook
)
288 (c
->pre_show_hook
) (c
);
296 if (*(unsigned char **) c
->var
)
297 fputstr_filtered (*(unsigned char **) c
->var
, '"', stb
->stream
);
300 case var_string_noescape
:
303 if (*(char **) c
->var
)
304 fputs_filtered (*(char **) c
->var
, stb
->stream
);
307 fputs_filtered (*(int *) c
->var
? "on" : "off", stb
->stream
);
309 case var_auto_boolean
:
310 switch (*(enum auto_boolean
*) c
->var
)
312 case AUTO_BOOLEAN_TRUE
:
313 fputs_filtered ("on", stb
->stream
);
315 case AUTO_BOOLEAN_FALSE
:
316 fputs_filtered ("off", stb
->stream
);
318 case AUTO_BOOLEAN_AUTO
:
319 fputs_filtered ("auto", stb
->stream
);
322 internal_error (__FILE__
, __LINE__
,
323 _("do_setshow_command: invalid var_auto_boolean"));
328 if (*(unsigned int *) c
->var
== UINT_MAX
)
330 fputs_filtered ("unlimited", stb
->stream
);
333 /* else fall through */
335 fprintf_filtered (stb
->stream
, "%u", *(unsigned int *) c
->var
);
338 if (*(int *) c
->var
== INT_MAX
)
340 fputs_filtered ("unlimited", stb
->stream
);
343 fprintf_filtered (stb
->stream
, "%d", *(int *) c
->var
);
347 error (_("gdb internal error: bad var_type in do_setshow_command"));
351 /* FIXME: cagney/2005-02-10: Need to split this in half: code to
352 convert the value into a string (esentially the above); and
353 code to print the value out. For the latter there should be
354 MI and CLI specific versions. */
356 if (ui_out_is_mi_like_p (uiout
))
357 ui_out_field_stream (uiout
, "value", stb
);
361 char *value
= ui_file_xstrdup (stb
->stream
, &length
);
362 make_cleanup (xfree
, value
);
363 if (c
->show_value_func
!= NULL
)
364 c
->show_value_func (gdb_stdout
, from_tty
, c
, value
);
366 deprecated_show_value_hack (gdb_stdout
, from_tty
, c
, value
);
368 do_cleanups (old_chain
);
371 error (_("gdb internal error: bad cmd_type in do_setshow_command"));
372 c
->func (c
, NULL
, from_tty
);
373 if (c
->type
== set_cmd
&& deprecated_set_hook
)
374 deprecated_set_hook (c
);
377 /* Show all the settings in a list of show commands. */
380 cmd_show_list (struct cmd_list_element
*list
, int from_tty
, char *prefix
)
382 struct cleanup
*showlist_chain
;
384 showlist_chain
= make_cleanup_ui_out_tuple_begin_end (uiout
, "showlist");
385 for (; list
!= NULL
; list
= list
->next
)
387 /* If we find a prefix, run its list, prefixing our output by its
388 prefix (with "show " skipped). */
389 if (list
->prefixlist
&& !list
->abbrev_flag
)
391 struct cleanup
*optionlist_chain
392 = make_cleanup_ui_out_tuple_begin_end (uiout
, "optionlist");
393 char *new_prefix
= strstr (list
->prefixname
, "show ") + 5;
394 if (ui_out_is_mi_like_p (uiout
))
395 ui_out_field_string (uiout
, "prefix", new_prefix
);
396 cmd_show_list (*list
->prefixlist
, from_tty
, new_prefix
);
397 /* Close the tuple. */
398 do_cleanups (optionlist_chain
);
400 if (list
->type
== show_cmd
)
402 struct cleanup
*option_chain
403 = make_cleanup_ui_out_tuple_begin_end (uiout
, "option");
404 ui_out_text (uiout
, prefix
);
405 ui_out_field_string (uiout
, "name", list
->name
);
406 ui_out_text (uiout
, ": ");
407 do_setshow_command ((char *) NULL
, from_tty
, list
);
408 /* Close the tuple. */
409 do_cleanups (option_chain
);
412 /* Close the tuple. */
413 do_cleanups (showlist_chain
);
This page took 0.042839 seconds and 5 git commands to generate.