/* Handle set and show GDB commands.
- Copyright (c) 2000, 2001, 2002, 2003, 2007 Free Software Foundation, Inc.
+ Copyright (C) 2000-2019 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
+ the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 51 Franklin Street, Fifth Floor,
- Boston, MA 02110-1301, USA. */
+ along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include "defs.h"
#include "readline/tilde.h"
#include "value.h"
#include <ctype.h>
-#include "gdb_string.h"
+#include "arch-utils.h"
+#include "observable.h"
#include "ui-out.h"
#include "cli/cli-decode.h"
#include "cli/cli-cmds.h"
#include "cli/cli-setshow.h"
+#include "cli/cli-utils.h"
-/* Prototypes for local functions */
+/* Return true if the change of command parameter should be notified. */
-static int parse_binary_operation (char *);
+static int
+notify_command_param_changed_p (int param_changed, struct cmd_list_element *c)
+{
+ if (param_changed == 0)
+ return 0;
+
+ if (c->theclass == class_maintenance || c->theclass == class_deprecated
+ || c->theclass == class_obscure)
+ return 0;
+
+ return 1;
+}
\f
static enum auto_boolean
if (arg != NULL && *arg != '\0')
{
int length = strlen (arg);
+
while (isspace (arg[length - 1]) && length > 0)
length--;
- if (strncmp (arg, "on", length) == 0
+
+ /* Note that "o" is ambiguous. */
+
+ if ((length == 2 && strncmp (arg, "on", length) == 0)
|| strncmp (arg, "1", length) == 0
|| strncmp (arg, "yes", length) == 0
|| strncmp (arg, "enable", length) == 0)
return AUTO_BOOLEAN_TRUE;
- else if (strncmp (arg, "off", length) == 0
+ else if ((length >= 2 && strncmp (arg, "off", length) == 0)
|| strncmp (arg, "0", length) == 0
|| strncmp (arg, "no", length) == 0
|| strncmp (arg, "disable", length) == 0)
return AUTO_BOOLEAN_FALSE;
else if (strncmp (arg, "auto", length) == 0
- || (strncmp (arg, "-1", length) == 0 && length > 1))
+ || (length > 1 && strncmp (arg, "-1", length) == 0))
return AUTO_BOOLEAN_AUTO;
}
error (_("\"on\", \"off\" or \"auto\" expected."));
- return AUTO_BOOLEAN_AUTO; /* pacify GCC */
+ return AUTO_BOOLEAN_AUTO; /* Pacify GCC. */
}
-static int
-parse_binary_operation (char *arg)
-{
- int length;
-
- if (!arg || !*arg)
- return 1;
+/* See cli-setshow.h. */
- length = strlen (arg);
+int
+parse_cli_boolean_value (const char **arg)
+{
+ const char *p = skip_to_space (*arg);
+ size_t length = p - *arg;
- while (arg[length - 1] == ' ' || arg[length - 1] == '\t')
- length--;
+ /* Note that "o" is ambiguous. */
- if (strncmp (arg, "on", length) == 0
- || strncmp (arg, "1", length) == 0
- || strncmp (arg, "yes", length) == 0
- || strncmp (arg, "enable", length) == 0)
- return 1;
- else if (strncmp (arg, "off", length) == 0
- || strncmp (arg, "0", length) == 0
- || strncmp (arg, "no", length) == 0
- || strncmp (arg, "disable", length) == 0)
- return 0;
- else
+ if ((length == 2 && strncmp (*arg, "on", length) == 0)
+ || strncmp (*arg, "1", length) == 0
+ || strncmp (*arg, "yes", length) == 0
+ || strncmp (*arg, "enable", length) == 0)
+ {
+ *arg = skip_spaces (*arg + length);
+ return 1;
+ }
+ else if ((length >= 2 && strncmp (*arg, "off", length) == 0)
+ || strncmp (*arg, "0", length) == 0
+ || strncmp (*arg, "no", length) == 0
+ || strncmp (*arg, "disable", length) == 0)
{
- error (_("\"on\" or \"off\" expected."));
+ *arg = skip_spaces (*arg + length);
return 0;
}
+ else
+ return -1;
+}
+
+/* See cli-setshow.h. */
+
+int
+parse_cli_boolean_value (const char *arg)
+{
+ if (!arg || !*arg)
+ return 1;
+
+ int b = parse_cli_boolean_value (&arg);
+ if (b >= 0 && *arg != '\0')
+ return -1;
+
+ return b;
}
+
\f
void
deprecated_show_value_hack (struct ui_file *ignore_file,
}
}
-/* Do a "set" or "show" command. ARG is NULL if no argument, or the text
- of the argument, and FROM_TTY is nonzero if this command is being entered
- directly by the user (i.e. these are just like any other
- command). C is the command list element for the command. */
+/* Returns true if ARG is "unlimited". */
-void
-do_setshow_command (char *arg, int from_tty, struct cmd_list_element *c)
+static bool
+is_unlimited_literal (const char **arg, bool expression)
{
- if (c->type == set_cmd)
+ *arg = skip_spaces (*arg);
+
+ const char *unl_start = *arg;
+
+ const char *p = skip_to_space (*arg);
+
+ size_t len = p - *arg;
+
+ if (len > 0 && strncmp ("unlimited", *arg, len) == 0)
{
- switch (c->var_type)
+ *arg += len;
+
+ /* If parsing an expression (i.e., parsing for a "set" command),
+ anything after "unlimited" is junk. For options, anything
+ after "unlimited" might be a command argument or another
+ option. */
+ if (expression)
{
- case var_string:
+ const char *after = skip_spaces (*arg);
+ if (*after != '\0')
+ error (_("Junk after \"%.*s\": %s"),
+ (int) len, unl_start, after);
+ }
+
+ return true;
+ }
+
+ return false;
+}
+
+/* See cli-setshow.h. */
+
+unsigned int
+parse_cli_var_uinteger (var_types var_type, const char **arg,
+ bool expression)
+{
+ LONGEST val;
+
+ if (*arg == nullptr || **arg == '\0')
+ {
+ if (var_type == var_uinteger)
+ error_no_arg (_("integer to set it to, or \"unlimited\"."));
+ else
+ error_no_arg (_("integer to set it to."));
+ }
+
+ if (var_type == var_uinteger && is_unlimited_literal (arg, expression))
+ val = 0;
+ else if (expression)
+ val = parse_and_eval_long (*arg);
+ else
+ val = get_ulongest (arg);
+
+ if (var_type == var_uinteger && val == 0)
+ val = UINT_MAX;
+ else if (val < 0
+ /* For var_uinteger, don't let the user set the value
+ to UINT_MAX directly, as that exposes an
+ implementation detail to the user interface. */
+ || (var_type == var_uinteger && val >= UINT_MAX)
+ || (var_type == var_zuinteger && val > UINT_MAX))
+ error (_("integer %s out of range"), plongest (val));
+
+ return val;
+}
+
+/* See cli-setshow.h. */
+
+int
+parse_cli_var_zuinteger_unlimited (const char **arg, bool expression)
+{
+ LONGEST val;
+
+ if (*arg == nullptr || **arg == '\0')
+ error_no_arg (_("integer to set it to, or \"unlimited\"."));
+
+ if (is_unlimited_literal (arg, expression))
+ val = -1;
+ else if (expression)
+ val = parse_and_eval_long (*arg);
+ else
+ val = get_ulongest (arg);
+
+ if (val > INT_MAX)
+ error (_("integer %s out of range"), plongest (val));
+ else if (val < -1)
+ error (_("only -1 is allowed to set as unlimited"));
+
+ return val;
+}
+
+/* See cli-setshow.h. */
+
+const char *
+parse_cli_var_enum (const char **args, const char *const *enums)
+{
+ /* If no argument was supplied, print an informative error
+ message. */
+ if (args == NULL || *args == NULL || **args == '\0')
+ {
+ std::string msg;
+
+ for (size_t i = 0; enums[i]; i++)
+ {
+ if (i != 0)
+ msg += ", ";
+ msg += enums[i];
+ }
+ error (_("Requires an argument. Valid arguments are %s."),
+ msg.c_str ());
+ }
+
+ const char *p = skip_to_space (*args);
+ size_t len = p - *args;
+
+ int nmatches = 0;
+ const char *match = NULL;
+ for (size_t i = 0; enums[i]; i++)
+ if (strncmp (*args, enums[i], len) == 0)
+ {
+ if (enums[i][len] == '\0')
+ {
+ match = enums[i];
+ nmatches = 1;
+ break; /* Exact match. */
+ }
+ else
+ {
+ match = enums[i];
+ nmatches++;
+ }
+ }
+
+ if (nmatches == 0)
+ error (_("Undefined item: \"%.*s\"."), (int) len, *args);
+
+ if (nmatches > 1)
+ error (_("Ambiguous item \"%.*s\"."), (int) len, *args);
+
+ *args += len;
+ return match;
+}
+
+/* Do a "set" command. ARG is NULL if no argument, or the
+ text of the argument, and FROM_TTY is nonzero if this command is
+ being entered directly by the user (i.e. these are just like any
+ other command). C is the command list element for the command. */
+
+void
+do_set_command (const char *arg, int from_tty, struct cmd_list_element *c)
+{
+ /* A flag to indicate the option is changed or not. */
+ int option_changed = 0;
+
+ gdb_assert (c->type == set_cmd);
+
+ if (arg == NULL)
+ arg = "";
+
+ switch (c->var_type)
+ {
+ case var_string:
+ {
+ char *newobj;
+ const char *p;
+ char *q;
+ int ch;
+
+ newobj = (char *) xmalloc (strlen (arg) + 2);
+ p = arg;
+ q = newobj;
+ while ((ch = *p++) != '\000')
{
- char *new;
- char *p;
- char *q;
- int ch;
-
- if (arg == NULL)
- arg = "";
- new = (char *) xmalloc (strlen (arg) + 2);
- p = arg;
- q = new;
- while ((ch = *p++) != '\000')
+ if (ch == '\\')
{
- if (ch == '\\')
- {
- /* \ at end of argument is used after spaces
- so they won't be lost. */
- /* This is obsolete now that we no longer strip
- trailing whitespace and actually, the backslash
- didn't get here in my test, readline or
- something did something funky with a backslash
- right before a newline. */
- if (*p == 0)
- break;
- ch = parse_escape (&p);
- if (ch == 0)
- break; /* C loses */
- else if (ch > 0)
- *q++ = ch;
- }
- else
+ /* \ at end of argument is used after spaces
+ so they won't be lost. */
+ /* This is obsolete now that we no longer strip
+ trailing whitespace and actually, the backslash
+ didn't get here in my test, readline or
+ something did something funky with a backslash
+ right before a newline. */
+ if (*p == 0)
+ break;
+ ch = parse_escape (get_current_arch (), &p);
+ if (ch == 0)
+ break; /* C loses */
+ else if (ch > 0)
*q++ = ch;
}
+ else
+ *q++ = ch;
+ }
#if 0
- if (*(p - 1) != '\\')
- *q++ = ' ';
+ if (*(p - 1) != '\\')
+ *q++ = ' ';
#endif
- *q++ = '\0';
- new = (char *) xrealloc (new, q - new);
- if (*(char **) c->var != NULL)
- xfree (*(char **) c->var);
- *(char **) c->var = new;
- }
- break;
- case var_string_noescape:
- if (arg == NULL)
- arg = "";
- if (*(char **) c->var != NULL)
- xfree (*(char **) c->var);
- *(char **) c->var = savestring (arg, strlen (arg));
- break;
- case var_optional_filename:
- if (arg == NULL)
- arg = "";
- if (*(char **) c->var != NULL)
- xfree (*(char **) c->var);
- *(char **) c->var = savestring (arg, strlen (arg));
- break;
- case var_filename:
- if (arg == NULL)
- error_no_arg (_("filename to set it to."));
- if (*(char **) c->var != NULL)
+ *q++ = '\0';
+ newobj = (char *) xrealloc (newobj, q - newobj);
+
+ if (*(char **) c->var == NULL
+ || strcmp (*(char **) c->var, newobj) != 0)
+ {
xfree (*(char **) c->var);
+ *(char **) c->var = newobj;
+
+ option_changed = 1;
+ }
+ else
+ xfree (newobj);
+ }
+ break;
+ case var_string_noescape:
+ if (*(char **) c->var == NULL || strcmp (*(char **) c->var, arg) != 0)
+ {
+ xfree (*(char **) c->var);
+ *(char **) c->var = xstrdup (arg);
+
+ option_changed = 1;
+ }
+ break;
+ case var_filename:
+ if (*arg == '\0')
+ error_no_arg (_("filename to set it to."));
+ /* FALLTHROUGH */
+ case var_optional_filename:
+ {
+ char *val = NULL;
+
+ if (*arg != '\0')
{
/* Clear trailing whitespace of filename. */
- char *ptr = arg + strlen (arg) - 1;
+ const char *ptr = arg + strlen (arg) - 1;
+ char *copy;
+
while (ptr >= arg && (*ptr == ' ' || *ptr == '\t'))
ptr--;
- *(ptr + 1) = '\0';
+ copy = xstrndup (arg, ptr + 1 - arg);
+
+ val = tilde_expand (copy);
+ xfree (copy);
}
- *(char **) c->var = tilde_expand (arg);
- break;
- case var_boolean:
- *(int *) c->var = parse_binary_operation (arg);
- break;
- case var_auto_boolean:
- *(enum auto_boolean *) c->var = parse_auto_binary_operation (arg);
- break;
- case var_uinteger:
- if (arg == NULL)
- error_no_arg (_("integer to set it to."));
- *(unsigned int *) c->var = parse_and_eval_long (arg);
- if (*(unsigned int *) c->var == 0)
- *(unsigned int *) c->var = UINT_MAX;
- break;
- case var_integer:
+ else
+ val = xstrdup ("");
+
+ if (*(char **) c->var == NULL
+ || strcmp (*(char **) c->var, val) != 0)
{
- unsigned int val;
- if (arg == NULL)
- error_no_arg (_("integer to set it to."));
- val = parse_and_eval_long (arg);
- if (val == 0)
- *(int *) c->var = INT_MAX;
- else if (val >= INT_MAX)
- error (_("integer %u out of range"), val);
- else
- *(int *) c->var = val;
- break;
+ xfree (*(char **) c->var);
+ *(char **) c->var = val;
+
+ option_changed = 1;
}
- case var_zinteger:
- if (arg == NULL)
- error_no_arg (_("integer to set it to."));
- *(int *) c->var = parse_and_eval_long (arg);
- break;
- case var_enum:
+ else
+ xfree (val);
+ }
+ break;
+ case var_boolean:
+ {
+ int val = parse_cli_boolean_value (arg);
+
+ if (val < 0)
+ error (_("\"on\" or \"off\" expected."));
+ if (val != *(int *) c->var)
{
- int i;
- int len;
- int nmatches;
- const char *match = NULL;
- char *p;
-
- /* if no argument was supplied, print an informative error message */
- if (arg == NULL)
- {
- char msg[1024];
- strcpy (msg, "Requires an argument. Valid arguments are ");
- for (i = 0; c->enums[i]; i++)
- {
- if (i != 0)
- strcat (msg, ", ");
- strcat (msg, c->enums[i]);
- }
- strcat (msg, ".");
- error (("%s"), msg);
- }
+ *(int *) c->var = val;
+
+ option_changed = 1;
+ }
+ }
+ break;
+ case var_auto_boolean:
+ {
+ enum auto_boolean val = parse_auto_binary_operation (arg);
+
+ if (*(enum auto_boolean *) c->var != val)
+ {
+ *(enum auto_boolean *) c->var = val;
+
+ option_changed = 1;
+ }
+ }
+ break;
+ case var_uinteger:
+ case var_zuinteger:
+ {
+ unsigned int val = parse_cli_var_uinteger (c->var_type, &arg, true);
+
+ if (*(unsigned int *) c->var != val)
+ {
+ *(unsigned int *) c->var = val;
- p = strchr (arg, ' ');
+ option_changed = 1;
+ }
+ }
+ break;
+ case var_integer:
+ case var_zinteger:
+ {
+ LONGEST val;
- if (p)
- len = p - arg;
+ if (*arg == '\0')
+ {
+ if (c->var_type == var_integer)
+ error_no_arg (_("integer to set it to, or \"unlimited\"."));
else
- len = strlen (arg);
-
- nmatches = 0;
- for (i = 0; c->enums[i]; i++)
- if (strncmp (arg, c->enums[i], len) == 0)
- {
- if (c->enums[i][len] == '\0')
- {
- match = c->enums[i];
- nmatches = 1;
- break; /* exact match. */
- }
- else
- {
- match = c->enums[i];
- nmatches++;
- }
- }
-
- if (nmatches <= 0)
- error (_("Undefined item: \"%s\"."), arg);
-
- if (nmatches > 1)
- error (_("Ambiguous item \"%s\"."), arg);
+ error_no_arg (_("integer to set it to."));
+ }
+ if (c->var_type == var_integer && is_unlimited_literal (&arg, true))
+ val = 0;
+ else
+ val = parse_and_eval_long (arg);
+
+ if (val == 0 && c->var_type == var_integer)
+ val = INT_MAX;
+ else if (val < INT_MIN
+ /* For var_integer, don't let the user set the value
+ to INT_MAX directly, as that exposes an
+ implementation detail to the user interface. */
+ || (c->var_type == var_integer && val >= INT_MAX)
+ || (c->var_type == var_zinteger && val > INT_MAX))
+ error (_("integer %s out of range"), plongest (val));
+
+ if (*(int *) c->var != val)
+ {
+ *(int *) c->var = val;
+
+ option_changed = 1;
+ }
+ break;
+ }
+ case var_enum:
+ {
+ const char *end_arg = arg;
+ const char *match = parse_cli_var_enum (&end_arg, c->enums);
+
+ int len = end_arg - arg;
+ const char *after = skip_spaces (end_arg);
+ if (*after != '\0')
+ error (_("Junk after item \"%.*s\": %s"), len, arg, after);
+
+ if (*(const char **) c->var != match)
+ {
*(const char **) c->var = match;
+
+ option_changed = 1;
}
- break;
- default:
- error (_("gdb internal error: bad var_type in do_setshow_command"));
- }
+ }
+ break;
+ case var_zuinteger_unlimited:
+ {
+ int val = parse_cli_var_zuinteger_unlimited (&arg, true);
+
+ if (*(int *) c->var != val)
+ {
+ *(int *) c->var = val;
+ option_changed = 1;
+ }
+ }
+ break;
+ default:
+ error (_("gdb internal error: bad var_type in do_setshow_command"));
}
- else if (c->type == show_cmd)
+ c->func (c, NULL, from_tty);
+
+ if (notify_command_param_changed_p (option_changed, c))
{
- struct cleanup *old_chain;
- struct ui_stream *stb;
+ char *name, *cp;
+ struct cmd_list_element **cmds;
+ struct cmd_list_element *p;
+ int i;
+ int length = 0;
+
+ /* Compute the whole multi-word command options. If user types command
+ 'set foo bar baz on', c->name is 'baz', and GDB can't pass "bar" to
+ command option change notification, because it is confusing. We can
+ trace back through field 'prefix' to compute the whole options,
+ and pass "foo bar baz" to notification. */
+
+ for (i = 0, p = c; p != NULL; i++)
+ {
+ length += strlen (p->name);
+ length++;
+
+ p = p->prefix;
+ }
+ cp = name = (char *) xmalloc (length);
+ cmds = XNEWVEC (struct cmd_list_element *, i);
+
+ /* Track back through filed 'prefix' and cache them in CMDS. */
+ for (i = 0, p = c; p != NULL; i++)
+ {
+ cmds[i] = p;
+ p = p->prefix;
+ }
+
+ /* Don't trigger any observer notification if prefixlist is not
+ setlist. */
+ i--;
+ if (cmds[i]->prefixlist != &setlist)
+ {
+ xfree (cmds);
+ xfree (name);
+
+ return;
+ }
+ /* Traverse them in the reversed order, and copy their names into
+ NAME. */
+ for (i--; i >= 0; i--)
+ {
+ memcpy (cp, cmds[i]->name, strlen (cmds[i]->name));
+ cp += strlen (cmds[i]->name);
- stb = ui_out_stream_new (uiout);
- old_chain = make_cleanup_ui_out_stream_delete (stb);
+ if (i != 0)
+ {
+ cp[0] = ' ';
+ cp++;
+ }
+ }
+ cp[0] = 0;
- /* Possibly call the pre hook. */
- if (c->pre_show_hook)
- (c->pre_show_hook) (c);
+ xfree (cmds);
switch (c->var_type)
{
case var_string:
- if (*(char **) c->var)
- fputstr_filtered (*(char **) c->var, '"', stb->stream);
- break;
case var_string_noescape:
- case var_optional_filename:
case var_filename:
+ case var_optional_filename:
case var_enum:
- if (*(char **) c->var)
- fputs_filtered (*(char **) c->var, stb->stream);
+ gdb::observers::command_param_changed.notify (name, *(char **) c->var);
break;
case var_boolean:
- fputs_filtered (*(int *) c->var ? "on" : "off", stb->stream);
+ {
+ const char *opt = *(int *) c->var ? "on" : "off";
+
+ gdb::observers::command_param_changed.notify (name, opt);
+ }
break;
case var_auto_boolean:
- switch (*(enum auto_boolean*) c->var)
- {
- case AUTO_BOOLEAN_TRUE:
- fputs_filtered ("on", stb->stream);
- break;
- case AUTO_BOOLEAN_FALSE:
- fputs_filtered ("off", stb->stream);
- break;
- case AUTO_BOOLEAN_AUTO:
- fputs_filtered ("auto", stb->stream);
- break;
- default:
- internal_error (__FILE__, __LINE__,
- _("do_setshow_command: invalid var_auto_boolean"));
- break;
- }
+ {
+ const char *s = auto_boolean_enums[*(enum auto_boolean *) c->var];
+
+ gdb::observers::command_param_changed.notify (name, s);
+ }
break;
case var_uinteger:
- if (*(unsigned int *) c->var == UINT_MAX)
- {
- fputs_filtered ("unlimited", stb->stream);
- break;
- }
- /* else fall through */
- case var_zinteger:
- fprintf_filtered (stb->stream, "%u", *(unsigned int *) c->var);
+ case var_zuinteger:
+ {
+ char s[64];
+
+ xsnprintf (s, sizeof s, "%u", *(unsigned int *) c->var);
+ gdb::observers::command_param_changed.notify (name, s);
+ }
break;
case var_integer:
- if (*(int *) c->var == INT_MAX)
- {
- fputs_filtered ("unlimited", stb->stream);
- }
- else
- fprintf_filtered (stb->stream, "%d", *(int *) c->var);
- break;
+ case var_zinteger:
+ case var_zuinteger_unlimited:
+ {
+ char s[64];
- default:
- error (_("gdb internal error: bad var_type in do_setshow_command"));
+ xsnprintf (s, sizeof s, "%d", *(int *) c->var);
+ gdb::observers::command_param_changed.notify (name, s);
+ }
+ break;
}
+ xfree (name);
+ }
+}
+/* See cli/cli-setshow.h. */
- /* FIXME: cagney/2005-02-10: Need to split this in half: code to
- convert the value into a string (esentially the above); and
- code to print the value out. For the latter there should be
- MI and CLI specific versions. */
+std::string
+get_setshow_command_value_string (cmd_list_element *c)
+{
+ string_file stb;
- if (ui_out_is_mi_like_p (uiout))
- ui_out_field_stream (uiout, "value", stb);
- else
+ switch (c->var_type)
+ {
+ case var_string:
+ if (*(char **) c->var)
+ stb.putstr (*(char **) c->var, '"');
+ break;
+ case var_string_noescape:
+ case var_optional_filename:
+ case var_filename:
+ case var_enum:
+ if (*(char **) c->var)
+ stb.puts (*(char **) c->var);
+ break;
+ case var_boolean:
+ stb.puts (*(int *) c->var ? "on" : "off");
+ break;
+ case var_auto_boolean:
+ switch (*(enum auto_boolean*) c->var)
{
- long length;
- char *value = ui_file_xstrdup (stb->stream, &length);
- make_cleanup (xfree, value);
- if (c->show_value_func != NULL)
- c->show_value_func (gdb_stdout, from_tty, c, value);
- else
- deprecated_show_value_hack (gdb_stdout, from_tty, c, value);
+ case AUTO_BOOLEAN_TRUE:
+ stb.puts ("on");
+ break;
+ case AUTO_BOOLEAN_FALSE:
+ stb.puts ("off");
+ break;
+ case AUTO_BOOLEAN_AUTO:
+ stb.puts ("auto");
+ break;
+ default:
+ gdb_assert_not_reached ("invalid var_auto_boolean");
+ break;
}
- do_cleanups (old_chain);
+ break;
+ case var_uinteger:
+ case var_zuinteger:
+ if (c->var_type == var_uinteger
+ && *(unsigned int *) c->var == UINT_MAX)
+ stb.puts ("unlimited");
+ else
+ stb.printf ("%u", *(unsigned int *) c->var);
+ break;
+ case var_integer:
+ case var_zinteger:
+ if (c->var_type == var_integer
+ && *(int *) c->var == INT_MAX)
+ stb.puts ("unlimited");
+ else
+ stb.printf ("%d", *(int *) c->var);
+ break;
+ case var_zuinteger_unlimited:
+ {
+ if (*(int *) c->var == -1)
+ stb.puts ("unlimited");
+ else
+ stb.printf ("%d", *(int *) c->var);
+ }
+ break;
+ default:
+ gdb_assert_not_reached ("bad var_type");
}
+
+ return std::move (stb.string ());
+}
+
+
+/* Do a "show" command. ARG is NULL if no argument, or the
+ text of the argument, and FROM_TTY is nonzero if this command is
+ being entered directly by the user (i.e. these are just like any
+ other command). C is the command list element for the command. */
+
+void
+do_show_command (const char *arg, int from_tty, struct cmd_list_element *c)
+{
+ struct ui_out *uiout = current_uiout;
+
+ gdb_assert (c->type == show_cmd);
+
+ /* Possibly call the pre hook. */
+ if (c->pre_show_hook)
+ (c->pre_show_hook) (c);
+
+ std::string val = get_setshow_command_value_string (c);
+
+ /* FIXME: cagney/2005-02-10: There should be MI and CLI specific
+ versions of code to print the value out. */
+
+ if (uiout->is_mi_like_p ())
+ uiout->field_string ("value", val.c_str ());
else
- error (_("gdb internal error: bad cmd_type in do_setshow_command"));
+ {
+ if (c->show_value_func != NULL)
+ c->show_value_func (gdb_stdout, from_tty, c, val.c_str ());
+ else
+ deprecated_show_value_hack (gdb_stdout, from_tty, c, val.c_str ());
+ }
+
c->func (c, NULL, from_tty);
- if (c->type == set_cmd && deprecated_set_hook)
- deprecated_set_hook (c);
}
/* Show all the settings in a list of show commands. */
void
-cmd_show_list (struct cmd_list_element *list, int from_tty, char *prefix)
+cmd_show_list (struct cmd_list_element *list, int from_tty, const char *prefix)
{
- struct cleanup *showlist_chain;
+ struct ui_out *uiout = current_uiout;
- showlist_chain = make_cleanup_ui_out_tuple_begin_end (uiout, "showlist");
+ ui_out_emit_tuple tuple_emitter (uiout, "showlist");
for (; list != NULL; list = list->next)
{
/* If we find a prefix, run its list, prefixing our output by its
prefix (with "show " skipped). */
if (list->prefixlist && !list->abbrev_flag)
{
- struct cleanup *optionlist_chain
- = make_cleanup_ui_out_tuple_begin_end (uiout, "optionlist");
- char *new_prefix = strstr (list->prefixname, "show ") + 5;
- if (ui_out_is_mi_like_p (uiout))
- ui_out_field_string (uiout, "prefix", new_prefix);
+ ui_out_emit_tuple optionlist_emitter (uiout, "optionlist");
+ const char *new_prefix = strstr (list->prefixname, "show ") + 5;
+
+ if (uiout->is_mi_like_p ())
+ uiout->field_string ("prefix", new_prefix);
cmd_show_list (*list->prefixlist, from_tty, new_prefix);
- /* Close the tuple. */
- do_cleanups (optionlist_chain);
}
else
{
- struct cleanup *option_chain
- = make_cleanup_ui_out_tuple_begin_end (uiout, "option");
- ui_out_text (uiout, prefix);
- ui_out_field_string (uiout, "name", list->name);
- ui_out_text (uiout, ": ");
- if (list->type == show_cmd)
- do_setshow_command ((char *) NULL, from_tty, list);
- else
- cmd_func (list, NULL, from_tty);
- /* Close the tuple. */
- do_cleanups (option_chain);
+ if (list->theclass != no_set_class)
+ {
+ ui_out_emit_tuple option_emitter (uiout, "option");
+
+ uiout->text (prefix);
+ uiout->field_string ("name", list->name);
+ uiout->text (": ");
+ if (list->type == show_cmd)
+ do_show_command (NULL, from_tty, list);
+ else
+ cmd_func (list, NULL, from_tty);
+ }
}
}
- /* Close the tuple. */
- do_cleanups (showlist_chain);
}
projects / deliverable / binutils-gdb.git / blobdiff