gobject/gobject.c

   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
  21 /*
  22  * MT safe
  23  */
  24
  25 #include        "gvaluecollector.h"
  26 #include        "gsignal.h"
  27 #include        "gparamspecs.h"
  28 #include        "gvaluetypes.h"
  29 #include        "gobjectnotifyqueue.c"
  30 #include        <string.h>
  31 #include        <signal.h>
  32
  33
  34 #define PREALLOC_CPARAMS        (8)
  35
  36
  37 /* --- macros --- */
  38 #define PARAM_SPEC_PARAM_ID(pspec)              ((pspec)->param_id)
  39 #define PARAM_SPEC_SET_PARAM_ID(pspec, id)      ((pspec)->param_id = (id))
  40
  41
  42 /* --- signals --- */
  43 enum {
  44   PROPERTIES_CHANGED,
  45   NOTIFY,
  46   LAST_SIGNAL
  47 };
  48
  49
  50 /* --- properties --- */
  51 enum {
  52   PROP_NONE
  53 };
  54
  55
  56 /* --- prototypes --- */
  57 static void     g_object_base_class_init                (GObjectClass   *class);
  58 static void     g_object_base_class_finalize            (GObjectClass   *class);
  59 static void     g_object_do_class_init                  (GObjectClass   *class);
  60 static void     g_object_init                           (GObject        *object);
  61 static GObject* g_object_constructor                    (GType                  type,
  62                                                          guint                  n_construct_properties,
  63                                                          GObjectConstructParam *construct_params);
  64 static void     g_object_last_unref                     (GObject        *object);
  65 static void     g_object_real_dispose                   (GObject        *object);
  66 static void     g_object_finalize                       (GObject        *object);
  67 static void     g_object_do_set_property                (GObject        *object,
  68                                                          guint           property_id,
  69                                                          const GValue   *value,
  70                                                          GParamSpec     *pspec);
  71 static void     g_object_do_get_property                (GObject        *object,
  72                                                          guint           property_id,
  73                                                          GValue         *value,
  74                                                          GParamSpec     *pspec);
  75 static void     g_value_object_init                     (GValue         *value);
  76 static void     g_value_object_free_value               (GValue         *value);
  77 static void     g_value_object_copy_value               (const GValue   *src_value,
  78                                                          GValue         *dest_value);
  79 static void     g_value_object_transform_value          (const GValue   *src_value,
  80                                                          GValue         *dest_value);
  81 static gpointer g_value_object_peek_pointer             (const GValue   *value);
  82 static gchar*   g_value_object_collect_value            (GValue         *value,
  83                                                          guint           n_collect_values,
  84                                                          GTypeCValue    *collect_values,
  85                                                          guint           collect_flags);
  86 static gchar*   g_value_object_lcopy_value              (const GValue   *value,
  87                                                          guint           n_collect_values,
  88                                                          GTypeCValue    *collect_values,
  89                                                          guint           collect_flags);
  90 static void     g_object_dispatch_properties_changed    (GObject        *object,
  91                                                          guint           n_pspecs,
  92                                                          GParamSpec    **pspecs);
  93 static inline void         object_get_property          (GObject        *object,
  94                                                          GParamSpec     *pspec,
  95                                                          GValue         *value);
  96 static inline void         object_set_property          (GObject        *object,
  97                                                          GParamSpec     *pspec,
  98                                                          const GValue   *value,
  99                                                          GObjectNotifyQueue *nqueue);
 100
 101
 102 /* --- variables --- */
 103 static GQuark               quark_closure_array = 0;
 104 static GQuark               quark_weak_refs = 0;
 105 static GParamSpecPool      *pspec_pool = NULL;
 106 static GObjectNotifyContext property_notify_context = { 0, };
 107 static gulong               gobject_signals[LAST_SIGNAL] = { 0, };
 108
 109
 110 /* --- functions --- */
 111 #ifdef  G_ENABLE_DEBUG
 112 #define IF_DEBUG(debug_type)    if (_g_type_debug_flags & G_TYPE_DEBUG_ ## debug_type)
 113 G_LOCK_DEFINE_STATIC     (debug_objects);
 114 static volatile GObject *g_trap_object_ref = NULL;
 115 static guint             debug_objects_count = 0;
 116 static GHashTable       *debug_objects_ht = NULL;
 117 static void
 118 debug_objects_foreach (gpointer key,
 119                        gpointer value,
 120                        gpointer user_data)
 121 {
 122   GObject *object = value;
 123
 124   g_message ("[%p] stale %s\tref_count=%u",
 125              object,
 126              G_OBJECT_TYPE_NAME (object),
 127              object->ref_count);
 128 }
 129 static void
 130 debug_objects_atexit (void)
 131 {
 132   IF_DEBUG (OBJECTS)
 133     {
 134       G_LOCK (debug_objects);
 135       g_message ("stale GObjects: %u", debug_objects_count);
 136       g_hash_table_foreach (debug_objects_ht, debug_objects_foreach, NULL);
 137       G_UNLOCK (debug_objects);
 138     }
 139 }
 140 #endif  /* G_ENABLE_DEBUG */
 141
 142 void
 143 g_object_type_init (void)       /* sync with gtype.c */
 144 {
 145   static gboolean initialized = FALSE;
 146   static const GTypeFundamentalInfo finfo = {
 147     G_TYPE_FLAG_CLASSED | G_TYPE_FLAG_INSTANTIATABLE | G_TYPE_FLAG_DERIVABLE | G_TYPE_FLAG_DEEP_DERIVABLE,
 148   };
 149   static GTypeInfo info = {
 150     sizeof (GObjectClass),
 151     (GBaseInitFunc) g_object_base_class_init,
 152     (GBaseFinalizeFunc) g_object_base_class_finalize,
 153     (GClassInitFunc) g_object_do_class_init,
 154     NULL        /* class_destroy */,
 155     NULL        /* class_data */,
 156     sizeof (GObject),
 157     0           /* n_preallocs */,
 158     (GInstanceInitFunc) g_object_init,
 159     NULL,       /* value_table */
 160   };
 161   static const GTypeValueTable value_table = {
 162     g_value_object_init,          /* value_init */
 163     g_value_object_free_value,    /* value_free */
 164     g_value_object_copy_value,    /* value_copy */
 165     g_value_object_peek_pointer,  /* value_peek_pointer */
 166     "p",                          /* collect_format */
 167     g_value_object_collect_value, /* collect_value */
 168     "p",                          /* lcopy_format */
 169     g_value_object_lcopy_value,   /* lcopy_value */
 170   };
 171   GType type;
 172
 173   g_return_if_fail (initialized == FALSE);
 174   initialized = TRUE;
 175
 176   /* G_TYPE_OBJECT
 177    */
 178   info.value_table = &value_table;
 179   type = g_type_register_fundamental (G_TYPE_OBJECT, "GObject", &info, &finfo, 0);
 180   g_assert (type == G_TYPE_OBJECT);
 181   g_value_register_transform_func (G_TYPE_OBJECT, G_TYPE_OBJECT, g_value_object_transform_value);
 182
 183 #ifdef  G_ENABLE_DEBUG
 184   IF_DEBUG (OBJECTS)
 185     {
 186       debug_objects_ht = g_hash_table_new (g_direct_hash, NULL);
 187       g_atexit (debug_objects_atexit);
 188     }
 189 #endif  /* G_ENABLE_DEBUG */
 190 }
 191
 192 static void
 193 g_object_base_class_init (GObjectClass *class)
 194 {
 195   GObjectClass *pclass = g_type_class_peek_parent (class);
 196
 197   /* reset instance specific fields and methods that don't get inherited */
 198   class->construct_properties = pclass ? g_slist_copy (pclass->construct_properties) : NULL;
 199   class->get_property = NULL;
 200   class->set_property = NULL;
 201 }
 202
 203 static void
 204 g_object_base_class_finalize (GObjectClass *class)
 205 {
 206   GList *list, *node;
 207
 208   g_message ("finalizing base class of %s", G_OBJECT_CLASS_NAME (class));
 209
 210   _g_signals_destroy (G_OBJECT_CLASS_TYPE (class));
 211
 212   g_slist_free (class->construct_properties);
 213   class->construct_properties = NULL;
 214   list = g_param_spec_pool_list_owned (pspec_pool, G_OBJECT_CLASS_TYPE (class));
 215   for (node = list; node; node = node->next)
 216     {
 217       GParamSpec *pspec = node->data;
 218
 219       g_param_spec_pool_remove (pspec_pool, pspec);
 220       PARAM_SPEC_SET_PARAM_ID (pspec, 0);
 221       g_param_spec_unref (pspec);
 222     }
 223   g_list_free (list);
 224 }
 225
 226 static void
 227 g_object_notify_dispatcher (GObject     *object,
 228                             guint        n_pspecs,
 229                             GParamSpec **pspecs)
 230 {
 231   G_OBJECT_GET_CLASS (object)->dispatch_properties_changed (object, n_pspecs, pspecs);
 232 }
 233
 234 static void
 235 g_object_do_class_init (GObjectClass *class)
 236 {
 237   /* read the comment about typedef struct CArray; on why not to change this quark */
 238   quark_closure_array = g_quark_from_static_string ("GObject-closure-array");
 239
 240   quark_weak_refs = g_quark_from_static_string ("GObject-weak-references");
 241   pspec_pool = g_param_spec_pool_new (TRUE);
 242   property_notify_context.quark_notify_queue = g_quark_from_static_string ("GObject-notify-queue");
 243   property_notify_context.dispatcher = g_object_notify_dispatcher;
 244
 245   class->constructor = g_object_constructor;
 246   class->set_property = g_object_do_set_property;
 247   class->get_property = g_object_do_get_property;
 248   class->dispose = g_object_real_dispose;
 249   class->finalize = g_object_finalize;
 250   class->dispatch_properties_changed = g_object_dispatch_properties_changed;
 251   class->notify = NULL;
 252
 253   gobject_signals[NOTIFY] =
 254     g_signal_new ("notify",
 255                   G_TYPE_FROM_CLASS (class),
 256                   G_SIGNAL_RUN_FIRST | G_SIGNAL_NO_RECURSE | G_SIGNAL_DETAILED | G_SIGNAL_NO_HOOKS,
 257                   G_STRUCT_OFFSET (GObjectClass, notify),
 258                   NULL, NULL,
 259                   g_cclosure_marshal_VOID__PARAM,
 260                   G_TYPE_NONE,
 261                   1, G_TYPE_PARAM);
 262 }
 263
 264 void
 265 g_object_class_install_property (GObjectClass *class,
 266                                  guint         property_id,
 267                                  GParamSpec   *pspec)
 268 {
 269   g_return_if_fail (G_IS_OBJECT_CLASS (class));
 270   g_return_if_fail (G_IS_PARAM_SPEC (pspec));
 271   if (pspec->flags & G_PARAM_WRITABLE)
 272     g_return_if_fail (class->set_property != NULL);
 273   if (pspec->flags & G_PARAM_READABLE)
 274     g_return_if_fail (class->get_property != NULL);
 275   g_return_if_fail (property_id > 0);
 276   g_return_if_fail (PARAM_SPEC_PARAM_ID (pspec) == 0);  /* paranoid */
 277   if (pspec->flags & G_PARAM_CONSTRUCT)
 278     g_return_if_fail ((pspec->flags & G_PARAM_CONSTRUCT_ONLY) == 0);
 279   if (pspec->flags & (G_PARAM_CONSTRUCT | G_PARAM_CONSTRUCT_ONLY))
 280     g_return_if_fail (pspec->flags & G_PARAM_WRITABLE);
 281
 282   if (g_param_spec_pool_lookup (pspec_pool, pspec->name, G_OBJECT_CLASS_TYPE (class), FALSE))
 283     {
 284       g_warning (G_STRLOC ": class `%s' already contains a property named `%s'",
 285                  G_OBJECT_CLASS_NAME (class),
 286                  pspec->name);
 287       return;
 288     }
 289
 290   g_param_spec_ref (pspec);
 291   g_param_spec_sink (pspec);
 292   PARAM_SPEC_SET_PARAM_ID (pspec, property_id);
 293   g_param_spec_pool_insert (pspec_pool, pspec, G_OBJECT_CLASS_TYPE (class));
 294   if (pspec->flags & (G_PARAM_CONSTRUCT | G_PARAM_CONSTRUCT_ONLY))
 295     class->construct_properties = g_slist_prepend (class->construct_properties, pspec);
 296
 297   /* for property overrides of construct poperties, we have to get rid
 298    * of the overidden inherited construct property
 299    */
 300   pspec = g_param_spec_pool_lookup (pspec_pool, pspec->name, g_type_parent (G_OBJECT_CLASS_TYPE (class)), TRUE);
 301   if (pspec && pspec->flags & (G_PARAM_CONSTRUCT | G_PARAM_CONSTRUCT_ONLY))
 302     class->construct_properties = g_slist_remove (class->construct_properties, pspec);
 303 }
 304
 305 GParamSpec*
 306 g_object_class_find_property (GObjectClass *class,
 307                               const gchar  *property_name)
 308 {
 309   g_return_val_if_fail (G_IS_OBJECT_CLASS (class), NULL);
 310   g_return_val_if_fail (property_name != NULL, NULL);
 311
 312   return g_param_spec_pool_lookup (pspec_pool,
 313                                    property_name,
 314                                    G_OBJECT_CLASS_TYPE (class),
 315                                    TRUE);
 316 }
 317
 318 GParamSpec** /* free result */
 319 g_object_class_list_properties (GObjectClass *class,
 320                                 guint        *n_properties_p)
 321 {
 322   GParamSpec **pspecs;
 323   guint n;
 324
 325   g_return_val_if_fail (G_IS_OBJECT_CLASS (class), NULL);
 326
 327   pspecs = g_param_spec_pool_list (pspec_pool,
 328                                    G_OBJECT_CLASS_TYPE (class),
 329                                    &n);
 330   if (n_properties_p)
 331     *n_properties_p = n;
 332
 333   return pspecs;
 334 }
 335
 336 static void
 337 g_object_init (GObject *object)
 338 {
 339   object->ref_count = 1;
 340   g_datalist_init (&object->qdata);
 341
 342   /* freeze object's notification queue, g_object_newv() preserves pairedness */
 343   g_object_notify_queue_freeze (object, &property_notify_context);
 344
 345 #ifdef  G_ENABLE_DEBUG
 346   IF_DEBUG (OBJECTS)
 347     {
 348       G_LOCK (debug_objects);
 349       debug_objects_count++;
 350       g_hash_table_insert (debug_objects_ht, object, object);
 351       G_UNLOCK (debug_objects);
 352     }
 353 #endif  /* G_ENABLE_DEBUG */
 354 }
 355
 356 static void
 357 g_object_do_set_property (GObject      *object,
 358                           guint         property_id,
 359                           const GValue *value,
 360                           GParamSpec   *pspec)
 361 {
 362   switch (property_id)
 363     {
 364     default:
 365       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
 366       break;
 367     }
 368 }
 369
 370 static void
 371 g_object_do_get_property (GObject     *object,
 372                           guint        property_id,
 373                           GValue      *value,
 374                           GParamSpec  *pspec)
 375 {
 376   switch (property_id)
 377     {
 378     default:
 379       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
 380       break;
 381     }
 382 }
 383
 384 static void
 385 g_object_real_dispose (GObject *object)
 386 {
 387   guint ref_count;
 388
 389   g_signal_handlers_destroy (object);
 390   g_datalist_id_set_data (&object->qdata, quark_closure_array, NULL);
 391
 392   /* yes, temporarily altering the ref_count is hackish, but that
 393    * enforces people not jerking around with weak_ref notifiers
 394    */
 395   ref_count = object->ref_count;
 396   object->ref_count = 0;
 397   g_datalist_id_set_data (&object->qdata, quark_weak_refs, NULL);
 398   object->ref_count = ref_count;
 399 }
 400
 401 static void
 402 g_object_finalize (GObject *object)
 403 {
 404   g_datalist_clear (&object->qdata);
 405
 406 #ifdef  G_ENABLE_DEBUG
 407   IF_DEBUG (OBJECTS)
 408     {
 409       G_LOCK (debug_objects);
 410       g_assert (g_hash_table_lookup (debug_objects_ht, object) == object);
 411       g_hash_table_remove (debug_objects_ht, object);
 412       debug_objects_count--;
 413       G_UNLOCK (debug_objects);
 414     }
 415 #endif  /* G_ENABLE_DEBUG */
 416 }
 417
 418 static void
 419 g_object_last_unref (GObject *object)
 420 {
 421   g_return_if_fail (object->ref_count > 0);
 422
 423   if (object->ref_count == 1)   /* may have been re-referenced meanwhile */
 424     G_OBJECT_GET_CLASS (object)->dispose (object);
 425
 426 #ifdef  G_ENABLE_DEBUG
 427   if (g_trap_object_ref == object)
 428     G_BREAKPOINT ();
 429 #endif  /* G_ENABLE_DEBUG */
 430
 431   object->ref_count -= 1;
 432
 433   if (object->ref_count == 0)   /* may have been re-referenced meanwhile */
 434     {
 435       g_signal_handlers_destroy (object);
 436       g_datalist_id_set_data (&object->qdata, quark_weak_refs, NULL);
 437       G_OBJECT_GET_CLASS (object)->finalize (object);
 438 #ifdef  G_ENABLE_DEBUG
 439       IF_DEBUG (OBJECTS)
 440         {
 441           /* catch objects not chaining finalize handlers */
 442           G_LOCK (debug_objects);
 443           g_assert (g_hash_table_lookup (debug_objects_ht, object) == NULL);
 444           G_UNLOCK (debug_objects);
 445         }
 446 #endif  /* G_ENABLE_DEBUG */
 447       g_type_free_instance ((GTypeInstance*) object);
 448     }
 449 }
 450
 451 static void
 452 g_object_dispatch_properties_changed (GObject     *object,
 453                                       guint        n_pspecs,
 454                                       GParamSpec **pspecs)
 455 {
 456   guint i;
 457
 458   for (i = 0; i < n_pspecs; i++)
 459     g_signal_emit (object, gobject_signals[NOTIFY], g_quark_from_string (pspecs[i]->name), pspecs[i]);
 460 }
 461
 462 void
 463 g_object_run_dispose (GObject *object)
 464 {
 465   g_return_if_fail (G_IS_OBJECT (object));
 466   g_return_if_fail (object->ref_count > 0);
 467
 468   g_object_ref (object);
 469   G_OBJECT_GET_CLASS (object)->dispose (object);
 470   g_object_unref (object);
 471 }
 472
 473 void
 474 g_object_freeze_notify (GObject *object)
 475 {
 476   g_return_if_fail (G_IS_OBJECT (object));
 477   if (!object->ref_count)
 478     return;
 479
 480   g_object_ref (object);
 481   g_object_notify_queue_freeze (object, &property_notify_context);
 482   g_object_unref (object);
 483 }
 484
 485 void
 486 g_object_notify (GObject     *object,
 487                  const gchar *property_name)
 488 {
 489   GParamSpec *pspec;
 490
 491   g_return_if_fail (G_IS_OBJECT (object));
 492   g_return_if_fail (property_name != NULL);
 493   if (!object->ref_count)
 494     return;
 495
 496   g_object_ref (object);
 497   pspec = g_param_spec_pool_lookup (pspec_pool,
 498                                     property_name,
 499                                     G_OBJECT_TYPE (object),
 500                                     TRUE);
 501   if (!pspec)
 502     g_warning ("%s: object class `%s' has no property named `%s'",
 503                G_STRLOC,
 504                G_OBJECT_TYPE_NAME (object),
 505                property_name);
 506   else
 507     {
 508       GObjectNotifyQueue *nqueue = g_object_notify_queue_freeze (object, &property_notify_context);
 509
 510       g_object_notify_queue_add (object, nqueue, pspec);
 511       g_object_notify_queue_thaw (object, nqueue);
 512     }
 513   g_object_unref (object);
 514 }
 515
 516 void
 517 g_object_thaw_notify (GObject *object)
 518 {
 519   GObjectNotifyQueue *nqueue;
 520
 521   g_return_if_fail (G_IS_OBJECT (object));
 522   if (!object->ref_count)
 523     return;
 524
 525   g_object_ref (object);
 526   nqueue = g_object_notify_queue_from_object (object, &property_notify_context);
 527   if (!nqueue || !nqueue->freeze_count)
 528     g_warning (G_STRLOC ": property-changed notification for %s(%p) is not frozen",
 529                G_OBJECT_TYPE_NAME (object), object);
 530   else
 531     g_object_notify_queue_thaw (object, nqueue);
 532   g_object_unref (object);
 533 }
 534
 535 static inline void
 536 object_get_property (GObject     *object,
 537                      GParamSpec  *pspec,
 538                      GValue      *value)
 539 {
 540   GObjectClass *class = g_type_class_peek (pspec->owner_type);
 541
 542   class->get_property (object, PARAM_SPEC_PARAM_ID (pspec), value, pspec);
 543 }
 544
 545 static inline void
 546 object_set_property (GObject             *object,
 547                      GParamSpec          *pspec,
 548                      const GValue        *value,
 549                      GObjectNotifyQueue  *nqueue)
 550 {
 551   GValue tmp_value = { 0, };
 552   GObjectClass *class = g_type_class_peek (pspec->owner_type);
 553
 554   /* provide a copy to work from, convert (if necessary) and validate */
 555   g_value_init (&tmp_value, G_PARAM_SPEC_VALUE_TYPE (pspec));
 556   if (!g_value_transform (value, &tmp_value))
 557     g_warning ("unable to set property `%s' of type `%s' from value of type `%s'",
 558                pspec->name,
 559                g_type_name (G_PARAM_SPEC_VALUE_TYPE (pspec)),
 560                G_VALUE_TYPE_NAME (value));
 561   else if (g_param_value_validate (pspec, &tmp_value) && !(pspec->flags & G_PARAM_LAX_VALIDATION))
 562     {
 563       gchar *contents = g_strdup_value_contents (value);
 564
 565       g_warning ("value \"%s\" of type `%s' is invalid for property `%s' of type `%s'",
 566                  contents,
 567                  G_VALUE_TYPE_NAME (value),
 568                  pspec->name,
 569                  g_type_name (G_PARAM_SPEC_VALUE_TYPE (pspec)));
 570       g_free (contents);
 571     }
 572   else
 573     {
 574       class->set_property (object, PARAM_SPEC_PARAM_ID (pspec), &tmp_value, pspec);
 575       g_object_notify_queue_add (object, nqueue, pspec);
 576     }
 577   g_value_unset (&tmp_value);
 578 }
 579
 580 gpointer
 581 g_object_new (GType        object_type,
 582               const gchar *first_property_name,
 583               ...)
 584 {
 585   GObject *object;
 586   va_list var_args;
 587
 588   g_return_val_if_fail (G_TYPE_IS_OBJECT (object_type), NULL);
 589
 590   va_start (var_args, first_property_name);
 591   object = g_object_new_valist (object_type, first_property_name, var_args);
 592   va_end (var_args);
 593
 594   return object;
 595 }
 596
 597 gpointer
 598 g_object_newv (GType       object_type,
 599                guint       n_parameters,
 600                GParameter *parameters)
 601 {
 602   GObjectConstructParam *cparams, *oparams;
 603   GObjectNotifyQueue *nqueue;
 604   GObject *object;
 605   GObjectClass *class;
 606   GSList *slist;
 607   guint n_total_cparams = 0, n_cparams = 0, n_oparams = 0, n_cvalues;
 608   GValue *cvalues;
 609   GList *clist = NULL;
 610   guint i;
 611
 612   g_return_val_if_fail (G_TYPE_IS_OBJECT (object_type), NULL);
 613
 614   class = g_type_class_ref (object_type);
 615   for (slist = class->construct_properties; slist; slist = slist->next)
 616     {
 617       clist = g_list_prepend (clist, slist->data);
 618       n_total_cparams += 1;
 619     }
 620
 621   /* collect parameters, sort into construction and normal ones */
 622   oparams = g_new (GObjectConstructParam, n_parameters);
 623   cparams = g_new (GObjectConstructParam, n_total_cparams);
 624   for (i = 0; i < n_parameters; i++)
 625     {
 626       GValue *value = &parameters[i].value;
 627       GParamSpec *pspec = g_param_spec_pool_lookup (pspec_pool,
 628                                                     parameters[i].name,
 629                                                     object_type,
 630                                                     TRUE);
 631       if (!pspec)
 632         {
 633           g_warning ("%s: object class `%s' has no property named `%s'",
 634                      G_STRLOC,
 635                      g_type_name (object_type),
 636                      parameters[i].name);
 637           continue;
 638         }
 639       if (!(pspec->flags & G_PARAM_WRITABLE))
 640         {
 641           g_warning ("%s: property `%s' of object class `%s' is not writable",
 642                      G_STRLOC,
 643                      pspec->name,
 644                      g_type_name (object_type));
 645           continue;
 646         }
 647       if (pspec->flags & (G_PARAM_CONSTRUCT | G_PARAM_CONSTRUCT_ONLY))
 648         {
 649           GList *list = g_list_find (clist, pspec);
 650
 651           if (!list)
 652             {
 653               g_warning (G_STRLOC ": construct property \"%s\" for object `%s' can't be set twice",
 654                          pspec->name, g_type_name (object_type));
 655               continue;
 656             }
 657           cparams[n_cparams].pspec = pspec;
 658           cparams[n_cparams].value = value;
 659           n_cparams++;
 660           if (!list->prev)
 661             clist = list->next;
 662           else
 663             list->prev->next = list->next;
 664           if (list->next)
 665             list->next->prev = list->prev;
 666           g_list_free_1 (list);
 667         }
 668       else
 669         {
 670           oparams[n_oparams].pspec = pspec;
 671           oparams[n_oparams].value = value;
 672           n_oparams++;
 673         }
 674     }
 675
 676   /* set remaining construction properties to default values */
 677   n_cvalues = n_total_cparams - n_cparams;
 678   cvalues = g_new (GValue, n_cvalues);
 679   while (clist)
 680     {
 681       GList *tmp = clist->next;
 682       GParamSpec *pspec = clist->data;
 683       GValue *value = cvalues + n_total_cparams - n_cparams - 1;
 684
 685       value->g_type = 0;
 686       g_value_init (value, G_PARAM_SPEC_VALUE_TYPE (pspec));
 687       g_param_value_set_default (pspec, value);
 688
 689       cparams[n_cparams].pspec = pspec;
 690       cparams[n_cparams].value = value;
 691       n_cparams++;
 692
 693       g_list_free_1 (clist);
 694       clist = tmp;
 695     }
 696
 697   /* construct object from construction parameters */
 698   object = class->constructor (object_type, n_total_cparams, cparams);
 699
 700   /* free construction values */
 701   g_free (cparams);
 702   while (n_cvalues--)
 703     g_value_unset (cvalues + n_cvalues);
 704   g_free (cvalues);
 705
 706   /* release g_object_init() notification queue freeze_count */
 707   nqueue = g_object_notify_queue_freeze (object, &property_notify_context);
 708   g_object_notify_queue_thaw (object, nqueue);
 709
 710   /* set remaining properties */
 711   for (i = 0; i < n_oparams; i++)
 712     object_set_property (object, oparams[i].pspec, oparams[i].value, nqueue);
 713   g_free (oparams);
 714
 715   g_type_class_unref (class);
 716
 717   /* release our own freeze count and handle notifications */
 718   g_object_notify_queue_thaw (object, nqueue);
 719
 720   return object;
 721 }
 722
 723 GObject*
 724 g_object_new_valist (GType        object_type,
 725                      const gchar *first_property_name,
 726                      va_list      var_args)
 727 {
 728   GObjectClass *class;
 729   GParameter *params;
 730   const gchar *name;
 731   GObject *object;
 732   guint n_params = 0, n_alloced_params = 16;
 733
 734   g_return_val_if_fail (G_TYPE_IS_OBJECT (object_type), NULL);
 735
 736   if (!first_property_name)
 737     return g_object_newv (object_type, 0, NULL);
 738
 739   class = g_type_class_ref (object_type);
 740
 741   params = g_new (GParameter, n_alloced_params);
 742   name = first_property_name;
 743   while (name)
 744     {
 745       gchar *error = NULL;
 746       GParamSpec *pspec = g_param_spec_pool_lookup (pspec_pool,
 747                                                     name,
 748                                                     object_type,
 749                                                     TRUE);
 750       if (!pspec)
 751         {
 752           g_warning ("%s: object class `%s' has no property named `%s'",
 753                      G_STRLOC,
 754                      g_type_name (object_type),
 755                      name);
 756           break;
 757         }
 758       if (n_params >= n_alloced_params)
 759         {
 760           n_alloced_params += 16;
 761           params = g_renew (GParameter, params, n_alloced_params);
 762         }
 763       params[n_params].name = name;
 764       params[n_params].value.g_type = 0;
 765       g_value_init (&params[n_params].value, G_PARAM_SPEC_VALUE_TYPE (pspec));
 766       G_VALUE_COLLECT (&params[n_params].value, var_args, 0, &error);
 767       if (error)
 768         {
 769           g_warning ("%s: %s", G_STRLOC, error);
 770           g_free (error);
 771
 772           /* we purposely leak the value here, it might not be
 773            * in a sane state if an error condition occoured
 774            */
 775           break;
 776         }
 777       n_params++;
 778       name = va_arg (var_args, gchar*);
 779     }
 780
 781   object = g_object_newv (object_type, n_params, params);
 782
 783   while (n_params--)
 784     g_value_unset (&params[n_params].value);
 785   g_free (params);
 786
 787   g_type_class_unref (class);
 788
 789   return object;
 790 }
 791
 792 static GObject*
 793 g_object_constructor (GType                  type,
 794                       guint                  n_construct_properties,
 795                       GObjectConstructParam *construct_params)
 796 {
 797   GObject *object;
 798
 799   /* create object */
 800   object = (GObject*) g_type_create_instance (type);
 801
 802   /* set construction parameters */
 803   if (n_construct_properties)
 804     {
 805       GObjectNotifyQueue *nqueue = g_object_notify_queue_freeze (object, &property_notify_context);
 806
 807       /* set construct properties */
 808       while (n_construct_properties--)
 809         {
 810           GValue *value = construct_params->value;
 811           GParamSpec *pspec = construct_params->pspec;
 812
 813           construct_params++;
 814           object_set_property (object, pspec, value, nqueue);
 815         }
 816       g_object_notify_queue_thaw (object, nqueue);
 817       /* the notification queue is still frozen from g_object_init(), so
 818        * we don't need to handle it here, g_object_newv() takes
 819        * care of that
 820        */
 821     }
 822
 823   return object;
 824 }
 825
 826 void
 827 g_object_set_valist (GObject     *object,
 828                      const gchar *first_property_name,
 829                      va_list      var_args)
 830 {
 831   GObjectNotifyQueue *nqueue;
 832   const gchar *name;
 833
 834   g_return_if_fail (G_IS_OBJECT (object));
 835
 836   g_object_ref (object);
 837   nqueue = g_object_notify_queue_freeze (object, &property_notify_context);
 838
 839   name = first_property_name;
 840   while (name)
 841     {
 842       GValue value = { 0, };
 843       GParamSpec *pspec;
 844       gchar *error = NULL;
 845
 846       pspec = g_param_spec_pool_lookup (pspec_pool,
 847                                         name,
 848                                         G_OBJECT_TYPE (object),
 849                                         TRUE);
 850       if (!pspec)
 851         {
 852           g_warning ("%s: object class `%s' has no property named `%s'",
 853                      G_STRLOC,
 854                      G_OBJECT_TYPE_NAME (object),
 855                      name);
 856           break;
 857         }
 858       if (!(pspec->flags & G_PARAM_WRITABLE))
 859         {
 860           g_warning ("%s: property `%s' of object class `%s' is not writable",
 861                      G_STRLOC,
 862                      pspec->name,
 863                      G_OBJECT_TYPE_NAME (object));
 864           break;
 865         }
 866
 867       g_value_init (&value, G_PARAM_SPEC_VALUE_TYPE (pspec));
 868
 869       G_VALUE_COLLECT (&value, var_args, 0, &error);
 870       if (error)
 871         {
 872           g_warning ("%s: %s", G_STRLOC, error);
 873           g_free (error);
 874
 875           /* we purposely leak the value here, it might not be
 876            * in a sane state if an error condition occoured
 877            */
 878           break;
 879         }
 880
 881       object_set_property (object, pspec, &value, nqueue);
 882       g_value_unset (&value);
 883
 884       name = va_arg (var_args, gchar*);
 885     }
 886
 887   g_object_notify_queue_thaw (object, nqueue);
 888   g_object_unref (object);
 889 }
 890
 891 void
 892 g_object_get_valist (GObject     *object,
 893                      const gchar *first_property_name,
 894                      va_list      var_args)
 895 {
 896   const gchar *name;
 897
 898   g_return_if_fail (G_IS_OBJECT (object));
 899
 900   g_object_ref (object);
 901
 902   name = first_property_name;
 903
 904   while (name)
 905     {
 906       GValue value = { 0, };
 907       GParamSpec *pspec;
 908       gchar *error;
 909
 910       pspec = g_param_spec_pool_lookup (pspec_pool,
 911                                         name,
 912                                         G_OBJECT_TYPE (object),
 913                                         TRUE);
 914       if (!pspec)
 915         {
 916           g_warning ("%s: object class `%s' has no property named `%s'",
 917                      G_STRLOC,
 918                      G_OBJECT_TYPE_NAME (object),
 919                      name);
 920           break;
 921         }
 922       if (!(pspec->flags & G_PARAM_READABLE))
 923         {
 924           g_warning ("%s: property `%s' of object class `%s' is not readable",
 925                      G_STRLOC,
 926                      pspec->name,
 927                      G_OBJECT_TYPE_NAME (object));
 928           break;
 929         }
 930
 931       g_value_init (&value, G_PARAM_SPEC_VALUE_TYPE (pspec));
 932
 933       object_get_property (object, pspec, &value);
 934
 935       G_VALUE_LCOPY (&value, var_args, 0, &error);
 936       if (error)
 937         {
 938           g_warning ("%s: %s", G_STRLOC, error);
 939           g_free (error);
 940           g_value_unset (&value);
 941           break;
 942         }
 943
 944       g_value_unset (&value);
 945
 946       name = va_arg (var_args, gchar*);
 947     }
 948
 949   g_object_unref (object);
 950 }
 951
 952 void
 953 g_object_set (gpointer     _object,
 954               const gchar *first_property_name,
 955               ...)
 956 {
 957   GObject *object = _object;
 958   va_list var_args;
 959
 960   g_return_if_fail (G_IS_OBJECT (object));
 961
 962   va_start (var_args, first_property_name);
 963   g_object_set_valist (object, first_property_name, var_args);
 964   va_end (var_args);
 965 }
 966
 967 void
 968 g_object_get (gpointer     _object,
 969               const gchar *first_property_name,
 970               ...)
 971 {
 972   GObject *object = _object;
 973   va_list var_args;
 974
 975   g_return_if_fail (G_IS_OBJECT (object));
 976
 977   va_start (var_args, first_property_name);
 978   g_object_get_valist (object, first_property_name, var_args);
 979   va_end (var_args);
 980 }
 981
 982 void
 983 g_object_set_property (GObject      *object,
 984                        const gchar  *property_name,
 985                        const GValue *value)
 986 {
 987   GObjectNotifyQueue *nqueue;
 988   GParamSpec *pspec;
 989
 990   g_return_if_fail (G_IS_OBJECT (object));
 991   g_return_if_fail (property_name != NULL);
 992   g_return_if_fail (G_IS_VALUE (value));
 993
 994   g_object_ref (object);
 995   nqueue = g_object_notify_queue_freeze (object, &property_notify_context);
 996
 997   pspec = g_param_spec_pool_lookup (pspec_pool,
 998                                     property_name,
 999                                     G_OBJECT_TYPE (object),
1000                                     TRUE);
1001   if (!pspec)
1002     g_warning ("%s: object class `%s' has no property named `%s'",
1003                G_STRLOC,
1004                G_OBJECT_TYPE_NAME (object),
1005                property_name);
1006   else
1007     object_set_property (object, pspec, value, nqueue);
1008
1009   g_object_notify_queue_thaw (object, nqueue);
1010   g_object_unref (object);
1011 }
1012
1013 void
1014 g_object_get_property (GObject     *object,
1015                        const gchar *property_name,
1016                        GValue      *value)
1017 {
1018   GParamSpec *pspec;
1019
1020   g_return_if_fail (G_IS_OBJECT (object));
1021   g_return_if_fail (property_name != NULL);
1022   g_return_if_fail (G_IS_VALUE (value));
1023
1024   g_object_ref (object);
1025
1026   pspec = g_param_spec_pool_lookup (pspec_pool,
1027                                     property_name,
1028                                     G_OBJECT_TYPE (object),
1029                                     TRUE);
1030   if (!pspec)
1031     g_warning ("%s: object class `%s' has no property named `%s'",
1032                G_STRLOC,
1033                G_OBJECT_TYPE_NAME (object),
1034                property_name);
1035   else
1036     {
1037       GValue *prop_value, tmp_value = { 0, };
1038
1039       /* auto-conversion of the callers value type
1040        */
1041       if (G_VALUE_TYPE (value) == G_PARAM_SPEC_VALUE_TYPE (pspec))
1042         {
1043           g_value_reset (value);
1044           prop_value = value;
1045         }
1046       else if (!g_value_type_transformable (G_PARAM_SPEC_VALUE_TYPE (pspec), G_VALUE_TYPE (value)))
1047         {
1048           g_warning ("can't retrieve property `%s' of type `%s' as value of type `%s'",
1049                      pspec->name,
1050                      g_type_name (G_PARAM_SPEC_VALUE_TYPE (pspec)),
1051                      G_VALUE_TYPE_NAME (value));
1052           g_object_unref (object);
1053           return;
1054         }
1055       else
1056         {
1057           g_value_init (&tmp_value, G_PARAM_SPEC_VALUE_TYPE (pspec));
1058           prop_value = &tmp_value;
1059         }
1060       object_get_property (object, pspec, prop_value);
1061       if (prop_value != value)
1062         {
1063           g_value_transform (prop_value, value);
1064           g_value_unset (&tmp_value);
1065         }
1066     }
1067
1068   g_object_unref (object);
1069 }
1070
1071 gpointer
1072 g_object_connect (gpointer     _object,
1073                   const gchar *signal_spec,
1074                   ...)
1075 {
1076   GObject *object = _object;
1077   va_list var_args;
1078
1079   g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1080   g_return_val_if_fail (object->ref_count > 0, object);
1081
1082   va_start (var_args, signal_spec);
1083   while (signal_spec)
1084     {
1085       GCallback callback = va_arg (var_args, GCallback);
1086       gpointer data = va_arg (var_args, gpointer);
1087       gulong sid;
1088
1089       if (strncmp (signal_spec, "signal::", 8) == 0)
1090         sid = g_signal_connect_data (object, signal_spec + 8,
1091                                      callback, data, NULL,
1092                                      0);
1093       else if (strncmp (signal_spec, "object_signal::", 15) == 0)
1094         sid = g_signal_connect_object (object, signal_spec + 15,
1095                                        callback, data,
1096                                        0);
1097       else if (strncmp (signal_spec, "swapped_signal::", 16) == 0)
1098         sid = g_signal_connect_data (object, signal_spec + 16,
1099                                      callback, data, NULL,
1100                                      G_CONNECT_SWAPPED);
1101       else if (strncmp (signal_spec, "swapped_object_signal::", 23) == 0)
1102         sid = g_signal_connect_object (object, signal_spec + 23,
1103                                        callback, data,
1104                                        G_CONNECT_SWAPPED);
1105       else if (strncmp (signal_spec, "signal_after::", 14) == 0)
1106         sid = g_signal_connect_data (object, signal_spec + 14,
1107                                      callback, data, NULL,
1108                                      G_CONNECT_AFTER);
1109       else if (strncmp (signal_spec, "object_signal_after::", 21) == 0)
1110         sid = g_signal_connect_object (object, signal_spec + 21,
1111                                        callback, data,
1112                                        G_CONNECT_AFTER);
1113       else if (strncmp (signal_spec, "swapped_signal_after::", 22) == 0)
1114         sid = g_signal_connect_data (object, signal_spec + 22,
1115                                      callback, data, NULL,
1116                                      G_CONNECT_SWAPPED | G_CONNECT_AFTER);
1117       else if (strncmp (signal_spec, "swapped_object_signal_after::", 29) == 0)
1118         sid = g_signal_connect_object (object, signal_spec + 29,
1119                                        callback, data,
1120                                        G_CONNECT_SWAPPED | G_CONNECT_AFTER);
1121       else
1122         {
1123           g_warning ("%s: invalid signal spec \"%s\"", G_STRLOC, signal_spec);
1124           break;
1125         }
1126       signal_spec = va_arg (var_args, gchar*);
1127     }
1128   va_end (var_args);
1129
1130   return object;
1131 }
1132
1133 void
1134 g_object_disconnect (gpointer     _object,
1135                      const gchar *signal_spec,
1136                      ...)
1137 {
1138   GObject *object = _object;
1139   va_list var_args;
1140
1141   g_return_if_fail (G_IS_OBJECT (object));
1142   g_return_if_fail (object->ref_count > 0);
1143
1144   va_start (var_args, signal_spec);
1145   while (signal_spec)
1146     {
1147       GCallback callback = va_arg (var_args, GCallback);
1148       gpointer data = va_arg (var_args, gpointer);
1149       guint sid = 0, detail = 0, mask = 0;
1150
1151       if (strncmp (signal_spec, "any_signal::", 12) == 0)
1152         {
1153           signal_spec += 12;
1154           mask = G_SIGNAL_MATCH_ID | G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA;
1155         }
1156       else if (strcmp (signal_spec, "any_signal") == 0)
1157         {
1158           signal_spec += 10;
1159           mask = G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA;
1160         }
1161       else
1162         {
1163           g_warning ("%s: invalid signal spec \"%s\"", G_STRLOC, signal_spec);
1164           break;
1165         }
1166
1167       if ((mask & G_SIGNAL_MATCH_ID) &&
1168           !g_signal_parse_name (signal_spec, G_OBJECT_TYPE (object), &sid, &detail, FALSE))
1169         g_warning ("%s: invalid signal name \"%s\"", G_STRLOC, signal_spec);
1170       else if (!g_signal_handlers_disconnect_matched (object, mask | (detail ? G_SIGNAL_MATCH_DETAIL : 0),
1171                                                       sid, detail,
1172                                                       NULL, (gpointer)callback, data))
1173         g_warning (G_STRLOC ": signal handler %p(%p) is not connected", callback, data);
1174       signal_spec = va_arg (var_args, gchar*);
1175     }
1176   va_end (var_args);
1177 }
1178
1179 typedef struct {
1180   GObject *object;
1181   guint n_weak_refs;
1182   struct {
1183     GWeakNotify notify;
1184     gpointer    data;
1185   } weak_refs[1];  /* flexible array */
1186 } WeakRefStack;
1187
1188 static void
1189 weak_refs_notify (gpointer data)
1190 {
1191   WeakRefStack *wstack = data;
1192   guint i;
1193
1194   for (i = 0; i < wstack->n_weak_refs; i++)
1195     wstack->weak_refs[i].notify (wstack->weak_refs[i].data, wstack->object);
1196   g_free (wstack);
1197 }
1198
1199 void
1200 g_object_weak_ref (GObject    *object,
1201                    GWeakNotify notify,
1202                    gpointer    data)
1203 {
1204   WeakRefStack *wstack;
1205   guint i;
1206
1207   g_return_if_fail (G_IS_OBJECT (object));
1208   g_return_if_fail (notify != NULL);
1209   g_return_if_fail (object->ref_count >= 1);
1210
1211   wstack = g_datalist_id_remove_no_notify (&object->qdata, quark_weak_refs);
1212   if (wstack)
1213     {
1214       i = wstack->n_weak_refs++;
1215       wstack = g_realloc (wstack, sizeof (*wstack) + sizeof (wstack->weak_refs[0]) * i);
1216     }
1217   else
1218     {
1219       wstack = g_renew (WeakRefStack, NULL, 1);
1220       wstack->object = object;
1221       wstack->n_weak_refs = 1;
1222       i = 0;
1223     }
1224   wstack->weak_refs[i].notify = notify;
1225   wstack->weak_refs[i].data = data;
1226   g_datalist_id_set_data_full (&object->qdata, quark_weak_refs, wstack, weak_refs_notify);
1227 }
1228
1229 void
1230 g_object_weak_unref (GObject    *object,
1231                      GWeakNotify notify,
1232                      gpointer    data)
1233 {
1234   WeakRefStack *wstack;
1235   gboolean found_one = FALSE;
1236
1237   g_return_if_fail (G_IS_OBJECT (object));
1238   g_return_if_fail (notify != NULL);
1239
1240   wstack = g_datalist_id_get_data (&object->qdata, quark_weak_refs);
1241   if (wstack)
1242     {
1243       guint i;
1244
1245       for (i = 0; i < wstack->n_weak_refs; i++)
1246         if (wstack->weak_refs[i].notify == notify &&
1247             wstack->weak_refs[i].data == data)
1248           {
1249             found_one = TRUE;
1250             wstack->n_weak_refs -= 1;
1251             if (i != wstack->n_weak_refs)
1252               {
1253                 wstack->weak_refs[i].notify = wstack->weak_refs[wstack->n_weak_refs].notify;
1254                 wstack->weak_refs[i].data = wstack->weak_refs[wstack->n_weak_refs].data;
1255               }
1256             break;
1257           }
1258     }
1259   if (!found_one)
1260     g_warning (G_STRLOC ": couldn't find weak ref %p(%p)", notify, data);
1261 }
1262
1263 void
1264 g_object_add_weak_pointer (GObject  *object,
1265                            gpointer *weak_pointer_location)
1266 {
1267   g_return_if_fail (G_IS_OBJECT (object));
1268   g_return_if_fail (weak_pointer_location != NULL);
1269
1270   g_object_weak_ref (object,
1271                      (GWeakNotify) g_nullify_pointer,
1272                      weak_pointer_location);
1273 }
1274
1275 void
1276 g_object_remove_weak_pointer (GObject  *object,
1277                               gpointer *weak_pointer_location)
1278 {
1279   g_return_if_fail (G_IS_OBJECT (object));
1280   g_return_if_fail (weak_pointer_location != NULL);
1281
1282   g_object_weak_unref (object,
1283                        (GWeakNotify) g_nullify_pointer,
1284                        weak_pointer_location);
1285 }
1286
1287 gpointer
1288 g_object_ref (gpointer _object)
1289 {
1290   GObject *object = _object;
1291
1292   g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1293   g_return_val_if_fail (object->ref_count > 0, NULL);
1294
1295 #ifdef  G_ENABLE_DEBUG
1296   if (g_trap_object_ref == object)
1297     G_BREAKPOINT ();
1298 #endif  /* G_ENABLE_DEBUG */
1299
1300   object->ref_count += 1;
1301
1302   return object;
1303 }
1304
1305 void
1306 g_object_unref (gpointer _object)
1307 {
1308   GObject *object = _object;
1309
1310   g_return_if_fail (G_IS_OBJECT (object));
1311   g_return_if_fail (object->ref_count > 0);
1312
1313 #ifdef  G_ENABLE_DEBUG
1314   if (g_trap_object_ref == object)
1315     G_BREAKPOINT ();
1316 #endif  /* G_ENABLE_DEBUG */
1317
1318   if (object->ref_count > 1)
1319     object->ref_count -= 1;
1320   else
1321     g_object_last_unref (object);
1322 }
1323
1324 gpointer
1325 g_object_get_qdata (GObject *object,
1326                     GQuark   quark)
1327 {
1328   g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1329
1330   return quark ? g_datalist_id_get_data (&object->qdata, quark) : NULL;
1331 }
1332
1333 void
1334 g_object_set_qdata (GObject *object,
1335                     GQuark   quark,
1336                     gpointer data)
1337 {
1338   g_return_if_fail (G_IS_OBJECT (object));
1339   g_return_if_fail (quark > 0);
1340
1341   g_datalist_id_set_data (&object->qdata, quark, data);
1342 }
1343
1344 void
1345 g_object_set_qdata_full (GObject       *object,
1346                          GQuark         quark,
1347                          gpointer       data,
1348                          GDestroyNotify destroy)
1349 {
1350   g_return_if_fail (G_IS_OBJECT (object));
1351   g_return_if_fail (quark > 0);
1352
1353   g_datalist_id_set_data_full (&object->qdata, quark, data,
1354                                data ? destroy : (GDestroyNotify) NULL);
1355 }
1356
1357 gpointer
1358 g_object_steal_qdata (GObject *object,
1359                       GQuark   quark)
1360 {
1361   g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1362   g_return_val_if_fail (quark > 0, NULL);
1363
1364   return g_datalist_id_remove_no_notify (&object->qdata, quark);
1365 }
1366
1367 gpointer
1368 g_object_get_data (GObject     *object,
1369                    const gchar *key)
1370 {
1371   GQuark quark;
1372
1373   g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1374   g_return_val_if_fail (key != NULL, NULL);
1375
1376   quark = g_quark_try_string (key);
1377
1378   return quark ? g_datalist_id_get_data (&object->qdata, quark) : NULL;
1379 }
1380
1381 void
1382 g_object_set_data (GObject     *object,
1383                    const gchar *key,
1384                    gpointer     data)
1385 {
1386   g_return_if_fail (G_IS_OBJECT (object));
1387   g_return_if_fail (key != NULL);
1388
1389   g_datalist_id_set_data (&object->qdata, g_quark_from_string (key), data);
1390 }
1391
1392 void
1393 g_object_set_data_full (GObject       *object,
1394                         const gchar   *key,
1395                         gpointer       data,
1396                         GDestroyNotify destroy)
1397 {
1398   g_return_if_fail (G_IS_OBJECT (object));
1399   g_return_if_fail (key != NULL);
1400
1401   g_datalist_id_set_data_full (&object->qdata, g_quark_from_string (key), data,
1402                                data ? destroy : (GDestroyNotify) NULL);
1403 }
1404
1405 gpointer
1406 g_object_steal_data (GObject     *object,
1407                      const gchar *key)
1408 {
1409   GQuark quark;
1410
1411   g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1412   g_return_val_if_fail (key != NULL, NULL);
1413
1414   quark = g_quark_try_string (key);
1415
1416   return quark ? g_datalist_id_remove_no_notify (&object->qdata, quark) : NULL;
1417 }
1418
1419 static void
1420 g_value_object_init (GValue *value)
1421 {
1422   value->data[0].v_pointer = NULL;
1423 }
1424
1425 static void
1426 g_value_object_free_value (GValue *value)
1427 {
1428   if (value->data[0].v_pointer)
1429     g_object_unref (value->data[0].v_pointer);
1430 }
1431
1432 static void
1433 g_value_object_copy_value (const GValue *src_value,
1434                            GValue       *dest_value)
1435 {
1436   if (src_value->data[0].v_pointer)
1437     dest_value->data[0].v_pointer = g_object_ref (src_value->data[0].v_pointer);
1438   else
1439     dest_value->data[0].v_pointer = NULL;
1440 }
1441
1442 static void
1443 g_value_object_transform_value (const GValue *src_value,
1444                                 GValue       *dest_value)
1445 {
1446   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)))
1447     dest_value->data[0].v_pointer = g_object_ref (src_value->data[0].v_pointer);
1448   else
1449     dest_value->data[0].v_pointer = NULL;
1450 }
1451
1452 static gpointer
1453 g_value_object_peek_pointer (const GValue *value)
1454 {
1455   return value->data[0].v_pointer;
1456 }
1457
1458 static gchar*
1459 g_value_object_collect_value (GValue      *value,
1460                               guint        n_collect_values,
1461                               GTypeCValue *collect_values,
1462                               guint        collect_flags)
1463 {
1464   if (collect_values[0].v_pointer)
1465     {
1466       GObject *object = collect_values[0].v_pointer;
1467
1468       if (object->g_type_instance.g_class == NULL)
1469         return g_strconcat ("invalid unclassed object pointer for value type `",
1470                             G_VALUE_TYPE_NAME (value),
1471                             "'",
1472                             NULL);
1473       else if (!g_value_type_compatible (G_OBJECT_TYPE (object), G_VALUE_TYPE (value)))
1474         return g_strconcat ("invalid object type `",
1475                             G_OBJECT_TYPE_NAME (object),
1476                             "' for value type `",
1477                             G_VALUE_TYPE_NAME (value),
1478                             "'",
1479                             NULL);
1480       /* never honour G_VALUE_NOCOPY_CONTENTS for ref-counted types */
1481       value->data[0].v_pointer = g_object_ref (object);
1482     }
1483   else
1484     value->data[0].v_pointer = NULL;
1485
1486   return NULL;
1487 }
1488
1489 static gchar*
1490 g_value_object_lcopy_value (const GValue *value,
1491                             guint        n_collect_values,
1492                             GTypeCValue *collect_values,
1493                             guint        collect_flags)
1494 {
1495   GObject **object_p = collect_values[0].v_pointer;
1496
1497   if (!object_p)
1498     return g_strdup_printf ("value location for `%s' passed as NULL", G_VALUE_TYPE_NAME (value));
1499
1500   if (!value->data[0].v_pointer)
1501     *object_p = NULL;
1502   else if (collect_flags & G_VALUE_NOCOPY_CONTENTS)
1503     *object_p = value->data[0].v_pointer;
1504   else
1505     *object_p = g_object_ref (value->data[0].v_pointer);
1506
1507   return NULL;
1508 }
1509
1510 void
1511 g_value_set_object (GValue   *value,
1512                     gpointer  v_object)
1513 {
1514   g_return_if_fail (G_VALUE_HOLDS_OBJECT (value));
1515
1516   if (value->data[0].v_pointer)
1517     {
1518       g_object_unref (value->data[0].v_pointer);
1519       value->data[0].v_pointer = NULL;
1520     }
1521
1522   if (v_object)
1523     {
1524       g_return_if_fail (G_IS_OBJECT (v_object));
1525       g_return_if_fail (g_value_type_compatible (G_OBJECT_TYPE (v_object), G_VALUE_TYPE (value)));
1526
1527       value->data[0].v_pointer = v_object;
1528       g_object_ref (value->data[0].v_pointer);
1529     }
1530 }
1531
1532 void
1533 g_value_set_object_take_ownership (GValue  *value,
1534                                    gpointer v_object)
1535 {
1536   g_return_if_fail (G_VALUE_HOLDS_OBJECT (value));
1537
1538   if (value->data[0].v_pointer)
1539     {
1540       g_object_unref (value->data[0].v_pointer);
1541       value->data[0].v_pointer = NULL;
1542     }
1543
1544   if (v_object)
1545     {
1546       g_return_if_fail (G_IS_OBJECT (v_object));
1547       g_return_if_fail (g_value_type_compatible (G_OBJECT_TYPE (v_object), G_VALUE_TYPE (value)));
1548
1549       value->data[0].v_pointer = v_object; /* we take over the reference count */
1550     }
1551 }
1552
1553 gpointer
1554 g_value_get_object (const GValue *value)
1555 {
1556   g_return_val_if_fail (G_VALUE_HOLDS_OBJECT (value), NULL);
1557
1558   return value->data[0].v_pointer;
1559 }
1560
1561 GObject*
1562 g_value_dup_object (const GValue *value)
1563 {
1564   g_return_val_if_fail (G_VALUE_HOLDS_OBJECT (value), NULL);
1565
1566   return value->data[0].v_pointer ? g_object_ref (value->data[0].v_pointer) : NULL;
1567 }
1568
1569 gulong
1570 g_signal_connect_object (gpointer      instance,
1571                          const gchar  *detailed_signal,
1572                          GCallback     c_handler,
1573                          gpointer      gobject,
1574                          GConnectFlags connect_flags)
1575 {
1576   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
1577   g_return_val_if_fail (detailed_signal != NULL, 0);
1578   g_return_val_if_fail (c_handler != NULL, 0);
1579
1580   if (gobject)
1581     {
1582       GClosure *closure;
1583
1584       g_return_val_if_fail (G_IS_OBJECT (gobject), 0);
1585
1586       closure = ((connect_flags & G_CONNECT_SWAPPED) ? g_cclosure_new_object_swap : g_cclosure_new_object) (c_handler, gobject);
1587
1588       return g_signal_connect_closure (instance, detailed_signal, closure, connect_flags & G_CONNECT_AFTER);
1589     }
1590   else
1591     return g_signal_connect_data (instance, detailed_signal, c_handler, NULL, NULL, connect_flags);
1592 }
1593
1594 typedef struct {
1595   GObject  *object;
1596   guint     n_closures;
1597   GClosure *closures[1]; /* flexible array */
1598 } CArray;
1599 /* don't change this structure without supplying an accessor for
1600  * watched closures, e.g.:
1601  * GSList* g_object_list_watched_closures (GObject *object)
1602  * {
1603  *   CArray *carray;
1604  *   g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1605  *   carray = g_object_get_data (object, "GObject-closure-array");
1606  *   if (carray)
1607  *     {
1608  *       GSList *slist = NULL;
1609  *       guint i;
1610  *       for (i = 0; i < carray->n_closures; i++)
1611  *         slist = g_slist_prepend (slist, carray->closures[i]);
1612  *       return slist;
1613  *     }
1614  *   return NULL;
1615  * }
1616  */
1617
1618 static void
1619 object_remove_closure (gpointer  data,
1620                        GClosure *closure)
1621 {
1622   GObject *object = data;
1623   CArray *carray = g_object_get_qdata (object, quark_closure_array);
1624   guint i;
1625
1626   for (i = 0; i < carray->n_closures; i++)
1627     if (carray->closures[i] == closure)
1628       {
1629         carray->n_closures--;
1630         if (i < carray->n_closures)
1631           carray->closures[i] = carray->closures[carray->n_closures];
1632         return;
1633       }
1634   g_assert_not_reached ();
1635 }
1636
1637 static void
1638 destroy_closure_array (gpointer data)
1639 {
1640   CArray *carray = data;
1641   GObject *object = carray->object;
1642   guint i, n = carray->n_closures;
1643
1644   for (i = 0; i < n; i++)
1645     {
1646       GClosure *closure = carray->closures[i];
1647
1648       /* removing object_remove_closure() upfront is probably faster than
1649        * letting it fiddle with quark_closure_array which is empty anyways
1650        */
1651       g_closure_remove_invalidate_notifier (closure, object, object_remove_closure);
1652       g_closure_invalidate (closure);
1653     }
1654   g_free (carray);
1655 }
1656
1657 void
1658 g_object_watch_closure (GObject  *object,
1659                         GClosure *closure)
1660 {
1661   CArray *carray;
1662   guint i;
1663
1664   g_return_if_fail (G_IS_OBJECT (object));
1665   g_return_if_fail (closure != NULL);
1666   g_return_if_fail (closure->is_invalid == FALSE);
1667   g_return_if_fail (closure->in_marshal == FALSE);
1668   g_return_if_fail (object->ref_count > 0);     /* this doesn't work on finalizing objects */
1669
1670   g_closure_add_invalidate_notifier (closure, object, object_remove_closure);
1671   g_closure_add_marshal_guards (closure,
1672                                 object, (GClosureNotify) g_object_ref,
1673                                 object, (GClosureNotify) g_object_unref);
1674   carray = g_datalist_id_remove_no_notify (&object->qdata, quark_closure_array);
1675   if (!carray)
1676     {
1677       carray = g_renew (CArray, NULL, 1);
1678       carray->object = object;
1679       carray->n_closures = 1;
1680       i = 0;
1681     }
1682   else
1683     {
1684       i = carray->n_closures++;
1685       carray = g_realloc (carray, sizeof (*carray) + sizeof (carray->closures[0]) * i);
1686     }
1687   carray->closures[i] = closure;
1688   g_datalist_id_set_data_full (&object->qdata, quark_closure_array, carray, destroy_closure_array);
1689 }
1690
1691 GClosure*
1692 g_closure_new_object (guint    sizeof_closure,
1693                       GObject *object)
1694 {
1695   GClosure *closure;
1696
1697   g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1698   g_return_val_if_fail (object->ref_count > 0, NULL);     /* this doesn't work on finalizing objects */
1699
1700   closure = g_closure_new_simple (sizeof_closure, object);
1701   g_object_watch_closure (object, closure);
1702
1703   return closure;
1704 }
1705
1706 GClosure*
1707 g_cclosure_new_object (GCallback callback_func,
1708                        GObject  *object)
1709 {
1710   GClosure *closure;
1711
1712   g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1713   g_return_val_if_fail (object->ref_count > 0, NULL);     /* this doesn't work on finalizing objects */
1714   g_return_val_if_fail (callback_func != NULL, NULL);
1715
1716   closure = g_cclosure_new (callback_func, object, NULL);
1717   g_object_watch_closure (object, closure);
1718
1719   return closure;
1720 }
1721
1722 GClosure*
1723 g_cclosure_new_object_swap (GCallback callback_func,
1724                             GObject  *object)
1725 {
1726   GClosure *closure;
1727
1728   g_return_val_if_fail (G_IS_OBJECT (object), NULL);
1729   g_return_val_if_fail (object->ref_count > 0, NULL);     /* this doesn't work on finalizing objects */
1730   g_return_val_if_fail (callback_func != NULL, NULL);
1731
1732   closure = g_cclosure_new_swap (callback_func, object, NULL);
1733   g_object_watch_closure (object, closure);
1734
1735   return closure;
1736 }