diff options
Diffstat (limited to 'contrib/gdb/gdb/mi/mi-cmd-var.c')
| -rw-r--r-- | contrib/gdb/gdb/mi/mi-cmd-var.c | 501 |
1 files changed, 501 insertions, 0 deletions
diff --git a/contrib/gdb/gdb/mi/mi-cmd-var.c b/contrib/gdb/gdb/mi/mi-cmd-var.c new file mode 100644 index 0000000..0c84064 --- /dev/null +++ b/contrib/gdb/gdb/mi/mi-cmd-var.c @@ -0,0 +1,501 @@ +/* MI Command Set - varobj commands. + Copyright 2000 Free Software Foundation, Inc. + Contributed by Cygnus Solutions (a Red Hat company). + + This file is part of GDB. + + 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 + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + 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., 59 Temple Place - Suite 330, + Boston, MA 02111-1307, USA. */ + +#include "defs.h" +#include "mi-cmds.h" +#include "ui-out.h" +#include "mi-out.h" +#include "varobj.h" +#include "value.h" +#include <ctype.h> + +/* Convenience macro for allocting typesafe memory. */ + +#undef XMALLOC +#define XMALLOC(TYPE) (TYPE*) xmalloc (sizeof (TYPE)) + +extern int varobjdebug; /* defined in varobj.c */ + +static int varobj_update_one (struct varobj *var); + +/* VAROBJ operations */ + +enum mi_cmd_result +mi_cmd_var_create (char *command, char **argv, int argc) +{ + CORE_ADDR frameaddr = 0; + struct varobj *var; + char *name; + char *frame; + char *expr; + char *type; + struct cleanup *old_cleanups; + enum varobj_type var_type; + + if (argc != 3) + { + /* xasprintf (&mi_error_message, + "mi_cmd_var_create: Usage: ."); + return MI_CMD_ERROR; */ + error ("mi_cmd_var_create: Usage: NAME FRAME EXPRESSION."); + } + + name = xstrdup (argv[0]); + /* Add cleanup for name. Must be free_current_contents as + name can be reallocated */ + old_cleanups = make_cleanup (free_current_contents, &name); + + frame = xstrdup (argv[1]); + old_cleanups = make_cleanup (xfree, frame); + + expr = xstrdup (argv[2]); + + if (strcmp (name, "-") == 0) + { + xfree (name); + name = varobj_gen_name (); + } + else if (!isalpha (*name)) + error ("mi_cmd_var_create: name of object must begin with a letter"); + + if (strcmp (frame, "*") == 0) + var_type = USE_CURRENT_FRAME; + else if (strcmp (frame, "@") == 0) + var_type = USE_SELECTED_FRAME; + else + { + var_type = USE_SPECIFIED_FRAME; + frameaddr = parse_and_eval_address (frame); + } + + if (varobjdebug) + fprintf_unfiltered (gdb_stdlog, + "Name=\"%s\", Frame=\"%s\" (0x%s), Expression=\"%s\"\n", + name, frame, paddr (frameaddr), expr); + + var = varobj_create (name, expr, frameaddr, var_type); + + if (var == NULL) + error ("mi_cmd_var_create: unable to create variable object"); + + ui_out_field_string (uiout, "name", name); + ui_out_field_int (uiout, "numchild", varobj_get_num_children (var)); + type = varobj_get_type (var); + if (type == NULL) + ui_out_field_string (uiout, "type", ""); + else + { + ui_out_field_string (uiout, "type", type); + xfree (type); + } + + do_cleanups (old_cleanups); + return MI_CMD_DONE; +} + +enum mi_cmd_result +mi_cmd_var_delete (char *command, char **argv, int argc) +{ + char *name; + char *expr; + struct varobj *var; + int numdel; + int children_only_p = 0; + struct cleanup *old_cleanups; + + if (argc < 1 || argc > 2) + error ("mi_cmd_var_delete: Usage: [-c] EXPRESSION."); + + name = xstrdup (argv[0]); + /* Add cleanup for name. Must be free_current_contents as + name can be reallocated */ + old_cleanups = make_cleanup (free_current_contents, &name); + + /* If we have one single argument it cannot be '-c' or any string + starting with '-'. */ + if (argc == 1) + { + if (strcmp (name, "-c") == 0) + error ("mi_cmd_var_delete: Missing required argument after '-c': variable object name"); + if (*name == '-') + error ("mi_cmd_var_delete: Illegal variable object name"); + } + + /* If we have 2 arguments they must be '-c' followed by a string + which would be the variable name. */ + if (argc == 2) + { + expr = xstrdup (argv[1]); + if (strcmp (name, "-c") != 0) + error ("mi_cmd_var_delete: Invalid option."); + children_only_p = 1; + xfree (name); + name = xstrdup (expr); + xfree (expr); + } + + /* If we didn't error out, now NAME contains the name of the + variable. */ + + var = varobj_get_handle (name); + + if (var == NULL) + error ("mi_cmd_var_delete: Variable object not found."); + + numdel = varobj_delete (var, NULL, children_only_p); + + ui_out_field_int (uiout, "ndeleted", numdel); + + do_cleanups (old_cleanups); + return MI_CMD_DONE; +} + +enum mi_cmd_result +mi_cmd_var_set_format (char *command, char **argv, int argc) +{ + enum varobj_display_formats format; + int len; + struct varobj *var; + char *formspec; + + if (argc != 2) + error ("mi_cmd_var_set_format: Usage: NAME FORMAT."); + + /* Get varobj handle, if a valid var obj name was specified */ + var = varobj_get_handle (argv[0]); + + if (var == NULL) + error ("mi_cmd_var_set_format: Variable object not found"); + + formspec = xstrdup (argv[1]); + if (formspec == NULL) + error ("mi_cmd_var_set_format: Must specify the format as: \"natural\", \"binary\", \"decimal\", \"hexadecimal\", or \"octal\""); + + len = strlen (formspec); + + if (STREQN (formspec, "natural", len)) + format = FORMAT_NATURAL; + else if (STREQN (formspec, "binary", len)) + format = FORMAT_BINARY; + else if (STREQN (formspec, "decimal", len)) + format = FORMAT_DECIMAL; + else if (STREQN (formspec, "hexadecimal", len)) + format = FORMAT_HEXADECIMAL; + else if (STREQN (formspec, "octal", len)) + format = FORMAT_OCTAL; + else + error ("mi_cmd_var_set_format: Unknown display format: must be: \"natural\", \"binary\", \"decimal\", \"hexadecimal\", or \"octal\""); + + /* Set the format of VAR to given format */ + varobj_set_display_format (var, format); + + /* Report the new current format */ + ui_out_field_string (uiout, "format", varobj_format_string[(int) format]); + return MI_CMD_DONE; +} + +enum mi_cmd_result +mi_cmd_var_show_format (char *command, char **argv, int argc) +{ + enum varobj_display_formats format; + struct varobj *var; + + if (argc != 1) + error ("mi_cmd_var_show_format: Usage: NAME."); + + /* Get varobj handle, if a valid var obj name was specified */ + var = varobj_get_handle (argv[0]); + if (var == NULL) + error ("mi_cmd_var_show_format: Variable object not found"); + + format = varobj_get_display_format (var); + + /* Report the current format */ + ui_out_field_string (uiout, "format", varobj_format_string[(int) format]); + return MI_CMD_DONE; +} + +enum mi_cmd_result +mi_cmd_var_info_num_children (char *command, char **argv, int argc) +{ + struct varobj *var; + + if (argc != 1) + error ("mi_cmd_var_info_num_children: Usage: NAME."); + + /* Get varobj handle, if a valid var obj name was specified */ + var = varobj_get_handle (argv[0]); + if (var == NULL) + error ("mi_cmd_var_info_num_children: Variable object not found"); + + ui_out_field_int (uiout, "numchild", varobj_get_num_children (var)); + return MI_CMD_DONE; +} + +enum mi_cmd_result +mi_cmd_var_list_children (char *command, char **argv, int argc) +{ + struct varobj *var; + struct varobj **childlist; + struct varobj **cc; + int numchild; + char *type; + + if (argc != 1) + error ("mi_cmd_var_list_children: Usage: NAME."); + + /* Get varobj handle, if a valid var obj name was specified */ + var = varobj_get_handle (argv[0]); + if (var == NULL) + error ("mi_cmd_var_list_children: Variable object not found"); + + numchild = varobj_list_children (var, &childlist); + ui_out_field_int (uiout, "numchild", numchild); + + if (numchild <= 0) + return MI_CMD_DONE; + + ui_out_tuple_begin (uiout, "children"); + cc = childlist; + while (*cc != NULL) + { + ui_out_tuple_begin (uiout, "child"); + ui_out_field_string (uiout, "name", varobj_get_objname (*cc)); + ui_out_field_string (uiout, "exp", varobj_get_expression (*cc)); + ui_out_field_int (uiout, "numchild", varobj_get_num_children (*cc)); + type = varobj_get_type (*cc); + /* C++ pseudo-variables (public, private, protected) do not have a type */ + if (type) + ui_out_field_string (uiout, "type", varobj_get_type (*cc)); + ui_out_tuple_end (uiout); + cc++; + } + ui_out_tuple_end (uiout); + xfree (childlist); + return MI_CMD_DONE; +} + +enum mi_cmd_result +mi_cmd_var_info_type (char *command, char **argv, int argc) +{ + struct varobj *var; + + if (argc != 1) + error ("mi_cmd_var_info_type: Usage: NAME."); + + /* Get varobj handle, if a valid var obj name was specified */ + var = varobj_get_handle (argv[0]); + if (var == NULL) + error ("mi_cmd_var_info_type: Variable object not found"); + + ui_out_field_string (uiout, "type", varobj_get_type (var)); + return MI_CMD_DONE; +} + +enum mi_cmd_result +mi_cmd_var_info_expression (char *command, char **argv, int argc) +{ + enum varobj_languages lang; + struct varobj *var; + + if (argc != 1) + error ("mi_cmd_var_info_expression: Usage: NAME."); + + /* Get varobj handle, if a valid var obj name was specified */ + var = varobj_get_handle (argv[0]); + if (var == NULL) + error ("mi_cmd_var_info_expression: Variable object not found"); + + lang = varobj_get_language (var); + + ui_out_field_string (uiout, "lang", varobj_language_string[(int) lang]); + ui_out_field_string (uiout, "exp", varobj_get_expression (var)); + return MI_CMD_DONE; +} + +enum mi_cmd_result +mi_cmd_var_show_attributes (char *command, char **argv, int argc) +{ + int attr; + char *attstr; + struct varobj *var; + + if (argc != 1) + error ("mi_cmd_var_show_attributes: Usage: NAME."); + + /* Get varobj handle, if a valid var obj name was specified */ + var = varobj_get_handle (argv[0]); + if (var == NULL) + error ("mi_cmd_var_show_attributes: Variable object not found"); + + attr = varobj_get_attributes (var); + /* FIXME: define masks for attributes */ + if (attr & 0x00000001) + attstr = "editable"; + else + attstr = "noneditable"; + + ui_out_field_string (uiout, "attr", attstr); + return MI_CMD_DONE; +} + +enum mi_cmd_result +mi_cmd_var_evaluate_expression (char *command, char **argv, int argc) +{ + struct varobj *var; + + if (argc != 1) + error ("mi_cmd_var_evaluate_expression: Usage: NAME."); + + /* Get varobj handle, if a valid var obj name was specified */ + var = varobj_get_handle (argv[0]); + if (var == NULL) + error ("mi_cmd_var_evaluate_expression: Variable object not found"); + + ui_out_field_string (uiout, "value", varobj_get_value (var)); + return MI_CMD_DONE; +} + +enum mi_cmd_result +mi_cmd_var_assign (char *command, char **argv, int argc) +{ + struct varobj *var; + char *expression; + + if (argc != 2) + error ("mi_cmd_var_assign: Usage: NAME EXPRESSION."); + + /* Get varobj handle, if a valid var obj name was specified */ + var = varobj_get_handle (argv[0]); + if (var == NULL) + error ("mi_cmd_var_assign: Variable object not found"); + + /* FIXME: define masks for attributes */ + if (!(varobj_get_attributes (var) & 0x00000001)) + error ("mi_cmd_var_assign: Variable object is not editable"); + + expression = xstrdup (argv[1]); + + if (!varobj_set_value (var, expression)) + error ("mi_cmd_var_assign: Could not assign expression to varible object"); + + ui_out_field_string (uiout, "value", varobj_get_value (var)); + return MI_CMD_DONE; +} + +enum mi_cmd_result +mi_cmd_var_update (char *command, char **argv, int argc) +{ + struct varobj *var; + struct varobj **rootlist; + struct varobj **cr; + char *name; + int nv; + + if (argc != 1) + error ("mi_cmd_var_update: Usage: NAME."); + + name = argv[0]; + + /* Check if the parameter is a "*" which means that we want + to update all variables */ + + if ((*name == '*') && (*(name + 1) == '\0')) + { + nv = varobj_list (&rootlist); + ui_out_tuple_begin (uiout, "changelist"); + if (nv <= 0) + { + ui_out_tuple_end (uiout); + return MI_CMD_DONE; + } + cr = rootlist; + while (*cr != NULL) + { + varobj_update_one (*cr); + cr++; + } + xfree (rootlist); + ui_out_tuple_end (uiout); + } + else + { + /* Get varobj handle, if a valid var obj name was specified */ + var = varobj_get_handle (name); + if (var == NULL) + error ("mi_cmd_var_update: Variable object not found"); + + ui_out_tuple_begin (uiout, "changelist"); + varobj_update_one (var); + ui_out_tuple_end (uiout); + } + return MI_CMD_DONE; +} + +/* Helper for mi_cmd_var_update() Returns 0 if the update for + the variable fails (usually because the variable is out of + scope), and 1 if it succeeds. */ + +static int +varobj_update_one (struct varobj *var) +{ + struct varobj **changelist; + struct varobj **cc; + int nc; + + nc = varobj_update (&var, &changelist); + + /* nc == 0 means that nothing has changed. + nc == -1 means that an error occured in updating the variable. + nc == -2 means the variable has changed type. */ + + if (nc == 0) + return 1; + else if (nc == -1) + { + ui_out_field_string (uiout, "name", varobj_get_objname(var)); + ui_out_field_string (uiout, "in_scope", "false"); + return -1; + } + else if (nc == -2) + { + ui_out_field_string (uiout, "name", varobj_get_objname (var)); + ui_out_field_string (uiout, "in_scope", "true"); + ui_out_field_string (uiout, "new_type", varobj_get_type(var)); + ui_out_field_int (uiout, "new_num_children", + varobj_get_num_children(var)); + } + else + { + + cc = changelist; + while (*cc != NULL) + { + ui_out_field_string (uiout, "name", varobj_get_objname (*cc)); + ui_out_field_string (uiout, "in_scope", "true"); + ui_out_field_string (uiout, "type_changed", "false"); + cc++; + } + xfree (changelist); + return 1; + } + return 1; +} |
