1 /* GObject - GLib Type, Object, Parameter and Signal Library
2 * Copyright (C) 1998-1999, 2000-2001 Tim Janik and Red Hat, Inc.
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General
15 * Public License along with this library; if not, write to the
16 * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
17 * Boston, MA 02111-1307, USA.
30 #include <glib-object.h>
31 #include <glib/gprintf.h>
34 static gchar
*indent_inc
= NULL
;
35 static guint spacing
= 1;
36 static FILE *f_out
= NULL
;
37 static GType root
= 0;
38 static gboolean recursion
= TRUE
;
41 # define O_SPACE "\\as"
43 # define O_BRANCH "\\aE"
44 # define O_VLINE "\\al"
45 # define O_LLEAF "\\aL"
46 # define O_KEY_FILL "_"
53 # define O_KEY_FILL "_"
57 show_nodes (GType type
,
67 children
= g_type_children (type
, NULL
);
70 for (i
= 0; i
< spacing
; i
++)
71 g_fprintf (f_out
, "%s%s\n", indent
, O_VLINE
);
73 g_fprintf (f_out
, "%s%s%s%s",
75 sibling
? O_BRANCH
: (type
!= root
? O_LLEAF
: O_SPACE
),
79 for (i
= strlen (g_type_name (type
)); i
<= strlen (indent_inc
); i
++)
80 fputs (O_KEY_FILL
, f_out
);
84 if (children
&& recursion
)
90 new_indent
= g_strconcat (indent
, O_VLINE
, indent_inc
, NULL
);
92 new_indent
= g_strconcat (indent
, O_SPACE
, indent_inc
, NULL
);
94 for (child
= children
; *child
; child
++)
95 show_nodes (child
[0], child
[1], new_indent
);
106 g_fprintf (stderr
, "usage: gobject-query <qualifier> [-r <type>] [-{i|b} \"\"] [-s #] [-{h|x|y}]\n");
107 g_fprintf (stderr
, " -r specifiy root type\n");
108 g_fprintf (stderr
, " -n don't descend type tree\n");
109 g_fprintf (stderr
, " -h guess what ;)\n");
110 g_fprintf (stderr
, " -b specify indent string\n");
111 g_fprintf (stderr
, " -i specify incremental indent string\n");
112 g_fprintf (stderr
, " -s specify line spacing\n");
113 g_fprintf (stderr
, "qualifiers:\n");
114 g_fprintf (stderr
, " froots iterate over fundamental roots\n");
115 g_fprintf (stderr
, " tree print type tree\n");
124 GLogLevelFlags fatal_mask
;
125 gboolean gen_froots
= 0;
126 gboolean gen_tree
= 0;
132 fatal_mask
= g_log_set_always_fatal (G_LOG_FATAL_MASK
);
133 fatal_mask
|= G_LOG_LEVEL_WARNING
| G_LOG_LEVEL_CRITICAL
;
134 g_log_set_always_fatal (fatal_mask
);
136 root
= G_TYPE_OBJECT
;
138 for (i
= 1; i
< argc
; i
++)
140 if (strcmp ("-s", argv
[i
]) == 0)
144 spacing
= atoi (argv
[i
]);
146 else if (strcmp ("-i", argv
[i
]) == 0)
158 indent_inc
= g_new (gchar
, n
* strlen (O_SPACE
) + 1);
163 strcpy (indent_inc
, O_SPACE
);
167 else if (strcmp ("-b", argv
[i
]) == 0)
173 else if (strcmp ("-r", argv
[i
]) == 0)
177 root
= g_type_from_name (argv
[i
]);
179 else if (strcmp ("-n", argv
[i
]) == 0)
183 else if (strcmp ("froots", argv
[i
]) == 0)
187 else if (strcmp ("tree", argv
[i
]) == 0)
191 else if (strcmp ("-h", argv
[i
]) == 0)
195 else if (strcmp ("--help", argv
[i
]) == 0)
200 return help (argv
[i
]);
203 if (!gen_froots
&& !gen_tree
)
204 return help (argv
[i
-1]);
208 indent_inc
= g_new (gchar
, strlen (O_SPACE
) + 1);
210 strcpy (indent_inc
, O_SPACE
);
214 show_nodes (root
, 0, iindent
);
218 for (i
= 0; i
<= G_TYPE_FUNDAMENTAL_MAX
; i
+= G_TYPE_MAKE_FUNDAMENTAL (1))
220 const gchar
*name
= g_type_name (i
);
223 show_nodes (i
, 0, iindent
);