gobject/gsignal.c

   1 /* GObject - GLib Type, Object, Parameter and Signal Library
   2  * Copyright (C) 2000-2001 Red Hat, Inc.
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General
  15  * Public License along with this library; if not, write to the
  16  * Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  17  * Boston, MA 02111-1307, USA.
  18  *
  19  * this code is based on the original GtkSignal implementation
  20  * for the Gtk+ library by Peter Mattis <petm@xcf.berkeley.edu>
  21  */
  22
  23 /*
  24  * MT safe
  25  */
  26
  27 #include        "gsignal.h"
  28 #include        "gbsearcharray.h"
  29 #include        "gvaluecollector.h"
  30 #include        "gvaluetypes.h"
  31 #include        "gboxed.h"
  32 #include        <string.h>
  33
  34
  35 /* pre allocation configurations
  36  */
  37 #define MAX_STACK_VALUES        (16)
  38 #define BSA_PRE_ALLOC           (20)
  39 #define HANDLER_PRE_ALLOC       (48)
  40 #define EMISSION_PRE_ALLOC      (16)
  41
  42 #define REPORT_BUG      "please report occourance circumstances to gtk-devel-list@gnome.org"
  43 #ifdef  G_ENABLE_DEBUG
  44 #define IF_DEBUG(debug_type, cond)      if ((_g_type_debug_flags & G_TYPE_DEBUG_ ## debug_type) || cond)
  45 static volatile gpointer *g_trace_instance_signals = NULL;
  46 static volatile gpointer *g_trap_instance_signals = NULL;
  47 #endif  /* G_ENABLE_DEBUG */
  48
  49
  50 /* --- generic allocation --- */
  51 /* we special case allocations generically by replacing
  52  * these functions with more speed/memory aware variants
  53  */
  54 #ifndef DISABLE_MEM_POOLS
  55 static inline gpointer
  56 g_generic_node_alloc (GTrashStack **trash_stack_p,
  57                       guint         sizeof_node,
  58                       guint         nodes_pre_alloc)
  59 {
  60   gpointer node = g_trash_stack_pop (trash_stack_p);
  61
  62   if (!node)
  63     {
  64       guint8 *block;
  65
  66       nodes_pre_alloc = MAX (nodes_pre_alloc, 1);
  67       block = g_malloc (sizeof_node * nodes_pre_alloc);
  68       while (--nodes_pre_alloc)
  69         {
  70           g_trash_stack_push (trash_stack_p, block);
  71           block += sizeof_node;
  72         }
  73       node = block;
  74     }
  75
  76   return node;
  77 }
  78 #define g_generic_node_free(trash_stack_p, node) g_trash_stack_push (trash_stack_p, node)
  79 #else   /* !DISABLE_MEM_POOLS */
  80 #define g_generic_node_alloc(t,sizeof_node,p)    g_malloc (sizeof_node)
  81 #define g_generic_node_free(t,node)              g_free (node)
  82 #endif  /* !DISABLE_MEM_POOLS */
  83
  84
  85 /* --- typedefs --- */
  86 typedef struct _SignalNode   SignalNode;
  87 typedef struct _SignalKey    SignalKey;
  88 typedef struct _Emission     Emission;
  89 typedef struct _Handler      Handler;
  90 typedef struct _HandlerList  HandlerList;
  91 typedef struct _HandlerMatch HandlerMatch;
  92 typedef enum
  93 {
  94   EMISSION_STOP,
  95   EMISSION_RUN,
  96   EMISSION_HOOK,
  97   EMISSION_RESTART
  98 } EmissionState;
  99
 100
 101 /* --- prototypes --- */
 102 static inline guint             signal_id_lookup        (GQuark           quark,
 103                                                          GType            itype);
 104 static        void              signal_destroy_R        (SignalNode      *signal_node);
 105 static inline HandlerList*      handler_list_ensure     (guint            signal_id,
 106                                                          gpointer         instance);
 107 static inline HandlerList*      handler_list_lookup     (guint            signal_id,
 108                                                          gpointer         instance);
 109 static inline Handler*          handler_new             (gboolean         after);
 110 static        void              handler_insert          (guint            signal_id,
 111                                                          gpointer         instance,
 112                                                          Handler         *handler);
 113 static        Handler*          handler_lookup          (gpointer         instance,
 114                                                          guint            handler_id,
 115                                                          guint           *signal_id_p);
 116 static inline HandlerMatch*     handler_match_prepend   (HandlerMatch    *list,
 117                                                          Handler         *handler,
 118                                                          guint            signal_id);
 119 static inline HandlerMatch*     handler_match_free1_R   (HandlerMatch    *node,
 120                                                          gpointer         instance);
 121 static        HandlerMatch*     handlers_find           (gpointer         instance,
 122                                                          GSignalMatchType mask,
 123                                                          guint            signal_id,
 124                                                          GQuark           detail,
 125                                                          GClosure        *closure,
 126                                                          gpointer         func,
 127                                                          gpointer         data,
 128                                                          gboolean         one_and_only);
 129 static inline void              handler_ref             (Handler         *handler);
 130 static inline void              handler_unref_R         (guint            signal_id,
 131                                                          gpointer         instance,
 132                                                          Handler         *handler);
 133 static inline void              emission_push           (Emission       **emission_list_p,
 134                                                          guint            signal_id,
 135                                                          GQuark           detail,
 136                                                          gpointer         instance,
 137                                                          EmissionState   *state_p);
 138 static inline void              emission_pop            (Emission       **emission_list_p,
 139                                                          EmissionState   *state_p);
 140 static inline Emission*         emission_find           (Emission        *emission_list,
 141                                                          guint            signal_id,
 142                                                          GQuark           detail,
 143                                                          gpointer         instance);
 144 static        gboolean          signal_emit_R           (SignalNode      *node,
 145                                                          GQuark           detail,
 146                                                          gpointer         instance,
 147                                                          GValue          *return_value,
 148                                                          const GValue    *instance_and_params);
 149
 150
 151 /* --- structures --- */
 152 typedef struct
 153 {
 154   GSignalAccumulator func;
 155   gpointer           data;
 156 } SignalAccumulator;
 157 typedef struct
 158 {
 159   GHook hook;
 160   GQuark detail;
 161 } SignalHook;
 162 #define SIGNAL_HOOK(hook)       ((SignalHook*) (hook))
 163
 164 struct _SignalNode
 165 {
 166   /* permanent portion */
 167   guint              signal_id;
 168   GType              itype;
 169   gchar             *name;
 170   guint              destroyed : 1;
 171
 172   /* reinitializable portion */
 173   guint              flags : 8;
 174   guint              n_params : 8;
 175   GType             *param_types; /* mangled with G_SIGNAL_TYPE_STATIC_SCOPE flag */
 176   GType              return_type; /* mangled with G_SIGNAL_TYPE_STATIC_SCOPE flag */
 177   GClosure          *class_closure;
 178   SignalAccumulator *accumulator;
 179   GSignalCMarshaller c_marshaller;
 180   GHookList         *emission_hooks;
 181 };
 182
 183 struct _SignalKey
 184 {
 185   GType  itype;
 186   GQuark quark;
 187   guint  signal_id;
 188 };
 189
 190 struct _Emission
 191 {
 192   Emission      *next;
 193   guint          signal_id;
 194   GQuark         detail;
 195   gpointer       instance;
 196   EmissionState *state_p;
 197 };
 198
 199 struct _HandlerList
 200 {
 201   guint    signal_id;
 202   Handler *handlers;
 203 };
 204 struct _Handler
 205 {
 206   guint         id;
 207   Handler      *next;
 208   Handler      *prev;
 209   GQuark        detail;
 210   guint         ref_count : 16;
 211 #define HANDLER_MAX_REF_COUNT   (1 << 16)
 212   guint         block_count : 12;
 213 #define HANDLER_MAX_BLOCK_COUNT (1 << 12)
 214   guint         after : 1;
 215   GClosure     *closure;
 216 };
 217 struct _HandlerMatch
 218 {
 219   Handler      *handler;
 220   HandlerMatch *next;
 221   union {
 222     guint       signal_id;
 223     gpointer    dummy;
 224   } d;
 225 };
 226
 227
 228 /* --- variables --- */
 229 static GBSearchArray  g_signal_key_bsa = { NULL, 0, 0, 0, NULL };
 230 static GHashTable    *g_handler_list_bsa_ht = NULL;
 231 static Emission      *g_recursive_emissions = NULL;
 232 static Emission      *g_restart_emissions = NULL;
 233 static GTrashStack   *g_bsa_ts = NULL;
 234 static GTrashStack   *g_handler_ts = NULL;
 235 static GTrashStack   *g_emission_ts = NULL;
 236 G_LOCK_DEFINE_STATIC (g_signal_mutex);
 237
 238
 239 /* --- signal nodes --- */
 240 static guint          g_n_signal_nodes = 0;
 241 static SignalNode   **g_signal_nodes = NULL;
 242
 243 static inline SignalNode*
 244 LOOKUP_SIGNAL_NODE (register guint signal_id)
 245 {
 246   if (signal_id < g_n_signal_nodes)
 247     return g_signal_nodes[signal_id];
 248   else
 249     return NULL;
 250 }
 251
 252
 253 /* --- functions --- */
 254 static inline guint
 255 signal_id_lookup (GQuark quark,
 256                   GType  itype)
 257 {
 258   GType *ifaces, type = itype;
 259   SignalKey key;
 260   guint n_ifaces;
 261
 262   key.quark = quark;
 263
 264   /* try looking up signals for this type and its anchestors */
 265   do
 266     {
 267       SignalKey *signal_key;
 268
 269       key.itype = type;
 270       signal_key = g_bsearch_array_lookup (&g_signal_key_bsa, &key);
 271
 272       if (signal_key)
 273         return signal_key->signal_id;
 274
 275       type = g_type_parent (type);
 276     }
 277   while (type);
 278
 279   /* no luck, try interfaces it exports */
 280   ifaces = g_type_interfaces (itype, &n_ifaces);
 281   while (n_ifaces--)
 282     {
 283       SignalKey *signal_key;
 284
 285       key.itype = ifaces[n_ifaces];
 286       signal_key = g_bsearch_array_lookup (&g_signal_key_bsa, &key);
 287
 288       if (signal_key)
 289         {
 290           g_free (ifaces);
 291           return signal_key->signal_id;
 292         }
 293     }
 294   g_free (ifaces);
 295
 296   return 0;
 297 }
 298
 299 static gint
 300 handler_lists_cmp (gconstpointer node1,
 301                    gconstpointer node2)
 302 {
 303   const HandlerList *hlist1 = node1, *hlist2 = node2;
 304
 305   return G_BSEARCH_ARRAY_CMP (hlist1->signal_id, hlist2->signal_id);
 306 }
 307
 308 static inline HandlerList*
 309 handler_list_ensure (guint    signal_id,
 310                      gpointer instance)
 311 {
 312   GBSearchArray *hlbsa = g_hash_table_lookup (g_handler_list_bsa_ht, instance);
 313   HandlerList key;
 314
 315   if (!hlbsa)
 316     {
 317       hlbsa = g_generic_node_alloc (&g_bsa_ts,
 318                                     sizeof (GBSearchArray),
 319                                     BSA_PRE_ALLOC);
 320       hlbsa->cmp_func = handler_lists_cmp;
 321       hlbsa->sizeof_node = sizeof (HandlerList);
 322       hlbsa->flags = G_BSEARCH_DEFER_SHRINK;
 323       hlbsa->n_nodes = 0;
 324       hlbsa->nodes = NULL;
 325       g_hash_table_insert (g_handler_list_bsa_ht, instance, hlbsa);
 326     }
 327   key.signal_id = signal_id;
 328   key.handlers = NULL;
 329
 330   return g_bsearch_array_insert (hlbsa, &key, FALSE);
 331 }
 332
 333 static inline HandlerList*
 334 handler_list_lookup (guint    signal_id,
 335                      gpointer instance)
 336 {
 337   GBSearchArray *hlbsa = g_hash_table_lookup (g_handler_list_bsa_ht, instance);
 338   HandlerList key;
 339
 340   key.signal_id = signal_id;
 341
 342   return hlbsa ? g_bsearch_array_lookup (hlbsa, &key) : NULL;
 343 }
 344
 345 static Handler*
 346 handler_lookup (gpointer instance,
 347                 guint    handler_id,
 348                 guint   *signal_id_p)
 349 {
 350   GBSearchArray *hlbsa = g_hash_table_lookup (g_handler_list_bsa_ht, instance);
 351
 352   if (hlbsa)
 353     {
 354       guint i;
 355
 356       for (i = 0; i < hlbsa->n_nodes; i++)
 357         {
 358           HandlerList *hlist = g_bsearch_array_get_nth (hlbsa, i);
 359           Handler *handler;
 360
 361           for (handler = hlist->handlers; handler; handler = handler->next)
 362             if (handler->id == handler_id)
 363               {
 364                 if (signal_id_p)
 365                   *signal_id_p = hlist->signal_id;
 366
 367                 return handler;
 368               }
 369         }
 370     }
 371
 372   return NULL;
 373 }
 374
 375 static inline HandlerMatch*
 376 handler_match_prepend (HandlerMatch *list,
 377                        Handler      *handler,
 378                        guint         signal_id)
 379 {
 380   HandlerMatch *node;
 381
 382   /* yeah, we could use our own memchunk here, introducing yet more
 383    * rarely used cached nodes and extra allocation overhead.
 384    * instead, we use GList* nodes, since they are exactly the size
 385    * we need and are already cached. g_signal_init() asserts this.
 386    */
 387   node = (HandlerMatch*) g_list_alloc ();
 388   node->handler = handler;
 389   node->next = list;
 390   node->d.signal_id = signal_id;
 391   handler_ref (handler);
 392
 393   return node;
 394 }
 395 static inline HandlerMatch*
 396 handler_match_free1_R (HandlerMatch *node,
 397                        gpointer      instance)
 398 {
 399   HandlerMatch *next = node->next;
 400
 401   handler_unref_R (node->d.signal_id, instance, node->handler);
 402   g_list_free_1 ((GList*) node);
 403
 404   return next;
 405 }
 406
 407 static HandlerMatch*
 408 handlers_find (gpointer         instance,
 409                GSignalMatchType mask,
 410                guint            signal_id,
 411                GQuark           detail,
 412                GClosure        *closure,
 413                gpointer         func,
 414                gpointer         data,
 415                gboolean         one_and_only)
 416 {
 417   HandlerMatch *mlist = NULL;
 418
 419   if (mask & G_SIGNAL_MATCH_ID)
 420     {
 421       HandlerList *hlist = handler_list_lookup (signal_id, instance);
 422       Handler *handler;
 423       SignalNode *node = NULL;
 424
 425       if (mask & G_SIGNAL_MATCH_FUNC)
 426         {
 427           node = LOOKUP_SIGNAL_NODE (signal_id);
 428           if (!node || !node->c_marshaller)
 429             return NULL;
 430         }
 431
 432       mask = ~mask;
 433       for (handler = hlist ? hlist->handlers : NULL; handler; handler = handler->next)
 434         if (handler->id &&
 435             ((mask & G_SIGNAL_MATCH_DETAIL) || handler->detail == detail) &&
 436             ((mask & G_SIGNAL_MATCH_CLOSURE) || handler->closure == closure) &&
 437             ((mask & G_SIGNAL_MATCH_DATA) || handler->closure->data == data) &&
 438             ((mask & G_SIGNAL_MATCH_UNBLOCKED) || handler->block_count == 0) &&
 439             ((mask & G_SIGNAL_MATCH_FUNC) || (handler->closure->marshal == node->c_marshaller &&
 440                                               handler->closure->meta_marshal == 0 &&
 441                                               ((GCClosure*) handler->closure)->callback == func)))
 442           {
 443             mlist = handler_match_prepend (mlist, handler, signal_id);
 444             if (one_and_only)
 445               return mlist;
 446           }
 447     }
 448   else
 449     {
 450       GBSearchArray *hlbsa = g_hash_table_lookup (g_handler_list_bsa_ht, instance);
 451
 452       mask = ~mask;
 453       if (hlbsa)
 454         {
 455           guint i;
 456
 457           for (i = 0; i < hlbsa->n_nodes; i++)
 458             {
 459               HandlerList *hlist = g_bsearch_array_get_nth (hlbsa, i);
 460               SignalNode *node = NULL;
 461               Handler *handler;
 462
 463               if (!(mask & G_SIGNAL_MATCH_FUNC))
 464                 {
 465                   node = LOOKUP_SIGNAL_NODE (hlist->signal_id);
 466                   if (!node->c_marshaller)
 467                     continue;
 468                 }
 469
 470               for (handler = hlist->handlers; handler; handler = handler->next)
 471                 if (handler->id &&
 472                     ((mask & G_SIGNAL_MATCH_DETAIL) || handler->detail == detail) &&
 473                     ((mask & G_SIGNAL_MATCH_CLOSURE) || handler->closure == closure) &&
 474                     ((mask & G_SIGNAL_MATCH_DATA) || handler->closure->data == data) &&
 475                     ((mask & G_SIGNAL_MATCH_UNBLOCKED) || handler->block_count == 0) &&
 476                     ((mask & G_SIGNAL_MATCH_FUNC) || (handler->closure->marshal == node->c_marshaller &&
 477                                                       handler->closure->meta_marshal == 0 &&
 478                                                       ((GCClosure*) handler->closure)->callback == func)))
 479                   {
 480                     mlist = handler_match_prepend (mlist, handler, hlist->signal_id);
 481                     if (one_and_only)
 482                       return mlist;
 483                   }
 484             }
 485         }
 486     }
 487
 488   return mlist;
 489 }
 490
 491 static inline Handler*
 492 handler_new (gboolean after)
 493 {
 494   static guint handler_id = 1;
 495   Handler *handler = g_generic_node_alloc (&g_handler_ts,
 496                                            sizeof (Handler),
 497                                            HANDLER_PRE_ALLOC);
 498 #ifndef G_DISABLE_CHECKS
 499   if (handler_id == 0)
 500     g_error (G_STRLOC ": handler id overflow, %s", REPORT_BUG);
 501 #endif
 502
 503   handler->id = handler_id++;
 504   handler->prev = NULL;
 505   handler->next = NULL;
 506   handler->detail = 0;
 507   handler->ref_count = 1;
 508   handler->block_count = 0;
 509   handler->after = after != FALSE;
 510   handler->closure = NULL;
 511
 512   return handler;
 513 }
 514
 515 static inline void
 516 handler_ref (Handler *handler)
 517 {
 518   g_return_if_fail (handler->ref_count > 0);
 519
 520 #ifndef G_DISABLE_CHECKS
 521   if (handler->ref_count >= HANDLER_MAX_REF_COUNT - 1)
 522     g_error (G_STRLOC ": handler ref_count overflow, %s", REPORT_BUG);
 523 #endif
 524
 525   handler->ref_count += 1;
 526 }
 527
 528 static inline void
 529 handler_unref_R (guint    signal_id,
 530                  gpointer instance,
 531                  Handler *handler)
 532 {
 533   g_return_if_fail (handler->ref_count > 0);
 534
 535   handler->ref_count -= 1;
 536   if (!handler->ref_count)
 537     {
 538       if (handler->next)
 539         handler->next->prev = handler->prev;
 540       if (handler->prev)        /* watch out for g_signal_handlers_destroy()! */
 541         handler->prev->next = handler->next;
 542       else
 543         {
 544           HandlerList *hlist = handler_list_lookup (signal_id, instance);
 545
 546           hlist->handlers = handler->next;
 547         }
 548       G_UNLOCK (g_signal_mutex);
 549       g_closure_unref (handler->closure);
 550       G_LOCK (g_signal_mutex);
 551       g_generic_node_free (&g_handler_ts, handler);
 552     }
 553 }
 554
 555 static void
 556 handler_insert (guint    signal_id,
 557                 gpointer instance,
 558                 Handler  *handler)
 559 {
 560   HandlerList *hlist;
 561
 562   g_assert (handler->prev == NULL && handler->next == NULL); /* paranoid */
 563
 564   hlist = handler_list_ensure (signal_id, instance);
 565   if (!hlist->handlers)
 566     hlist->handlers = handler;
 567   else if (hlist->handlers->after && !handler->after)
 568     {
 569       handler->next = hlist->handlers;
 570       hlist->handlers->prev = handler;
 571       hlist->handlers = handler;
 572     }
 573   else
 574     {
 575       Handler *tmp = hlist->handlers;
 576
 577       if (handler->after)
 578         while (tmp->next)
 579           tmp = tmp->next;
 580       else
 581         while (tmp->next && !tmp->next->after)
 582           tmp = tmp->next;
 583       if (tmp->next)
 584         tmp->next->prev = handler;
 585       handler->next = tmp->next;
 586       handler->prev = tmp;
 587       tmp->next = handler;
 588     }
 589 }
 590
 591 static inline void
 592 emission_push (Emission     **emission_list_p,
 593                guint          signal_id,
 594                GQuark         detail,
 595                gpointer       instance,
 596                EmissionState *state_p)
 597 {
 598   Emission *emission = g_generic_node_alloc (&g_emission_ts,
 599                                              sizeof (Emission),
 600                                              EMISSION_PRE_ALLOC);
 601   emission->next = *emission_list_p;
 602   emission->signal_id = signal_id;
 603   emission->detail = detail;
 604   emission->instance = instance;
 605   emission->state_p = state_p;
 606   *emission_list_p = emission;
 607 }
 608
 609 static inline void
 610 emission_pop (Emission     **emission_list_p,
 611               EmissionState *state_p)
 612 {
 613   Emission **loc = emission_list_p, *emission = *loc;
 614
 615   while (emission->state_p != state_p)
 616     {
 617       loc = &emission->next;
 618       emission = *loc;
 619     }
 620   *loc = emission->next;
 621   g_generic_node_free (&g_emission_ts, emission);
 622 }
 623
 624 static inline Emission*
 625 emission_find (Emission *emission_list,
 626                guint     signal_id,
 627                GQuark    detail,
 628                gpointer  instance)
 629 {
 630   Emission *emission;
 631
 632   for (emission = emission_list; emission; emission = emission->next)
 633     if (emission->instance == instance &&
 634         emission->signal_id == signal_id &&
 635         emission->detail == detail)
 636       return emission;
 637   return NULL;
 638 }
 639
 640 static gint
 641 signal_key_cmp (gconstpointer node1,
 642                 gconstpointer node2)
 643 {
 644   const SignalKey *key1 = node1, *key2 = node2;
 645
 646   if (key1->itype == key2->itype)
 647     return G_BSEARCH_ARRAY_CMP (key1->quark, key2->quark);
 648   else
 649     return G_BSEARCH_ARRAY_CMP (key1->itype, key2->itype);
 650 }
 651
 652 void
 653 g_signal_init (void) /* sync with gtype.c */
 654 {
 655   G_LOCK (g_signal_mutex);
 656   if (!g_n_signal_nodes)
 657     {
 658       /* handler_id_node_prepend() requires this */
 659       g_assert (sizeof (GList) == sizeof (HandlerMatch));
 660
 661       /* setup signal key array */
 662       g_signal_key_bsa.cmp_func = signal_key_cmp;
 663       g_signal_key_bsa.sizeof_node = sizeof (SignalKey);
 664       g_signal_key_bsa.flags = G_BSEARCH_ALIGN_POWER2; /* alloc-only */
 665
 666       /* setup handler list binary searchable array hash table (in german, that'd be one word ;) */
 667       g_handler_list_bsa_ht = g_hash_table_new (g_direct_hash, NULL);
 668
 669       /* invalid (0) signal_id */
 670       g_n_signal_nodes = 1;
 671       g_signal_nodes = g_renew (SignalNode*, g_signal_nodes, g_n_signal_nodes);
 672       g_signal_nodes[0] = NULL;
 673     }
 674   G_UNLOCK (g_signal_mutex);
 675 }
 676
 677 void
 678 _g_signals_destroy (GType itype)
 679 {
 680   guint i;
 681
 682   G_LOCK (g_signal_mutex);
 683   for (i = 1; i < g_n_signal_nodes; i++)
 684     {
 685       SignalNode *node = g_signal_nodes[i];
 686
 687       if (node->itype == itype)
 688         {
 689           if (node->destroyed)
 690             g_warning (G_STRLOC ": signal \"%s\" of type `%s' already destroyed",
 691                        node->name,
 692                        g_type_name (node->itype));
 693           else
 694             signal_destroy_R (node);
 695         }
 696     }
 697   G_UNLOCK (g_signal_mutex);
 698 }
 699
 700 void
 701 g_signal_stop_emission (gpointer instance,
 702                         guint    signal_id,
 703                         GQuark   detail)
 704 {
 705   SignalNode *node;
 706
 707   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
 708   g_return_if_fail (signal_id > 0);
 709
 710   G_LOCK (g_signal_mutex);
 711   node = LOOKUP_SIGNAL_NODE (signal_id);
 712   if (node && detail && !(node->flags & G_SIGNAL_DETAILED))
 713     {
 714       g_warning ("%s: signal id `%u' does not support detail (%u)", G_STRLOC, signal_id, detail);
 715       G_UNLOCK (g_signal_mutex);
 716       return;
 717     }
 718   if (node && g_type_is_a (G_TYPE_FROM_INSTANCE (instance), node->itype))
 719     {
 720       Emission *emission_list = node->flags & G_SIGNAL_NO_RECURSE ? g_restart_emissions : g_recursive_emissions;
 721       Emission *emission = emission_find (emission_list, signal_id, detail, instance);
 722
 723       if (emission)
 724         {
 725           if (*emission->state_p == EMISSION_HOOK)
 726             g_warning (G_STRLOC ": emission of signal \"%s\" for instance `%p' cannot be stopped from emission hook",
 727                        node->name, instance);
 728           else if (*emission->state_p == EMISSION_RUN)
 729             *emission->state_p = EMISSION_STOP;
 730         }
 731       else
 732         g_warning (G_STRLOC ": no emission of signal \"%s\" to stop for instance `%p'",
 733                    node->name, instance);
 734     }
 735   else
 736     g_warning ("%s: signal id `%u' is invalid for instance `%p'", G_STRLOC, signal_id, instance);
 737   G_UNLOCK (g_signal_mutex);
 738 }
 739
 740 static void
 741 signal_finalize_hook (GHookList *hook_list,
 742                       GHook     *hook)
 743 {
 744   GDestroyNotify destroy = hook->destroy;
 745
 746   if (destroy)
 747     {
 748       hook->destroy = NULL;
 749       G_UNLOCK (g_signal_mutex);
 750       destroy (hook->data);
 751       G_LOCK (g_signal_mutex);
 752     }
 753 }
 754
 755 guint
 756 g_signal_add_emission_hook (guint               signal_id,
 757                             GQuark              detail,
 758                             GSignalEmissionHook hook_func,
 759                             gpointer            hook_data,
 760                             GDestroyNotify      data_destroy)
 761 {
 762   static guint seq_hook_id = 1;
 763   SignalNode *node;
 764   GHook *hook;
 765   SignalHook *signal_hook;
 766
 767   g_return_val_if_fail (signal_id > 0, 0);
 768   g_return_val_if_fail (hook_func != NULL, 0);
 769
 770   G_LOCK (g_signal_mutex);
 771   node = LOOKUP_SIGNAL_NODE (signal_id);
 772   if (!node || node->destroyed || (node->flags & G_SIGNAL_NO_HOOKS))
 773     {
 774       g_warning ("%s: invalid signal id `%u'", G_STRLOC, signal_id);
 775       G_UNLOCK (g_signal_mutex);
 776       return 0;
 777     }
 778   if (detail && !(node->flags & G_SIGNAL_DETAILED))
 779     {
 780       g_warning ("%s: signal id `%u' does not support detail (%u)", G_STRLOC, signal_id, detail);
 781       G_UNLOCK (g_signal_mutex);
 782       return 0;
 783     }
 784   if (!node->emission_hooks)
 785     {
 786       node->emission_hooks = g_new (GHookList, 1);
 787       g_hook_list_init (node->emission_hooks, sizeof (SignalHook));
 788       node->emission_hooks->finalize_hook = signal_finalize_hook;
 789     }
 790   hook = g_hook_alloc (node->emission_hooks);
 791   hook->data = hook_data;
 792   hook->func = hook_func;
 793   hook->destroy = data_destroy;
 794   signal_hook = SIGNAL_HOOK (hook);
 795   signal_hook->detail = detail;
 796   node->emission_hooks->seq_id = seq_hook_id;
 797   g_hook_append (node->emission_hooks, hook);
 798   seq_hook_id = node->emission_hooks->seq_id;
 799   G_UNLOCK (g_signal_mutex);
 800
 801   return hook->hook_id;
 802 }
 803
 804 void
 805 g_signal_remove_emission_hook (guint signal_id,
 806                                guint hook_id)
 807 {
 808   SignalNode *node;
 809
 810   g_return_if_fail (signal_id > 0);
 811   g_return_if_fail (hook_id > 0);
 812
 813   G_LOCK (g_signal_mutex);
 814   node = LOOKUP_SIGNAL_NODE (signal_id);
 815   if (!node || node->destroyed)
 816     g_warning ("%s: invalid signal id `%u'", G_STRLOC, signal_id);
 817   else if (!node->emission_hooks || !g_hook_destroy (node->emission_hooks, hook_id))
 818     g_warning ("%s: signal \"%s\" had no hook (%u) to remove", G_STRLOC, node->name, hook_id);
 819   G_UNLOCK (g_signal_mutex);
 820 }
 821
 822 static inline guint
 823 signal_parse_name (const gchar *name,
 824                    GType        itype,
 825                    GQuark      *detail_p,
 826                    gboolean     force_quark)
 827 {
 828   const gchar *colon = strchr (name, ':');
 829   guint signal_id;
 830
 831   if (!colon)
 832     {
 833       signal_id = signal_id_lookup (g_quark_try_string (name), itype);
 834       if (signal_id && detail_p)
 835         *detail_p = 0;
 836     }
 837   else if (colon[1] == ':')
 838     {
 839       gchar buffer[32];
 840       guint l = colon - name;
 841
 842       if (l < 32)
 843         {
 844           memcpy (buffer, name, l);
 845           buffer[l] = 0;
 846           signal_id = signal_id_lookup (g_quark_try_string (buffer), itype);
 847         }
 848       else
 849         {
 850           gchar *signal = g_new (gchar, l + 1);
 851
 852           memcpy (signal, name, l);
 853           signal[l] = 0;
 854           signal_id = signal_id_lookup (g_quark_try_string (signal), itype);
 855           g_free (signal);
 856         }
 857
 858       if (signal_id && detail_p)
 859         *detail_p = colon[2] ? (force_quark ? g_quark_from_string : g_quark_try_string) (colon + 2) : 0;
 860     }
 861   else
 862     signal_id = 0;
 863   return signal_id;
 864 }
 865
 866 gboolean
 867 g_signal_parse_name (const gchar *detailed_signal,
 868                      GType        itype,
 869                      guint       *signal_id_p,
 870                      GQuark      *detail_p,
 871                      gboolean     force_detail_quark)
 872 {
 873   SignalNode *node;
 874   GQuark detail = 0;
 875   guint signal_id;
 876
 877   g_return_val_if_fail (detailed_signal != NULL, FALSE);
 878   g_return_val_if_fail (G_TYPE_IS_INSTANTIATABLE (itype) || G_TYPE_IS_INTERFACE (itype), FALSE);
 879
 880   G_LOCK (g_signal_mutex);
 881   signal_id = signal_parse_name (detailed_signal, itype, &detail, force_detail_quark);
 882   G_UNLOCK (g_signal_mutex);
 883
 884   node = signal_id ? LOOKUP_SIGNAL_NODE (signal_id) : NULL;
 885   if (!node || node->destroyed ||
 886       (detail && !(node->flags & G_SIGNAL_DETAILED)))
 887     return FALSE;
 888
 889   if (signal_id_p)
 890     *signal_id_p = signal_id;
 891   if (detail_p)
 892     *detail_p = detail;
 893
 894   return TRUE;
 895 }
 896
 897 guint
 898 g_signal_lookup (const gchar *name,
 899                  GType        itype)
 900 {
 901   guint signal_id;
 902
 903   g_return_val_if_fail (name != NULL, 0);
 904   g_return_val_if_fail (G_TYPE_IS_INSTANTIATABLE (itype) || G_TYPE_IS_INTERFACE (itype), 0);
 905
 906   G_LOCK (g_signal_mutex);
 907   signal_id = signal_id_lookup (g_quark_try_string (name), itype);
 908   G_UNLOCK (g_signal_mutex);
 909
 910   return signal_id;
 911 }
 912
 913 G_CONST_RETURN gchar*
 914 g_signal_name (guint signal_id)
 915 {
 916   SignalNode *node;
 917   gchar *name;
 918
 919   G_LOCK (g_signal_mutex);
 920   node = LOOKUP_SIGNAL_NODE (signal_id);
 921   name = node ? node->name : NULL;
 922   G_UNLOCK (g_signal_mutex);
 923
 924   return name;
 925 }
 926
 927 void
 928 g_signal_query (guint         signal_id,
 929                 GSignalQuery *query)
 930 {
 931   SignalNode *node;
 932
 933   g_return_if_fail (query != NULL);
 934
 935   G_LOCK (g_signal_mutex);
 936   node = LOOKUP_SIGNAL_NODE (signal_id);
 937   if (!node || node->destroyed)
 938     query->signal_id = 0;
 939   else
 940     {
 941       query->signal_id = node->signal_id;
 942       query->signal_name = node->name;
 943       query->itype = node->itype;
 944       query->signal_flags = node->flags;
 945       query->return_type = node->return_type;
 946       query->n_params = node->n_params;
 947       query->param_types = node->param_types;
 948     }
 949   G_UNLOCK (g_signal_mutex);
 950 }
 951
 952 guint*
 953 g_signal_list_ids (GType  itype,
 954                    guint *n_ids)
 955 {
 956   SignalKey *keys;
 957   GArray *result;
 958   guint n_nodes;
 959   guint i;
 960
 961   g_return_val_if_fail (G_TYPE_IS_INSTANTIATABLE (itype) || G_TYPE_IS_INTERFACE (itype), NULL);
 962   g_return_val_if_fail (n_ids != NULL, NULL);
 963
 964   G_LOCK (g_signal_mutex);
 965
 966   keys = g_signal_key_bsa.nodes;
 967   n_nodes  = g_signal_key_bsa.n_nodes;
 968   result = g_array_new (FALSE, FALSE, sizeof (guint));
 969
 970   for (i = 0; i < n_nodes; i++)
 971     if (keys[i].itype == itype)
 972       {
 973         const gchar *name = g_quark_to_string (keys[i].quark);
 974
 975         /* Signal names with "_" in them are aliases to the same
 976          * name with "-" instead of "_".
 977          */
 978         if (!strchr (name, '_'))
 979           g_array_append_val (result, keys[i].signal_id);
 980       }
 981
 982   *n_ids = result->len;
 983
 984   G_UNLOCK (g_signal_mutex);
 985
 986   return (guint *) g_array_free (result, FALSE);
 987 }
 988
 989 guint
 990 g_signal_new_valist (const gchar       *signal_name,
 991                      GType              itype,
 992                      GSignalFlags       signal_flags,
 993                      GClosure          *class_closure,
 994                      GSignalAccumulator accumulator,
 995                      gpointer           accu_data,
 996                      GSignalCMarshaller c_marshaller,
 997                      GType              return_type,
 998                      guint              n_params,
 999                      va_list            args)
1000 {
1001   GType *param_types;
1002   guint i;
1003   guint signal_id;
1004
1005   if (n_params > 0)
1006     {
1007       param_types = g_new (GType, n_params);
1008
1009       for (i = 0; i < n_params; i++)
1010         param_types[i] = va_arg (args, GType);
1011     }
1012   else
1013     param_types = NULL;
1014
1015   signal_id = g_signal_newv (signal_name, itype, signal_flags,
1016                              class_closure, accumulator, accu_data, c_marshaller,
1017                              return_type, n_params, param_types);
1018   g_free (param_types);
1019
1020   return signal_id;
1021 }
1022
1023 guint
1024 g_signal_newc (const gchar       *signal_name,
1025                GType              itype,
1026                GSignalFlags       signal_flags,
1027                guint              class_offset,
1028                GSignalAccumulator accumulator,
1029                gpointer           accu_data,
1030                GSignalCMarshaller c_marshaller,
1031                GType              return_type,
1032                guint              n_params,
1033                ...)
1034 {
1035   va_list args;
1036   guint signal_id;
1037
1038   g_return_val_if_fail (signal_name != NULL, 0);
1039
1040   va_start (args, n_params);
1041
1042   signal_id = g_signal_new_valist (signal_name, itype, signal_flags,
1043                                    class_offset ? g_signal_type_cclosure_new (itype, class_offset) : NULL,
1044                                    accumulator, accu_data, c_marshaller,
1045                                    return_type, n_params, args);
1046
1047   va_end (args);
1048
1049   return signal_id;
1050 }
1051
1052 guint
1053 g_signal_newv (const gchar       *signal_name,
1054                GType              itype,
1055                GSignalFlags       signal_flags,
1056                GClosure          *class_closure,
1057                GSignalAccumulator accumulator,
1058                gpointer           accu_data,
1059                GSignalCMarshaller c_marshaller,
1060                GType              return_type,
1061                guint              n_params,
1062                GType             *param_types)
1063 {
1064   gchar *name;
1065   guint signal_id, i;
1066   SignalNode *node;
1067
1068   g_return_val_if_fail (signal_name != NULL, 0);
1069   g_return_val_if_fail (G_TYPE_IS_INSTANTIATABLE (itype) || G_TYPE_IS_INTERFACE (itype), 0);
1070   if (n_params)
1071     g_return_val_if_fail (param_types != NULL, 0);
1072   g_return_val_if_fail ((return_type & G_SIGNAL_TYPE_STATIC_SCOPE) == 0, 0);
1073   if (return_type == (G_TYPE_NONE & ~G_SIGNAL_TYPE_STATIC_SCOPE))
1074     g_return_val_if_fail (accumulator == NULL, 0);
1075   if (!accumulator)
1076     g_return_val_if_fail (accu_data == NULL, 0);
1077
1078   name = g_strdup (signal_name);
1079   g_strdelimit (name, G_STR_DELIMITERS ":^", '_');  // FIXME do character checks like for types
1080
1081   G_LOCK (g_signal_mutex);
1082
1083   signal_id = signal_id_lookup (g_quark_try_string (name), itype);
1084   node = LOOKUP_SIGNAL_NODE (signal_id);
1085   if (node && !node->destroyed)
1086     {
1087       g_warning (G_STRLOC ": signal \"%s\" already exists in the `%s' %s",
1088                  name,
1089                  g_type_name (node->itype),
1090                  G_TYPE_IS_INTERFACE (node->itype) ? "interface" : "class ancestry");
1091       g_free (name);
1092       G_UNLOCK (g_signal_mutex);
1093       return 0;
1094     }
1095   if (node && node->itype != itype)
1096     {
1097       g_warning (G_STRLOC ": signal \"%s\" for type `%s' was previously created for type `%s'",
1098                  name,
1099                  g_type_name (itype),
1100                  g_type_name (node->itype));
1101       g_free (name);
1102       G_UNLOCK (g_signal_mutex);
1103       return 0;
1104     }
1105   for (i = 0; i < n_params; i++)
1106     if (!G_TYPE_IS_VALUE (param_types[i] & ~G_SIGNAL_TYPE_STATIC_SCOPE))
1107       {
1108         g_warning (G_STRLOC ": parameter %d of type `%s' for signal \"%s::%s\" is not a value type",
1109                    i + 1, g_type_name (param_types[i] & ~G_SIGNAL_TYPE_STATIC_SCOPE), g_type_name (itype), name);
1110         g_free (name);
1111         G_UNLOCK (g_signal_mutex);
1112         return 0;
1113       }
1114   if (return_type != G_TYPE_NONE && !G_TYPE_IS_VALUE (return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE))
1115     {
1116       g_warning (G_STRLOC ": return value of type `%s' for signal \"%s::%s\" is not a value type",
1117                  g_type_name (return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE), g_type_name (itype), name);
1118       g_free (name);
1119       G_UNLOCK (g_signal_mutex);
1120       return 0;
1121     }
1122
1123   /* setup permanent portion of signal node */
1124   if (!node)
1125     {
1126       SignalKey key;
1127
1128       signal_id = g_n_signal_nodes++;
1129       node = g_new (SignalNode, 1);
1130       node->signal_id = signal_id;
1131       g_signal_nodes = g_renew (SignalNode*, g_signal_nodes, g_n_signal_nodes);
1132       g_signal_nodes[signal_id] = node;
1133       node->itype = itype;
1134       node->name = name;
1135       key.itype = itype;
1136       key.quark = g_quark_from_string (node->name);
1137       key.signal_id = signal_id;
1138       g_bsearch_array_insert (&g_signal_key_bsa, &key, FALSE);
1139       g_strdelimit (node->name, "_", '-');
1140       key.quark = g_quark_from_static_string (node->name);
1141       g_bsearch_array_insert (&g_signal_key_bsa, &key, FALSE);
1142     }
1143   node->destroyed = FALSE;
1144
1145   /* setup reinitializable portion */
1146   node->flags = signal_flags & G_SIGNAL_FLAGS_MASK;
1147   node->n_params = n_params;
1148   node->param_types = g_memdup (param_types, sizeof (GType) * n_params);
1149   node->return_type = return_type;
1150   node->class_closure = class_closure ? g_closure_ref (class_closure) : NULL;
1151   if (class_closure)
1152     g_closure_sink (class_closure);
1153   if (accumulator)
1154     {
1155       node->accumulator = g_new (SignalAccumulator, 1);
1156       node->accumulator->func = accumulator;
1157       node->accumulator->data = accu_data;
1158     }
1159   else
1160     node->accumulator = NULL;
1161   node->c_marshaller = c_marshaller;
1162   node->emission_hooks = NULL;
1163   if (node->c_marshaller && class_closure && G_CLOSURE_NEEDS_MARSHAL (class_closure))
1164     g_closure_set_marshal (class_closure, node->c_marshaller);
1165   G_UNLOCK (g_signal_mutex);
1166   return signal_id;
1167 }
1168
1169 static void
1170 signal_destroy_R (SignalNode *signal_node)
1171 {
1172   SignalNode node = *signal_node;
1173
1174   signal_node->destroyed = TRUE;
1175
1176   /* reentrancy caution, zero out real contents first */
1177   signal_node->n_params = 0;
1178   signal_node->param_types = NULL;
1179   signal_node->return_type = 0;
1180   signal_node->class_closure = NULL;
1181   signal_node->accumulator = NULL;
1182   signal_node->c_marshaller = NULL;
1183   signal_node->emission_hooks = NULL;
1184
1185 #ifdef  G_ENABLE_DEBUG
1186   /* check current emissions */
1187   {
1188     Emission *emission;
1189
1190     for (emission = (node.flags & G_SIGNAL_NO_RECURSE) ? g_restart_emissions : g_recursive_emissions;
1191          emission; emission = emission->next)
1192       if (emission->signal_id == node.signal_id)
1193         g_critical (G_STRLOC ": signal \"%s\" being destroyed is currently in emission (instance `%p')",
1194                     node.name, emission->instance);
1195   }
1196 #endif
1197
1198   /* free contents that need to
1199    */
1200   G_UNLOCK (g_signal_mutex);
1201   g_free (node.param_types);
1202   g_closure_unref (node.class_closure);
1203   g_free (node.accumulator);
1204   if (node.emission_hooks)
1205     {
1206       g_hook_list_clear (node.emission_hooks);
1207       g_free (node.emission_hooks);
1208     }
1209   G_LOCK (g_signal_mutex);
1210 }
1211
1212 guint
1213 g_signal_connect_closure_by_id (gpointer  instance,
1214                                 guint     signal_id,
1215                                 GQuark    detail,
1216                                 GClosure *closure,
1217                                 gboolean  after)
1218 {
1219   SignalNode *node;
1220   guint handler_id = 0;
1221
1222   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
1223   g_return_val_if_fail (signal_id > 0, 0);
1224   g_return_val_if_fail (closure != NULL, 0);
1225
1226   G_LOCK (g_signal_mutex);
1227   node = LOOKUP_SIGNAL_NODE (signal_id);
1228   if (node)
1229     {
1230       if (detail && !(node->flags & G_SIGNAL_DETAILED))
1231         g_warning ("%s: signal id `%u' does not support detail (%u)", G_STRLOC, signal_id, detail);
1232       else if (!g_type_is_a (G_TYPE_FROM_INSTANCE (instance), node->itype))
1233         g_warning ("%s: signal id `%u' is invalid for instance `%p'", G_STRLOC, signal_id, instance);
1234       else
1235         {
1236           Handler *handler = handler_new (after);
1237
1238           handler_id = handler->id;
1239           handler->detail = detail;
1240           handler->closure = g_closure_ref (closure);
1241           g_closure_sink (closure);
1242           handler_insert (signal_id, instance, handler);
1243           if (node->c_marshaller && G_CLOSURE_NEEDS_MARSHAL (closure))
1244             g_closure_set_marshal (closure, node->c_marshaller);
1245         }
1246     }
1247   else
1248     g_warning ("%s: signal id `%u' is invalid for instance `%p'", G_STRLOC, signal_id, instance);
1249   G_UNLOCK (g_signal_mutex);
1250
1251   return handler_id;
1252 }
1253
1254 guint
1255 g_signal_connect_closure (gpointer     instance,
1256                           const gchar *detailed_signal,
1257                           GClosure    *closure,
1258                           gboolean     after)
1259 {
1260   guint signal_id, handler_id = 0;
1261   GQuark detail = 0;
1262   GType itype;
1263
1264   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
1265   g_return_val_if_fail (detailed_signal != NULL, 0);
1266   g_return_val_if_fail (closure != NULL, 0);
1267
1268   G_LOCK (g_signal_mutex);
1269   itype = G_TYPE_FROM_INSTANCE (instance);
1270   signal_id = signal_parse_name (detailed_signal, itype, &detail, TRUE);
1271   if (signal_id)
1272     {
1273       SignalNode *node = LOOKUP_SIGNAL_NODE (signal_id);
1274
1275       if (detail && !(node->flags & G_SIGNAL_DETAILED))
1276         g_warning ("%s: signal `%s' does not support details", G_STRLOC, detailed_signal);
1277       else if (!g_type_is_a (itype, node->itype))
1278         g_warning ("%s: signal `%s' is invalid for instance `%p'", G_STRLOC, detailed_signal, instance);
1279       else
1280         {
1281           Handler *handler = handler_new (after);
1282
1283           handler_id = handler->id;
1284           handler->detail = detail;
1285           handler->closure = g_closure_ref (closure);
1286           g_closure_sink (closure);
1287           handler_insert (signal_id, instance, handler);
1288           if (node->c_marshaller && G_CLOSURE_NEEDS_MARSHAL (handler->closure))
1289             g_closure_set_marshal (handler->closure, node->c_marshaller);
1290         }
1291     }
1292   else
1293     g_warning ("%s: signal `%s' is invalid for instance `%p'", G_STRLOC, detailed_signal, instance);
1294   G_UNLOCK (g_signal_mutex);
1295
1296   return handler_id;
1297 }
1298
1299 guint
1300 g_signal_connect_data (gpointer       instance,
1301                        const gchar   *detailed_signal,
1302                        GCallback      c_handler,
1303                        gpointer       data,
1304                        GClosureNotify destroy_data,
1305                        gboolean       swapped,
1306                        gboolean       after)
1307 {
1308   guint signal_id, handler_id = 0;
1309   GQuark detail = 0;
1310   GType itype;
1311
1312   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
1313   g_return_val_if_fail (detailed_signal != NULL, 0);
1314   g_return_val_if_fail (c_handler != NULL, 0);
1315
1316   G_LOCK (g_signal_mutex);
1317   itype = G_TYPE_FROM_INSTANCE (instance);
1318   signal_id = signal_parse_name (detailed_signal, itype, &detail, TRUE);
1319   if (signal_id)
1320     {
1321       SignalNode *node = LOOKUP_SIGNAL_NODE (signal_id);
1322
1323       if (detail && !(node->flags & G_SIGNAL_DETAILED))
1324         g_warning ("%s: signal `%s' does not support details", G_STRLOC, detailed_signal);
1325       else if (!g_type_is_a (itype, node->itype))
1326         g_warning ("%s: signal `%s' is invalid for instance `%p'", G_STRLOC, detailed_signal, instance);
1327       else
1328         {
1329           Handler *handler = handler_new (after);
1330
1331           handler_id = handler->id;
1332           handler->detail = detail;
1333           handler->closure = g_closure_ref ((swapped ? g_cclosure_new_swap : g_cclosure_new) (c_handler, data, destroy_data));
1334           g_closure_sink (handler->closure);
1335           handler_insert (signal_id, instance, handler);
1336           if (node->c_marshaller && G_CLOSURE_NEEDS_MARSHAL (handler->closure))
1337             g_closure_set_marshal (handler->closure, node->c_marshaller);
1338         }
1339     }
1340   else
1341     g_warning ("%s: signal `%s' is invalid for instance `%p'", G_STRLOC, detailed_signal, instance);
1342   G_UNLOCK (g_signal_mutex);
1343
1344   return handler_id;
1345 }
1346
1347 void
1348 g_signal_handler_block (gpointer instance,
1349                         guint    handler_id)
1350 {
1351   Handler *handler;
1352
1353   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
1354   g_return_if_fail (handler_id > 0);
1355
1356   G_LOCK (g_signal_mutex);
1357   handler = handler_lookup (instance, handler_id, NULL);
1358   if (handler)
1359     {
1360 #ifndef G_DISABLE_CHECKS
1361       if (handler->block_count >= HANDLER_MAX_BLOCK_COUNT - 1)
1362         g_error (G_STRLOC ": handler block_count overflow, %s", REPORT_BUG);
1363 #endif
1364
1365       handler->block_count += 1;
1366     }
1367   else
1368     g_warning ("%s: instance `%p' has no handler with id `%u'", G_STRLOC, instance, handler_id);
1369   G_UNLOCK (g_signal_mutex);
1370 }
1371
1372 void
1373 g_signal_handler_unblock (gpointer instance,
1374                           guint    handler_id)
1375 {
1376   Handler *handler;
1377
1378   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
1379   g_return_if_fail (handler_id > 0);
1380
1381   G_LOCK (g_signal_mutex);
1382   handler = handler_lookup (instance, handler_id, NULL);
1383   if (handler)
1384     {
1385       if (handler->block_count)
1386         handler->block_count -= 1;
1387       else
1388         g_warning (G_STRLOC ": handler `%u' of instance `%p' is not blocked", handler_id, instance);
1389     }
1390   else
1391     g_warning ("%s: instance `%p' has no handler with id `%u'", G_STRLOC, instance, handler_id);
1392   G_UNLOCK (g_signal_mutex);
1393 }
1394
1395 void
1396 g_signal_handler_disconnect (gpointer instance,
1397                              guint    handler_id)
1398 {
1399   Handler *handler;
1400   guint signal_id;
1401
1402   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
1403   g_return_if_fail (handler_id > 0);
1404
1405   G_LOCK (g_signal_mutex);
1406   handler = handler_lookup (instance, handler_id, &signal_id);
1407   if (handler)
1408     {
1409       handler->id = 0;
1410       handler->block_count = 1;
1411       handler_unref_R (signal_id, instance, handler);
1412     }
1413   else
1414     g_warning ("%s: instance `%p' has no handler with id `%u'", G_STRLOC, instance, handler_id);
1415   G_UNLOCK (g_signal_mutex);
1416 }
1417
1418 void
1419 g_signal_handlers_destroy (gpointer instance)
1420 {
1421   GBSearchArray *hlbsa;
1422
1423   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
1424
1425   G_LOCK (g_signal_mutex);
1426   hlbsa = g_hash_table_lookup (g_handler_list_bsa_ht, instance);
1427   if (hlbsa)
1428     {
1429       guint i;
1430
1431       /* reentrancy caution, delete instance trace first */
1432       g_hash_table_remove (g_handler_list_bsa_ht, instance);
1433
1434       for (i = 0; i < hlbsa->n_nodes; i++)
1435         {
1436           HandlerList *hlist = g_bsearch_array_get_nth (hlbsa, i);
1437           Handler *handler = hlist->handlers;
1438
1439           while (handler)
1440             {
1441               Handler *tmp = handler;
1442
1443               handler = tmp->next;
1444               tmp->block_count = 1;
1445               /* cruel unlink, this works because _all_ handlers vanish */
1446               tmp->next = NULL;
1447               tmp->prev = tmp;
1448               if (tmp->id)
1449                 {
1450                   tmp->id = 0;
1451                   handler_unref_R (0, NULL, tmp);
1452                 }
1453             }
1454         }
1455       g_free (hlbsa->nodes);
1456       g_generic_node_free (&g_bsa_ts, hlbsa);
1457     }
1458   G_UNLOCK (g_signal_mutex);
1459 }
1460
1461 guint
1462 g_signal_handler_find (gpointer         instance,
1463                        GSignalMatchType mask,
1464                        guint            signal_id,
1465                        GQuark           detail,
1466                        GClosure        *closure,
1467                        gpointer         func,
1468                        gpointer         data)
1469 {
1470   guint handler_id = 0;
1471
1472   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
1473   g_return_val_if_fail ((mask & ~G_SIGNAL_MATCH_MASK) == 0, 0);
1474
1475   if (mask & G_SIGNAL_MATCH_MASK)
1476     {
1477       HandlerMatch *mlist;
1478
1479       G_LOCK (g_signal_mutex);
1480       mlist = handlers_find (instance, mask, signal_id, detail, closure, func, data, TRUE);
1481       if (mlist)
1482         {
1483           handler_id = mlist->handler->id;
1484           handler_match_free1_R (mlist, instance);
1485         }
1486       G_UNLOCK (g_signal_mutex);
1487     }
1488
1489   return handler_id;
1490 }
1491
1492 static guint
1493 signal_handlers_foreach_matched_R (gpointer         instance,
1494                                    GSignalMatchType mask,
1495                                    guint            signal_id,
1496                                    GQuark           detail,
1497                                    GClosure        *closure,
1498                                    gpointer         func,
1499                                    gpointer         data,
1500                                    void           (*callback) (gpointer instance,
1501                                                                guint    handler_id))
1502 {
1503   HandlerMatch *mlist;
1504   guint n_handlers = 0;
1505
1506   mlist = handlers_find (instance, mask, signal_id, detail, closure, func, data, FALSE);
1507   while (mlist)
1508     {
1509       n_handlers++;
1510       G_UNLOCK (g_signal_mutex);
1511       callback (instance, mlist->handler->id);
1512       G_LOCK (g_signal_mutex);
1513       mlist = handler_match_free1_R (mlist, instance);
1514     }
1515
1516   return n_handlers;
1517 }
1518
1519 guint
1520 g_signal_handlers_block_matched (gpointer         instance,
1521                                  GSignalMatchType mask,
1522                                  guint            signal_id,
1523                                  GQuark           detail,
1524                                  GClosure        *closure,
1525                                  gpointer         func,
1526                                  gpointer         data)
1527 {
1528   guint n_handlers = 0;
1529
1530   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), FALSE);
1531   g_return_val_if_fail ((mask & ~G_SIGNAL_MATCH_MASK) == 0, FALSE);
1532
1533   if (mask & (G_SIGNAL_MATCH_CLOSURE | G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA))
1534     {
1535       G_LOCK (g_signal_mutex);
1536       n_handlers = signal_handlers_foreach_matched_R (instance, mask, signal_id, detail,
1537                                                       closure, func, data,
1538                                                       g_signal_handler_block);
1539       G_UNLOCK (g_signal_mutex);
1540     }
1541
1542   return n_handlers;
1543 }
1544
1545 guint
1546 g_signal_handlers_unblock_matched (gpointer         instance,
1547                                    GSignalMatchType mask,
1548                                    guint            signal_id,
1549                                    GQuark           detail,
1550                                    GClosure        *closure,
1551                                    gpointer         func,
1552                                    gpointer         data)
1553 {
1554   guint n_handlers = 0;
1555
1556   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), FALSE);
1557   g_return_val_if_fail ((mask & ~G_SIGNAL_MATCH_MASK) == 0, FALSE);
1558
1559   if (mask & (G_SIGNAL_MATCH_CLOSURE | G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA))
1560     {
1561       G_LOCK (g_signal_mutex);
1562       n_handlers = signal_handlers_foreach_matched_R (instance, mask, signal_id, detail,
1563                                                       closure, func, data,
1564                                                       g_signal_handler_unblock);
1565       G_UNLOCK (g_signal_mutex);
1566     }
1567
1568   return n_handlers;
1569 }
1570
1571 guint
1572 g_signal_handlers_disconnect_matched (gpointer         instance,
1573                                       GSignalMatchType mask,
1574                                       guint            signal_id,
1575                                       GQuark           detail,
1576                                       GClosure        *closure,
1577                                       gpointer         func,
1578                                       gpointer         data)
1579 {
1580   guint n_handlers = 0;
1581
1582   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), FALSE);
1583   g_return_val_if_fail ((mask & ~G_SIGNAL_MATCH_MASK) == 0, FALSE);
1584
1585   if (mask & (G_SIGNAL_MATCH_CLOSURE | G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA))
1586     {
1587       G_LOCK (g_signal_mutex);
1588       n_handlers = signal_handlers_foreach_matched_R (instance, mask, signal_id, detail,
1589                                                       closure, func, data,
1590                                                       g_signal_handler_disconnect);
1591       G_UNLOCK (g_signal_mutex);
1592     }
1593
1594   return n_handlers;
1595 }
1596
1597 gboolean
1598 g_signal_has_handler_pending (gpointer instance,
1599                               guint    signal_id,
1600                               GQuark   detail,
1601                               gboolean may_be_blocked)
1602 {
1603   HandlerMatch *mlist;
1604   gboolean has_pending;
1605
1606   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), FALSE);
1607   g_return_val_if_fail (signal_id > 0, FALSE);
1608
1609   G_LOCK (g_signal_mutex);
1610   if (detail)
1611     {
1612       SignalNode *node = LOOKUP_SIGNAL_NODE (signal_id);
1613
1614       if (!(node->flags & G_SIGNAL_DETAILED))
1615         {
1616           g_warning ("%s: signal id `%u' does not support detail (%u)", G_STRLOC, signal_id, detail);
1617           G_UNLOCK (g_signal_mutex);
1618           return FALSE;
1619         }
1620     }
1621   mlist = handlers_find (instance,
1622                          (G_SIGNAL_MATCH_ID | G_SIGNAL_MATCH_DETAIL | (may_be_blocked ? 0 : G_SIGNAL_MATCH_UNBLOCKED)),
1623                          signal_id, detail, NULL, NULL, NULL, TRUE);
1624   if (mlist)
1625     {
1626       has_pending = TRUE;
1627       handler_match_free1_R (mlist, instance);
1628     }
1629   else
1630     has_pending = FALSE;
1631   G_UNLOCK (g_signal_mutex);
1632
1633   return has_pending;
1634 }
1635
1636 void
1637 g_signal_emitv (const GValue *instance_and_params,
1638                 guint         signal_id,
1639                 GQuark        detail,
1640                 GValue       *return_value)
1641 {
1642   const GValue *param_values;
1643   gpointer instance;
1644   SignalNode *node;
1645   guint i;
1646
1647   g_return_if_fail (instance_and_params != NULL);
1648   instance = g_value_peek_pointer (instance_and_params);
1649   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
1650   g_return_if_fail (signal_id > 0);
1651
1652   param_values = instance_and_params + 1;
1653
1654   G_LOCK (g_signal_mutex);
1655   node = LOOKUP_SIGNAL_NODE (signal_id);
1656   if (!node || !g_type_is_a (G_TYPE_FROM_INSTANCE (instance), node->itype))
1657     {
1658       g_warning ("%s: signal id `%u' is invalid for instance `%p'", G_STRLOC, signal_id, instance);
1659       G_UNLOCK (g_signal_mutex);
1660       return;
1661     }
1662 #ifdef G_ENABLE_DEBUG
1663   if (detail && !(node->flags & G_SIGNAL_DETAILED))
1664     {
1665       g_warning ("%s: signal id `%u' does not support detail (%u)", G_STRLOC, signal_id, detail);
1666       G_UNLOCK (g_signal_mutex);
1667       return;
1668     }
1669   for (i = 0; i < node->n_params; i++)
1670     if (!G_TYPE_CHECK_VALUE_TYPE (param_values + i, node->param_types[i] & ~G_SIGNAL_TYPE_STATIC_SCOPE))
1671       {
1672         g_critical ("%s: value for `%s' parameter %u for signal \"%s\" is of type `%s'",
1673                     G_STRLOC,
1674                     g_type_name (node->param_types[i] & ~G_SIGNAL_TYPE_STATIC_SCOPE),
1675                     i,
1676                     node->name,
1677                     G_VALUE_TYPE_NAME (param_values + i));
1678         G_UNLOCK (g_signal_mutex);
1679         return;
1680       }
1681   if (node->return_type != G_TYPE_NONE)
1682     {
1683       if (!return_value)
1684         {
1685           g_critical ("%s: return value `%s' for signal \"%s\" is (NULL)",
1686                       G_STRLOC,
1687                       g_type_name (node->return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE),
1688                       node->name);
1689           G_UNLOCK (g_signal_mutex);
1690           return;
1691         }
1692       else if (!node->accumulator && !G_TYPE_CHECK_VALUE_TYPE (return_value, node->return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE))
1693         {
1694           g_critical ("%s: return value `%s' for signal \"%s\" is of type `%s'",
1695                       G_STRLOC,
1696                       g_type_name (node->return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE),
1697                       node->name,
1698                       G_VALUE_TYPE_NAME (return_value));
1699           G_UNLOCK (g_signal_mutex);
1700           return;
1701         }
1702     }
1703   else
1704     return_value = NULL;
1705 #endif  /* G_ENABLE_DEBUG */
1706
1707   signal_emit_R (node, detail, instance, return_value, instance_and_params);
1708   G_UNLOCK (g_signal_mutex);
1709 }
1710
1711 void
1712 g_signal_emit_valist (gpointer instance,
1713                       guint    signal_id,
1714                       GQuark   detail,
1715                       va_list  var_args)
1716 {
1717   GValue *instance_and_params, stack_values[MAX_STACK_VALUES], *free_me = NULL;
1718   GValue *param_values;
1719   SignalNode *node;
1720   guint i;
1721
1722   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
1723   g_return_if_fail (signal_id > 0);
1724
1725   G_LOCK (g_signal_mutex);
1726   node = LOOKUP_SIGNAL_NODE (signal_id);
1727   if (!node || !g_type_is_a (G_TYPE_FROM_INSTANCE (instance), node->itype))
1728     {
1729       g_warning ("%s: signal id `%u' is invalid for instance `%p'", G_STRLOC, signal_id, instance);
1730       G_UNLOCK (g_signal_mutex);
1731       return;
1732     }
1733 #ifndef G_DISABLE_CHECKS
1734   if (detail && !(node->flags & G_SIGNAL_DETAILED))
1735     {
1736       g_warning ("%s: signal id `%u' does not support detail (%u)", G_STRLOC, signal_id, detail);
1737       G_UNLOCK (g_signal_mutex);
1738       return;
1739     }
1740 #endif  /* !G_DISABLE_CHECKS */
1741
1742   if (node->n_params < MAX_STACK_VALUES)
1743     instance_and_params = stack_values;
1744   else
1745     {
1746       free_me = g_new (GValue, node->n_params + 1);
1747       instance_and_params = free_me;
1748     }
1749   param_values = instance_and_params + 1;
1750   for (i = 0; i < node->n_params; i++)
1751     {
1752       gchar *error;
1753
1754       param_values[i].g_type = 0;
1755       g_value_init (param_values + i, node->param_types[i] & ~G_SIGNAL_TYPE_STATIC_SCOPE);
1756       G_VALUE_COLLECT (param_values + i,
1757                        var_args,
1758                        node->param_types[i] & G_SIGNAL_TYPE_STATIC_SCOPE ? G_VALUE_NOCOPY_CONTENTS : 0,
1759                        &error);
1760       if (error)
1761         {
1762           g_warning ("%s: %s", G_STRLOC, error);
1763           g_free (error);
1764
1765           /* we purposely leak the value here, it might not be
1766            * in a sane state if an error condition occoured
1767            */
1768           while (i--)
1769             g_value_unset (param_values + i);
1770
1771           G_UNLOCK (g_signal_mutex);
1772           g_free (free_me);
1773           return;
1774         }
1775     }
1776   instance_and_params->g_type = 0;
1777   g_value_init (instance_and_params, G_TYPE_FROM_INSTANCE (instance));
1778   g_value_set_instance (instance_and_params, instance);
1779   if (node->return_type == G_TYPE_NONE)
1780     signal_emit_R (node, detail, instance, NULL, instance_and_params);
1781   else
1782     {
1783       GValue return_value = { 0, };
1784       gchar *error = NULL;
1785
1786       g_value_init (&return_value, node->return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE);
1787       if (signal_emit_R (node, detail, instance, &return_value, instance_and_params))
1788         G_VALUE_LCOPY (&return_value,
1789                        var_args,
1790                        node->return_type & G_SIGNAL_TYPE_STATIC_SCOPE ? G_VALUE_NOCOPY_CONTENTS : 0,
1791                        &error);
1792       if (!error)
1793         g_value_unset (&return_value);
1794       else
1795         {
1796           g_warning ("%s: %s", G_STRLOC, error);
1797           g_free (error);
1798
1799           /* we purposely leak the value here, it might not be
1800            * in a sane state if an error condition occoured
1801            */
1802         }
1803     }
1804   for (i = 0; i < node->n_params; i++)
1805     g_value_unset (param_values + i);
1806   g_value_unset (instance_and_params);
1807   if (free_me)
1808     g_free (free_me);
1809   G_UNLOCK (g_signal_mutex);
1810 }
1811
1812 void
1813 g_signal_emit (gpointer instance,
1814                guint    signal_id,
1815                GQuark   detail,
1816                ...)
1817 {
1818   va_list var_args;
1819
1820   va_start (var_args, detail);
1821   g_signal_emit_valist (instance, signal_id, detail, var_args);
1822   va_end (var_args);
1823 }
1824
1825 void
1826 g_signal_emit_by_name (gpointer     instance,
1827                        const gchar *detailed_signal,
1828                        ...)
1829 {
1830   GQuark detail = 0;
1831   guint signal_id;
1832
1833   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
1834   g_return_if_fail (detailed_signal != NULL);
1835
1836   G_LOCK (g_signal_mutex);
1837   signal_id = signal_parse_name (detailed_signal, G_TYPE_FROM_INSTANCE (instance), &detail, TRUE);
1838   G_UNLOCK (g_signal_mutex);
1839
1840   if (signal_id)
1841     {
1842       va_list var_args;
1843
1844       va_start (var_args, detailed_signal);
1845       g_signal_emit_valist (instance, signal_id, detail, var_args);
1846       va_end (var_args);
1847     }
1848   else
1849     g_warning ("%s: signal name `%s' is invalid for instance `%p'", G_STRLOC, detailed_signal, instance);
1850 }
1851
1852 static inline gboolean
1853 accumulate (GSignalInvocationHint *ihint,
1854             GValue                *return_accu,
1855             GValue                *handler_return,
1856             SignalAccumulator     *accumulator)
1857 {
1858   gboolean continue_emission;
1859
1860   if (!accumulator)
1861     return TRUE;
1862
1863   continue_emission = accumulator->func (ihint, return_accu, handler_return, accumulator->data);
1864   g_value_reset (handler_return);
1865
1866   return continue_emission;
1867 }
1868
1869 static gboolean
1870 signal_emit_R (SignalNode   *node,
1871                GQuark        detail,
1872                gpointer      instance,
1873                GValue       *emission_return,
1874                const GValue *instance_and_params)
1875 {
1876   EmissionState emission_state = 0;
1877   SignalAccumulator *accumulator;
1878   GSignalInvocationHint ihint;
1879   GClosure *class_closure;
1880   HandlerList *hlist;
1881   Handler *handler_list = NULL;
1882   GValue *return_accu, accu = { 0, };
1883   guint signal_id = node->signal_id;
1884   gboolean return_value_altered = FALSE;
1885
1886 #ifdef  G_ENABLE_DEBUG
1887   IF_DEBUG (SIGNALS, g_trace_instance_signals == instance || g_trap_instance_signals == instance)
1888     {
1889       g_message ("%s::%s(%u) emitted (instance=%p, signal-node=%p)",
1890                  g_type_name (G_TYPE_FROM_INSTANCE (instance)),
1891                  node->name, detail,
1892                  instance, node);
1893       if (g_trap_instance_signals == instance)
1894         G_BREAKPOINT ();
1895     }
1896 #endif  /* G_ENABLE_DEBUG */
1897
1898   if (node->flags & G_SIGNAL_NO_RECURSE)
1899     {
1900       Emission *emission = emission_find (g_restart_emissions, signal_id, detail, instance);
1901
1902       if (emission)
1903         {
1904           *emission->state_p = EMISSION_RESTART;
1905           return return_value_altered;
1906         }
1907     }
1908   ihint.signal_id = node->signal_id;
1909   ihint.detail = detail;
1910   accumulator = node->accumulator;
1911   if (accumulator)
1912     {
1913       g_value_init (&accu, node->return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE);
1914       return_accu = &accu;
1915     }
1916   else
1917     return_accu = emission_return;
1918   emission_push ((node->flags & G_SIGNAL_NO_RECURSE) ? &g_restart_emissions : &g_recursive_emissions,
1919                  signal_id, detail, instance, &emission_state);
1920   class_closure = node->class_closure;
1921
1922  EMIT_RESTART:
1923
1924   if (handler_list)
1925     handler_unref_R (signal_id, instance, handler_list);
1926   hlist = handler_list_lookup (signal_id, instance);
1927   handler_list = hlist ? hlist->handlers : NULL;
1928   if (handler_list)
1929     handler_ref (handler_list);
1930
1931   ihint.run_type = G_SIGNAL_RUN_FIRST;
1932
1933   if ((node->flags & G_SIGNAL_RUN_FIRST) && class_closure)
1934     {
1935       emission_state = EMISSION_RUN;
1936
1937       G_UNLOCK (g_signal_mutex);
1938       g_closure_invoke (class_closure,
1939                         return_accu,
1940                         node->n_params + 1,
1941                         instance_and_params,
1942                         &ihint);
1943       if (!accumulate (&ihint, emission_return, &accu, accumulator) &&
1944           emission_state == EMISSION_RUN)
1945         emission_state = EMISSION_STOP;
1946       G_LOCK (g_signal_mutex);
1947       return_value_altered = TRUE;
1948
1949       if (emission_state == EMISSION_STOP)
1950         goto EMIT_CLEANUP;
1951       else if (emission_state == EMISSION_RESTART)
1952         goto EMIT_RESTART;
1953     }
1954
1955   if (node->emission_hooks)
1956     {
1957       gboolean need_destroy, was_in_call, may_recurse = TRUE;
1958       GHook *hook;
1959
1960       emission_state = EMISSION_HOOK;
1961       hook = g_hook_first_valid (node->emission_hooks, may_recurse);
1962       while (hook)
1963         {
1964           SignalHook *signal_hook = SIGNAL_HOOK (hook);
1965
1966           if (!signal_hook->detail || signal_hook->detail == detail)
1967             {
1968               GSignalEmissionHook hook_func = hook->func;
1969
1970               was_in_call = G_HOOK_IN_CALL (hook);
1971               hook->flags |= G_HOOK_FLAG_IN_CALL;
1972               G_UNLOCK (g_signal_mutex);
1973               need_destroy = !hook_func (&ihint, node->n_params + 1, instance_and_params, hook->data);
1974               G_LOCK (g_signal_mutex);
1975               if (!was_in_call)
1976                 hook->flags &= ~G_HOOK_FLAG_IN_CALL;
1977               if (need_destroy)
1978                 g_hook_destroy_link (node->emission_hooks, hook);
1979             }
1980           hook = g_hook_next_valid (node->emission_hooks, hook, may_recurse);
1981         }
1982
1983       if (emission_state == EMISSION_RESTART)
1984         goto EMIT_RESTART;
1985     }
1986
1987   if (handler_list)
1988     {
1989       Handler *handler = handler_list;
1990
1991       emission_state = EMISSION_RUN;
1992       handler_ref (handler);
1993       do
1994         {
1995           Handler *tmp;
1996
1997           if (handler->after)
1998             {
1999               handler_unref_R (signal_id, instance, handler_list);
2000               handler_list = handler;
2001               break;
2002             }
2003           else if (!handler->block_count && (!handler->detail || handler->detail == detail))
2004             {
2005               G_UNLOCK (g_signal_mutex);
2006               g_closure_invoke (handler->closure,
2007                                 return_accu,
2008                                 node->n_params + 1,
2009                                 instance_and_params,
2010                                 &ihint);
2011               if (!accumulate (&ihint, emission_return, &accu, accumulator) &&
2012                   emission_state == EMISSION_RUN)
2013                 emission_state = EMISSION_STOP;
2014               G_LOCK (g_signal_mutex);
2015               return_value_altered = TRUE;
2016
2017               tmp = emission_state == EMISSION_RUN ? handler->next : NULL;
2018             }
2019           else
2020             tmp = handler->next;
2021
2022           if (tmp)
2023             handler_ref (tmp);
2024           handler_unref_R (signal_id, instance, handler_list);
2025           handler_list = handler;
2026           handler = tmp;
2027         }
2028       while (handler);
2029
2030       if (emission_state == EMISSION_STOP)
2031         goto EMIT_CLEANUP;
2032       else if (emission_state == EMISSION_RESTART)
2033         goto EMIT_RESTART;
2034     }
2035
2036   ihint.run_type = G_SIGNAL_RUN_LAST;
2037
2038   if ((node->flags & G_SIGNAL_RUN_LAST) && class_closure)
2039     {
2040       emission_state = EMISSION_RUN;
2041
2042       G_UNLOCK (g_signal_mutex);
2043       g_closure_invoke (class_closure,
2044                         return_accu,
2045                         node->n_params + 1,
2046                         instance_and_params,
2047                         &ihint);
2048       if (!accumulate (&ihint, emission_return, &accu, accumulator) &&
2049           emission_state == EMISSION_RUN)
2050         emission_state = EMISSION_STOP;
2051       G_LOCK (g_signal_mutex);
2052       return_value_altered = TRUE;
2053
2054       if (emission_state == EMISSION_STOP)
2055         goto EMIT_CLEANUP;
2056       else if (emission_state == EMISSION_RESTART)
2057         goto EMIT_RESTART;
2058     }
2059
2060   if (handler_list)
2061     {
2062       Handler *handler = handler_list;
2063
2064       emission_state = EMISSION_RUN;
2065       handler_ref (handler);
2066       do
2067         {
2068           Handler *tmp;
2069
2070           if (handler->after && !handler->block_count && (!handler->detail || handler->detail == detail))
2071             {
2072               G_UNLOCK (g_signal_mutex);
2073               g_closure_invoke (handler->closure,
2074                                 return_accu,
2075                                 node->n_params + 1,
2076                                 instance_and_params,
2077                                 &ihint);
2078               if (!accumulate (&ihint, emission_return, &accu, accumulator) &&
2079                   emission_state == EMISSION_RUN)
2080                 emission_state = EMISSION_STOP;
2081               G_LOCK (g_signal_mutex);
2082               return_value_altered = TRUE;
2083
2084               tmp = emission_state == EMISSION_RUN ? handler->next : NULL;
2085             }
2086           else
2087             tmp = handler->next;
2088
2089           if (tmp)
2090             handler_ref (tmp);
2091           handler_unref_R (signal_id, instance, handler);
2092           handler = tmp;
2093         }
2094       while (handler);
2095
2096       if (emission_state == EMISSION_STOP)
2097         goto EMIT_CLEANUP;
2098       else if (emission_state == EMISSION_RESTART)
2099         goto EMIT_RESTART;
2100     }
2101
2102  EMIT_CLEANUP:
2103
2104   ihint.run_type = G_SIGNAL_RUN_CLEANUP;
2105
2106   if ((node->flags & G_SIGNAL_RUN_CLEANUP) && class_closure)
2107     {
2108       gboolean need_unset = FALSE;
2109
2110       emission_state = EMISSION_STOP;
2111
2112       G_UNLOCK (g_signal_mutex);
2113       if (node->return_type != G_TYPE_NONE && !accumulator)
2114         {
2115           g_value_init (&accu, node->return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE);
2116           need_unset = TRUE;
2117         }
2118       g_closure_invoke (class_closure,
2119                         node->return_type != G_TYPE_NONE ? &accu : NULL,
2120                         node->n_params + 1,
2121                         instance_and_params,
2122                         &ihint);
2123       if (need_unset)
2124         g_value_unset (&accu);
2125       G_LOCK (g_signal_mutex);
2126
2127       if (emission_state == EMISSION_RESTART)
2128         goto EMIT_RESTART;
2129     }
2130
2131   if (handler_list)
2132     handler_unref_R (signal_id, instance, handler_list);
2133
2134   emission_pop ((node->flags & G_SIGNAL_NO_RECURSE) ? &g_restart_emissions : &g_recursive_emissions, &emission_state);
2135   if (accumulator)
2136     g_value_unset (&accu);
2137
2138   return return_value_altered;
2139 }
2140
2141
2142 /* --- compile standard marshallers --- */
2143 #include        "gobject.h"
2144 #include        "genums.h"
2145 #include        "gmarshal.c"