nexmon – Rev 1

?pathlinks?

Blame – Last modification – View Log – Download

/* GObject - GLib Type, Object, Parameter and Signal Library
 * Copyright (C) 1998-1999, 2000-2001 Tim Janik and Red Hat, Inc.
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General
 * Public License along with this library; if not, see <http://www.gnu.org/licenses/>.
 */

#include "config.h"

#include <stdlib.h>
#include <string.h>
#include <sys/stat.h>
#include <fcntl.h>

#include <glib-object.h>
#include <glib/gprintf.h>


static gchar *indent_inc = NULL;
static guint spacing = 1;
static FILE *f_out = NULL;
static GType root = 0;
static gboolean recursion = TRUE;

#if 0
#  define       O_SPACE "\\as"
#  define       O_ESPACE " "
#  define       O_BRANCH "\\aE"
#  define       O_VLINE "\\al"
#  define       O_LLEAF "\\aL"
#  define       O_KEY_FILL "_"
#else
#  define       O_SPACE " "
#  define       O_ESPACE ""
#  define       O_BRANCH "+"
#  define       O_VLINE "|"
#  define       O_LLEAF "`"
#  define       O_KEY_FILL "_"
#endif

static void
show_nodes (GType        type,
            GType        sibling,
            const gchar *indent)
{
  GType   *children;
  guint i;
  
  if (!type)
    return;
  
  children = g_type_children (type, NULL);
  
  if (type != root)
    for (i = 0; i < spacing; i++)
      g_fprintf (f_out, "%s%s\n", indent, O_VLINE);
  
  g_fprintf (f_out, "%s%s%s%s",
           indent,
           sibling ? O_BRANCH : (type != root ? O_LLEAF : O_SPACE),
           O_ESPACE,
           g_type_name (type));
  
  for (i = strlen (g_type_name (type)); i <= strlen (indent_inc); i++)
    fputs (O_KEY_FILL, f_out);
  
  fputc ('\n', f_out);
  
  if (children && recursion)
    {
      gchar *new_indent;
      GType   *child;
      
      if (sibling)
        new_indent = g_strconcat (indent, O_VLINE, indent_inc, NULL);
      else
        new_indent = g_strconcat (indent, O_SPACE, indent_inc, NULL);
      
      for (child = children; *child; child++)
        show_nodes (child[0], child[1], new_indent);
      
      g_free (new_indent);
    }
  
  g_free (children);
}

static gint
help (gchar *arg)
{
  g_fprintf (stderr, "usage: gobject-query <qualifier> [-r <type>] [-{i|b} \"\"] [-s #] [-{h|x|y}]\n");
  g_fprintf (stderr, "       -r       specifiy root type\n");
  g_fprintf (stderr, "       -n       don't descend type tree\n");
  g_fprintf (stderr, "       -h       guess what ;)\n");
  g_fprintf (stderr, "       -b       specify indent string\n");
  g_fprintf (stderr, "       -i       specify incremental indent string\n");
  g_fprintf (stderr, "       -s       specify line spacing\n");
  g_fprintf (stderr, "qualifiers:\n");
  g_fprintf (stderr, "       froots   iterate over fundamental roots\n");
  g_fprintf (stderr, "       tree     print type tree\n");
  
  return arg != NULL;
}

int
main (gint   argc,
      gchar *argv[])
{
  GLogLevelFlags fatal_mask;
  gboolean gen_froots = 0;
  gboolean gen_tree = 0;
  gint i;
  const gchar *iindent = "";

  f_out = stdout;
  
  fatal_mask = g_log_set_always_fatal (G_LOG_FATAL_MASK);
  fatal_mask |= G_LOG_LEVEL_WARNING | G_LOG_LEVEL_CRITICAL;
  g_log_set_always_fatal (fatal_mask);
  
  root = G_TYPE_OBJECT;

  for (i = 1; i < argc; i++)
    {
      if (strcmp ("-s", argv[i]) == 0)
        {
          i++;
          if (i < argc)
            spacing = atoi (argv[i]);
        }
      else if (strcmp ("-i", argv[i]) == 0)
        {
          i++;
          if (i < argc)
            {
              char *p;
              guint n;
              
              p = argv[i];
              while (*p)
                p++;
              n = p - argv[i];
              indent_inc = g_new (gchar, n * strlen (O_SPACE) + 1);
              *indent_inc = 0;
              while (n)
                {
                  n--;
                  strcpy (indent_inc, O_SPACE);
                }
            }
        }
      else if (strcmp ("-b", argv[i]) == 0)
        {
          i++;
          if (i < argc)
            iindent = argv[i];
        }
      else if (strcmp ("-r", argv[i]) == 0)
        {
          i++;
          if (i < argc)
            root = g_type_from_name (argv[i]);
        }
      else if (strcmp ("-n", argv[i]) == 0)
        {
          recursion = FALSE;
        }
      else if (strcmp ("froots", argv[i]) == 0)
        {
          gen_froots = 1;
        }
      else if (strcmp ("tree", argv[i]) == 0)
        {
          gen_tree = 1;
        }
      else if (strcmp ("-h", argv[i]) == 0)
        {
          return help (NULL);
        }
      else if (strcmp ("--help", argv[i]) == 0)
        {
          return help (NULL);
        }
      else
        return help (argv[i]);
    }
  
  if (!gen_froots && !gen_tree)
    return help (argv[i-1]);
  
  if (!indent_inc)
    {
      indent_inc = g_new (gchar, strlen (O_SPACE) + 1);
      *indent_inc = 0;
      strcpy (indent_inc, O_SPACE);
    }
  
  if (gen_tree)
    show_nodes (root, 0, iindent);
  if (gen_froots)
    {
      root = ~0;
      for (i = 0; i <= G_TYPE_FUNDAMENTAL_MAX; i += G_TYPE_MAKE_FUNDAMENTAL (1))
        {
          const gchar *name = g_type_name (i);
          
          if (name)
            show_nodes (i, 0, iindent);
        }
    }
  
  return 0;
}