Subversion Repositories openrisc_2011-10-31

/* Routines for handling XML generic OS data provided by target.

   Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc.

   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 3 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, see <http://www.gnu.org/licenses/>.  */

#include "defs.h"

#include "target.h"

#include "vec.h"

#include "xml-support.h"

#include "osdata.h"

#include "gdb_string.h"

#include "ui-out.h"

#include "gdbcmd.h"

#if !defined(HAVE_LIBEXPAT)

struct osdata *

osdata_parse (const char *xml)

{

  static int have_warned;

  if (!have_warned)

    {

      have_warned = 1;

      warning (_("Can not parse XML OS data; XML support was disabled "

                "at compile time"));

    }

  return NULL;

}

#else /* HAVE_LIBEXPAT */

#include "xml-support.h"

/* Internal parsing data passed to all XML callbacks.  */

struct osdata_parsing_data

  {

    struct osdata *osdata;

    char *property_name;

  };

/* Handle the start of a <osdata> element.  */

static void

osdata_start_osdata (struct gdb_xml_parser *parser,

                        const struct gdb_xml_element *element,

                        void *user_data, VEC(gdb_xml_value_s) *attributes)

{

  struct osdata_parsing_data *data = user_data;

  char *type;

  struct osdata *osdata;

  if (data->osdata)

    gdb_xml_error (parser, _("Seen more than on osdata element"));

  type = VEC_index (gdb_xml_value_s, attributes, 0)->value;

  osdata = XZALLOC (struct osdata);

  osdata->type = xstrdup (type);

  data->osdata = osdata;

}

/* Handle the start of a <item> element.  */

static void

osdata_start_item (struct gdb_xml_parser *parser,

                  const struct gdb_xml_element *element,

                  void *user_data, VEC(gdb_xml_value_s) *attributes)

{

  struct osdata_parsing_data *data = user_data;

  struct osdata_item item = { NULL };

  VEC_safe_push (osdata_item_s, data->osdata->items, &item);

}

/* Handle the start of a <column> element.  */

static void

osdata_start_column (struct gdb_xml_parser *parser,

                    const struct gdb_xml_element *element,

                    void *user_data, VEC(gdb_xml_value_s) *attributes)

{

  struct osdata_parsing_data *data = user_data;

  const char *name = VEC_index (gdb_xml_value_s, attributes, 0)->value;

  data->property_name = xstrdup (name);

}

/* Handle the end of a <column> element.  */

static void

osdata_end_column (struct gdb_xml_parser *parser,

                  const struct gdb_xml_element *element,

                  void *user_data, const char *body_text)

{

  struct osdata_parsing_data *data = user_data;

  struct osdata *osdata = data->osdata;

  struct osdata_item *item = VEC_last (osdata_item_s, osdata->items);

  struct osdata_column *col = VEC_safe_push (osdata_column_s,

                                            item->columns, NULL);

  /* Transfer memory ownership.  NAME was already strdup'ed.  */

  col->name = data->property_name;

  col->value = xstrdup (body_text);

  data->property_name = NULL;

}

/* Discard the constructed osdata (if an error occurs).  */

static void

clear_parsing_data (void *p)

{

  struct osdata_parsing_data *data = p;

  osdata_free (data->osdata);

  data->osdata = NULL;

  xfree (data->property_name);

  data->property_name = NULL;

}

/* The allowed elements and attributes for OS data object.

   The root element is a <osdata>.  */

const struct gdb_xml_attribute column_attributes[] = {

  { "name", GDB_XML_AF_NONE, NULL, NULL },

  { NULL, GDB_XML_AF_NONE, NULL, NULL }

};

const struct gdb_xml_element item_children[] = {

  { "column", column_attributes, NULL,

    GDB_XML_EF_REPEATABLE | GDB_XML_EF_OPTIONAL,

    osdata_start_column, osdata_end_column },

  { NULL, NULL, NULL, GDB_XML_EF_NONE, NULL, NULL }

};

const struct gdb_xml_attribute osdata_attributes[] = {

  { "type", GDB_XML_AF_NONE, NULL, NULL },

  { NULL, GDB_XML_AF_NONE, NULL, NULL }

};

const struct gdb_xml_element osdata_children[] = {

  { "item", NULL, item_children,

    GDB_XML_EF_REPEATABLE | GDB_XML_EF_OPTIONAL,

    osdata_start_item, NULL },

  { NULL, NULL, NULL, GDB_XML_EF_NONE, NULL, NULL }

};

const struct gdb_xml_element osdata_elements[] = {

  { "osdata", osdata_attributes, osdata_children,

    GDB_XML_EF_NONE, osdata_start_osdata, NULL },

  { NULL, NULL, NULL, GDB_XML_EF_NONE, NULL, NULL }

};

struct osdata *

osdata_parse (const char *xml)

{

  struct gdb_xml_parser *parser;

  struct cleanup *before_deleting_result, *back_to;

  struct osdata_parsing_data data = { NULL };

  back_to = make_cleanup (null_cleanup, NULL);

  parser = gdb_xml_create_parser_and_cleanup (_("osdata"),

                                             osdata_elements, &data);

  gdb_xml_use_dtd (parser, "osdata.dtd");

  before_deleting_result = make_cleanup (clear_parsing_data, &data);

  if (gdb_xml_parse (parser, xml) == 0)

    /* Parsed successfully, don't need to delete the result.  */

    discard_cleanups (before_deleting_result);

  do_cleanups (back_to);

  return data.osdata;

}

#endif

static void

osdata_item_clear (struct osdata_item *item)

{

  if (item->columns != NULL)

    {

      struct osdata_column *col;

      int ix;

      for (ix = 0;

           VEC_iterate (osdata_column_s, item->columns,

                        ix, col);

           ix++)

       {

         xfree (col->name);

         xfree (col->value);

       }

      VEC_free (osdata_column_s, item->columns);

      item->columns = NULL;

    }

}

void

osdata_free (struct osdata *osdata)

{

  if (osdata == NULL)

    return;

  if (osdata->items != NULL)

    {

      struct osdata_item *item;

      int ix;

      for (ix = 0;

          VEC_iterate (osdata_item_s, osdata->items,

                       ix, item);

          ix++)

       osdata_item_clear (item);

      VEC_free (osdata_item_s, osdata->items);

    }

  xfree (osdata);

}

static void

osdata_free_cleanup (void *arg)

{

  struct osdata *osdata = arg;

  osdata_free (osdata);

}

struct cleanup *

make_cleanup_osdata_free (struct osdata *data)

{

  return make_cleanup (osdata_free_cleanup, data);

}

struct osdata *

get_osdata (const char *type)

{

  struct osdata *osdata = NULL;

  char *xml = target_get_osdata (type);

  if (xml)

    {

      struct cleanup *old_chain = make_cleanup (xfree, xml);

      if (xml[0] == '\0')

        warning (_("Empty data returned by target.  Wrong osdata type?"));

      else

        osdata = osdata_parse (xml);

      do_cleanups (old_chain);

    }

  if (!osdata)

    error (_("Can not fetch data now.\n"));

  return osdata;

}

const char *

get_osdata_column (struct osdata_item *item, const char *name)

{

  struct osdata_column *col;

  int ix_cols;

  for (ix_cols = 0;

       VEC_iterate (osdata_column_s, item->columns,

                    ix_cols, col);

       ix_cols++)

    if (strcmp (col->name, name) == 0)

      return col->value;

  return NULL;

}

static void

info_osdata_command (char *type, int from_tty)

{

  struct osdata *osdata = NULL;

  struct osdata_item *last;

  struct cleanup *old_chain;

  int ncols;

  int nprocs;

  if (type == 0)

    /* TODO: No type could mean "list availables types".  */

    error (_("Argument required."));

  osdata = get_osdata (type);

  old_chain = make_cleanup_osdata_free (osdata);

  nprocs = VEC_length (osdata_item_s, osdata->items);

  last = VEC_last (osdata_item_s, osdata->items);

  if (last && last->columns)

    ncols = VEC_length (osdata_column_s, last->columns);

  else

    ncols = 0;

  make_cleanup_ui_out_table_begin_end (uiout, ncols, nprocs,

                                       "OSDataTable");

  if (last && last->columns)

    {

      struct osdata_column *col;

      int ix;

      for (ix = 0;

          VEC_iterate (osdata_column_s, last->columns,

                       ix, col);

          ix++)

       ui_out_table_header (uiout, 10, ui_left,

                            col->name, col->name);

    }

  ui_out_table_body (uiout);

  if (nprocs != 0)

    {

      struct osdata_item *item;

      int ix_items;

      for (ix_items = 0;

          VEC_iterate (osdata_item_s, osdata->items,

                       ix_items, item);

          ix_items++)

       {

         struct cleanup *old_chain;

         struct ui_stream *stb;

         int ix_cols;

         struct osdata_column *col;

         stb = ui_out_stream_new (uiout);

         old_chain = make_cleanup_ui_out_stream_delete (stb);

         make_cleanup_ui_out_tuple_begin_end (uiout, "item");

         for (ix_cols = 0;

              VEC_iterate (osdata_column_s, item->columns,

                           ix_cols, col);

              ix_cols++)

           ui_out_field_string (uiout, col->name, col->value);

         do_cleanups (old_chain);

         ui_out_text (uiout, "\n");

       }

    }

  do_cleanups (old_chain);

}

extern initialize_file_ftype _initialize_osdata; /* -Wmissing-prototypes */

void

_initialize_osdata (void)

{

  add_info ("os", info_osdata_command,

           _("Show OS data ARG."));

}