1 /* GObject - GLib Type, Object, Parameter and Signal Library
2 * Copyright (C) 2001 Red Hat, Inc.
3 *
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.
8 *
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.
13 *
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.
18 */
19
20 #include <string.h>
21
22 #undef G_LOG_DOMAIN
23 #define G_LOG_DOMAIN "TestObject"
24 #include <glib-object.h>
25
26 /* --- TestIface --- */
27 #define TEST_TYPE_IFACE (test_iface_get_type ())
28 #define TEST_IFACE(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), TEST_TYPE_IFACE, TestIface))
29 #define TEST_IS_IFACE(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), TEST_TYPE_IFACE))
30 #define TEST_IFACE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_INTERFACE ((obj), TEST_TYPE_IFACE, TestIfaceClass))
31 typedef struct _TestIface TestIface;
32 typedef struct _TestIfaceClass TestIfaceClass;
33 struct _TestIfaceClass
34 {
35 GTypeInterface base_iface;
36 void (*print_string) (TestIface *tiobj,
37 const gchar *string);
38 };
39 static void iface_base_init (TestIfaceClass *iface);
40 static void iface_base_finalize (TestIfaceClass *iface);
41 static void print_foo (TestIface *tiobj,
42 const gchar *string);
43 static GType
test_iface_get_type(void)44 test_iface_get_type (void)
45 {
46 static GType test_iface_type = 0;
47
48 if (!test_iface_type)
49 {
50 static const GTypeInfo test_iface_info =
51 {
52 sizeof (TestIfaceClass),
53 (GBaseInitFunc) iface_base_init, /* base_init */
54 (GBaseFinalizeFunc) iface_base_finalize, /* base_finalize */
55 };
56
57 test_iface_type = g_type_register_static (G_TYPE_INTERFACE, "TestIface", &test_iface_info, 0);
58 g_type_interface_add_prerequisite (test_iface_type, G_TYPE_OBJECT);
59 }
60
61 return test_iface_type;
62 }
63 static guint iface_base_init_count = 0;
64 static void
iface_base_init(TestIfaceClass * iface)65 iface_base_init (TestIfaceClass *iface)
66 {
67 iface_base_init_count++;
68 if (iface_base_init_count == 1)
69 {
70 /* add signals here */
71 }
72 }
73 static void
iface_base_finalize(TestIfaceClass * iface)74 iface_base_finalize (TestIfaceClass *iface)
75 {
76 iface_base_init_count--;
77 if (iface_base_init_count == 0)
78 {
79 /* destroy signals here */
80 }
81 }
82 static void
print_foo(TestIface * tiobj,const gchar * string)83 print_foo (TestIface *tiobj,
84 const gchar *string)
85 {
86 if (!string)
87 string = "<NULL>";
88 g_print ("Iface-FOO: \"%s\" from %p\n", string, tiobj);
89 }
90 static void
test_object_test_iface_init(gpointer giface,gpointer iface_data)91 test_object_test_iface_init (gpointer giface,
92 gpointer iface_data)
93 {
94 TestIfaceClass *iface = giface;
95
96 g_assert (iface_data == GUINT_TO_POINTER (42));
97
98 g_assert (G_TYPE_FROM_INTERFACE (iface) == TEST_TYPE_IFACE);
99
100 /* assert iface_base_init() was already called */
101 g_assert (iface_base_init_count > 0);
102
103 /* initialize stuff */
104 iface->print_string = print_foo;
105 }
106 static void
iface_print_string(TestIface * tiobj,const gchar * string)107 iface_print_string (TestIface *tiobj,
108 const gchar *string)
109 {
110 TestIfaceClass *iface;
111
112 g_return_if_fail (TEST_IS_IFACE (tiobj));
113 g_return_if_fail (G_IS_OBJECT (tiobj)); /* ensured through prerequisite */
114
115 iface = TEST_IFACE_GET_CLASS (tiobj);
116 g_object_ref (tiobj);
117 iface->print_string (tiobj, string);
118 g_object_unref (tiobj);
119 }
120
121
122 /* --- TestObject --- */
123 #define TEST_TYPE_OBJECT (test_object_get_type ())
124 #define TEST_OBJECT(object) (G_TYPE_CHECK_INSTANCE_CAST ((object), TEST_TYPE_OBJECT, TestObject))
125 #define TEST_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), TEST_TYPE_OBJECT, TestObjectClass))
126 #define TEST_IS_OBJECT(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), TEST_TYPE_OBJECT))
127 #define TEST_IS_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), TEST_TYPE_OBJECT))
128 #define TEST_OBJECT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), TEST_TYPE_OBJECT, TestObjectClass))
129 #define TEST_OBJECT_GET_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), TEST_TYPE_OBJECT, TestObjectPrivate))
130 typedef struct _TestObject TestObject;
131 typedef struct _TestObjectClass TestObjectClass;
132 typedef struct _TestObjectPrivate TestObjectPrivate;
133 struct _TestObject
134 {
135 GObject parent_instance;
136 };
137 struct _TestObjectClass
138 {
139 GObjectClass parent_class;
140
141 gchar* (*test_signal) (TestObject *tobject,
142 TestIface *iface_object,
143 gpointer tdata);
144 };
145 struct _TestObjectPrivate
146 {
147 int dummy1;
148 gdouble dummy2;
149 };
150 static void test_object_class_init (TestObjectClass *class);
151 static void test_object_init (TestObject *tobject);
152 static gboolean test_signal_accumulator (GSignalInvocationHint *ihint,
153 GValue *return_accu,
154 const GValue *handler_return,
155 gpointer data);
156 static gchar* test_object_test_signal (TestObject *tobject,
157 TestIface *iface_object,
158 gpointer tdata);
159 static GType
test_object_get_type(void)160 test_object_get_type (void)
161 {
162 static GType test_object_type = 0;
163
164 if (!test_object_type)
165 {
166 static const GTypeInfo test_object_info =
167 {
168 sizeof (TestObjectClass),
169 NULL, /* base_init */
170 NULL, /* base_finalize */
171 (GClassInitFunc) test_object_class_init,
172 NULL, /* class_finalize */
173 NULL, /* class_data */
174 sizeof (TestObject),
175 5, /* n_preallocs */
176 (GInstanceInitFunc) test_object_init,
177 };
178 GInterfaceInfo iface_info = { test_object_test_iface_init, NULL, GUINT_TO_POINTER (42) };
179
180 test_object_type = g_type_register_static (G_TYPE_OBJECT, "TestObject", &test_object_info, 0);
181 g_type_add_interface_static (test_object_type, TEST_TYPE_IFACE, &iface_info);
182 }
183
184 return test_object_type;
185 }
186 static void
test_object_class_init(TestObjectClass * class)187 test_object_class_init (TestObjectClass *class)
188 {
189 /* GObjectClass *gobject_class = G_OBJECT_CLASS (class); */
190
191 class->test_signal = test_object_test_signal;
192
193 g_signal_new ("test-signal",
194 G_OBJECT_CLASS_TYPE (class),
195 G_SIGNAL_RUN_FIRST | G_SIGNAL_RUN_LAST | G_SIGNAL_RUN_CLEANUP,
196 G_STRUCT_OFFSET (TestObjectClass, test_signal),
197 test_signal_accumulator, NULL,
198 g_cclosure_marshal_STRING__OBJECT_POINTER,
199 G_TYPE_STRING, 2, TEST_TYPE_IFACE, G_TYPE_POINTER);
200
201 g_type_class_add_private (class, sizeof (TestObjectPrivate));
202 }
203 static void
test_object_init(TestObject * tobject)204 test_object_init (TestObject *tobject)
205 {
206 TestObjectPrivate *priv;
207
208 priv = TEST_OBJECT_GET_PRIVATE (tobject);
209
210 g_assert (priv);
211 g_assert ((gchar *)priv >= (gchar *)tobject + sizeof (TestObject));
212
213 priv->dummy1 = 54321;
214 }
215 /* Check to see if private data initialization in the
216 * instance init function works.
217 */
218 static void
test_object_check_private_init(TestObject * tobject)219 test_object_check_private_init (TestObject *tobject)
220 {
221 TestObjectPrivate *priv;
222
223 priv = TEST_OBJECT_GET_PRIVATE (tobject);
224
225 g_print ("private data during initialization: %u == %u\n", priv->dummy1, 54321);
226 g_assert (priv->dummy1 == 54321);
227 }
228 static gboolean
test_signal_accumulator(GSignalInvocationHint * ihint,GValue * return_accu,const GValue * handler_return,gpointer data)229 test_signal_accumulator (GSignalInvocationHint *ihint,
230 GValue *return_accu,
231 const GValue *handler_return,
232 gpointer data)
233 {
234 gchar *accu_string = g_value_get_string (return_accu);
235 gchar *new_string = g_value_get_string (handler_return);
236 gchar *result_string;
237
238 if (accu_string)
239 result_string = g_strconcat (accu_string, new_string, NULL);
240 else if (new_string)
241 result_string = g_strdup (new_string);
242 else
243 result_string = NULL;
244
245 g_value_take_string (return_accu, result_string);
246
247 return TRUE;
248 }
249 static gchar*
test_object_test_signal(TestObject * tobject,TestIface * iface_object,gpointer tdata)250 test_object_test_signal (TestObject *tobject,
251 TestIface *iface_object,
252 gpointer tdata)
253 {
254 g_message ("::test_signal default_handler called");
255
256 g_return_val_if_fail (TEST_IS_IFACE (iface_object), NULL);
257
258 return g_strdup ("<default_handler>");
259 }
260
261
262 /* --- TestIface for DerivedObject --- */
263 static void
print_bar(TestIface * tiobj,const gchar * string)264 print_bar (TestIface *tiobj,
265 const gchar *string)
266 {
267 TestIfaceClass *parent_iface;
268
269 g_return_if_fail (TEST_IS_IFACE (tiobj));
270
271 if (!string)
272 string = "<NULL>";
273 g_print ("Iface-BAR: \"%s\" from %p\n", string, tiobj);
274
275 g_print ("chaining: ");
276 parent_iface = g_type_interface_peek_parent (TEST_IFACE_GET_CLASS (tiobj));
277 parent_iface->print_string (tiobj, string);
278
279 g_assert (g_type_interface_peek_parent (parent_iface) == NULL);
280 }
281
282 static void
derived_object_test_iface_init(gpointer giface,gpointer iface_data)283 derived_object_test_iface_init (gpointer giface,
284 gpointer iface_data)
285 {
286 TestIfaceClass *iface = giface;
287
288 g_assert (iface_data == GUINT_TO_POINTER (87));
289
290 g_assert (G_TYPE_FROM_INTERFACE (iface) == TEST_TYPE_IFACE);
291
292 /* assert test_object_test_iface_init() was already called */
293 g_assert (iface->print_string == print_foo);
294
295 /* override stuff */
296 iface->print_string = print_bar;
297 }
298
299
300 /* --- DerivedObject --- */
301 #define DERIVED_TYPE_OBJECT (derived_object_get_type ())
302 #define DERIVED_OBJECT(object) (G_TYPE_CHECK_INSTANCE_CAST ((object), DERIVED_TYPE_OBJECT, DerivedObject))
303 #define DERIVED_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), DERIVED_TYPE_OBJECT, DerivedObjectClass))
304 #define DERIVED_IS_OBJECT(object) (G_TYPE_CHECK_INSTANCE_TYPE ((object), DERIVED_TYPE_OBJECT))
305 #define DERIVED_IS_OBJECT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), DERIVED_TYPE_OBJECT))
306 #define DERIVED_OBJECT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), DERIVED_TYPE_OBJECT, DerivedObjectClass))
307 #define DERIVED_OBJECT_GET_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), DERIVED_TYPE_OBJECT, DerivedObjectPrivate))
308 typedef struct _DerivedObject DerivedObject;
309 typedef struct _TestObjectClass DerivedObjectClass;
310 typedef struct _DerivedObjectPrivate DerivedObjectPrivate;
311 struct _DerivedObject
312 {
313 TestObject parent_instance;
314 int dummy1;
315 int dummy2;
316 };
317 struct _DerivedObjectPrivate
318 {
319 char dummy;
320 };
321 static void derived_object_class_init (DerivedObjectClass *class);
322 static void derived_object_init (DerivedObject *dobject);
323 GType
derived_object_get_type(void)324 derived_object_get_type (void)
325 {
326 static GType derived_object_type = 0;
327
328 if (!derived_object_type)
329 {
330 static const GTypeInfo derived_object_info =
331 {
332 sizeof (DerivedObjectClass),
333 NULL, /* base_init */
334 NULL, /* base_finalize */
335 (GClassInitFunc) derived_object_class_init,
336 NULL, /* class_finalize */
337 NULL, /* class_data */
338 sizeof (DerivedObject),
339 5, /* n_preallocs */
340 (GInstanceInitFunc) derived_object_init,
341 };
342 GInterfaceInfo iface_info = { derived_object_test_iface_init, NULL, GUINT_TO_POINTER (87) };
343
344 derived_object_type = g_type_register_static (TEST_TYPE_OBJECT, "DerivedObject", &derived_object_info, 0);
345 g_type_add_interface_static (derived_object_type, TEST_TYPE_IFACE, &iface_info);
346 }
347
348 return derived_object_type;
349 }
350 static void
derived_object_class_init(DerivedObjectClass * class)351 derived_object_class_init (DerivedObjectClass *class)
352 {
353 g_type_class_add_private (class, sizeof (DerivedObjectPrivate));
354 }
355 static void
derived_object_init(DerivedObject * dobject)356 derived_object_init (DerivedObject *dobject)
357 {
358 TestObjectPrivate *test_priv;
359 DerivedObjectPrivate *derived_priv;
360
361 derived_priv = DERIVED_OBJECT_GET_PRIVATE (dobject);
362
363 g_assert (derived_priv);
364 g_assert ((gchar *)derived_priv >= (gchar *)TEST_OBJECT_GET_PRIVATE (dobject) + sizeof (TestObjectPrivate));
365
366 test_priv = TEST_OBJECT_GET_PRIVATE (dobject);
367
368 g_assert (test_priv);
369 g_assert ((gchar *)test_priv >= (gchar *)dobject + sizeof (TestObject));
370
371 }
372
373 /* --- main --- */
374 int
main(int argc,char * argv[])375 main (int argc,
376 char *argv[])
377 {
378 GTypeInfo info = { 0, };
379 GTypeFundamentalInfo finfo = { 0, };
380 GType type;
381 TestObject *sigarg;
382 DerivedObject *dobject;
383 TestObjectPrivate *priv;
384 gchar *string = NULL;
385
386 g_log_set_always_fatal (g_log_set_always_fatal (G_LOG_FATAL_MASK) |
387 G_LOG_LEVEL_WARNING |
388 G_LOG_LEVEL_CRITICAL);
389 g_type_init_with_debug_flags (G_TYPE_DEBUG_OBJECTS | G_TYPE_DEBUG_SIGNALS);
390
391 /* test new fundamentals */
392 g_assert (G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST) == g_type_fundamental_next ());
393 type = g_type_register_fundamental (g_type_fundamental_next (), "FooShadow1", &info, &finfo, 0);
394 g_assert (G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST + 1) == g_type_fundamental_next ());
395 type = g_type_register_fundamental (g_type_fundamental_next (), "FooShadow2", &info, &finfo, 0);
396 g_assert (G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST + 2) == g_type_fundamental_next ());
397 g_assert (g_type_from_name ("FooShadow1") == G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST));
398 g_assert (g_type_from_name ("FooShadow2") == G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_USER_FIRST + 1));
399
400 /* to test past class initialization interface setups, create the class here */
401 g_type_class_ref (TEST_TYPE_OBJECT);
402
403 dobject = g_object_new (DERIVED_TYPE_OBJECT, NULL);
404 test_object_check_private_init (TEST_OBJECT (dobject));
405
406 sigarg = g_object_new (TEST_TYPE_OBJECT, NULL);
407
408 g_print ("MAIN: emit test-signal:\n");
409 g_signal_emit_by_name (dobject, "test-signal", sigarg, NULL, &string);
410 g_message ("signal return: \"%s\"", string);
411 g_assert (strcmp (string, "<default_handler><default_handler>") == 0);
412 g_free (string);
413
414 g_print ("MAIN: call iface print-string on test and derived object:\n");
415 iface_print_string (TEST_IFACE (sigarg), "iface-string-from-test-type");
416 iface_print_string (TEST_IFACE (dobject), "iface-string-from-derived-type");
417
418 priv = TEST_OBJECT_GET_PRIVATE (dobject);
419 g_print ("private data after initialization: %u == %u\n", priv->dummy1, 54321);
420 g_assert (priv->dummy1 == 54321);
421
422 g_object_unref (sigarg);
423 g_object_unref (dobject);
424
425 g_message ("%s done", argv[0]);
426
427 return 0;
428 }
429