/* GObject - GLib Type, Object, Parameter and Signal Library

  * Copyright (C) 1998-1999, 2000-2001 Tim Janik and Red Hat, Inc.

  * Portions copyright (c) 2009 Nokia Corporation.  All rights reserved.

  * 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, write to the

  * Free Software Foundation, Inc., 59 Temple Place, Suite 330,

  * Boston, MA 02111-1307, USA.

  */

 #include "config.h"

 #include <stdlib.h>

 #include <string.h>

 #ifdef HAVE_UNISTD_H

 #include <unistd.h>

 #endif

 #include <sys/stat.h>

 #include <fcntl.h>

 #include <glib-object.h>

 #include <glib/gprintf.h>

 #ifdef __SYMBIAN32__

 #include "mrt2_glib2_test.h"

 #endif /*__SYMBIAN32__*/

 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;

   gchar *iindent = "";

 #ifdef __SYMBIAN32__

   g_log_set_handler (NULL,  G_LOG_FLAG_FATAL| G_LOG_FLAG_RECURSION | G_LOG_LEVEL_CRITICAL | G_LOG_LEVEL_WARNING | G_LOG_LEVEL_MESSAGE | G_LOG_LEVEL_INFO | G_LOG_LEVEL_DEBUG, &mrtLogHandler, NULL);

   g_set_print_handler(mrtPrintHandler);

 #endif /*__SYMBIAN32__*/

   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;

   g_type_init ();

   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);

 	}

     }

 #ifdef __SYMBIAN32__

   testResultXml("gobject-querry");

 #endif /* EMULATOR */  

   return 0;

 }