1 /* GObject - GLib Type, Object, Parameter and Signal Library
2 * Copyright (C) 1998-1999, 2000-2001 Tim Janik and Red Hat, Inc.
3 *
4 * SPDX-License-Identifier: LGPL-2.1-or-later
5 *
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
10 *
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
15 *
16 * You should have received a copy of the GNU Lesser General
17 * Public License along with this library; if not, see <http://www.gnu.org/licenses/>.
18 */
19
20 #include "config.h"
21
22 #include <stdlib.h>
23 #include <string.h>
24 #include <sys/stat.h>
25 #include <fcntl.h>
26
27 #include <glib-object.h>
28 #include <glib/gprintf.h>
29
30
31 static gchar *indent_inc = NULL;
32 static guint spacing = 1;
33 static FILE *f_out = NULL;
34 static GType root = 0;
35 static gboolean recursion = TRUE;
36
37 #define O_SPACE " "
38 #define O_ESPACE ""
39 #define O_BRANCH "├"
40 #define O_VLINE "│"
41 #define O_LLEAF "└"
42 #define O_KEY_FILL "_"
43
44 static void
45 show_nodes (GType type,
46 GType sibling,
47 const gchar *indent)
48 {
49 GType *children;
50 guint i;
51
52 if (!type)
53 return;
54
55 children = g_type_children (type, NULL);
56
57 g_fprintf (f_out, "%s%s%s%s",
58 indent,
59 sibling ? O_BRANCH : (type != root ? O_LLEAF : O_SPACE),
60 O_ESPACE,
61 g_type_name (type));
62
63 for (i = strlen (g_type_name (type)); i <= strlen (indent_inc); i++)
64 fputs (O_KEY_FILL, f_out);
65
66 fputc ('\n', f_out);
67
68 if (children && recursion)
69 {
70 gchar *new_indent;
71 GType *child;
72
73 if (sibling)
74 new_indent = g_strconcat (indent, O_VLINE, indent_inc, NULL);
75 else
76 new_indent = g_strconcat (indent, O_SPACE, indent_inc, NULL);
77
78 for (child = children; *child; child++)
79 show_nodes (child[0], child[1], new_indent);
80
81 g_free (new_indent);
82 }
83
84 g_free (children);
85 }
86
87 static gint
88 help (const gchar *arg)
89 {
90 g_fprintf (stdout, "usage: gobject-query <qualifier> [-r <type>] [-{i|b} \"\"] [-s #] [-{h|x|y}]\n");
91 g_fprintf (stdout, " -r specify root type\n");
92 g_fprintf (stdout, " -n don't descend type tree\n");
93 g_fprintf (stdout, " -h show help\n");
94 g_fprintf (stdout, " -b specify indent string\n");
95 g_fprintf (stdout, " -i specify incremental indent string\n");
96 g_fprintf (stdout, " -s specify line spacing\n");
97 g_fprintf (stdout, "qualifiers:\n");
98 g_fprintf (stdout, " froots iterate over fundamental roots\n");
99 g_fprintf (stdout, " tree print type tree\n");
100
101 return arg != NULL;
102 }
103
104 int
105 main (gint argc,
106 gchar *argv[])
107 {
108 GLogLevelFlags fatal_mask;
109 gboolean gen_froots = 0;
110 gboolean gen_tree = 0;
111 gint i;
112 const gchar *iindent = "";
113
114 f_out = stdout;
115
116 fatal_mask = g_log_set_always_fatal (G_LOG_FATAL_MASK);
117 fatal_mask |= G_LOG_LEVEL_WARNING | G_LOG_LEVEL_CRITICAL;
118 g_log_set_always_fatal (fatal_mask);
119
120 root = G_TYPE_OBJECT;
121
122 for (i = 1; i < argc; i++)
123 {
124 if (strcmp ("-s", argv[i]) == 0)
125 {
126 i++;
127 if (i < argc)
128 spacing = atoi (argv[i]);
129 }
130 else if (strcmp ("-i", argv[i]) == 0)
131 {
132 i++;
133 if (i < argc)
134 {
135 char *p;
136 guint n;
137
138 p = argv[i];
139 while (*p)
140 p++;
141 n = p - argv[i];
142 indent_inc = g_new (gchar, n * strlen (O_SPACE) + 1);
143 *indent_inc = 0;
144 while (n)
145 {
146 n--;
147 strcpy (indent_inc, O_SPACE);
148 }
149 }
150 }
151 else if (strcmp ("-b", argv[i]) == 0)
152 {
153 i++;
154 if (i < argc)
155 iindent = argv[i];
156 }
157 else if (strcmp ("-r", argv[i]) == 0)
158 {
159 i++;
160 if (i < argc)
161 root = g_type_from_name (argv[i]);
162 }
163 else if (strcmp ("-n", argv[i]) == 0)
164 {
165 recursion = FALSE;
166 }
167 else if (strcmp ("froots", argv[i]) == 0)
168 {
169 gen_froots = 1;
170 }
171 else if (strcmp ("tree", argv[i]) == 0)
172 {
173 gen_tree = 1;
174 }
175 else if (strcmp ("--version", argv[i]) == 0)
176 {
177 g_print (PACKAGE_VERSION "\n");
178 return 0;
179 }
180 else if (strcmp ("-h", argv[i]) == 0 ||
181 strcmp ("--help", argv[i]) == 0)
182 {
183 return help (NULL);
184 }
185 else
186 return help (argv[i]);
187 }
188
189 if (!gen_froots && !gen_tree)
190 return help ((argc > 0) ? argv[i-1] : NULL);
191
192 if (!indent_inc)
193 {
194 indent_inc = g_new (gchar, strlen (O_SPACE) + 1);
195 *indent_inc = 0;
196 strcpy (indent_inc, O_SPACE);
197 }
198
199 if (gen_tree)
200 show_nodes (root, 0, iindent);
201 if (gen_froots)
202 {
203 root = ~0;
204 for (i = 0; i <= G_TYPE_FUNDAMENTAL_MAX; i += G_TYPE_MAKE_FUNDAMENTAL (1))
205 {
206 const gchar *name = g_type_name (i);
207 GType sibling = i + G_TYPE_MAKE_FUNDAMENTAL (1);
208
209 if (sibling > G_TYPE_FUNDAMENTAL_MAX || g_type_name (sibling) == NULL)
210 sibling = 0;
211
212 if (name)
213 show_nodes (i, sibling, iindent);
214 }
215 }
216
217 return 0;
218 }