Subversion Repositories or1k

/* 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;

}