?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
documentation additions
[glib.git] / gobject / gobject.c
blob8cfb81272216df1b9c5b6db73042c9a12e091a65
1 /* GObject - GLib Type, Object, Parameter and Signal Library
2 * Copyright (C) 1998-1999, 2000-2001 Tim Janik and 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 #include "gobject.h"
20 #include "gobjectalias.h"
21 #include <glib/gdatasetprivate.h>
22
23 /*
24 * MT safe with regards to reference counting.
25 */
26
27 #include "gvaluecollector.h"
28 #include "gsignal.h"
29 #include "gparamspecs.h"
30 #include "gvaluetypes.h"
31 #include "gobjectnotifyqueue.c"
32 #include <string.h>
33 #include <signal.h>
34
35
36 #define PREALLOC_CPARAMS (8)
37
38
39 /* --- macros --- */
40 #define PARAM_SPEC_PARAM_ID(pspec) ((pspec)->param_id)
41 #define PARAM_SPEC_SET_PARAM_ID(pspec, id) ((pspec)->param_id = (id))
42
43 #define OBJECT_HAS_TOGGLE_REF_FLAG 0x1
44 #define OBJECT_HAS_TOGGLE_REF(object) \
45 ((G_DATALIST_GET_FLAGS (&(object)->qdata) & OBJECT_HAS_TOGGLE_REF_FLAG) != 0)
46 #define OBJECT_FLOATING_FLAG 0x2
47
48
49 /* --- signals --- */
50 enum {
51 NOTIFY,
52 LAST_SIGNAL
53 };
54
55
56 /* --- properties --- */
57 enum {
58 PROP_NONE
59 };
60
61
62 /* --- prototypes --- */
63 static void g_object_base_class_init (GObjectClass *class);
64 static void g_object_base_class_finalize (GObjectClass *class);
65 static void g_object_do_class_init (GObjectClass *class);
66 static void g_object_init (GObject *object);
67 static GObject* g_object_constructor (GType type,
68 guint n_construct_properties,
69 GObjectConstructParam *construct_params);
70 static void g_object_real_dispose (GObject *object);
71 static void g_object_finalize (GObject *object);
72 static void g_object_do_set_property (GObject *object,
73 guint property_id,
74 const GValue *value,
75 GParamSpec *pspec);
76 static void g_object_do_get_property (GObject *object,
77 guint property_id,
78 GValue *value,
79 GParamSpec *pspec);
80 static void g_value_object_init (GValue *value);
81 static void g_value_object_free_value (GValue *value);
82 static void g_value_object_copy_value (const GValue *src_value,
83 GValue *dest_value);
84 static void g_value_object_transform_value (const GValue *src_value,
85 GValue *dest_value);
86 static gpointer g_value_object_peek_pointer (const GValue *value);
87 static gchar* g_value_object_collect_value (GValue *value,
88 guint n_collect_values,
89 GTypeCValue *collect_values,
90 guint collect_flags);
91 static gchar* g_value_object_lcopy_value (const GValue *value,
92 guint n_collect_values,
93 GTypeCValue *collect_values,
94 guint collect_flags);
95 static void g_object_dispatch_properties_changed (GObject *object,
96 guint n_pspecs,
97 GParamSpec **pspecs);
98 static inline void object_get_property (GObject *object,
99 GParamSpec *pspec,
100 GValue *value);
101 static inline void object_set_property (GObject *object,
102 GParamSpec *pspec,
103 const GValue *value,
104 GObjectNotifyQueue *nqueue);
105 static guint object_floating_flag_handler (GObject *object,
106 gint job);
107
108 static void object_interface_check_properties (gpointer func_data,
109 gpointer g_iface);
110
111
112 /* --- variables --- */
113 static GQuark quark_closure_array = 0;
114 static GQuark quark_weak_refs = 0;
115 static GQuark quark_toggle_refs = 0;
116 static GParamSpecPool *pspec_pool = NULL;
117 static GObjectNotifyContext property_notify_context = { 0, };
118 static gulong gobject_signals[LAST_SIGNAL] = { 0, };
119 G_LOCK_DEFINE_STATIC (construct_objects_lock);
120 static GSList *construct_objects = NULL;
121 static guint (*floating_flag_handler) (GObject*, gint) = object_floating_flag_handler;
122
123 /* --- functions --- */
124 #ifdef G_ENABLE_DEBUG
125 #define IF_DEBUG(debug_type) if (_g_type_debug_flags & G_TYPE_DEBUG_ ## debug_type)
126 G_LOCK_DEFINE_STATIC (debug_objects);
127 static volatile GObject *g_trap_object_ref = NULL;
128 static guint debug_objects_count = 0;
129 static GHashTable *debug_objects_ht = NULL;
130 static void
131 debug_objects_foreach (gpointer key,
132 gpointer value,
133 gpointer user_data)
134 {
135 GObject *object = value;
136
137 g_message ("[%p] stale %s\tref_count=%u",
138 object,
139 G_OBJECT_TYPE_NAME (object),
140 object->ref_count);
141 }
142 static void
143 debug_objects_atexit (void)
144 {
145 IF_DEBUG (OBJECTS)
146 {
147 G_LOCK (debug_objects);
148 g_message ("stale GObjects: %u", debug_objects_count);
149 g_hash_table_foreach (debug_objects_ht, debug_objects_foreach, NULL);
150 G_UNLOCK (debug_objects);
151 }
152 }
153 #endif /* G_ENABLE_DEBUG */
154
155 void
156 g_object_type_init (void)
157 {
158 static gboolean initialized = FALSE;
159 static const GTypeFundamentalInfo finfo = {
160 G_TYPE_FLAG_CLASSED | G_TYPE_FLAG_INSTANTIATABLE | G_TYPE_FLAG_DERIVABLE | G_TYPE_FLAG_DEEP_DERIVABLE,
161 };
162 static GTypeInfo info = {
163 sizeof (GObjectClass),
164 (GBaseInitFunc) g_object_base_class_init,
165 (GBaseFinalizeFunc) g_object_base_class_finalize,
166 (GClassInitFunc) g_object_do_class_init,
167 NULL /* class_destroy */,
168 NULL /* class_data */,
169 sizeof (GObject),
170 0 /* n_preallocs */,
171 (GInstanceInitFunc) g_object_init,
172 NULL, /* value_table */
173 };
174 static const GTypeValueTable value_table = {
175 g_value_object_init, /* value_init */
176 g_value_object_free_value, /* value_free */
177 g_value_object_copy_value, /* value_copy */
178 g_value_object_peek_pointer, /* value_peek_pointer */
179 "p", /* collect_format */
180 g_value_object_collect_value, /* collect_value */
181 "p", /* lcopy_format */
182 g_value_object_lcopy_value, /* lcopy_value */
183 };
184 GType type;
185
186 g_return_if_fail (initialized == FALSE);
187 initialized = TRUE;
188
189 /* G_TYPE_OBJECT
190 */
191 info.value_table = &value_table;
192 type = g_type_register_fundamental (G_TYPE_OBJECT, g_intern_static_string ("GObject"), &info, &finfo, 0);
193 g_assert (type == G_TYPE_OBJECT);
194 g_value_register_transform_func (G_TYPE_OBJECT, G_TYPE_OBJECT, g_value_object_transform_value);
195
196 #ifdef G_ENABLE_DEBUG
197 IF_DEBUG (OBJECTS)
198 {
199 debug_objects_ht = g_hash_table_new (g_direct_hash, NULL);
200 g_atexit (debug_objects_atexit);
201 }
202 #endif /* G_ENABLE_DEBUG */
203 }
204
205 static void
206 g_object_base_class_init (GObjectClass *class)
207 {
208 GObjectClass *pclass = g_type_class_peek_parent (class);
209
210 /* reset instance specific fields and methods that don't get inherited */
211 class->construct_properties = pclass ? g_slist_copy (pclass->construct_properties) : NULL;
212 class->get_property = NULL;
213 class->set_property = NULL;
214 }
215
216 static void
217 g_object_base_class_finalize (GObjectClass *class)
218 {
219 GList *list, *node;
220
221 _g_signals_destroy (G_OBJECT_CLASS_TYPE (class));
222
223 g_slist_free (class->construct_properties);
224 class->construct_properties = NULL;
225 list = g_param_spec_pool_list_owned (pspec_pool, G_OBJECT_CLASS_TYPE (class));
226 for (node = list; node; node = node->next)
227 {
228 GParamSpec *pspec = node->data;
229
230 g_param_spec_pool_remove (pspec_pool, pspec);
231 PARAM_SPEC_SET_PARAM_ID (pspec, 0);
232 g_param_spec_unref (pspec);
233 }
234 g_list_free (list);
235 }
236
237 static void
238 g_object_notify_dispatcher (GObject *object,
239 guint n_pspecs,
240 GParamSpec **pspecs)
241 {
242 G_OBJECT_GET_CLASS (object)->dispatch_properties_changed (object, n_pspecs, pspecs);
243 }
244
245 static void
246 g_object_do_class_init (GObjectClass *class)
247 {
248 /* read the comment about typedef struct CArray; on why not to change this quark */
249 quark_closure_array = g_quark_from_static_string ("GObject-closure-array");
250
251 quark_weak_refs = g_quark_from_static_string ("GObject-weak-references");
252 quark_toggle_refs = g_quark_from_static_string ("GObject-toggle-references");
253 pspec_pool = g_param_spec_pool_new (TRUE);
254 property_notify_context.quark_notify_queue = g_quark_from_static_string ("GObject-notify-queue");
255 property_notify_context.dispatcher = g_object_notify_dispatcher;
256
257 class->constructor = g_object_constructor;
258 class->set_property = g_object_do_set_property;
259 class->get_property = g_object_do_get_property;
260 class->dispose = g_object_real_dispose;
261 class->finalize = g_object_finalize;
262 class->dispatch_properties_changed = g_object_dispatch_properties_changed;
263 class->notify = NULL;
264
265 gobject_signals[NOTIFY] =
266 g_signal_new (g_intern_static_string ("notify"),
267 G_TYPE_FROM_CLASS (class),
268 G_SIGNAL_RUN_FIRST | G_SIGNAL_NO_RECURSE | G_SIGNAL_DETAILED | G_SIGNAL_NO_HOOKS | G_SIGNAL_ACTION,
269 G_STRUCT_OFFSET (GObjectClass, notify),
270 NULL, NULL,
271 g_cclosure_marshal_VOID__PARAM,
272 G_TYPE_NONE,
273 1, G_TYPE_PARAM);
274
275 /* Install a check function that we'll use to verify that classes that
276 * implement an interface implement all properties for that interface
277 */
278 g_type_add_interface_check (NULL, object_interface_check_properties);
279 }
280
281 static void
282 install_property_internal (GType g_type,
283 guint property_id,
284 GParamSpec *pspec)
285 {
286 if (g_param_spec_pool_lookup (pspec_pool, pspec->name, g_type, FALSE))
287 {
288 g_warning ("When installing property: type `%s' already has a property named `%s'",
289 g_type_name (g_type),
290 pspec->name);
291 return;
292 }
293
294 g_param_spec_ref (pspec);
295 g_param_spec_sink (pspec);
296 PARAM_SPEC_SET_PARAM_ID (pspec, property_id);
297 g_param_spec_pool_insert (pspec_pool, pspec, g_type);
298 }
299
300 void
301 g_object_class_install_property (GObjectClass *class,
302 guint property_id,
303 GParamSpec *pspec)
304 {
305 g_return_if_fail (G_IS_OBJECT_CLASS (class));
306 g_return_if_fail (G_IS_PARAM_SPEC (pspec));
307 if (pspec->flags & G_PARAM_WRITABLE)
308 g_return_if_fail (class->set_property != NULL);
309 if (pspec->flags & G_PARAM_READABLE)
310 g_return_if_fail (class->get_property != NULL);
311 g_return_if_fail (property_id > 0);
312 g_return_if_fail (PARAM_SPEC_PARAM_ID (pspec) == 0); /* paranoid */
313 if (pspec->flags & G_PARAM_CONSTRUCT)
314 g_return_if_fail ((pspec->flags & G_PARAM_CONSTRUCT_ONLY) == 0);
315 if (pspec->flags & (G_PARAM_CONSTRUCT | G_PARAM_CONSTRUCT_ONLY))
316 g_return_if_fail (pspec->flags & G_PARAM_WRITABLE);
317
318 install_property_internal (G_OBJECT_CLASS_TYPE (class), property_id, pspec);
319
320 if (pspec->flags & (G_PARAM_CONSTRUCT | G_PARAM_CONSTRUCT_ONLY))
321 class->construct_properties = g_slist_prepend (class->construct_properties, pspec);
322
323 /* for property overrides of construct poperties, we have to get rid
324 * of the overidden inherited construct property
325 */
326 pspec = g_param_spec_pool_lookup (pspec_pool, pspec->name, g_type_parent (G_OBJECT_CLASS_TYPE (class)), TRUE);
327 if (pspec && pspec->flags & (G_PARAM_CONSTRUCT | G_PARAM_CONSTRUCT_ONLY))
328 class->construct_properties = g_slist_remove (class->construct_properties, pspec);
329 }
330
331 void
332 g_object_interface_install_property (gpointer g_iface,
333 GParamSpec *pspec)
334 {
335 GTypeInterface *iface_class = g_iface;
336
337 g_return_if_fail (G_TYPE_IS_INTERFACE (iface_class->g_type));
338 g_return_if_fail (G_IS_PARAM_SPEC (pspec));
339 g_return_if_fail (!G_IS_PARAM_SPEC_OVERRIDE (pspec)); /* paranoid */
340 g_return_if_fail (PARAM_SPEC_PARAM_ID (pspec) == 0); /* paranoid */
341
342 install_property_internal (iface_class->g_type, 0, pspec);
343 }
344
345 GParamSpec*
346 g_object_class_find_property (GObjectClass *class,
347 const gchar *property_name)
348 {
349 GParamSpec *pspec;
350 GParamSpec *redirect;
351
352 g_return_val_if_fail (G_IS_OBJECT_CLASS (class), NULL);
353 g_return_val_if_fail (property_name != NULL, NULL);
354
355 pspec = g_param_spec_pool_lookup (pspec_pool,
356 property_name,
357 G_OBJECT_CLASS_TYPE (class),
358 TRUE);
359 if (pspec)
360 {
361 redirect = g_param_spec_get_redirect_target (pspec);
362 if (redirect)
363 return redirect;
364 else
365 return pspec;
366 }
367 else
368 return NULL;
369 }
370
371 GParamSpec*
372 g_object_interface_find_property (gpointer g_iface,
373 const gchar *property_name)
374 {
375 GTypeInterface *iface_class = g_iface;
376
377 g_return_val_if_fail (G_TYPE_IS_INTERFACE (iface_class->g_type), NULL);
378 g_return_val_if_fail (property_name != NULL, NULL);
379
380 return g_param_spec_pool_lookup (pspec_pool,
381 property_name,
382 iface_class->g_type,
383 FALSE);
384 }
385
386 void
387 g_object_class_override_property (GObjectClass *oclass,
388 guint property_id,
389 const gchar *name)
390 {
391 GParamSpec *overridden = NULL;
392 GParamSpec *new;
393 GType parent_type;
394
395 g_return_if_fail (G_IS_OBJECT_CLASS (oclass));
396 g_return_if_fail (property_id > 0);
397 g_return_if_fail (name != NULL);
398
399 /* Find the overridden property; first check parent types
400 */
401 parent_type = g_type_parent (G_OBJECT_CLASS_TYPE (oclass));
402 if (parent_type != G_TYPE_NONE)
403 overridden = g_param_spec_pool_lookup (pspec_pool,
404 name,
405 parent_type,
406 TRUE);
407 if (!overridden)
408 {
409 GType *ifaces;
410 guint n_ifaces;
411
412 /* Now check interfaces
413 */
414 ifaces = g_type_interfaces (G_OBJECT_CLASS_TYPE (oclass), &n_ifaces);
415 while (n_ifaces-- && !overridden)
416 {
417 overridden = g_param_spec_pool_lookup (pspec_pool,
418 name,
419 ifaces[n_ifaces],
420 FALSE);
421 }
422
423 g_free (ifaces);
424 }
425
426 if (!overridden)
427 {
428 g_warning ("%s: Can't find property to override for '%s::%s'",
429 G_STRFUNC, G_OBJECT_CLASS_NAME (oclass), name);
430 return;
431 }
432
433 new = g_param_spec_override (name, overridden);
434 g_object_class_install_property (oclass, property_id, new);
435 }
436
437 GParamSpec** /* free result */
438 g_object_class_list_properties (GObjectClass *class,
439 guint *n_properties_p)
440 {
441 GParamSpec **pspecs;
442 guint n;
443
444 g_return_val_if_fail (G_IS_OBJECT_CLASS (class), NULL);
445
446 pspecs = g_param_spec_pool_list (pspec_pool,
447 G_OBJECT_CLASS_TYPE (class),
448 &n);
449 if (n_properties_p)
450 *n_properties_p = n;
451
452 return pspecs;
453 }
454
455 GParamSpec** /* free result */
456 g_object_interface_list_properties (gpointer g_iface,
457 guint *n_properties_p)
458 {
459 GTypeInterface *iface_class = g_iface;
460 GParamSpec **pspecs;
461 guint n;
462
463 g_return_val_if_fail (G_TYPE_IS_INTERFACE (iface_class->g_type), NULL);
464
465 pspecs = g_param_spec_pool_list (pspec_pool,
466 iface_class->g_type,
467 &n);
468 if (n_properties_p)
469 *n_properties_p = n;
470
471 return pspecs;
472 }
473
474 static void
475 g_object_init (GObject *object)
476 {
477 object->ref_count = 1;
478 g_datalist_init (&object->qdata);
479
480 /* freeze object's notification queue, g_object_newv() preserves pairedness */
481 g_object_notify_queue_freeze (object, &property_notify_context);
482
483 /* allow construct-only properties to be set */
484 G_LOCK (construct_objects_lock);
485 construct_objects = g_slist_prepend (construct_objects, object);
486 G_UNLOCK (construct_objects_lock);
487
488 #ifdef G_ENABLE_DEBUG
489 IF_DEBUG (OBJECTS)
490 {
491 G_LOCK (debug_objects);
492 debug_objects_count++;
493 g_hash_table_insert (debug_objects_ht, object, object);
494 G_UNLOCK (debug_objects);
495 }
496 #endif /* G_ENABLE_DEBUG */
497 }
498
499 static void
500 g_object_do_set_property (GObject *object,
501 guint property_id,
502 const GValue *value,
503 GParamSpec *pspec)
504 {
505 switch (property_id)
506 {
507 default:
508 G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
509 break;
510 }
511 }
512
513 static void
514 g_object_do_get_property (GObject *object,
515 guint property_id,
516 GValue *value,
517 GParamSpec *pspec)
518 {
519 switch (property_id)
520 {
521 default:
522 G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
523 break;
524 }
525 }
526
527 static void
528 g_object_real_dispose (GObject *object)
529 {
530 g_signal_handlers_destroy (object);
531 g_datalist_id_set_data (&object->qdata, quark_closure_array, NULL);
532 g_datalist_id_set_data (&object->qdata, quark_weak_refs, NULL);
533 }
534
535 static void
536 g_object_finalize (GObject *object)
537 {
538 g_datalist_clear (&object->qdata);
539
540 #ifdef G_ENABLE_DEBUG
541 IF_DEBUG (OBJECTS)
542 {
543 G_LOCK (debug_objects);
544 g_assert (g_hash_table_lookup (debug_objects_ht, object) == object);
545 g_hash_table_remove (debug_objects_ht, object);
546 debug_objects_count--;
547 G_UNLOCK (debug_objects);
548 }
549 #endif /* G_ENABLE_DEBUG */
550 }
551
552
553 static void
554 g_object_dispatch_properties_changed (GObject *object,
555 guint n_pspecs,
556 GParamSpec **pspecs)
557 {
558 guint i;
559
560 for (i = 0; i < n_pspecs; i++)
561 g_signal_emit (object, gobject_signals[NOTIFY], g_quark_from_string (pspecs[i]->name), pspecs[i]);
562 }
563
564 void
565 g_object_run_dispose (GObject *object)
566 {
567 g_return_if_fail (G_IS_OBJECT (object));
568 g_return_if_fail (object->ref_count > 0);
569
570 g_object_ref (object);
571 G_OBJECT_GET_CLASS (object)->dispose (object);
572 g_object_unref (object);
573 }
574
575 void
576 g_object_freeze_notify (GObject *object)
577 {
578 g_return_if_fail (G_IS_OBJECT (object));
579
580 if (g_atomic_int_get (&object->ref_count) == 0)
581 return;
582
583 g_object_ref (object);
584 g_object_notify_queue_freeze (object, &property_notify_context);
585 g_object_unref (object);
586 }
587
588 void
589 g_object_notify (GObject *object,
590 const gchar *property_name)
591 {
592 GParamSpec *pspec;
593
594 g_return_if_fail (G_IS_OBJECT (object));
595 g_return_if_fail (property_name != NULL);
596 if (g_atomic_int_get (&object->ref_count) == 0)
597 return;
598
599 g_object_ref (object);
600 /* We don't need to get the redirect target
601 * (by, e.g. calling g_object_class_find_property())
602 * because g_object_notify_queue_add() does that
603 */
604 pspec = g_param_spec_pool_lookup (pspec_pool,
605 property_name,
606 G_OBJECT_TYPE (object),
607 TRUE);
608
609 if (!pspec)
610 g_warning ("%s: object class `%s' has no property named `%s'",
611 G_STRFUNC,
612 G_OBJECT_TYPE_NAME (object),
613 property_name);
614 else
615 {
616 GObjectNotifyQueue *nqueue;
617
618 nqueue = g_object_notify_queue_freeze (object, &property_notify_context);
619 g_object_notify_queue_add (object, nqueue, pspec);
620 g_object_notify_queue_thaw (object, nqueue);
621 }
622 g_object_unref (object);
623 }
624
625 void
626 g_object_thaw_notify (GObject *object)
627 {
628 GObjectNotifyQueue *nqueue;
629
630 g_return_if_fail (G_IS_OBJECT (object));
631 if (g_atomic_int_get (&object->ref_count) == 0)
632 return;
633
634 g_object_ref (object);
635 nqueue = g_object_notify_queue_from_object (object, &property_notify_context);
636 if (!nqueue || !nqueue->freeze_count)
637 g_warning ("%s: property-changed notification for %s(%p) is not frozen",
638 G_STRFUNC, G_OBJECT_TYPE_NAME (object), object);
639 else
640 g_object_notify_queue_thaw (object, nqueue);
641 g_object_unref (object);
642 }
643
644 static inline void
645 object_get_property (GObject *object,
646 GParamSpec *pspec,
647 GValue *value)
648 {
649 GObjectClass *class = g_type_class_peek (pspec->owner_type);
650 guint param_id = PARAM_SPEC_PARAM_ID (pspec);
651 GParamSpec *redirect;
652
653 redirect = g_param_spec_get_redirect_target (pspec);
654 if (redirect)
655 pspec = redirect;
656
657 class->get_property (object, param_id, value, pspec);
658 }
659
660 static inline void
661 object_set_property (GObject *object,
662 GParamSpec *pspec,
663 const GValue *value,
664 GObjectNotifyQueue *nqueue)
665 {
666 GValue tmp_value = { 0, };
667 GObjectClass *class = g_type_class_peek (pspec->owner_type);
668 guint param_id = PARAM_SPEC_PARAM_ID (pspec);
669 GParamSpec *redirect;
670
671 redirect = g_param_spec_get_redirect_target (pspec);
672 if (redirect)
673 pspec = redirect;
674
675 /* provide a copy to work from, convert (if necessary) and validate */
676 g_value_init (&tmp_value, G_PARAM_SPEC_VALUE_TYPE (pspec));
677 if (!g_value_transform (value, &tmp_value))
678 g_warning ("unable to set property `%s' of type `%s' from value of type `%s'",
679 pspec->name,
680 g_type_name (G_PARAM_SPEC_VALUE_TYPE (pspec)),
681 G_VALUE_TYPE_NAME (value));
682 else if (g_param_value_validate (pspec, &tmp_value) && !(pspec->flags & G_PARAM_LAX_VALIDATION))
683 {
684 gchar *contents = g_strdup_value_contents (value);
685
686 g_warning ("value \"%s\" of type `%s' is invalid or out of range for property `%s' of type `%s'",
687 contents,
688 G_VALUE_TYPE_NAME (value),
689 pspec->name,
690 g_type_name (G_PARAM_SPEC_VALUE_TYPE (pspec)));
691 g_free (contents);
692 }
693 else
694 {
695 class->set_property (object, param_id, &tmp_value, pspec);
696 g_object_notify_queue_add (object, nqueue, pspec);
697 }
698 g_value_unset (&tmp_value);
699 }
700
701 static void
702 object_interface_check_properties (gpointer func_data,
703 gpointer g_iface)
704 {
705 GTypeInterface *iface_class = g_iface;
706 GObjectClass *class = g_type_class_peek (iface_class->g_instance_type);
707 GType iface_type = iface_class->g_type;
708 GParamSpec **pspecs;
709 guint n;
710
711 if (!G_IS_OBJECT_CLASS (class))
712 return;
713
714 pspecs = g_param_spec_pool_list (pspec_pool, iface_type, &n);
715
716 while (n--)
717 {
718 GParamSpec *class_pspec = g_param_spec_pool_lookup (pspec_pool,
719 pspecs[n]->name,
720 G_OBJECT_CLASS_TYPE (class),
721 TRUE);
722
723 if (!class_pspec)
724 {
725 g_critical ("Object class %s doesn't implement property "
726 "'%s' from interface '%s'",
727 g_type_name (G_OBJECT_CLASS_TYPE (class)),
728 pspecs[n]->name,
729 g_type_name (iface_type));
730
731 continue;
732 }
733
734 /* The implementation paramspec must have a less restrictive
735 * type than the interface parameter spec for set() and a
736 * more restrictive type for get(). We just require equality,
737 * rather than doing something more complicated checking
738 * the READABLE and WRITABLE flags. We also simplify here
739 * by only checking the value type, not the G_PARAM_SPEC_TYPE.
740 */
741 if (class_pspec &&
742 !g_type_is_a (G_PARAM_SPEC_VALUE_TYPE (pspecs[n]),
743 G_PARAM_SPEC_VALUE_TYPE (class_pspec)))
744 {
745 g_critical ("Property '%s' on class '%s' has type '%s' "
746 "which is different from the type '%s', "
747 "of the property on interface '%s'\n",
748 pspecs[n]->name,
749 g_type_name (G_OBJECT_CLASS_TYPE (class)),
750 g_type_name (G_PARAM_SPEC_VALUE_TYPE (class_pspec)),
751 g_type_name (G_PARAM_SPEC_VALUE_TYPE (pspecs[n])),
752 g_type_name (iface_type));
753 }
754
755 #define SUBSET(a,b,mask) (((a) & ~(b) & (mask)) == 0)
756
757 /* CONSTRUCT and CONSTRUCT_ONLY add restrictions.
758 * READABLE and WRITABLE remove restrictions. The implementation
759 * paramspec must have less restrictive flags.
760 */
761 if (class_pspec &&
762 (!SUBSET (class_pspec->flags,
763 pspecs[n]->flags,
764 G_PARAM_CONSTRUCT | G_PARAM_CONSTRUCT_ONLY) ||
765 !SUBSET (pspecs[n]->flags,
766 class_pspec->flags,
767 G_PARAM_READABLE | G_PARAM_WRITABLE)))
768 {
769 g_critical ("Flags for property '%s' on class '%s' "
770 "are not compatible with the property on"
771 "interface '%s'\n",
772 pspecs[n]->name,
773 g_type_name (G_OBJECT_CLASS_TYPE (class)),
774 g_type_name (iface_type));
775 }
776 #undef SUBSET
777 }
778
779 g_free (pspecs);
780 }
781
782 gpointer
783 g_object_new (GType object_type,
784 const gchar *first_property_name,
785 ...)
786 {
787 GObject *object;
788 va_list var_args;
789
790 g_return_val_if_fail (G_TYPE_IS_OBJECT (object_type), NULL);
791
792 va_start (var_args, first_property_name);
793 object = g_object_new_valist (object_type, first_property_name, var_args);
794 va_end (var_args);
795
796 return object;
797 }
798
799 static gboolean
800 object_in_construction (GObject *object)
801 {
802 gboolean in_construction;
803 G_LOCK (construct_objects_lock);
804 in_construction = g_slist_find (construct_objects, object) != NULL;
805 G_UNLOCK (construct_objects_lock);
806 return in_construction;
807 }
808
809 gpointer
810 g_object_newv (GType object_type,
811 guint n_parameters,
812 GParameter *parameters)
813 {
814 GObjectConstructParam *cparams, *oparams;
815 GObjectNotifyQueue *nqueue;
816 GObject *object;
817 GObjectClass *class, *unref_class = NULL;
818 GSList *slist;
819 guint n_total_cparams = 0, n_cparams = 0, n_oparams = 0, n_cvalues;
820 GValue *cvalues;
821 GList *clist = NULL;
822 guint i;
823
824 g_return_val_if_fail (G_TYPE_IS_OBJECT (object_type), NULL);
825
826 class = g_type_class_peek_static (object_type);
827 if (!class)
828 class = unref_class = g_type_class_ref (object_type);
829 for (slist = class->construct_properties; slist; slist = slist->next)
830 {
831 clist = g_list_prepend (clist, slist->data);
832 n_total_cparams += 1;
833 }
834
835 /* collect parameters, sort into construction and normal ones */
836 oparams = g_new (GObjectConstructParam, n_parameters);
837 cparams = g_new (GObjectConstructParam, n_total_cparams);
838 for (i = 0; i < n_parameters; i++)
839 {
840 GValue *value = &parameters[i].value;
841 GParamSpec *pspec = g_param_spec_pool_lookup (pspec_pool,
842 parameters[i].name,
843 object_type,
844 TRUE);
845 if (!pspec)
846 {
847 g_warning ("%s: object class `%s' has no property named `%s'",
848 G_STRFUNC,
849 g_type_name (object_type),
850 parameters[i].name);
851 continue;
852 }
853 if (!(pspec->flags & G_PARAM_WRITABLE))
854 {
855 g_warning ("%s: property `%s' of object class `%s' is not writable",
856 G_STRFUNC,
857 pspec->name,
858 g_type_name (object_type));
859 continue;
860 }
861 if (pspec->flags & (G_PARAM_CONSTRUCT | G_PARAM_CONSTRUCT_ONLY))
862 {
863 GList *list = g_list_find (clist, pspec);
864
865 if (!list)
866 {
867 g_warning ("%s: construct property \"%s\" for object `%s' can't be set twice",
868 G_STRFUNC, pspec->name, g_type_name (object_type));
869 continue;
870 }
871 cparams[n_cparams].pspec = pspec;
872 cparams[n_cparams].value = value;
873 n_cparams++;
874 if (!list->prev)
875 clist = list->next;
876 else
877 list->prev->next = list->next;
878 if (list->next)
879 list->next->prev = list->prev;
880 g_list_free_1 (list);
881 }
882 else
883 {
884 oparams[n_oparams].pspec = pspec;
885 oparams[n_oparams].value = value;
886 n_oparams++;
887 }
888 }
889
890 /* set remaining construction properties to default values */
891 n_cvalues = n_total_cparams - n_cparams;
892 cvalues = g_new (GValue, n_cvalues);
893 while (clist)
894 {
895 GList *tmp = clist->next;
896 GParamSpec *pspec = clist->data;
897 GValue *value = cvalues + n_total_cparams - n_cparams - 1;
898
899 value->g_type = 0;
900 g_value_init (value, G_PARAM_SPEC_VALUE_TYPE (pspec));
901 g_param_value_set_default (pspec, value);
902
903 cparams[n_cparams].pspec = pspec;
904 cparams[n_cparams].value = value;
905 n_cparams++;
906
907 g_list_free_1 (clist);
908 clist = tmp;
909 }
910
911 /* construct object from construction parameters */
912 object = class->constructor (object_type, n_total_cparams, cparams);
913 G_LOCK (construct_objects_lock);
914 construct_objects = g_slist_remove (construct_objects, object);
915 G_UNLOCK (construct_objects_lock);
916
917 /* free construction values */
918 g_free (cparams);
919 while (n_cvalues--)
920 g_value_unset (cvalues + n_cvalues);
921 g_free (cvalues);
922
923 /* release g_object_init() notification queue freeze_count */
924 nqueue = g_object_notify_queue_freeze (object, &property_notify_context);
925 g_object_notify_queue_thaw (object, nqueue);
926
927 /* set remaining properties */
928 for (i = 0; i < n_oparams; i++)
929 object_set_property (object, oparams[i].pspec, oparams[i].value, nqueue);
930 g_free (oparams);
931
932 if (unref_class)
933 g_type_class_unref (unref_class);
934
935 /* release our own freeze count and handle notifications */
936 g_object_notify_queue_thaw (object, nqueue);
937
938 return object;
939 }
940
941 GObject*
942 g_object_new_valist (GType object_type,
943 const gchar *first_property_name,
944 va_list var_args)
945 {
946 GObjectClass *class;
947 GParameter *params;
948 const gchar *name;
949 GObject *object;
950 guint n_params = 0, n_alloced_params = 16;
951
952 g_return_val_if_fail (G_TYPE_IS_OBJECT (object_type), NULL);
953
954 if (!first_property_name)
955 return g_object_newv (object_type, 0, NULL);
956
957 class = g_type_class_ref (object_type);
958
959 params = g_new (GParameter, n_alloced_params);
960 name = first_property_name;
961 while (name)
962 {
963 gchar *error = NULL;
964 GParamSpec *pspec = g_param_spec_pool_lookup (pspec_pool,
965 name,
966 object_type,
967 TRUE);
968 if (!pspec)
969 {
970 g_warning ("%s: object class `%s' has no property named `%s'",
971 G_STRFUNC,
972 g_type_name (object_type),
973 name);
974 break;
975 }
976 if (n_params >= n_alloced_params)
977 {
978 n_alloced_params += 16;
979 params = g_renew (GParameter, params, n_alloced_params);
980 }
981 params[n_params].name = name;
982 params[n_params].value.g_type = 0;
983 g_value_init (&params[n_params].value, G_PARAM_SPEC_VALUE_TYPE (pspec));
984 G_VALUE_COLLECT (&params[n_params].value, var_args, 0, &error);
985 if (error)
986 {
987 g_warning ("%s: %s", G_STRFUNC, error);
988 g_free (error);
989 g_value_unset (&params[n_params].value);
990 break;
991 }
992 n_params++;
993 name = va_arg (var_args, gchar*);
994 }
995
996 object = g_object_newv (object_type, n_params, params);
997
998 while (n_params--)
999 g_value_unset (&params[n_params].value);
1000 g_free (params);
1001
1002 g_type_class_unref (class);
1003
1004 return object;
1005 }
1006
1007 static GObject*
1008 g_object_constructor (GType type,
1009 guint n_construct_properties,
1010 GObjectConstructParam *construct_params)
1011 {
1012 GObject *object;
1013
1014 /* create object */
1015 object = (GObject*) g_type_create_instance (type);
1016
1017 /* set construction parameters */
1018 if (n_construct_properties)
1019 {
1020 GObjectNotifyQueue *nqueue = g_object_notify_queue_freeze (object, &property_notify_context);
1021
1022 /* set construct properties */
1023 while (n_construct_properties--)
1024 {
1025 GValue *value = construct_params->value;
1026 GParamSpec *pspec = construct_params->pspec;
1027
1028 construct_params++;
1029 object_set_property (object, pspec, value, nqueue);
1030 }
1031 g_object_notify_queue_thaw (object, nqueue);
1032 /* the notification queue is still frozen from g_object_init(), so
1033 * we don't need to handle it here, g_object_newv() takes
1034 * care of that
1035 */
1036 }
1037
1038 return object;
1039 }
1040
1041 void
1042 g_object_set_valist (GObject *object,
1043 const gchar *first_property_name,
1044 va_list var_args)
1045 {
1046 GObjectNotifyQueue *nqueue;
1047 const gchar *name;
1048
1049 g_return_if_fail (G_IS_OBJECT (object));
1050
1051 g_object_ref (object);
1052 nqueue = g_object_notify_queue_freeze (object, &property_notify_context);
1053
1054 name = first_property_name;
1055 while (name)
1056 {
1057 GValue value = { 0, };
1058 GParamSpec *pspec;
1059 gchar *error = NULL;
1060
1061 pspec = g_param_spec_pool_lookup (pspec_pool,
1062 name,
1063 G_OBJECT_TYPE (object),
1064 TRUE);
1065 if (!pspec)
1066 {
1067 g_warning ("%s: object class `%s' has no property named `%s'",
1068 G_STRFUNC,
1069 G_OBJECT_TYPE_NAME (object),
1070 name);
1071 break;
1072 }
1073 if (!(pspec->flags & G_PARAM_WRITABLE))
1074 {
1075 g_warning ("%s: property `%s' of object class `%s' is not writable",
1076 G_STRFUNC,
1077 pspec->name,
1078 G_OBJECT_TYPE_NAME (object));
1079 break;
1080 }
1081 if ((pspec->flags & G_PARAM_CONSTRUCT_ONLY) && !object_in_construction (object))
1082 {
1083 g_warning ("%s: construct property \"%s\" for object `%s' can't be set after construction",
1084 G_STRFUNC, pspec->name, G_OBJECT_TYPE_NAME (object));
1085 break;
1086 }
1087
1088 g_value_init (&value, G_PARAM_SPEC_VALUE_TYPE (pspec));
1089
1090 G_VALUE_COLLECT (&value, var_args, 0, &error);
1091 if (error)
1092 {
1093 g_warning ("%s: %s", G_STRFUNC, error);
1094 g_free (error);
1095 g_value_unset (&value);
1096 break;
1097 }
1098
1099 object_set_property (object, pspec, &value, nqueue);
1100 g_value_unset (&value);
1101
1102 name = va_arg (var_args, gchar*);
1103 }
1104
1105 g_object_notify_queue_thaw (object, nqueue);
1106 g_object_unref (object);
1107 }
1108
1109 void
1110 g_object_get_valist (GObject *object,
1111 const gchar *first_property_name,
1112 va_list var_args)
1113 {
1114 const gchar *name;
1115
1116 g_return_if_fail (G_IS_OBJECT (object));
1117
1118 g_object_ref (object);
1119
1120 name = first_property_name;
1121
1122 while (name)
1123 {
1124 GValue value = { 0, };
1125 GParamSpec *pspec;
1126 gchar *error;
1127
1128 pspec = g_param_spec_pool_lookup (pspec_pool,
1129 name,
1130 G_OBJECT_TYPE (object),
1131 TRUE);
1132 if (!pspec)
1133 {
1134 g_warning ("%s: object class `%s' has no property named `%s'",
1135 G_STRFUNC,
1136 G_OBJECT_TYPE_NAME (object),
1137 name);
1138 break;
1139 }
1140 if (!(pspec->flags & G_PARAM_READABLE))
1141 {
1142 g_warning ("%s: property `%s' of object class `%s' is not readable",
1143 G_STRFUNC,
1144 pspec->name,
1145 G_OBJECT_TYPE_NAME (object));
1146 break;
1147 }
1148
1149 g_value_init (&value, G_PARAM_SPEC_VALUE_TYPE (pspec));
1150
1151 object_get_property (object, pspec, &value);
1152
1153 G_VALUE_LCOPY (&value, var_args, 0, &error);
1154 if (error)
1155 {
1156 g_warning ("%s: %s", G_STRFUNC, error);
1157 g_free (error);
1158 g_value_unset (&value);
1159 break;
1160 }
1161
1162 g_value_unset (&value);
1163
1164 name = va_arg (var_args, gchar*);
1165 }
1166
1167 g_object_unref (object);
1168 }
1169
1170 void
1171 g_object_set (gpointer _object,
1172 const gchar *first_property_name,
1173 ...)
1174 {
1175 GObject *object = _object;
1176 va_list var_args;
1177
1178 g_return_if_fail (G_IS_OBJECT (object));
1179
1180 va_start (var_args, first_property_name);
1181 g_object_set_valist (object, first_property_name, var_args);
1182 va_end (var_args);
1183 }
1184
1185 void
1186 g_object_get (gpointer _object,
1187 const gchar *first_property_name,
1188 ...)
1189 {
1190 GObject *object = _object;
1191 va_list var_args;
1192
1193 g_return_if_fail (G_IS_OBJECT (object));
1194
1195 va_start (var_args, first_property_name);
1196 g_object_get_valist (object, first_property_name, var_args);
1197 va_end (var_args);
1198 }
1199
1200 void
1201 g_object_set_property (GObject *object,
1202 const gchar *property_name,
1203 const GValue *value)
1204 {
1205 GObjectNotifyQueue *nqueue;
1206 GParamSpec *pspec;
1207
1208 g_return_if_fail (G_IS_OBJECT (object));
1209 g_return_if_fail (property_name != NULL);
1210 g_return_if_fail (G_IS_VALUE (value));
1211
1212 g_object_ref (object);
1213 nqueue = g_object_notify_queue_freeze (object, &property_notify_context);
1214
1215 pspec = g_param_spec_pool_lookup (pspec_pool,
1216 property_name,
1217 G_OBJECT_TYPE (object),
1218 TRUE);
1219 if (!pspec)
1220 g_warning ("%s: object class `%s' has no property named `%s'",
1221 G_STRFUNC,
1222 G_OBJECT_TYPE_NAME (object),
1223 property_name);
1224 else if (!(pspec->flags & G_PARAM_WRITABLE))
1225 g_warning ("%s: property `%s' of object class `%s' is not writable",
1226 G_STRFUNC,
1227 pspec->name,
1228 G_OBJECT_TYPE_NAME (object));
1229 else if ((pspec->flags & G_PARAM_CONSTRUCT_ONLY) && !object_in_construction (object))
1230 g_warning ("%s: construct property \"%s\" for object `%s' can't be set after construction",
1231 G_STRFUNC, pspec->name, G_OBJECT_TYPE_NAME (object));
1232 else
1233 object_set_property (object, pspec, value, nqueue);
1234
1235 g_object_notify_queue_thaw (object, nqueue);
1236 g_object_unref (object);
1237 }
1238
1239 void
1240 g_object_get_property (GObject *object,
1241 const gchar *property_name,
1242 GValue *value)
1243 {
1244 GParamSpec *pspec;
1245
1246 g_return_if_fail (G_IS_OBJECT (object));
1247 g_return_if_fail (property_name != NULL);
1248 g_return_if_fail (G_IS_VALUE (value));
1249
1250 g_object_ref (object);
1251
1252 pspec = g_param_spec_pool_lookup (pspec_pool,
1253 property_name,
1254 G_OBJECT_TYPE (object),
1255 TRUE);
1256 if (!pspec)
1257 g_warning ("%s: object class `%s' has no property named `%s'",
1258 G_STRFUNC,
1259 G_OBJECT_TYPE_NAME (object),
1260 property_name);
1261 else if (!(pspec->flags & G_PARAM_READABLE))
1262 g_warning ("%s: property `%s' of object class `%s' is not readable",
1263 G_STRFUNC,
1264 pspec->name,
1265 G_OBJECT_TYPE_NAME (object));
1266 else
1267 {
1268 GValue *prop_value, tmp_value = { 0, };
1269
1270 /* auto-conversion of the callers value type
1271 */
1272 if (G_VALUE_TYPE (value) == G_PARAM_SPEC_VALUE_TYPE (pspec))
1273 {
1274 g_value_reset (value);
1275 prop_value = value;
1276 }
1277 else if (!g_value_type_transformable (G_PARAM_SPEC_VALUE_TYPE (pspec), G_VALUE_TYPE (value)))
1278 {
1279 g_warning ("%s: can't retrieve property `%s' of type `%s' as value of type `%s'",
1280 G_STRFUNC, pspec->name,
1281 g_type_name (G_PARAM_SPEC_VALUE_TYPE (pspec)),
1282 G_VALUE_TYPE_NAME (value));
1283 g_object_unref (object);
1284 return;
1285 }
1286 else
1287 {
1288 g_value_init (&tmp_value, G_PARAM_SPEC_VALUE_TYPE (pspec));
1289 prop_value = &tmp_value;
1290 }
1291 object_get_property (object, pspec, prop_value);
1292 if (prop_value != value)
1293 {
1294 g_value_transform (prop_value, value);
1295 g_value_unset (&tmp_value);
1296 }
1297 }
1298
1299 g_object_unref (object);
1300 }
1301
1302 gpointer
1303 g_object_connect (gpointer _object,
1304 const gchar *signal_spec,
1305 ...)
1306 {
1307 GObject *object = _object;
1308 va_list var_args;
1309
1310 g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1311 g_return_val_if_fail (object->ref_count > 0, object);
1312
1313 va_start (var_args, signal_spec);
1314 while (signal_spec)
1315 {
1316 GCallback callback = va_arg (var_args, GCallback);
1317 gpointer data = va_arg (var_args, gpointer);
1318 gulong sid;
1319
1320 if (strncmp (signal_spec, "signal::", 8) == 0)
1321 sid = g_signal_connect_data (object, signal_spec + 8,
1322 callback, data, NULL,
1323 0);
1324 else if (strncmp (signal_spec, "object_signal::", 15) == 0 ||
1325 strncmp (signal_spec, "object-signal::", 15) == 0)
1326 sid = g_signal_connect_object (object, signal_spec + 15,
1327 callback, data,
1328 0);
1329 else if (strncmp (signal_spec, "swapped_signal::", 16) == 0 ||
1330 strncmp (signal_spec, "swapped-signal::", 16) == 0)
1331 sid = g_signal_connect_data (object, signal_spec + 16,
1332 callback, data, NULL,
1333 G_CONNECT_SWAPPED);
1334 else if (strncmp (signal_spec, "swapped_object_signal::", 23) == 0 ||
1335 strncmp (signal_spec, "swapped-object-signal::", 23) == 0)
1336 sid = g_signal_connect_object (object, signal_spec + 23,
1337 callback, data,
1338 G_CONNECT_SWAPPED);
1339 else if (strncmp (signal_spec, "signal_after::", 14) == 0 ||
1340 strncmp (signal_spec, "signal-after::", 14) == 0)
1341 sid = g_signal_connect_data (object, signal_spec + 14,
1342 callback, data, NULL,
1343 G_CONNECT_AFTER);
1344 else if (strncmp (signal_spec, "object_signal_after::", 21) == 0 ||
1345 strncmp (signal_spec, "object-signal-after::", 21) == 0)
1346 sid = g_signal_connect_object (object, signal_spec + 21,
1347 callback, data,
1348 G_CONNECT_AFTER);
1349 else if (strncmp (signal_spec, "swapped_signal_after::", 22) == 0 ||
1350 strncmp (signal_spec, "swapped-signal-after::", 22) == 0)
1351 sid = g_signal_connect_data (object, signal_spec + 22,
1352 callback, data, NULL,
1353 G_CONNECT_SWAPPED | G_CONNECT_AFTER);
1354 else if (strncmp (signal_spec, "swapped_object_signal_after::", 29) == 0 ||
1355 strncmp (signal_spec, "swapped-object-signal-after::", 29) == 0)
1356 sid = g_signal_connect_object (object, signal_spec + 29,
1357 callback, data,
1358 G_CONNECT_SWAPPED | G_CONNECT_AFTER);
1359 else
1360 {
1361 g_warning ("%s: invalid signal spec \"%s\"", G_STRFUNC, signal_spec);
1362 break;
1363 }
1364 signal_spec = va_arg (var_args, gchar*);
1365 }
1366 va_end (var_args);
1367
1368 return object;
1369 }
1370
1371 void
1372 g_object_disconnect (gpointer _object,
1373 const gchar *signal_spec,
1374 ...)
1375 {
1376 GObject *object = _object;
1377 va_list var_args;
1378
1379 g_return_if_fail (G_IS_OBJECT (object));
1380 g_return_if_fail (object->ref_count > 0);
1381
1382 va_start (var_args, signal_spec);
1383 while (signal_spec)
1384 {
1385 GCallback callback = va_arg (var_args, GCallback);
1386 gpointer data = va_arg (var_args, gpointer);
1387 guint sid = 0, detail = 0, mask = 0;
1388
1389 if (strncmp (signal_spec, "any_signal::", 12) == 0 ||
1390 strncmp (signal_spec, "any-signal::", 12) == 0)
1391 {
1392 signal_spec += 12;
1393 mask = G_SIGNAL_MATCH_ID | G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA;
1394 }
1395 else if (strcmp (signal_spec, "any_signal") == 0 ||
1396 strcmp (signal_spec, "any-signal") == 0)
1397 {
1398 signal_spec += 10;
1399 mask = G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA;
1400 }
1401 else
1402 {
1403 g_warning ("%s: invalid signal spec \"%s\"", G_STRFUNC, signal_spec);
1404 break;
1405 }
1406
1407 if ((mask & G_SIGNAL_MATCH_ID) &&
1408 !g_signal_parse_name (signal_spec, G_OBJECT_TYPE (object), &sid, &detail, FALSE))
1409 g_warning ("%s: invalid signal name \"%s\"", G_STRFUNC, signal_spec);
1410 else if (!g_signal_handlers_disconnect_matched (object, mask | (detail ? G_SIGNAL_MATCH_DETAIL : 0),
1411 sid, detail,
1412 NULL, (gpointer)callback, data))
1413 g_warning ("%s: signal handler %p(%p) is not connected", G_STRFUNC, callback, data);
1414 signal_spec = va_arg (var_args, gchar*);
1415 }
1416 va_end (var_args);
1417 }
1418
1419 typedef struct {
1420 GObject *object;
1421 guint n_weak_refs;
1422 struct {
1423 GWeakNotify notify;
1424 gpointer data;
1425 } weak_refs[1]; /* flexible array */
1426 } WeakRefStack;
1427
1428 static void
1429 weak_refs_notify (gpointer data)
1430 {
1431 WeakRefStack *wstack = data;
1432 guint i;
1433
1434 for (i = 0; i < wstack->n_weak_refs; i++)
1435 wstack->weak_refs[i].notify (wstack->weak_refs[i].data, wstack->object);
1436 g_free (wstack);
1437 }
1438
1439 void
1440 g_object_weak_ref (GObject *object,
1441 GWeakNotify notify,
1442 gpointer data)
1443 {
1444 WeakRefStack *wstack;
1445 guint i;
1446
1447 g_return_if_fail (G_IS_OBJECT (object));
1448 g_return_if_fail (notify != NULL);
1449 g_return_if_fail (object->ref_count >= 1);
1450
1451 wstack = g_datalist_id_remove_no_notify (&object->qdata, quark_weak_refs);
1452 if (wstack)
1453 {
1454 i = wstack->n_weak_refs++;
1455 wstack = g_realloc (wstack, sizeof (*wstack) + sizeof (wstack->weak_refs[0]) * i);
1456 }
1457 else
1458 {
1459 wstack = g_renew (WeakRefStack, NULL, 1);
1460 wstack->object = object;
1461 wstack->n_weak_refs = 1;
1462 i = 0;
1463 }
1464 wstack->weak_refs[i].notify = notify;
1465 wstack->weak_refs[i].data = data;
1466 g_datalist_id_set_data_full (&object->qdata, quark_weak_refs, wstack, weak_refs_notify);
1467 }
1468
1469 void
1470 g_object_weak_unref (GObject *object,
1471 GWeakNotify notify,
1472 gpointer data)
1473 {
1474 WeakRefStack *wstack;
1475 gboolean found_one = FALSE;
1476
1477 g_return_if_fail (G_IS_OBJECT (object));
1478 g_return_if_fail (notify != NULL);
1479
1480 wstack = g_datalist_id_get_data (&object->qdata, quark_weak_refs);
1481 if (wstack)
1482 {
1483 guint i;
1484
1485 for (i = 0; i < wstack->n_weak_refs; i++)
1486 if (wstack->weak_refs[i].notify == notify &&
1487 wstack->weak_refs[i].data == data)
1488 {
1489 found_one = TRUE;
1490 wstack->n_weak_refs -= 1;
1491 if (i != wstack->n_weak_refs)
1492 wstack->weak_refs[i] = wstack->weak_refs[wstack->n_weak_refs];
1493
1494 break;
1495 }
1496 }
1497 if (!found_one)
1498 g_warning ("%s: couldn't find weak ref %p(%p)", G_STRFUNC, notify, data);
1499 }
1500
1501 void
1502 g_object_add_weak_pointer (GObject *object,
1503 gpointer *weak_pointer_location)
1504 {
1505 g_return_if_fail (G_IS_OBJECT (object));
1506 g_return_if_fail (weak_pointer_location != NULL);
1507
1508 g_object_weak_ref (object,
1509 (GWeakNotify) g_nullify_pointer,
1510 weak_pointer_location);
1511 }
1512
1513 void
1514 g_object_remove_weak_pointer (GObject *object,
1515 gpointer *weak_pointer_location)
1516 {
1517 g_return_if_fail (G_IS_OBJECT (object));
1518 g_return_if_fail (weak_pointer_location != NULL);
1519
1520 g_object_weak_unref (object,
1521 (GWeakNotify) g_nullify_pointer,
1522 weak_pointer_location);
1523 }
1524
1525 static guint
1526 object_floating_flag_handler (GObject *object,
1527 gint job)
1528 {
1529 switch (job)
1530 {
1531 gpointer oldvalue;
1532 case +1: /* force floating if possible */
1533 do
1534 oldvalue = g_atomic_pointer_get (&object->qdata);
1535 while (!g_atomic_pointer_compare_and_exchange ((void**) &object->qdata, oldvalue,
1536 (gpointer) ((gsize) oldvalue | OBJECT_FLOATING_FLAG)));
1537 return (gsize) oldvalue & OBJECT_FLOATING_FLAG;
1538 case -1: /* sink if possible */
1539 do
1540 oldvalue = g_atomic_pointer_get (&object->qdata);
1541 while (!g_atomic_pointer_compare_and_exchange ((void**) &object->qdata, oldvalue,
1542 (gpointer) ((gsize) oldvalue & ~(gsize) OBJECT_FLOATING_FLAG)));
1543 return (gsize) oldvalue & OBJECT_FLOATING_FLAG;
1544 default: /* check floating */
1545 return 0 != ((gsize) g_atomic_pointer_get (&object->qdata) & OBJECT_FLOATING_FLAG);
1546 }
1547 }
1548
1549 gboolean
1550 g_object_is_floating (gpointer _object)
1551 {
1552 GObject *object = _object;
1553 g_return_val_if_fail (G_IS_OBJECT (object), FALSE);
1554 return floating_flag_handler (object, 0);
1555 }
1556
1557 gpointer
1558 g_object_ref_sink (gpointer _object)
1559 {
1560 GObject *object = _object;
1561 gboolean was_floating;
1562 g_return_val_if_fail (G_IS_OBJECT (object), object);
1563 g_return_val_if_fail (object->ref_count >= 1, object);
1564 g_object_ref (object);
1565 was_floating = floating_flag_handler (object, -1);
1566 if (was_floating)
1567 g_object_unref (object);
1568 return object;
1569 }
1570
1571 void
1572 g_object_force_floating (GObject *object)
1573 {
1574 gboolean was_floating;
1575 g_return_if_fail (G_IS_OBJECT (object));
1576 g_return_if_fail (object->ref_count >= 1);
1577
1578 was_floating = floating_flag_handler (object, +1);
1579 }
1580
1581 typedef struct {
1582 GObject *object;
1583 guint n_toggle_refs;
1584 struct {
1585 GToggleNotify notify;
1586 gpointer data;
1587 } toggle_refs[1]; /* flexible array */
1588 } ToggleRefStack;
1589
1590 static void
1591 toggle_refs_notify (GObject *object,
1592 gboolean is_last_ref)
1593 {
1594 ToggleRefStack *tstack = g_datalist_id_get_data (&object->qdata, quark_toggle_refs);
1595
1596 /* Reentrancy here is not as tricky as it seems, because a toggle reference
1597 * will only be notified when there is exactly one of them.
1598 */
1599 g_assert (tstack->n_toggle_refs == 1);
1600 tstack->toggle_refs[0].notify (tstack->toggle_refs[0].data, tstack->object, is_last_ref);
1601 }
1602
1603 void
1604 g_object_add_toggle_ref (GObject *object,
1605 GToggleNotify notify,
1606 gpointer data)
1607 {
1608 ToggleRefStack *tstack;
1609 guint i;
1610
1611 g_return_if_fail (G_IS_OBJECT (object));
1612 g_return_if_fail (notify != NULL);
1613 g_return_if_fail (object->ref_count >= 1);
1614
1615 g_object_ref (object);
1616
1617 tstack = g_datalist_id_remove_no_notify (&object->qdata, quark_toggle_refs);
1618 if (tstack)
1619 {
1620 i = tstack->n_toggle_refs++;
1621 /* allocate i = tstate->n_toggle_refs - 1 positions beyond the 1 declared
1622 * in tstate->toggle_refs */
1623 tstack = g_realloc (tstack, sizeof (*tstack) + sizeof (tstack->toggle_refs[0]) * i);
1624 }
1625 else
1626 {
1627 tstack = g_renew (ToggleRefStack, NULL, 1);
1628 tstack->object = object;
1629 tstack->n_toggle_refs = 1;
1630 i = 0;
1631 }
1632
1633 /* Set a flag for fast lookup after adding the first toggle reference */
1634 if (tstack->n_toggle_refs == 1)
1635 g_datalist_set_flags (&object->qdata, OBJECT_HAS_TOGGLE_REF_FLAG);
1636
1637 tstack->toggle_refs[i].notify = notify;
1638 tstack->toggle_refs[i].data = data;
1639 g_datalist_id_set_data_full (&object->qdata, quark_toggle_refs, tstack,
1640 (GDestroyNotify)g_free);
1641 }
1642
1643 void
1644 g_object_remove_toggle_ref (GObject *object,
1645 GToggleNotify notify,
1646 gpointer data)
1647 {
1648 ToggleRefStack *tstack;
1649 gboolean found_one = FALSE;
1650
1651 g_return_if_fail (G_IS_OBJECT (object));
1652 g_return_if_fail (notify != NULL);
1653
1654 tstack = g_datalist_id_get_data (&object->qdata, quark_toggle_refs);
1655 if (tstack)
1656 {
1657 guint i;
1658
1659 for (i = 0; i < tstack->n_toggle_refs; i++)
1660 if (tstack->toggle_refs[i].notify == notify &&
1661 tstack->toggle_refs[i].data == data)
1662 {
1663 found_one = TRUE;
1664 tstack->n_toggle_refs -= 1;
1665 if (i != tstack->n_toggle_refs)
1666 tstack->toggle_refs[i] = tstack->toggle_refs[tstack->n_toggle_refs];
1667
1668 if (tstack->n_toggle_refs == 0)
1669 g_datalist_unset_flags (&object->qdata, OBJECT_HAS_TOGGLE_REF_FLAG);
1670
1671 g_object_unref (object);
1672
1673 break;
1674 }
1675 }
1676
1677 if (!found_one)
1678 g_warning ("%s: couldn't find toggle ref %p(%p)", G_STRFUNC, notify, data);
1679 }
1680
1681 gpointer
1682 g_object_ref (gpointer _object)
1683 {
1684 GObject *object = _object;
1685 gint old_val;
1686
1687 g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1688 g_return_val_if_fail (object->ref_count > 0, NULL);
1689
1690 #ifdef G_ENABLE_DEBUG
1691 if (g_trap_object_ref == object)
1692 G_BREAKPOINT ();
1693 #endif /* G_ENABLE_DEBUG */
1694
1695
1696 old_val = g_atomic_int_exchange_and_add (&object->ref_count, 1);
1697
1698 if (old_val == 1 && OBJECT_HAS_TOGGLE_REF (object))
1699 toggle_refs_notify (object, FALSE);
1700
1701 return object;
1702 }
1703
1704 void
1705 g_object_unref (gpointer _object)
1706 {
1707 GObject *object = _object;
1708 gint old_ref;
1709 gboolean is_zero;
1710
1711 g_return_if_fail (G_IS_OBJECT (object));
1712 g_return_if_fail (object->ref_count > 0);
1713
1714 #ifdef G_ENABLE_DEBUG
1715 if (g_trap_object_ref == object)
1716 G_BREAKPOINT ();
1717 #endif /* G_ENABLE_DEBUG */
1718
1719 /* here we want to atomically do: if (ref_count>1) { ref_count--; return; } */
1720 retry_atomic_decrement1:
1721 old_ref = g_atomic_int_get (&object->ref_count);
1722 if (old_ref > 1)
1723 {
1724 if (!g_atomic_int_compare_and_exchange (&object->ref_count, old_ref, old_ref - 1))
1725 goto retry_atomic_decrement1;
1726
1727 /* if we went from 2->1 we need to notify toggle refs if any */
1728 if (old_ref == 2 && OBJECT_HAS_TOGGLE_REF (object))
1729 toggle_refs_notify (object, TRUE);
1730 }
1731 else
1732 {
1733 /* we are about tp remove the last reference */
1734 G_OBJECT_GET_CLASS (object)->dispose (object);
1735
1736 /* may have been re-referenced meanwhile */
1737 retry_atomic_decrement2:
1738 old_ref = g_atomic_int_get (&object->ref_count);
1739 if (old_ref > 1)
1740 {
1741 if (!g_atomic_int_compare_and_exchange (&object->ref_count, old_ref, old_ref - 1))
1742 goto retry_atomic_decrement2;
1743
1744 /* if we went from 2->1 we need to notify toggle refs if any */
1745 if (old_ref == 2 && OBJECT_HAS_TOGGLE_REF (object))
1746 toggle_refs_notify (object, TRUE);
1747
1748 return;
1749 }
1750
1751 /* we are still in the process of taking away the last ref */
1752 g_datalist_id_set_data (&object->qdata, quark_closure_array, NULL);
1753 g_signal_handlers_destroy (object);
1754 g_datalist_id_set_data (&object->qdata, quark_weak_refs, NULL);
1755
1756 /* decrement the last reference */
1757 is_zero = g_atomic_int_dec_and_test (&object->ref_count);
1758
1759 /* may have been re-referenced meanwhile */
1760 if (G_LIKELY (is_zero))
1761 {
1762 G_OBJECT_GET_CLASS (object)->finalize (object);
1763 #ifdef G_ENABLE_DEBUG
1764 IF_DEBUG (OBJECTS)
1765 {
1766 /* catch objects not chaining finalize handlers */
1767 G_LOCK (debug_objects);
1768 g_assert (g_hash_table_lookup (debug_objects_ht, object) == NULL);
1769 G_UNLOCK (debug_objects);
1770 }
1771 #endif /* G_ENABLE_DEBUG */
1772 g_type_free_instance ((GTypeInstance*) object);
1773 }
1774 }
1775 }
1776
1777 gpointer
1778 g_object_get_qdata (GObject *object,
1779 GQuark quark)
1780 {
1781 g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1782
1783 return quark ? g_datalist_id_get_data (&object->qdata, quark) : NULL;
1784 }
1785
1786 void
1787 g_object_set_qdata (GObject *object,
1788 GQuark quark,
1789 gpointer data)
1790 {
1791 g_return_if_fail (G_IS_OBJECT (object));
1792 g_return_if_fail (quark > 0);
1793
1794 g_datalist_id_set_data (&object->qdata, quark, data);
1795 }
1796
1797 void
1798 g_object_set_qdata_full (GObject *object,
1799 GQuark quark,
1800 gpointer data,
1801 GDestroyNotify destroy)
1802 {
1803 g_return_if_fail (G_IS_OBJECT (object));
1804 g_return_if_fail (quark > 0);
1805
1806 g_datalist_id_set_data_full (&object->qdata, quark, data,
1807 data ? destroy : (GDestroyNotify) NULL);
1808 }
1809
1810 gpointer
1811 g_object_steal_qdata (GObject *object,
1812 GQuark quark)
1813 {
1814 g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1815 g_return_val_if_fail (quark > 0, NULL);
1816
1817 return g_datalist_id_remove_no_notify (&object->qdata, quark);
1818 }
1819
1820 gpointer
1821 g_object_get_data (GObject *object,
1822 const gchar *key)
1823 {
1824 GQuark quark;
1825
1826 g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1827 g_return_val_if_fail (key != NULL, NULL);
1828
1829 quark = g_quark_try_string (key);
1830
1831 return quark ? g_datalist_id_get_data (&object->qdata, quark) : NULL;
1832 }
1833
1834 void
1835 g_object_set_data (GObject *object,
1836 const gchar *key,
1837 gpointer data)
1838 {
1839 g_return_if_fail (G_IS_OBJECT (object));
1840 g_return_if_fail (key != NULL);
1841
1842 g_datalist_id_set_data (&object->qdata, g_quark_from_string (key), data);
1843 }
1844
1845 void
1846 g_object_set_data_full (GObject *object,
1847 const gchar *key,
1848 gpointer data,
1849 GDestroyNotify destroy)
1850 {
1851 g_return_if_fail (G_IS_OBJECT (object));
1852 g_return_if_fail (key != NULL);
1853
1854 g_datalist_id_set_data_full (&object->qdata, g_quark_from_string (key), data,
1855 data ? destroy : (GDestroyNotify) NULL);
1856 }
1857
1858 gpointer
1859 g_object_steal_data (GObject *object,
1860 const gchar *key)
1861 {
1862 GQuark quark;
1863
1864 g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1865 g_return_val_if_fail (key != NULL, NULL);
1866
1867 quark = g_quark_try_string (key);
1868
1869 return quark ? g_datalist_id_remove_no_notify (&object->qdata, quark) : NULL;
1870 }
1871
1872 static void
1873 g_value_object_init (GValue *value)
1874 {
1875 value->data[0].v_pointer = NULL;
1876 }
1877
1878 static void
1879 g_value_object_free_value (GValue *value)
1880 {
1881 if (value->data[0].v_pointer)
1882 g_object_unref (value->data[0].v_pointer);
1883 }
1884
1885 static void
1886 g_value_object_copy_value (const GValue *src_value,
1887 GValue *dest_value)
1888 {
1889 if (src_value->data[0].v_pointer)
1890 dest_value->data[0].v_pointer = g_object_ref (src_value->data[0].v_pointer);
1891 else
1892 dest_value->data[0].v_pointer = NULL;
1893 }
1894
1895 static void
1896 g_value_object_transform_value (const GValue *src_value,
1897 GValue *dest_value)
1898 {
1899 if (src_value->data[0].v_pointer && g_type_is_a (G_OBJECT_TYPE (src_value->data[0].v_pointer), G_VALUE_TYPE (dest_value)))
1900 dest_value->data[0].v_pointer = g_object_ref (src_value->data[0].v_pointer);
1901 else
1902 dest_value->data[0].v_pointer = NULL;
1903 }
1904
1905 static gpointer
1906 g_value_object_peek_pointer (const GValue *value)
1907 {
1908 return value->data[0].v_pointer;
1909 }
1910
1911 static gchar*
1912 g_value_object_collect_value (GValue *value,
1913 guint n_collect_values,
1914 GTypeCValue *collect_values,
1915 guint collect_flags)
1916 {
1917 if (collect_values[0].v_pointer)
1918 {
1919 GObject *object = collect_values[0].v_pointer;
1920
1921 if (object->g_type_instance.g_class == NULL)
1922 return g_strconcat ("invalid unclassed object pointer for value type `",
1923 G_VALUE_TYPE_NAME (value),
1924 "'",
1925 NULL);
1926 else if (!g_value_type_compatible (G_OBJECT_TYPE (object), G_VALUE_TYPE (value)))
1927 return g_strconcat ("invalid object type `",
1928 G_OBJECT_TYPE_NAME (object),
1929 "' for value type `",
1930 G_VALUE_TYPE_NAME (value),
1931 "'",
1932 NULL);
1933 /* never honour G_VALUE_NOCOPY_CONTENTS for ref-counted types */
1934 value->data[0].v_pointer = g_object_ref (object);
1935 }
1936 else
1937 value->data[0].v_pointer = NULL;
1938
1939 return NULL;
1940 }
1941
1942 static gchar*
1943 g_value_object_lcopy_value (const GValue *value,
1944 guint n_collect_values,
1945 GTypeCValue *collect_values,
1946 guint collect_flags)
1947 {
1948 GObject **object_p = collect_values[0].v_pointer;
1949
1950 if (!object_p)
1951 return g_strdup_printf ("value location for `%s' passed as NULL", G_VALUE_TYPE_NAME (value));
1952
1953 if (!value->data[0].v_pointer)
1954 *object_p = NULL;
1955 else if (collect_flags & G_VALUE_NOCOPY_CONTENTS)
1956 *object_p = value->data[0].v_pointer;
1957 else
1958 *object_p = g_object_ref (value->data[0].v_pointer);
1959
1960 return NULL;
1961 }
1962
1963 void
1964 g_value_set_object (GValue *value,
1965 gpointer v_object)
1966 {
1967 GObject *old;
1968
1969 g_return_if_fail (G_VALUE_HOLDS_OBJECT (value));
1970
1971 old = value->data[0].v_pointer;
1972
1973 if (v_object)
1974 {
1975 g_return_if_fail (G_IS_OBJECT (v_object));
1976 g_return_if_fail (g_value_type_compatible (G_OBJECT_TYPE (v_object), G_VALUE_TYPE (value)));
1977
1978 value->data[0].v_pointer = v_object;
1979 g_object_ref (value->data[0].v_pointer);
1980 }
1981 else
1982 value->data[0].v_pointer = NULL;
1983
1984 if (old)
1985 g_object_unref (old);
1986 }
1987
1988 void
1989 g_value_set_object_take_ownership (GValue *value,
1990 gpointer v_object)
1991 {
1992 g_value_take_object (value, v_object);
1993 }
1994
1995 void
1996 g_value_take_object (GValue *value,
1997 gpointer v_object)
1998 {
1999 g_return_if_fail (G_VALUE_HOLDS_OBJECT (value));
2000
2001 if (value->data[0].v_pointer)
2002 {
2003 g_object_unref (value->data[0].v_pointer);
2004 value->data[0].v_pointer = NULL;
2005 }
2006
2007 if (v_object)
2008 {
2009 g_return_if_fail (G_IS_OBJECT (v_object));
2010 g_return_if_fail (g_value_type_compatible (G_OBJECT_TYPE (v_object), G_VALUE_TYPE (value)));
2011
2012 value->data[0].v_pointer = v_object; /* we take over the reference count */
2013 }
2014 }
2015
2016 gpointer
2017 g_value_get_object (const GValue *value)
2018 {
2019 g_return_val_if_fail (G_VALUE_HOLDS_OBJECT (value), NULL);
2020
2021 return value->data[0].v_pointer;
2022 }
2023
2024 GObject*
2025 g_value_dup_object (const GValue *value)
2026 {
2027 g_return_val_if_fail (G_VALUE_HOLDS_OBJECT (value), NULL);
2028
2029 return value->data[0].v_pointer ? g_object_ref (value->data[0].v_pointer) : NULL;
2030 }
2031
2032 gulong
2033 g_signal_connect_object (gpointer instance,
2034 const gchar *detailed_signal,
2035 GCallback c_handler,
2036 gpointer gobject,
2037 GConnectFlags connect_flags)
2038 {
2039 g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
2040 g_return_val_if_fail (detailed_signal != NULL, 0);
2041 g_return_val_if_fail (c_handler != NULL, 0);
2042
2043 if (gobject)
2044 {
2045 GClosure *closure;
2046
2047 g_return_val_if_fail (G_IS_OBJECT (gobject), 0);
2048
2049 closure = ((connect_flags & G_CONNECT_SWAPPED) ? g_cclosure_new_object_swap : g_cclosure_new_object) (c_handler, gobject);
2050
2051 return g_signal_connect_closure (instance, detailed_signal, closure, connect_flags & G_CONNECT_AFTER);
2052 }
2053 else
2054 return g_signal_connect_data (instance, detailed_signal, c_handler, NULL, NULL, connect_flags);
2055 }
2056
2057 typedef struct {
2058 GObject *object;
2059 guint n_closures;
2060 GClosure *closures[1]; /* flexible array */
2061 } CArray;
2062 /* don't change this structure without supplying an accessor for
2063 * watched closures, e.g.:
2064 * GSList* g_object_list_watched_closures (GObject *object)
2065 * {
2066 * CArray *carray;
2067 * g_return_val_if_fail (G_IS_OBJECT (object), NULL);
2068 * carray = g_object_get_data (object, "GObject-closure-array");
2069 * if (carray)
2070 * {
2071 * GSList *slist = NULL;
2072 * guint i;
2073 * for (i = 0; i < carray->n_closures; i++)
2074 * slist = g_slist_prepend (slist, carray->closures[i]);
2075 * return slist;
2076 * }
2077 * return NULL;
2078 * }
2079 */
2080
2081 static void
2082 object_remove_closure (gpointer data,
2083 GClosure *closure)
2084 {
2085 GObject *object = data;
2086 CArray *carray = g_object_get_qdata (object, quark_closure_array);
2087 guint i;
2088
2089 for (i = 0; i < carray->n_closures; i++)
2090 if (carray->closures[i] == closure)
2091 {
2092 carray->n_closures--;
2093 if (i < carray->n_closures)
2094 carray->closures[i] = carray->closures[carray->n_closures];
2095 return;
2096 }
2097 g_assert_not_reached ();
2098 }
2099
2100 static void
2101 destroy_closure_array (gpointer data)
2102 {
2103 CArray *carray = data;
2104 GObject *object = carray->object;
2105 guint i, n = carray->n_closures;
2106
2107 for (i = 0; i < n; i++)
2108 {
2109 GClosure *closure = carray->closures[i];
2110
2111 /* removing object_remove_closure() upfront is probably faster than
2112 * letting it fiddle with quark_closure_array which is empty anyways
2113 */
2114 g_closure_remove_invalidate_notifier (closure, object, object_remove_closure);
2115 g_closure_invalidate (closure);
2116 }
2117 g_free (carray);
2118 }
2119
2120 void
2121 g_object_watch_closure (GObject *object,
2122 GClosure *closure)
2123 {
2124 CArray *carray;
2125 guint i;
2126
2127 g_return_if_fail (G_IS_OBJECT (object));
2128 g_return_if_fail (closure != NULL);
2129 g_return_if_fail (closure->is_invalid == FALSE);
2130 g_return_if_fail (closure->in_marshal == FALSE);
2131 g_return_if_fail (object->ref_count > 0); /* this doesn't work on finalizing objects */
2132
2133 g_closure_add_invalidate_notifier (closure, object, object_remove_closure);
2134 g_closure_add_marshal_guards (closure,
2135 object, (GClosureNotify) g_object_ref,
2136 object, (GClosureNotify) g_object_unref);
2137 carray = g_datalist_id_remove_no_notify (&object->qdata, quark_closure_array);
2138 if (!carray)
2139 {
2140 carray = g_renew (CArray, NULL, 1);
2141 carray->object = object;
2142 carray->n_closures = 1;
2143 i = 0;
2144 }
2145 else
2146 {
2147 i = carray->n_closures++;
2148 carray = g_realloc (carray, sizeof (*carray) + sizeof (carray->closures[0]) * i);
2149 }
2150 carray->closures[i] = closure;
2151 g_datalist_id_set_data_full (&object->qdata, quark_closure_array, carray, destroy_closure_array);
2152 }
2153
2154 GClosure*
2155 g_closure_new_object (guint sizeof_closure,
2156 GObject *object)
2157 {
2158 GClosure *closure;
2159
2160 g_return_val_if_fail (G_IS_OBJECT (object), NULL);
2161 g_return_val_if_fail (object->ref_count > 0, NULL); /* this doesn't work on finalizing objects */
2162
2163 closure = g_closure_new_simple (sizeof_closure, object);
2164 g_object_watch_closure (object, closure);
2165
2166 return closure;
2167 }
2168
2169 GClosure*
2170 g_cclosure_new_object (GCallback callback_func,
2171 GObject *object)
2172 {
2173 GClosure *closure;
2174
2175 g_return_val_if_fail (G_IS_OBJECT (object), NULL);
2176 g_return_val_if_fail (object->ref_count > 0, NULL); /* this doesn't work on finalizing objects */
2177 g_return_val_if_fail (callback_func != NULL, NULL);
2178
2179 closure = g_cclosure_new (callback_func, object, NULL);
2180 g_object_watch_closure (object, closure);
2181
2182 return closure;
2183 }
2184
2185 GClosure*
2186 g_cclosure_new_object_swap (GCallback callback_func,
2187 GObject *object)
2188 {
2189 GClosure *closure;
2190
2191 g_return_val_if_fail (G_IS_OBJECT (object), NULL);
2192 g_return_val_if_fail (object->ref_count > 0, NULL); /* this doesn't work on finalizing objects */
2193 g_return_val_if_fail (callback_func != NULL, NULL);
2194
2195 closure = g_cclosure_new_swap (callback_func, object, NULL);
2196 g_object_watch_closure (object, closure);
2197
2198 return closure;
2199 }
2200
2201 gsize
2202 g_object_compat_control (gsize what,
2203 gpointer data)
2204 {
2205 switch (what)
2206 {
2207 gpointer *pp;
2208 case 1: /* floating base type */
2209 return G_TYPE_INITIALLY_UNOWNED;
2210 case 2: /* FIXME: remove this once GLib/Gtk+ break ABI again */
2211 floating_flag_handler = (guint(*)(GObject*,gint)) data;
2212 return 1;
2213 case 3: /* FIXME: remove this once GLib/Gtk+ break ABI again */
2214 pp = data;
2215 *pp = floating_flag_handler;
2216 return 1;
2217 default:
2218 return 0;
2219 }
2220 }
2221
2222 G_DEFINE_TYPE (GInitiallyUnowned, g_initially_unowned, G_TYPE_OBJECT);
2223
2224 static void
2225 g_initially_unowned_init (GInitiallyUnowned *object)
2226 {
2227 g_object_force_floating (object);
2228 }
2229
2230 static void
2231 g_initially_unowned_class_init (GInitiallyUnownedClass *klass)
2232 {
2233 }
2234
2235 #define __G_OBJECT_C__
2236 #include "gobjectaliasdef.c"
glib mirror