Merge remote branch 'gvdb/master'
[platform/upstream/glib.git] / 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 "config.h"
28
29 #include <string.h>
30 #include <signal.h>
31
32 #include "gsignal.h"
33 #include "gbsearcharray.h"
34 #include "gvaluecollector.h"
35 #include "gvaluetypes.h"
36 #include "gboxed.h"
37 #include "gobject.h"
38 #include "genums.h"
39 #include "gobject_trace.h"
40 #include "gobjectalias.h"
41
42
43 /**
44  * SECTION:signals
45  * @short_description: A means for customization of object behaviour
46  *     and a general purpose notification mechanism
47  * @title: Signals
48  *
49  * The basic concept of the signal system is that of the
50  * <emphasis>emission</emphasis> of a signal. Signals are introduced
51  * per-type and are identified through strings.  Signals introduced
52  * for a parent type are available in derived types as well, so
53  * basically they are a per-type facility that is inherited.  A signal
54  * emission mainly involves invocation of a certain set of callbacks
55  * in precisely defined manner. There are two main categories of such
56  * callbacks, per-object 
57  * <footnote><para>Although signals can deal with any kind of instantiatable 
58  * type, i'm referring to those types as "object types" in the following, 
59  * simply because that is the context most users will encounter signals in.
60  * </para></footnote>
61  * ones and user provided ones.
62  * The per-object callbacks are most often referred to as "object method
63  * handler" or "default (signal) handler", while user provided callbacks are
64  * usually just called "signal handler".
65  * The object method handler is provided at signal creation time (this most
66  * frequently happens at the end of an object class' creation), while user
67  * provided handlers are frequently connected and disconnected to/from a certain
68  * signal on certain object instances.
69  *
70  * A signal emission consists of five stages, unless prematurely stopped:
71  * <variablelist>
72  * <varlistentry><term></term><listitem><para>
73  *      1 - Invocation of the object method handler for %G_SIGNAL_RUN_FIRST signals
74  * </para></listitem></varlistentry>
75  * <varlistentry><term></term><listitem><para>
76  *      2 - Invocation of normal user-provided signal handlers (<emphasis>after</emphasis> flag %FALSE)
77  * </para></listitem></varlistentry>
78  * <varlistentry><term></term><listitem><para>
79  *      3 - Invocation of the object method handler for %G_SIGNAL_RUN_LAST signals
80  * </para></listitem></varlistentry>
81  * <varlistentry><term></term><listitem><para>
82  *      4 - Invocation of user provided signal handlers, connected with an <emphasis>after</emphasis> flag of %TRUE
83  * </para></listitem></varlistentry>
84  * <varlistentry><term></term><listitem><para>
85  *      5 - Invocation of the object method handler for %G_SIGNAL_RUN_CLEANUP signals
86  * </para></listitem></varlistentry>
87  * </variablelist>
88  * The user-provided signal handlers are called in the order they were
89  * connected in.
90  * All handlers may prematurely stop a signal emission, and any number of
91  * handlers may be connected, disconnected, blocked or unblocked during
92  * a signal emission.
93  * There are certain criteria for skipping user handlers in stages 2 and 4
94  * of a signal emission.
95  * First, user handlers may be <emphasis>blocked</emphasis>, blocked handlers are omitted
96  * during callback invocation, to return from the "blocked" state, a
97  * handler has to get unblocked exactly the same amount of times
98  * it has been blocked before.
99  * Second, upon emission of a %G_SIGNAL_DETAILED signal, an additional
100  * "detail" argument passed in to g_signal_emit() has to match the detail
101  * argument of the signal handler currently subject to invocation.
102  * Specification of no detail argument for signal handlers (omission of the
103  * detail part of the signal specification upon connection) serves as a
104  * wildcard and matches any detail argument passed in to emission.
105  */
106
107
108 #define REPORT_BUG      "please report occurrence circumstances to gtk-devel-list@gnome.org"
109 #ifdef  G_ENABLE_DEBUG
110 #define IF_DEBUG(debug_type, cond)      if ((_g_type_debug_flags & G_TYPE_DEBUG_ ## debug_type) || cond)
111 static volatile gpointer g_trace_instance_signals = NULL;
112 static volatile gpointer g_trap_instance_signals = NULL;
113 #endif  /* G_ENABLE_DEBUG */
114
115
116 /* --- typedefs --- */
117 typedef struct _SignalNode   SignalNode;
118 typedef struct _SignalKey    SignalKey;
119 typedef struct _Emission     Emission;
120 typedef struct _Handler      Handler;
121 typedef struct _HandlerList  HandlerList;
122 typedef struct _HandlerMatch HandlerMatch;
123 typedef enum
124 {
125   EMISSION_STOP,
126   EMISSION_RUN,
127   EMISSION_HOOK,
128   EMISSION_RESTART
129 } EmissionState;
130
131
132 /* --- prototypes --- */
133 static inline guint             signal_id_lookup        (GQuark           quark,
134                                                          GType            itype);
135 static        void              signal_destroy_R        (SignalNode      *signal_node);
136 static inline HandlerList*      handler_list_ensure     (guint            signal_id,
137                                                          gpointer         instance);
138 static inline HandlerList*      handler_list_lookup     (guint            signal_id,
139                                                          gpointer         instance);
140 static inline Handler*          handler_new             (gboolean         after);
141 static        void              handler_insert          (guint            signal_id,
142                                                          gpointer         instance,
143                                                          Handler         *handler);
144 static        Handler*          handler_lookup          (gpointer         instance,
145                                                          gulong           handler_id,
146                                                          guint           *signal_id_p);
147 static inline HandlerMatch*     handler_match_prepend   (HandlerMatch    *list,
148                                                          Handler         *handler,
149                                                          guint            signal_id);
150 static inline HandlerMatch*     handler_match_free1_R   (HandlerMatch    *node,
151                                                          gpointer         instance);
152 static        HandlerMatch*     handlers_find           (gpointer         instance,
153                                                          GSignalMatchType mask,
154                                                          guint            signal_id,
155                                                          GQuark           detail,
156                                                          GClosure        *closure,
157                                                          gpointer         func,
158                                                          gpointer         data,
159                                                          gboolean         one_and_only);
160 static inline void              handler_ref             (Handler         *handler);
161 static inline void              handler_unref_R         (guint            signal_id,
162                                                          gpointer         instance,
163                                                          Handler         *handler);
164 static gint                     handler_lists_cmp       (gconstpointer    node1,
165                                                          gconstpointer    node2);
166 static inline void              emission_push           (Emission       **emission_list_p,
167                                                          Emission        *emission);
168 static inline void              emission_pop            (Emission       **emission_list_p,
169                                                          Emission        *emission);
170 static inline Emission*         emission_find           (Emission        *emission_list,
171                                                          guint            signal_id,
172                                                          GQuark           detail,
173                                                          gpointer         instance);
174 static gint                     class_closures_cmp      (gconstpointer    node1,
175                                                          gconstpointer    node2);
176 static gint                     signal_key_cmp          (gconstpointer    node1,
177                                                          gconstpointer    node2);
178 static        gboolean          signal_emit_unlocked_R  (SignalNode      *node,
179                                                          GQuark           detail,
180                                                          gpointer         instance,
181                                                          GValue          *return_value,
182                                                          const GValue    *instance_and_params);
183 static const gchar *            type_debug_name         (GType            type);
184
185
186 /* --- structures --- */
187 typedef struct
188 {
189   GSignalAccumulator func;
190   gpointer           data;
191 } SignalAccumulator;
192 typedef struct
193 {
194   GHook hook;
195   GQuark detail;
196 } SignalHook;
197 #define SIGNAL_HOOK(hook)       ((SignalHook*) (hook))
198
199 struct _SignalNode
200 {
201   /* permanent portion */
202   guint              signal_id;
203   GType              itype;
204   const gchar       *name;
205   guint              destroyed : 1;
206   
207   /* reinitializable portion */
208   guint              test_class_offset : 12;
209   guint              flags : 8;
210   guint              n_params : 8;
211   GType             *param_types; /* mangled with G_SIGNAL_TYPE_STATIC_SCOPE flag */
212   GType              return_type; /* mangled with G_SIGNAL_TYPE_STATIC_SCOPE flag */
213   GBSearchArray     *class_closure_bsa;
214   SignalAccumulator *accumulator;
215   GSignalCMarshaller c_marshaller;
216   GHookList         *emission_hooks;
217 };
218 #define MAX_TEST_CLASS_OFFSET   (4096)  /* 2^12, 12 bits for test_class_offset */
219 #define TEST_CLASS_MAGIC        (1)     /* indicates NULL class closure, candidate for NOP optimization */
220
221 struct _SignalKey
222 {
223   GType  itype;
224   GQuark quark;
225   guint  signal_id;
226 };
227
228 struct _Emission
229 {
230   Emission             *next;
231   gpointer              instance;
232   GSignalInvocationHint ihint;
233   EmissionState         state;
234   GType                 chain_type;
235 };
236
237 struct _HandlerList
238 {
239   guint    signal_id;
240   Handler *handlers;
241   Handler *tail_before;  /* normal signal handlers are appended here  */
242   Handler *tail_after;   /* CONNECT_AFTER handlers are appended here  */
243 };
244
245 struct _Handler
246 {
247   gulong        sequential_number;
248   Handler      *next;
249   Handler      *prev;
250   GQuark        detail;
251   guint         ref_count;
252   guint         block_count : 16;
253 #define HANDLER_MAX_BLOCK_COUNT (1 << 16)
254   guint         after : 1;
255   GClosure     *closure;
256 };
257 struct _HandlerMatch
258 {
259   Handler      *handler;
260   HandlerMatch *next;
261   guint         signal_id;
262 };
263
264 typedef struct
265 {
266   GType     instance_type; /* 0 for default closure */
267   GClosure *closure;
268 } ClassClosure;
269
270
271 /* --- variables --- */
272 static GBSearchArray *g_signal_key_bsa = NULL;
273 static const GBSearchConfig g_signal_key_bconfig = {
274   sizeof (SignalKey),
275   signal_key_cmp,
276   G_BSEARCH_ARRAY_ALIGN_POWER2,
277 };
278 static GBSearchConfig g_signal_hlbsa_bconfig = {
279   sizeof (HandlerList),
280   handler_lists_cmp,
281   0,
282 };
283 static GBSearchConfig g_class_closure_bconfig = {
284   sizeof (ClassClosure),
285   class_closures_cmp,
286   0,
287 };
288 static GHashTable    *g_handler_list_bsa_ht = NULL;
289 static Emission      *g_recursive_emissions = NULL;
290 static Emission      *g_restart_emissions = NULL;
291 static gulong         g_handler_sequential_number = 1;
292 G_LOCK_DEFINE_STATIC (g_signal_mutex);
293 #define SIGNAL_LOCK()           G_LOCK (g_signal_mutex)
294 #define SIGNAL_UNLOCK()         G_UNLOCK (g_signal_mutex)
295
296
297 /* --- signal nodes --- */
298 static guint          g_n_signal_nodes = 0;
299 static SignalNode   **g_signal_nodes = NULL;
300
301 static inline SignalNode*
302 LOOKUP_SIGNAL_NODE (register guint signal_id)
303 {
304   if (signal_id < g_n_signal_nodes)
305     return g_signal_nodes[signal_id];
306   else
307     return NULL;
308 }
309
310
311 /* --- functions --- */
312 static inline guint
313 signal_id_lookup (GQuark quark,
314                   GType  itype)
315 {
316   GType *ifaces, type = itype;
317   SignalKey key;
318   guint n_ifaces;
319
320   key.quark = quark;
321
322   /* try looking up signals for this type and its ancestors */
323   do
324     {
325       SignalKey *signal_key;
326       
327       key.itype = type;
328       signal_key = g_bsearch_array_lookup (g_signal_key_bsa, &g_signal_key_bconfig, &key);
329       
330       if (signal_key)
331         return signal_key->signal_id;
332       
333       type = g_type_parent (type);
334     }
335   while (type);
336
337   /* no luck, try interfaces it exports */
338   ifaces = g_type_interfaces (itype, &n_ifaces);
339   while (n_ifaces--)
340     {
341       SignalKey *signal_key;
342
343       key.itype = ifaces[n_ifaces];
344       signal_key = g_bsearch_array_lookup (g_signal_key_bsa, &g_signal_key_bconfig, &key);
345
346       if (signal_key)
347         {
348           g_free (ifaces);
349           return signal_key->signal_id;
350         }
351     }
352   g_free (ifaces);
353   
354   return 0;
355 }
356
357 static gint
358 class_closures_cmp (gconstpointer node1,
359                     gconstpointer node2)
360 {
361   const ClassClosure *c1 = node1, *c2 = node2;
362   
363   return G_BSEARCH_ARRAY_CMP (c1->instance_type, c2->instance_type);
364 }
365
366 static gint
367 handler_lists_cmp (gconstpointer node1,
368                    gconstpointer node2)
369 {
370   const HandlerList *hlist1 = node1, *hlist2 = node2;
371   
372   return G_BSEARCH_ARRAY_CMP (hlist1->signal_id, hlist2->signal_id);
373 }
374
375 static inline HandlerList*
376 handler_list_ensure (guint    signal_id,
377                      gpointer instance)
378 {
379   GBSearchArray *hlbsa = g_hash_table_lookup (g_handler_list_bsa_ht, instance);
380   HandlerList key;
381   
382   key.signal_id = signal_id;
383   key.handlers    = NULL;
384   key.tail_before = NULL;
385   key.tail_after  = NULL;
386   if (!hlbsa)
387     {
388       hlbsa = g_bsearch_array_create (&g_signal_hlbsa_bconfig);
389       hlbsa = g_bsearch_array_insert (hlbsa, &g_signal_hlbsa_bconfig, &key);
390       g_hash_table_insert (g_handler_list_bsa_ht, instance, hlbsa);
391     }
392   else
393     {
394       GBSearchArray *o = hlbsa;
395
396       hlbsa = g_bsearch_array_insert (o, &g_signal_hlbsa_bconfig, &key);
397       if (hlbsa != o)
398         g_hash_table_insert (g_handler_list_bsa_ht, instance, hlbsa);
399     }
400   return g_bsearch_array_lookup (hlbsa, &g_signal_hlbsa_bconfig, &key);
401 }
402
403 static inline HandlerList*
404 handler_list_lookup (guint    signal_id,
405                      gpointer instance)
406 {
407   GBSearchArray *hlbsa = g_hash_table_lookup (g_handler_list_bsa_ht, instance);
408   HandlerList key;
409   
410   key.signal_id = signal_id;
411   
412   return hlbsa ? g_bsearch_array_lookup (hlbsa, &g_signal_hlbsa_bconfig, &key) : NULL;
413 }
414
415 static Handler*
416 handler_lookup (gpointer instance,
417                 gulong   handler_id,
418                 guint   *signal_id_p)
419 {
420   GBSearchArray *hlbsa = g_hash_table_lookup (g_handler_list_bsa_ht, instance);
421   
422   if (hlbsa)
423     {
424       guint i;
425       
426       for (i = 0; i < hlbsa->n_nodes; i++)
427         {
428           HandlerList *hlist = g_bsearch_array_get_nth (hlbsa, &g_signal_hlbsa_bconfig, i);
429           Handler *handler;
430           
431           for (handler = hlist->handlers; handler; handler = handler->next)
432             if (handler->sequential_number == handler_id)
433               {
434                 if (signal_id_p)
435                   *signal_id_p = hlist->signal_id;
436                 
437                 return handler;
438               }
439         }
440     }
441   
442   return NULL;
443 }
444
445 static inline HandlerMatch*
446 handler_match_prepend (HandlerMatch *list,
447                        Handler      *handler,
448                        guint         signal_id)
449 {
450   HandlerMatch *node;
451   
452   node = g_slice_new (HandlerMatch);
453   node->handler = handler;
454   node->next = list;
455   node->signal_id = signal_id;
456   handler_ref (handler);
457   
458   return node;
459 }
460 static inline HandlerMatch*
461 handler_match_free1_R (HandlerMatch *node,
462                        gpointer      instance)
463 {
464   HandlerMatch *next = node->next;
465   
466   handler_unref_R (node->signal_id, instance, node->handler);
467   g_slice_free (HandlerMatch, node);
468   
469   return next;
470 }
471
472 static HandlerMatch*
473 handlers_find (gpointer         instance,
474                GSignalMatchType mask,
475                guint            signal_id,
476                GQuark           detail,
477                GClosure        *closure,
478                gpointer         func,
479                gpointer         data,
480                gboolean         one_and_only)
481 {
482   HandlerMatch *mlist = NULL;
483   
484   if (mask & G_SIGNAL_MATCH_ID)
485     {
486       HandlerList *hlist = handler_list_lookup (signal_id, instance);
487       Handler *handler;
488       SignalNode *node = NULL;
489       
490       if (mask & G_SIGNAL_MATCH_FUNC)
491         {
492           node = LOOKUP_SIGNAL_NODE (signal_id);
493           if (!node || !node->c_marshaller)
494             return NULL;
495         }
496       
497       mask = ~mask;
498       for (handler = hlist ? hlist->handlers : NULL; handler; handler = handler->next)
499         if (handler->sequential_number &&
500             ((mask & G_SIGNAL_MATCH_DETAIL) || handler->detail == detail) &&
501             ((mask & G_SIGNAL_MATCH_CLOSURE) || handler->closure == closure) &&
502             ((mask & G_SIGNAL_MATCH_DATA) || handler->closure->data == data) &&
503             ((mask & G_SIGNAL_MATCH_UNBLOCKED) || handler->block_count == 0) &&
504             ((mask & G_SIGNAL_MATCH_FUNC) || (handler->closure->marshal == node->c_marshaller &&
505                                               handler->closure->meta_marshal == 0 &&
506                                               ((GCClosure*) handler->closure)->callback == func)))
507           {
508             mlist = handler_match_prepend (mlist, handler, signal_id);
509             if (one_and_only)
510               return mlist;
511           }
512     }
513   else
514     {
515       GBSearchArray *hlbsa = g_hash_table_lookup (g_handler_list_bsa_ht, instance);
516       
517       mask = ~mask;
518       if (hlbsa)
519         {
520           guint i;
521           
522           for (i = 0; i < hlbsa->n_nodes; i++)
523             {
524               HandlerList *hlist = g_bsearch_array_get_nth (hlbsa, &g_signal_hlbsa_bconfig, i);
525               SignalNode *node = NULL;
526               Handler *handler;
527               
528               if (!(mask & G_SIGNAL_MATCH_FUNC))
529                 {
530                   node = LOOKUP_SIGNAL_NODE (hlist->signal_id);
531                   if (!node->c_marshaller)
532                     continue;
533                 }
534               
535               for (handler = hlist->handlers; handler; handler = handler->next)
536                 if (handler->sequential_number &&
537                     ((mask & G_SIGNAL_MATCH_DETAIL) || handler->detail == detail) &&
538                     ((mask & G_SIGNAL_MATCH_CLOSURE) || handler->closure == closure) &&
539                     ((mask & G_SIGNAL_MATCH_DATA) || handler->closure->data == data) &&
540                     ((mask & G_SIGNAL_MATCH_UNBLOCKED) || handler->block_count == 0) &&
541                     ((mask & G_SIGNAL_MATCH_FUNC) || (handler->closure->marshal == node->c_marshaller &&
542                                                       handler->closure->meta_marshal == 0 &&
543                                                       ((GCClosure*) handler->closure)->callback == func)))
544                   {
545                     mlist = handler_match_prepend (mlist, handler, hlist->signal_id);
546                     if (one_and_only)
547                       return mlist;
548                   }
549             }
550         }
551     }
552   
553   return mlist;
554 }
555
556 static inline Handler*
557 handler_new (gboolean after)
558 {
559   Handler *handler = g_slice_new (Handler);
560 #ifndef G_DISABLE_CHECKS
561   if (g_handler_sequential_number < 1)
562     g_error (G_STRLOC ": handler id overflow, %s", REPORT_BUG);
563 #endif
564   
565   handler->sequential_number = g_handler_sequential_number++;
566   handler->prev = NULL;
567   handler->next = NULL;
568   handler->detail = 0;
569   handler->ref_count = 1;
570   handler->block_count = 0;
571   handler->after = after != FALSE;
572   handler->closure = NULL;
573   
574   return handler;
575 }
576
577 static inline void
578 handler_ref (Handler *handler)
579 {
580   g_return_if_fail (handler->ref_count > 0);
581   
582   g_atomic_int_inc ((int *)&handler->ref_count);
583 }
584
585 static inline void
586 handler_unref_R (guint    signal_id,
587                  gpointer instance,
588                  Handler *handler)
589 {
590   gboolean is_zero;
591
592   g_return_if_fail (handler->ref_count > 0);
593   
594   is_zero = g_atomic_int_dec_and_test ((int *)&handler->ref_count);
595
596   if (G_UNLIKELY (is_zero))
597     {
598       HandlerList *hlist = NULL;
599
600       if (handler->next)
601         handler->next->prev = handler->prev;
602       if (handler->prev)    /* watch out for g_signal_handlers_destroy()! */
603         handler->prev->next = handler->next;
604       else
605         {
606           hlist = handler_list_lookup (signal_id, instance);
607           hlist->handlers = handler->next;
608         }
609
610       if (instance)
611         {
612           /*  check if we are removing the handler pointed to by tail_before  */
613           if (!handler->after && (!handler->next || handler->next->after))
614             {
615               if (!hlist)
616                 hlist = handler_list_lookup (signal_id, instance);
617               if (hlist)
618                 {
619                   g_assert (hlist->tail_before == handler); /* paranoid */
620                   hlist->tail_before = handler->prev;
621                 }
622             }
623
624           /*  check if we are removing the handler pointed to by tail_after  */
625           if (!handler->next)
626             {
627               if (!hlist)
628                 hlist = handler_list_lookup (signal_id, instance);
629               if (hlist)
630                 {
631                   g_assert (hlist->tail_after == handler); /* paranoid */
632                   hlist->tail_after = handler->prev;
633                 }
634             }
635         }
636
637       SIGNAL_UNLOCK ();
638       g_closure_unref (handler->closure);
639       SIGNAL_LOCK ();
640       g_slice_free (Handler, handler);
641     }
642 }
643
644 static void
645 handler_insert (guint    signal_id,
646                 gpointer instance,
647                 Handler  *handler)
648 {
649   HandlerList *hlist;
650   
651   g_assert (handler->prev == NULL && handler->next == NULL); /* paranoid */
652   
653   hlist = handler_list_ensure (signal_id, instance);
654   if (!hlist->handlers)
655     {
656       hlist->handlers = handler;
657       if (!handler->after)
658         hlist->tail_before = handler;
659     }
660   else if (handler->after)
661     {
662       handler->prev = hlist->tail_after;
663       hlist->tail_after->next = handler;
664     }
665   else
666     {
667       if (hlist->tail_before)
668         {
669           handler->next = hlist->tail_before->next;
670           if (handler->next)
671             handler->next->prev = handler;
672           handler->prev = hlist->tail_before;
673           hlist->tail_before->next = handler;
674         }
675       else /* insert !after handler into a list of only after handlers */
676         {
677           handler->next = hlist->handlers;
678           if (handler->next)
679             handler->next->prev = handler;
680           hlist->handlers = handler;
681         }
682       hlist->tail_before = handler;
683     }
684
685   if (!handler->next)
686     hlist->tail_after = handler;
687 }
688
689 static inline void
690 emission_push (Emission **emission_list_p,
691                Emission  *emission)
692 {
693   emission->next = *emission_list_p;
694   *emission_list_p = emission;
695 }
696
697 static inline void
698 emission_pop (Emission **emission_list_p,
699               Emission  *emission)
700 {
701   Emission *node, *last = NULL;
702
703   for (node = *emission_list_p; node; last = node, node = last->next)
704     if (node == emission)
705       {
706         if (last)
707           last->next = node->next;
708         else
709           *emission_list_p = node->next;
710         return;
711       }
712   g_assert_not_reached ();
713 }
714
715 static inline Emission*
716 emission_find (Emission *emission_list,
717                guint     signal_id,
718                GQuark    detail,
719                gpointer  instance)
720 {
721   Emission *emission;
722   
723   for (emission = emission_list; emission; emission = emission->next)
724     if (emission->instance == instance &&
725         emission->ihint.signal_id == signal_id &&
726         emission->ihint.detail == detail)
727       return emission;
728   return NULL;
729 }
730
731 static inline Emission*
732 emission_find_innermost (gpointer instance)
733 {
734   Emission *emission, *s = NULL, *c = NULL;
735   
736   for (emission = g_restart_emissions; emission; emission = emission->next)
737     if (emission->instance == instance)
738       {
739         s = emission;
740         break;
741       }
742   for (emission = g_recursive_emissions; emission; emission = emission->next)
743     if (emission->instance == instance)
744       {
745         c = emission;
746         break;
747       }
748   if (!s)
749     return c;
750   else if (!c)
751     return s;
752   else
753     return G_HAVE_GROWING_STACK ? MAX (c, s) : MIN (c, s);
754 }
755
756 static gint
757 signal_key_cmp (gconstpointer node1,
758                 gconstpointer node2)
759 {
760   const SignalKey *key1 = node1, *key2 = node2;
761   
762   if (key1->itype == key2->itype)
763     return G_BSEARCH_ARRAY_CMP (key1->quark, key2->quark);
764   else
765     return G_BSEARCH_ARRAY_CMP (key1->itype, key2->itype);
766 }
767
768 void
769 g_signal_init (void)
770 {
771   SIGNAL_LOCK ();
772   if (!g_n_signal_nodes)
773     {
774       /* setup handler list binary searchable array hash table (in german, that'd be one word ;) */
775       g_handler_list_bsa_ht = g_hash_table_new (g_direct_hash, NULL);
776       g_signal_key_bsa = g_bsearch_array_create (&g_signal_key_bconfig);
777       
778       /* invalid (0) signal_id */
779       g_n_signal_nodes = 1;
780       g_signal_nodes = g_renew (SignalNode*, g_signal_nodes, g_n_signal_nodes);
781       g_signal_nodes[0] = NULL;
782     }
783   SIGNAL_UNLOCK ();
784 }
785
786 void
787 _g_signals_destroy (GType itype)
788 {
789   guint i;
790   
791   SIGNAL_LOCK ();
792   for (i = 1; i < g_n_signal_nodes; i++)
793     {
794       SignalNode *node = g_signal_nodes[i];
795       
796       if (node->itype == itype)
797         {
798           if (node->destroyed)
799             g_warning (G_STRLOC ": signal \"%s\" of type `%s' already destroyed",
800                        node->name,
801                        type_debug_name (node->itype));
802           else
803             signal_destroy_R (node);
804         }
805     }
806   SIGNAL_UNLOCK ();
807 }
808
809 /**
810  * g_signal_stop_emission:
811  * @instance: the object whose signal handlers you wish to stop.
812  * @signal_id: the signal identifier, as returned by g_signal_lookup().
813  * @detail: the detail which the signal was emitted with.
814  *
815  * Stops a signal's current emission.
816  *
817  * This will prevent the default method from running, if the signal was
818  * %G_SIGNAL_RUN_LAST and you connected normally (i.e. without the "after"
819  * flag).
820  *
821  * Prints a warning if used on a signal which isn't being emitted.
822  */
823 void
824 g_signal_stop_emission (gpointer instance,
825                         guint    signal_id,
826                         GQuark   detail)
827 {
828   SignalNode *node;
829   
830   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
831   g_return_if_fail (signal_id > 0);
832   
833   SIGNAL_LOCK ();
834   node = LOOKUP_SIGNAL_NODE (signal_id);
835   if (node && detail && !(node->flags & G_SIGNAL_DETAILED))
836     {
837       g_warning ("%s: signal id `%u' does not support detail (%u)", G_STRLOC, signal_id, detail);
838       SIGNAL_UNLOCK ();
839       return;
840     }
841   if (node && g_type_is_a (G_TYPE_FROM_INSTANCE (instance), node->itype))
842     {
843       Emission *emission_list = node->flags & G_SIGNAL_NO_RECURSE ? g_restart_emissions : g_recursive_emissions;
844       Emission *emission = emission_find (emission_list, signal_id, detail, instance);
845       
846       if (emission)
847         {
848           if (emission->state == EMISSION_HOOK)
849             g_warning (G_STRLOC ": emission of signal \"%s\" for instance `%p' cannot be stopped from emission hook",
850                        node->name, instance);
851           else if (emission->state == EMISSION_RUN)
852             emission->state = EMISSION_STOP;
853         }
854       else
855         g_warning (G_STRLOC ": no emission of signal \"%s\" to stop for instance `%p'",
856                    node->name, instance);
857     }
858   else
859     g_warning ("%s: signal id `%u' is invalid for instance `%p'", G_STRLOC, signal_id, instance);
860   SIGNAL_UNLOCK ();
861 }
862
863 static void
864 signal_finalize_hook (GHookList *hook_list,
865                       GHook     *hook)
866 {
867   GDestroyNotify destroy = hook->destroy;
868
869   if (destroy)
870     {
871       hook->destroy = NULL;
872       SIGNAL_UNLOCK ();
873       destroy (hook->data);
874       SIGNAL_LOCK ();
875     }
876 }
877
878 /**
879  * g_signal_add_emission_hook:
880  * @signal_id: the signal identifier, as returned by g_signal_lookup().
881  * @detail: the detail on which to call the hook.
882  * @hook_func: a #GSignalEmissionHook function.
883  * @hook_data: user data for @hook_func.
884  * @data_destroy: a #GDestroyNotify for @hook_data.
885  *
886  * Adds an emission hook for a signal, which will get called for any emission
887  * of that signal, independent of the instance. This is possible only
888  * for signals which don't have #G_SIGNAL_NO_HOOKS flag set.
889  *
890  * Returns: the hook id, for later use with g_signal_remove_emission_hook().
891  */
892 gulong
893 g_signal_add_emission_hook (guint               signal_id,
894                             GQuark              detail,
895                             GSignalEmissionHook hook_func,
896                             gpointer            hook_data,
897                             GDestroyNotify      data_destroy)
898 {
899   static gulong seq_hook_id = 1;
900   SignalNode *node;
901   GHook *hook;
902   SignalHook *signal_hook;
903
904   g_return_val_if_fail (signal_id > 0, 0);
905   g_return_val_if_fail (hook_func != NULL, 0);
906
907   SIGNAL_LOCK ();
908   node = LOOKUP_SIGNAL_NODE (signal_id);
909   if (!node || node->destroyed)
910     {
911       g_warning ("%s: invalid signal id `%u'", G_STRLOC, signal_id);
912       SIGNAL_UNLOCK ();
913       return 0;
914     }
915   if (node->flags & G_SIGNAL_NO_HOOKS) 
916     {
917       g_warning ("%s: signal id `%u' does not support emission hooks (G_SIGNAL_NO_HOOKS flag set)", G_STRLOC, signal_id);
918       SIGNAL_UNLOCK ();
919       return 0;
920     }
921   if (detail && !(node->flags & G_SIGNAL_DETAILED))
922     {
923       g_warning ("%s: signal id `%u' does not support detail (%u)", G_STRLOC, signal_id, detail);
924       SIGNAL_UNLOCK ();
925       return 0;
926     }
927   if (!node->emission_hooks)
928     {
929       node->emission_hooks = g_new (GHookList, 1);
930       g_hook_list_init (node->emission_hooks, sizeof (SignalHook));
931       node->emission_hooks->finalize_hook = signal_finalize_hook;
932     }
933   hook = g_hook_alloc (node->emission_hooks);
934   hook->data = hook_data;
935   hook->func = (gpointer) hook_func;
936   hook->destroy = data_destroy;
937   signal_hook = SIGNAL_HOOK (hook);
938   signal_hook->detail = detail;
939   node->emission_hooks->seq_id = seq_hook_id;
940   g_hook_append (node->emission_hooks, hook);
941   seq_hook_id = node->emission_hooks->seq_id;
942   SIGNAL_UNLOCK ();
943
944   return hook->hook_id;
945 }
946
947 /**
948  * g_signal_remove_emission_hook:
949  * @signal_id: the id of the signal
950  * @hook_id: the id of the emission hook, as returned by
951  *  g_signal_add_emission_hook()
952  *
953  * Deletes an emission hook.
954  */
955 void
956 g_signal_remove_emission_hook (guint  signal_id,
957                                gulong hook_id)
958 {
959   SignalNode *node;
960
961   g_return_if_fail (signal_id > 0);
962   g_return_if_fail (hook_id > 0);
963
964   SIGNAL_LOCK ();
965   node = LOOKUP_SIGNAL_NODE (signal_id);
966   if (!node || node->destroyed)
967     g_warning ("%s: invalid signal id `%u'", G_STRLOC, signal_id);
968   else if (!node->emission_hooks || !g_hook_destroy (node->emission_hooks, hook_id))
969     g_warning ("%s: signal \"%s\" had no hook (%lu) to remove", G_STRLOC, node->name, hook_id);
970   SIGNAL_UNLOCK ();
971 }
972
973 static inline guint
974 signal_parse_name (const gchar *name,
975                    GType        itype,
976                    GQuark      *detail_p,
977                    gboolean     force_quark)
978 {
979   const gchar *colon = strchr (name, ':');
980   guint signal_id;
981   
982   if (!colon)
983     {
984       signal_id = signal_id_lookup (g_quark_try_string (name), itype);
985       if (signal_id && detail_p)
986         *detail_p = 0;
987     }
988   else if (colon[1] == ':')
989     {
990       gchar buffer[32];
991       guint l = colon - name;
992       
993       if (l < 32)
994         {
995           memcpy (buffer, name, l);
996           buffer[l] = 0;
997           signal_id = signal_id_lookup (g_quark_try_string (buffer), itype);
998         }
999       else
1000         {
1001           gchar *signal = g_new (gchar, l + 1);
1002           
1003           memcpy (signal, name, l);
1004           signal[l] = 0;
1005           signal_id = signal_id_lookup (g_quark_try_string (signal), itype);
1006           g_free (signal);
1007         }
1008       
1009       if (signal_id && detail_p)
1010         *detail_p = colon[2] ? (force_quark ? g_quark_from_string : g_quark_try_string) (colon + 2) : 0;
1011     }
1012   else
1013     signal_id = 0;
1014   return signal_id;
1015 }
1016
1017 /**
1018  * g_signal_parse_name:
1019  * @detailed_signal: a string of the form "signal-name::detail".
1020  * @itype: The interface/instance type that introduced "signal-name".
1021  * @signal_id_p: Location to store the signal id.
1022  * @detail_p: Location to store the detail quark.
1023  * @force_detail_quark: %TRUE forces creation of a #GQuark for the detail.
1024  *
1025  * Internal function to parse a signal name into its @signal_id
1026  * and @detail quark.
1027  *
1028  * Returns: Whether the signal name could successfully be parsed and @signal_id_p and @detail_p contain valid return values.
1029  */
1030 gboolean
1031 g_signal_parse_name (const gchar *detailed_signal,
1032                      GType        itype,
1033                      guint       *signal_id_p,
1034                      GQuark      *detail_p,
1035                      gboolean     force_detail_quark)
1036 {
1037   SignalNode *node;
1038   GQuark detail = 0;
1039   guint signal_id;
1040   
1041   g_return_val_if_fail (detailed_signal != NULL, FALSE);
1042   g_return_val_if_fail (G_TYPE_IS_INSTANTIATABLE (itype) || G_TYPE_IS_INTERFACE (itype), FALSE);
1043   
1044   SIGNAL_LOCK ();
1045   signal_id = signal_parse_name (detailed_signal, itype, &detail, force_detail_quark);
1046   SIGNAL_UNLOCK ();
1047
1048   node = signal_id ? LOOKUP_SIGNAL_NODE (signal_id) : NULL;
1049   if (!node || node->destroyed ||
1050       (detail && !(node->flags & G_SIGNAL_DETAILED)))
1051     return FALSE;
1052
1053   if (signal_id_p)
1054     *signal_id_p = signal_id;
1055   if (detail_p)
1056     *detail_p = detail;
1057   
1058   return TRUE;
1059 }
1060
1061 /**
1062  * g_signal_stop_emission_by_name:
1063  * @instance: the object whose signal handlers you wish to stop.
1064  * @detailed_signal: a string of the form "signal-name::detail".
1065  *
1066  * Stops a signal's current emission.
1067  *
1068  * This is just like g_signal_stop_emission() except it will look up the
1069  * signal id for you.
1070  */
1071 void
1072 g_signal_stop_emission_by_name (gpointer     instance,
1073                                 const gchar *detailed_signal)
1074 {
1075   guint signal_id;
1076   GQuark detail = 0;
1077   GType itype;
1078   
1079   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
1080   g_return_if_fail (detailed_signal != NULL);
1081   
1082   SIGNAL_LOCK ();
1083   itype = G_TYPE_FROM_INSTANCE (instance);
1084   signal_id = signal_parse_name (detailed_signal, itype, &detail, TRUE);
1085   if (signal_id)
1086     {
1087       SignalNode *node = LOOKUP_SIGNAL_NODE (signal_id);
1088       
1089       if (detail && !(node->flags & G_SIGNAL_DETAILED))
1090         g_warning ("%s: signal `%s' does not support details", G_STRLOC, detailed_signal);
1091       else if (!g_type_is_a (itype, node->itype))
1092         g_warning ("%s: signal `%s' is invalid for instance `%p'", G_STRLOC, detailed_signal, instance);
1093       else
1094         {
1095           Emission *emission_list = node->flags & G_SIGNAL_NO_RECURSE ? g_restart_emissions : g_recursive_emissions;
1096           Emission *emission = emission_find (emission_list, signal_id, detail, instance);
1097           
1098           if (emission)
1099             {
1100               if (emission->state == EMISSION_HOOK)
1101                 g_warning (G_STRLOC ": emission of signal \"%s\" for instance `%p' cannot be stopped from emission hook",
1102                            node->name, instance);
1103               else if (emission->state == EMISSION_RUN)
1104                 emission->state = EMISSION_STOP;
1105             }
1106           else
1107             g_warning (G_STRLOC ": no emission of signal \"%s\" to stop for instance `%p'",
1108                        node->name, instance);
1109         }
1110     }
1111   else
1112     g_warning ("%s: signal `%s' is invalid for instance `%p'", G_STRLOC, detailed_signal, instance);
1113   SIGNAL_UNLOCK ();
1114 }
1115
1116 /**
1117  * g_signal_lookup:
1118  * @name: the signal's name.
1119  * @itype: the type that the signal operates on.
1120  *
1121  * Given the name of the signal and the type of object it connects to, gets
1122  * the signal's identifying integer. Emitting the signal by number is
1123  * somewhat faster than using the name each time.
1124  *
1125  * Also tries the ancestors of the given type.
1126  *
1127  * See g_signal_new() for details on allowed signal names.
1128  *
1129  * Returns: the signal's identifying number, or 0 if no signal was found.
1130  */
1131 guint
1132 g_signal_lookup (const gchar *name,
1133                  GType        itype)
1134 {
1135   guint signal_id;
1136   g_return_val_if_fail (name != NULL, 0);
1137   g_return_val_if_fail (G_TYPE_IS_INSTANTIATABLE (itype) || G_TYPE_IS_INTERFACE (itype), 0);
1138   
1139   SIGNAL_LOCK ();
1140   signal_id = signal_id_lookup (g_quark_try_string (name), itype);
1141   SIGNAL_UNLOCK ();
1142   if (!signal_id)
1143     {
1144       /* give elaborate warnings */
1145       if (!g_type_name (itype))
1146         g_warning (G_STRLOC ": unable to lookup signal \"%s\" for invalid type id `%"G_GSIZE_FORMAT"'",
1147                    name, itype);
1148       else if (!G_TYPE_IS_INSTANTIATABLE (itype))
1149         g_warning (G_STRLOC ": unable to lookup signal \"%s\" for non instantiatable type `%s'",
1150                    name, g_type_name (itype));
1151       else if (!g_type_class_peek (itype))
1152         g_warning (G_STRLOC ": unable to lookup signal \"%s\" of unloaded type `%s'",
1153                    name, g_type_name (itype));
1154     }
1155   
1156   return signal_id;
1157 }
1158
1159 /**
1160  * g_signal_list_ids:
1161  * @itype: Instance or interface type.
1162  * @n_ids: Location to store the number of signal ids for @itype.
1163  *
1164  * Lists the signals by id that a certain instance or interface type
1165  * created. Further information about the signals can be acquired through
1166  * g_signal_query().
1167  *
1168  * Returns: Newly allocated array of signal IDs.
1169  */
1170 guint*
1171 g_signal_list_ids (GType  itype,
1172                    guint *n_ids)
1173 {
1174   SignalKey *keys;
1175   GArray *result;
1176   guint n_nodes;
1177   guint i;
1178   
1179   g_return_val_if_fail (G_TYPE_IS_INSTANTIATABLE (itype) || G_TYPE_IS_INTERFACE (itype), NULL);
1180   g_return_val_if_fail (n_ids != NULL, NULL);
1181   
1182   SIGNAL_LOCK ();
1183   keys = g_bsearch_array_get_nth (g_signal_key_bsa, &g_signal_key_bconfig, 0);
1184   n_nodes = g_bsearch_array_get_n_nodes (g_signal_key_bsa);
1185   result = g_array_new (FALSE, FALSE, sizeof (guint));
1186   
1187   for (i = 0; i < n_nodes; i++)
1188     if (keys[i].itype == itype)
1189       {
1190         const gchar *name = g_quark_to_string (keys[i].quark);
1191         
1192         /* Signal names with "_" in them are aliases to the same
1193          * name with "-" instead of "_".
1194          */
1195         if (!strchr (name, '_'))
1196           g_array_append_val (result, keys[i].signal_id);
1197       }
1198   *n_ids = result->len;
1199   SIGNAL_UNLOCK ();
1200   if (!n_nodes)
1201     {
1202       /* give elaborate warnings */
1203       if (!g_type_name (itype))
1204         g_warning (G_STRLOC ": unable to list signals for invalid type id `%"G_GSIZE_FORMAT"'",
1205                    itype);
1206       else if (!G_TYPE_IS_INSTANTIATABLE (itype) && !G_TYPE_IS_INTERFACE (itype))
1207         g_warning (G_STRLOC ": unable to list signals of non instantiatable type `%s'",
1208                    g_type_name (itype));
1209       else if (!g_type_class_peek (itype) && !G_TYPE_IS_INTERFACE (itype))
1210         g_warning (G_STRLOC ": unable to list signals of unloaded type `%s'",
1211                    g_type_name (itype));
1212     }
1213   
1214   return (guint*) g_array_free (result, FALSE);
1215 }
1216
1217 /**
1218  * g_signal_name:
1219  * @signal_id: the signal's identifying number.
1220  *
1221  * Given the signal's identifier, finds its name.
1222  *
1223  * Two different signals may have the same name, if they have differing types.
1224  *
1225  * Returns: the signal name, or %NULL if the signal number was invalid.
1226  */
1227 G_CONST_RETURN gchar*
1228 g_signal_name (guint signal_id)
1229 {
1230   SignalNode *node;
1231   const gchar *name;
1232   
1233   SIGNAL_LOCK ();
1234   node = LOOKUP_SIGNAL_NODE (signal_id);
1235   name = node ? node->name : NULL;
1236   SIGNAL_UNLOCK ();
1237   
1238   return (char*) name;
1239 }
1240
1241 /**
1242  * g_signal_query:
1243  * @signal_id: The signal id of the signal to query information for.
1244  * @query: A user provided structure that is filled in with constant
1245  *  values upon success.
1246  *
1247  * Queries the signal system for in-depth information about a
1248  * specific signal. This function will fill in a user-provided
1249  * structure to hold signal-specific information. If an invalid
1250  * signal id is passed in, the @signal_id member of the #GSignalQuery
1251  * is 0. All members filled into the #GSignalQuery structure should
1252  * be considered constant and have to be left untouched.
1253  */
1254 void
1255 g_signal_query (guint         signal_id,
1256                 GSignalQuery *query)
1257 {
1258   SignalNode *node;
1259   
1260   g_return_if_fail (query != NULL);
1261   
1262   SIGNAL_LOCK ();
1263   node = LOOKUP_SIGNAL_NODE (signal_id);
1264   if (!node || node->destroyed)
1265     query->signal_id = 0;
1266   else
1267     {
1268       query->signal_id = node->signal_id;
1269       query->signal_name = node->name;
1270       query->itype = node->itype;
1271       query->signal_flags = node->flags;
1272       query->return_type = node->return_type;
1273       query->n_params = node->n_params;
1274       query->param_types = node->param_types;
1275     }
1276   SIGNAL_UNLOCK ();
1277 }
1278
1279 /**
1280  * g_signal_new:
1281  * @signal_name: the name for the signal
1282  * @itype: the type this signal pertains to. It will also pertain to
1283  *  types which are derived from this type.
1284  * @signal_flags: a combination of #GSignalFlags specifying detail of when
1285  *  the default handler is to be invoked. You should at least specify
1286  *  %G_SIGNAL_RUN_FIRST or %G_SIGNAL_RUN_LAST.
1287  * @class_offset: The offset of the function pointer in the class structure
1288  *  for this type. Used to invoke a class method generically. Pass 0 to
1289  *  not associate a class method slot with this signal.
1290  * @accumulator: the accumulator for this signal; may be %NULL.
1291  * @accu_data: user data for the @accumulator.
1292  * @c_marshaller: the function to translate arrays of parameter values to
1293  *  signal emissions into C language callback invocations.
1294  * @return_type: the type of return value, or #G_TYPE_NONE for a signal
1295  *  without a return value.
1296  * @n_params: the number of parameter types to follow.
1297  * @...: a list of types, one for each parameter.
1298  *
1299  * Creates a new signal. (This is usually done in the class initializer.)
1300  *
1301  * A signal name consists of segments consisting of ASCII letters and
1302  * digits, separated by either the '-' or '_' character. The first
1303  * character of a signal name must be a letter. Names which violate these
1304  * rules lead to undefined behaviour of the GSignal system.
1305  *
1306  * When registering a signal and looking up a signal, either separator can
1307  * be used, but they cannot be mixed.
1308  *
1309  * If 0 is used for @class_offset subclasses cannot override the class handler
1310  * in their <code>class_init</code> method by doing
1311  * <code>super_class->signal_handler = my_signal_handler</code>. Instead they
1312  * will have to use g_signal_override_class_handler().
1313  *
1314  * Returns: the signal id
1315  */
1316 guint
1317 g_signal_new (const gchar        *signal_name,
1318               GType               itype,
1319               GSignalFlags        signal_flags,
1320               guint               class_offset,
1321               GSignalAccumulator  accumulator,
1322               gpointer            accu_data,
1323               GSignalCMarshaller  c_marshaller,
1324               GType               return_type,
1325               guint               n_params,
1326               ...)
1327 {
1328   va_list args;
1329   guint signal_id;
1330
1331   g_return_val_if_fail (signal_name != NULL, 0);
1332   
1333   va_start (args, n_params);
1334
1335   signal_id = g_signal_new_valist (signal_name, itype, signal_flags,
1336                                    class_offset ? g_signal_type_cclosure_new (itype, class_offset) : NULL,
1337                                    accumulator, accu_data, c_marshaller,
1338                                    return_type, n_params, args);
1339
1340   va_end (args);
1341
1342   /* optimize NOP emissions with NULL class handlers */
1343   if (signal_id && G_TYPE_IS_INSTANTIATABLE (itype) && return_type == G_TYPE_NONE &&
1344       class_offset && class_offset < MAX_TEST_CLASS_OFFSET)
1345     {
1346       SignalNode *node;
1347
1348       SIGNAL_LOCK ();
1349       node = LOOKUP_SIGNAL_NODE (signal_id);
1350       node->test_class_offset = class_offset;
1351       SIGNAL_UNLOCK ();
1352     }
1353  
1354   return signal_id;
1355 }
1356
1357 /**
1358  * g_signal_new_class_handler:
1359  * @signal_name: the name for the signal
1360  * @itype: the type this signal pertains to. It will also pertain to
1361  *  types which are derived from this type.
1362  * @signal_flags: a combination of #GSignalFlags specifying detail of when
1363  *  the default handler is to be invoked. You should at least specify
1364  *  %G_SIGNAL_RUN_FIRST or %G_SIGNAL_RUN_LAST.
1365  * @class_handler: a #GCallback which acts as class implementation of
1366  *  this signal. Used to invoke a class method generically. Pass %NULL to
1367  *  not associate a class method with this signal.
1368  * @accumulator: the accumulator for this signal; may be %NULL.
1369  * @accu_data: user data for the @accumulator.
1370  * @c_marshaller: the function to translate arrays of parameter values to
1371  *  signal emissions into C language callback invocations.
1372  * @return_type: the type of return value, or #G_TYPE_NONE for a signal
1373  *  without a return value.
1374  * @n_params: the number of parameter types to follow.
1375  * @...: a list of types, one for each parameter.
1376  *
1377  * Creates a new signal. (This is usually done in the class initializer.)
1378  *
1379  * This is a variant of g_signal_new() that takes a C callback instead
1380  * off a class offset for the signal's class handler. This function
1381  * doesn't need a function pointer exposed in the class structure of
1382  * an object definition, instead the function pointer is passed
1383  * directly and can be overriden by derived classes with
1384  * g_signal_override_class_closure() or
1385  * g_signal_override_class_handler()and chained to with
1386  * g_signal_chain_from_overridden() or
1387  * g_signal_chain_from_overridden_handler().
1388  *
1389  * See g_signal_new() for information about signal names.
1390  *
1391  * Returns: the signal id
1392  *
1393  * Since: 2.18
1394  */
1395 guint
1396 g_signal_new_class_handler (const gchar        *signal_name,
1397                             GType               itype,
1398                             GSignalFlags        signal_flags,
1399                             GCallback           class_handler,
1400                             GSignalAccumulator  accumulator,
1401                             gpointer            accu_data,
1402                             GSignalCMarshaller  c_marshaller,
1403                             GType               return_type,
1404                             guint               n_params,
1405                             ...)
1406 {
1407   va_list args;
1408   guint signal_id;
1409
1410   g_return_val_if_fail (signal_name != NULL, 0);
1411
1412   va_start (args, n_params);
1413
1414   signal_id = g_signal_new_valist (signal_name, itype, signal_flags,
1415                                    class_handler ? g_cclosure_new (class_handler, NULL, NULL) : NULL,
1416                                    accumulator, accu_data, c_marshaller,
1417                                    return_type, n_params, args);
1418
1419   va_end (args);
1420
1421   return signal_id;
1422 }
1423
1424 static inline ClassClosure*
1425 signal_find_class_closure (SignalNode *node,
1426                            GType       itype)
1427 {
1428   GBSearchArray *bsa = node->class_closure_bsa;
1429   ClassClosure *cc;
1430
1431   if (bsa)
1432     {
1433       ClassClosure key;
1434
1435       /* cc->instance_type is 0 for default closure */
1436       
1437       key.instance_type = itype;
1438       cc = g_bsearch_array_lookup (bsa, &g_class_closure_bconfig, &key);
1439       while (!cc && key.instance_type)
1440         {
1441           key.instance_type = g_type_parent (key.instance_type);
1442           cc = g_bsearch_array_lookup (bsa, &g_class_closure_bconfig, &key);
1443         }
1444     }
1445   else
1446     cc = NULL;
1447   return cc;
1448 }
1449
1450 static inline GClosure*
1451 signal_lookup_closure (SignalNode    *node,
1452                        GTypeInstance *instance)
1453 {
1454   ClassClosure *cc;
1455
1456   if (node->class_closure_bsa && g_bsearch_array_get_n_nodes (node->class_closure_bsa) == 1)
1457     {
1458       cc = g_bsearch_array_get_nth (node->class_closure_bsa, &g_class_closure_bconfig, 0);
1459       if (cc && cc->instance_type == 0) /* check for default closure */
1460         return cc->closure;
1461     }
1462   cc = signal_find_class_closure (node, G_TYPE_FROM_INSTANCE (instance));
1463   return cc ? cc->closure : NULL;
1464 }
1465
1466 static void
1467 signal_add_class_closure (SignalNode *node,
1468                           GType       itype,
1469                           GClosure   *closure)
1470 {
1471   ClassClosure key;
1472
1473   /* can't optimize NOP emissions with overridden class closures */
1474   node->test_class_offset = 0;
1475
1476   if (!node->class_closure_bsa)
1477     node->class_closure_bsa = g_bsearch_array_create (&g_class_closure_bconfig);
1478   key.instance_type = itype;
1479   key.closure = g_closure_ref (closure);
1480   node->class_closure_bsa = g_bsearch_array_insert (node->class_closure_bsa,
1481                                                     &g_class_closure_bconfig,
1482                                                     &key);
1483   g_closure_sink (closure);
1484   if (node->c_marshaller && closure && G_CLOSURE_NEEDS_MARSHAL (closure))
1485     g_closure_set_marshal (closure, node->c_marshaller);
1486 }
1487
1488 /**
1489  * g_signal_newv:
1490  * @signal_name: the name for the signal
1491  * @itype: the type this signal pertains to. It will also pertain to
1492  *     types which are derived from this type
1493  * @signal_flags: a combination of #GSignalFlags specifying detail of when
1494  *     the default handler is to be invoked. You should at least specify
1495  *     %G_SIGNAL_RUN_FIRST or %G_SIGNAL_RUN_LAST
1496  * @class_closure: The closure to invoke on signal emission; may be %NULL
1497  * @accumulator: the accumulator for this signal; may be %NULL
1498  * @accu_data: user data for the @accumulator
1499  * @c_marshaller: the function to translate arrays of parameter values to
1500  *     signal emissions into C language callback invocations
1501  * @return_type: the type of return value, or #G_TYPE_NONE for a signal
1502  *     without a return value
1503  * @n_params: the length of @param_types
1504  * @param_types: an array of types, one for each parameter
1505  *
1506  * Creates a new signal. (This is usually done in the class initializer.)
1507  *
1508  * See g_signal_new() for details on allowed signal names.
1509  *
1510  * Returns: the signal id
1511  */
1512 guint
1513 g_signal_newv (const gchar       *signal_name,
1514                GType              itype,
1515                GSignalFlags       signal_flags,
1516                GClosure          *class_closure,
1517                GSignalAccumulator accumulator,
1518                gpointer           accu_data,
1519                GSignalCMarshaller c_marshaller,
1520                GType              return_type,
1521                guint              n_params,
1522                GType             *param_types)
1523 {
1524   gchar *name;
1525   guint signal_id, i;
1526   SignalNode *node;
1527   
1528   g_return_val_if_fail (signal_name != NULL, 0);
1529   g_return_val_if_fail (G_TYPE_IS_INSTANTIATABLE (itype) || G_TYPE_IS_INTERFACE (itype), 0);
1530   if (n_params)
1531     g_return_val_if_fail (param_types != NULL, 0);
1532   g_return_val_if_fail ((return_type & G_SIGNAL_TYPE_STATIC_SCOPE) == 0, 0);
1533   if (return_type == (G_TYPE_NONE & ~G_SIGNAL_TYPE_STATIC_SCOPE))
1534     g_return_val_if_fail (accumulator == NULL, 0);
1535   if (!accumulator)
1536     g_return_val_if_fail (accu_data == NULL, 0);
1537
1538   name = g_strdup (signal_name);
1539   g_strdelimit (name, G_STR_DELIMITERS ":^", '_');  /* FIXME do character checks like for types */
1540   
1541   SIGNAL_LOCK ();
1542   
1543   signal_id = signal_id_lookup (g_quark_try_string (name), itype);
1544   node = LOOKUP_SIGNAL_NODE (signal_id);
1545   if (node && !node->destroyed)
1546     {
1547       g_warning (G_STRLOC ": signal \"%s\" already exists in the `%s' %s",
1548                  name,
1549                  type_debug_name (node->itype),
1550                  G_TYPE_IS_INTERFACE (node->itype) ? "interface" : "class ancestry");
1551       g_free (name);
1552       SIGNAL_UNLOCK ();
1553       return 0;
1554     }
1555   if (node && node->itype != itype)
1556     {
1557       g_warning (G_STRLOC ": signal \"%s\" for type `%s' was previously created for type `%s'",
1558                  name,
1559                  type_debug_name (itype),
1560                  type_debug_name (node->itype));
1561       g_free (name);
1562       SIGNAL_UNLOCK ();
1563       return 0;
1564     }
1565   for (i = 0; i < n_params; i++)
1566     if (!G_TYPE_IS_VALUE (param_types[i] & ~G_SIGNAL_TYPE_STATIC_SCOPE))
1567       {
1568         g_warning (G_STRLOC ": parameter %d of type `%s' for signal \"%s::%s\" is not a value type",
1569                    i + 1, type_debug_name (param_types[i]), type_debug_name (itype), name);
1570         g_free (name);
1571         SIGNAL_UNLOCK ();
1572         return 0;
1573       }
1574   if (return_type != G_TYPE_NONE && !G_TYPE_IS_VALUE (return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE))
1575     {
1576       g_warning (G_STRLOC ": return value of type `%s' for signal \"%s::%s\" is not a value type",
1577                  type_debug_name (return_type), type_debug_name (itype), name);
1578       g_free (name);
1579       SIGNAL_UNLOCK ();
1580       return 0;
1581     }
1582   if (return_type != G_TYPE_NONE &&
1583       (signal_flags & (G_SIGNAL_RUN_FIRST | G_SIGNAL_RUN_LAST | G_SIGNAL_RUN_CLEANUP)) == G_SIGNAL_RUN_FIRST)
1584     {
1585       g_warning (G_STRLOC ": signal \"%s::%s\" has return type `%s' and is only G_SIGNAL_RUN_FIRST",
1586                  type_debug_name (itype), name, type_debug_name (return_type));
1587       g_free (name);
1588       SIGNAL_UNLOCK ();
1589       return 0;
1590     }
1591   
1592   /* setup permanent portion of signal node */
1593   if (!node)
1594     {
1595       SignalKey key;
1596       
1597       signal_id = g_n_signal_nodes++;
1598       node = g_new (SignalNode, 1);
1599       node->signal_id = signal_id;
1600       g_signal_nodes = g_renew (SignalNode*, g_signal_nodes, g_n_signal_nodes);
1601       g_signal_nodes[signal_id] = node;
1602       node->itype = itype;
1603       node->name = name;
1604       key.itype = itype;
1605       key.quark = g_quark_from_string (node->name);
1606       key.signal_id = signal_id;
1607       g_signal_key_bsa = g_bsearch_array_insert (g_signal_key_bsa, &g_signal_key_bconfig, &key);
1608       g_strdelimit (name, "_", '-');
1609       node->name = g_intern_string (name);
1610       key.quark = g_quark_from_string (name);
1611       g_signal_key_bsa = g_bsearch_array_insert (g_signal_key_bsa, &g_signal_key_bconfig, &key);
1612
1613       TRACE(GOBJECT_SIGNAL_NEW(signal_id, name, itype));
1614     }
1615   node->destroyed = FALSE;
1616   node->test_class_offset = 0;
1617
1618   /* setup reinitializable portion */
1619   node->flags = signal_flags & G_SIGNAL_FLAGS_MASK;
1620   node->n_params = n_params;
1621   node->param_types = g_memdup (param_types, sizeof (GType) * n_params);
1622   node->return_type = return_type;
1623   node->class_closure_bsa = NULL;
1624   if (accumulator)
1625     {
1626       node->accumulator = g_new (SignalAccumulator, 1);
1627       node->accumulator->func = accumulator;
1628       node->accumulator->data = accu_data;
1629     }
1630   else
1631     node->accumulator = NULL;
1632   node->c_marshaller = c_marshaller;
1633   node->emission_hooks = NULL;
1634   if (class_closure)
1635     signal_add_class_closure (node, 0, class_closure);
1636   else if (G_TYPE_IS_INSTANTIATABLE (itype) && return_type == G_TYPE_NONE)
1637     {
1638       /* optimize NOP emissions */
1639       node->test_class_offset = TEST_CLASS_MAGIC;
1640     }
1641   SIGNAL_UNLOCK ();
1642
1643   g_free (name);
1644
1645   return signal_id;
1646 }
1647
1648 /**
1649  * g_signal_new_valist:
1650  * @signal_name: the name for the signal
1651  * @itype: the type this signal pertains to. It will also pertain to
1652  *  types which are derived from this type.
1653  * @signal_flags: a combination of #GSignalFlags specifying detail of when
1654  *  the default handler is to be invoked. You should at least specify
1655  *  %G_SIGNAL_RUN_FIRST or %G_SIGNAL_RUN_LAST.
1656  * @class_closure: The closure to invoke on signal emission; may be %NULL.
1657  * @accumulator: the accumulator for this signal; may be %NULL.
1658  * @accu_data: user data for the @accumulator.
1659  * @c_marshaller: the function to translate arrays of parameter values to
1660  *  signal emissions into C language callback invocations.
1661  * @return_type: the type of return value, or #G_TYPE_NONE for a signal
1662  *  without a return value.
1663  * @n_params: the number of parameter types in @args.
1664  * @args: va_list of #GType, one for each parameter.
1665  *
1666  * Creates a new signal. (This is usually done in the class initializer.)
1667  *
1668  * See g_signal_new() for details on allowed signal names.
1669  *
1670  * Returns: the signal id
1671  */
1672 guint
1673 g_signal_new_valist (const gchar       *signal_name,
1674                      GType              itype,
1675                      GSignalFlags       signal_flags,
1676                      GClosure          *class_closure,
1677                      GSignalAccumulator accumulator,
1678                      gpointer           accu_data,
1679                      GSignalCMarshaller c_marshaller,
1680                      GType              return_type,
1681                      guint              n_params,
1682                      va_list            args)
1683 {
1684   GType *param_types;
1685   guint i;
1686   guint signal_id;
1687
1688   if (n_params > 0)
1689     {
1690       param_types = g_new (GType, n_params);
1691
1692       for (i = 0; i < n_params; i++)
1693         param_types[i] = va_arg (args, GType);
1694     }
1695   else
1696     param_types = NULL;
1697
1698   signal_id = g_signal_newv (signal_name, itype, signal_flags,
1699                              class_closure, accumulator, accu_data, c_marshaller,
1700                              return_type, n_params, param_types);
1701   g_free (param_types);
1702
1703   return signal_id;
1704 }
1705
1706 static void
1707 signal_destroy_R (SignalNode *signal_node)
1708 {
1709   SignalNode node = *signal_node;
1710
1711   signal_node->destroyed = TRUE;
1712   
1713   /* reentrancy caution, zero out real contents first */
1714   signal_node->test_class_offset = 0;
1715   signal_node->n_params = 0;
1716   signal_node->param_types = NULL;
1717   signal_node->return_type = 0;
1718   signal_node->class_closure_bsa = NULL;
1719   signal_node->accumulator = NULL;
1720   signal_node->c_marshaller = NULL;
1721   signal_node->emission_hooks = NULL;
1722   
1723 #ifdef  G_ENABLE_DEBUG
1724   /* check current emissions */
1725   {
1726     Emission *emission;
1727     
1728     for (emission = (node.flags & G_SIGNAL_NO_RECURSE) ? g_restart_emissions : g_recursive_emissions;
1729          emission; emission = emission->next)
1730       if (emission->ihint.signal_id == node.signal_id)
1731         g_critical (G_STRLOC ": signal \"%s\" being destroyed is currently in emission (instance `%p')",
1732                     node.name, emission->instance);
1733   }
1734 #endif
1735   
1736   /* free contents that need to
1737    */
1738   SIGNAL_UNLOCK ();
1739   g_free (node.param_types);
1740   if (node.class_closure_bsa)
1741     {
1742       guint i;
1743
1744       for (i = 0; i < node.class_closure_bsa->n_nodes; i++)
1745         {
1746           ClassClosure *cc = g_bsearch_array_get_nth (node.class_closure_bsa, &g_class_closure_bconfig, i);
1747
1748           g_closure_unref (cc->closure);
1749         }
1750       g_bsearch_array_free (node.class_closure_bsa, &g_class_closure_bconfig);
1751     }
1752   g_free (node.accumulator);
1753   if (node.emission_hooks)
1754     {
1755       g_hook_list_clear (node.emission_hooks);
1756       g_free (node.emission_hooks);
1757     }
1758   SIGNAL_LOCK ();
1759 }
1760
1761 /**
1762  * g_signal_override_class_closure:
1763  * @signal_id: the signal id
1764  * @instance_type: the instance type on which to override the class closure
1765  *  for the signal.
1766  * @class_closure: the closure.
1767  *
1768  * Overrides the class closure (i.e. the default handler) for the given signal
1769  * for emissions on instances of @instance_type. @instance_type must be derived
1770  * from the type to which the signal belongs.
1771  *
1772  * See g_signal_chain_from_overridden() and
1773  * g_signal_chain_from_overridden_handler() for how to chain up to the
1774  * parent class closure from inside the overridden one.
1775  */
1776 void
1777 g_signal_override_class_closure (guint     signal_id,
1778                                  GType     instance_type,
1779                                  GClosure *class_closure)
1780 {
1781   SignalNode *node;
1782   
1783   g_return_if_fail (signal_id > 0);
1784   g_return_if_fail (class_closure != NULL);
1785   
1786   SIGNAL_LOCK ();
1787   node = LOOKUP_SIGNAL_NODE (signal_id);
1788   if (!g_type_is_a (instance_type, node->itype))
1789     g_warning ("%s: type `%s' cannot be overridden for signal id `%u'", G_STRLOC, type_debug_name (instance_type), signal_id);
1790   else
1791     {
1792       ClassClosure *cc = signal_find_class_closure (node, instance_type);
1793       
1794       if (cc && cc->instance_type == instance_type)
1795         g_warning ("%s: type `%s' is already overridden for signal id `%u'", G_STRLOC, type_debug_name (instance_type), signal_id);
1796       else
1797         signal_add_class_closure (node, instance_type, class_closure);
1798     }
1799   SIGNAL_UNLOCK ();
1800 }
1801
1802 /**
1803  * g_signal_override_class_handler:
1804  * @signal_name: the name for the signal
1805  * @instance_type: the instance type on which to override the class handler
1806  *  for the signal.
1807  * @class_handler: the handler.
1808  *
1809  * Overrides the class closure (i.e. the default handler) for the
1810  * given signal for emissions on instances of @instance_type with
1811  * callabck @class_handler. @instance_type must be derived from the
1812  * type to which the signal belongs.
1813  *
1814  * See g_signal_chain_from_overridden() and
1815  * g_signal_chain_from_overridden_handler() for how to chain up to the
1816  * parent class closure from inside the overridden one.
1817  *
1818  * Since: 2.18
1819  */
1820 void
1821 g_signal_override_class_handler (const gchar *signal_name,
1822                                  GType        instance_type,
1823                                  GCallback    class_handler)
1824 {
1825   guint signal_id;
1826
1827   g_return_if_fail (signal_name != NULL);
1828   g_return_if_fail (instance_type != G_TYPE_NONE);
1829   g_return_if_fail (class_handler != NULL);
1830
1831   signal_id = g_signal_lookup (signal_name, instance_type);
1832
1833   if (signal_id)
1834     g_signal_override_class_closure (signal_id, instance_type,
1835                                      g_cclosure_new (class_handler, NULL, NULL));
1836   else
1837     g_warning ("%s: signal name '%s' is invalid for type id '%"G_GSIZE_FORMAT"'",
1838                G_STRLOC, signal_name, instance_type);
1839
1840 }
1841
1842 /**
1843  * g_signal_chain_from_overridden:
1844  * @instance_and_params: the argument list of the signal emission. The first
1845  *  element in the array is a #GValue for the instance the signal is being
1846  *  emitted on. The rest are any arguments to be passed to the signal.
1847  * @return_value: Location for the return value.
1848  *
1849  * Calls the original class closure of a signal. This function should only
1850  * be called from an overridden class closure; see
1851  * g_signal_override_class_closure() and
1852  * g_signal_override_class_handler().
1853  */
1854 void
1855 g_signal_chain_from_overridden (const GValue *instance_and_params,
1856                                 GValue       *return_value)
1857 {
1858   GType chain_type = 0, restore_type = 0;
1859   Emission *emission = NULL;
1860   GClosure *closure = NULL;
1861   guint n_params = 0;
1862   gpointer instance;
1863   
1864   g_return_if_fail (instance_and_params != NULL);
1865   instance = g_value_peek_pointer (instance_and_params);
1866   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
1867   
1868   SIGNAL_LOCK ();
1869   emission = emission_find_innermost (instance);
1870   if (emission)
1871     {
1872       SignalNode *node = LOOKUP_SIGNAL_NODE (emission->ihint.signal_id);
1873       
1874       g_assert (node != NULL);  /* paranoid */
1875       
1876       /* we should probably do the same parameter checks as g_signal_emit() here.
1877        */
1878       if (emission->chain_type != G_TYPE_NONE)
1879         {
1880           ClassClosure *cc = signal_find_class_closure (node, emission->chain_type);
1881           
1882           g_assert (cc != NULL);        /* closure currently in call stack */
1883
1884           n_params = node->n_params;
1885           restore_type = cc->instance_type;
1886           cc = signal_find_class_closure (node, g_type_parent (cc->instance_type));
1887           if (cc && cc->instance_type != restore_type)
1888             {
1889               closure = cc->closure;
1890               chain_type = cc->instance_type;
1891             }
1892         }
1893       else
1894         g_warning ("%s: signal id `%u' cannot be chained from current emission stage for instance `%p'", G_STRLOC, node->signal_id, instance);
1895     }
1896   else
1897     g_warning ("%s: no signal is currently being emitted for instance `%p'", G_STRLOC, instance);
1898
1899   if (closure)
1900     {
1901       emission->chain_type = chain_type;
1902       SIGNAL_UNLOCK ();
1903       g_closure_invoke (closure,
1904                         return_value,
1905                         n_params + 1,
1906                         instance_and_params,
1907                         &emission->ihint);
1908       SIGNAL_LOCK ();
1909       emission->chain_type = restore_type;
1910     }
1911   SIGNAL_UNLOCK ();
1912 }
1913
1914 /**
1915  * g_signal_chain_from_overridden_handler:
1916  * @instance: the instance the signal is being emitted on.
1917  * @...: parameters to be passed to the parent class closure, followed by a
1918  *  location for the return value. If the return type of the signal
1919  *  is #G_TYPE_NONE, the return value location can be omitted.
1920  *
1921  * Calls the original class closure of a signal. This function should
1922  * only be called from an overridden class closure; see
1923  * g_signal_override_class_closure() and
1924  * g_signal_override_class_handler().
1925  *
1926  * Since: 2.18
1927  */
1928 void
1929 g_signal_chain_from_overridden_handler (gpointer instance,
1930                                         ...)
1931 {
1932   GType chain_type = 0, restore_type = 0;
1933   Emission *emission = NULL;
1934   GClosure *closure = NULL;
1935   SignalNode *node;
1936   guint n_params = 0;
1937
1938   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
1939
1940   SIGNAL_LOCK ();
1941   emission = emission_find_innermost (instance);
1942   if (emission)
1943     {
1944       node = LOOKUP_SIGNAL_NODE (emission->ihint.signal_id);
1945
1946       g_assert (node != NULL);  /* paranoid */
1947
1948       /* we should probably do the same parameter checks as g_signal_emit() here.
1949        */
1950       if (emission->chain_type != G_TYPE_NONE)
1951         {
1952           ClassClosure *cc = signal_find_class_closure (node, emission->chain_type);
1953
1954           g_assert (cc != NULL);        /* closure currently in call stack */
1955
1956           n_params = node->n_params;
1957           restore_type = cc->instance_type;
1958           cc = signal_find_class_closure (node, g_type_parent (cc->instance_type));
1959           if (cc && cc->instance_type != restore_type)
1960             {
1961               closure = cc->closure;
1962               chain_type = cc->instance_type;
1963             }
1964         }
1965       else
1966         g_warning ("%s: signal id `%u' cannot be chained from current emission stage for instance `%p'", G_STRLOC, node->signal_id, instance);
1967     }
1968   else
1969     g_warning ("%s: no signal is currently being emitted for instance `%p'", G_STRLOC, instance);
1970
1971   if (closure)
1972     {
1973       GValue *instance_and_params;
1974       GType signal_return_type;
1975       GValue *param_values;
1976       va_list var_args;
1977       guint i;
1978
1979       va_start (var_args, instance);
1980
1981       signal_return_type = node->return_type;
1982       instance_and_params = g_slice_alloc0 (sizeof (GValue) * (n_params + 1));
1983       param_values = instance_and_params + 1;
1984
1985       for (i = 0; i < node->n_params; i++)
1986         {
1987           gchar *error;
1988           GType ptype = node->param_types[i] & ~G_SIGNAL_TYPE_STATIC_SCOPE;
1989           gboolean static_scope = node->param_types[i] & G_SIGNAL_TYPE_STATIC_SCOPE;
1990
1991           SIGNAL_UNLOCK ();
1992           G_VALUE_COLLECT_INIT (param_values + i, ptype,
1993                                 var_args,
1994                                 static_scope ? G_VALUE_NOCOPY_CONTENTS : 0,
1995                                 &error);
1996           if (error)
1997             {
1998               g_warning ("%s: %s", G_STRLOC, error);
1999               g_free (error);
2000
2001               /* we purposely leak the value here, it might not be
2002                * in a sane state if an error condition occoured
2003                */
2004               while (i--)
2005                 g_value_unset (param_values + i);
2006
2007               g_slice_free1 (sizeof (GValue) * (n_params + 1), instance_and_params);
2008               va_end (var_args);
2009               return;
2010             }
2011           SIGNAL_LOCK ();
2012         }
2013
2014       SIGNAL_UNLOCK ();
2015       instance_and_params->g_type = 0;
2016       g_value_init (instance_and_params, G_TYPE_FROM_INSTANCE (instance));
2017       g_value_set_instance (instance_and_params, instance);
2018       SIGNAL_LOCK ();
2019
2020       emission->chain_type = chain_type;
2021       SIGNAL_UNLOCK ();
2022
2023       if (signal_return_type == G_TYPE_NONE)
2024         {
2025           g_closure_invoke (closure,
2026                             NULL,
2027                             n_params + 1,
2028                             instance_and_params,
2029                             &emission->ihint);
2030         }
2031       else
2032         {
2033           GValue return_value = { 0, };
2034           gchar *error = NULL;
2035           GType rtype = signal_return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE;
2036           gboolean static_scope = signal_return_type & G_SIGNAL_TYPE_STATIC_SCOPE;
2037
2038           g_value_init (&return_value, rtype);
2039
2040           g_closure_invoke (closure,
2041                             &return_value,
2042                             n_params + 1,
2043                             instance_and_params,
2044                             &emission->ihint);
2045
2046           G_VALUE_LCOPY (&return_value,
2047                          var_args,
2048                          static_scope ? G_VALUE_NOCOPY_CONTENTS : 0,
2049                          &error);
2050           if (!error)
2051             {
2052               g_value_unset (&return_value);
2053             }
2054           else
2055             {
2056               g_warning ("%s: %s", G_STRLOC, error);
2057               g_free (error);
2058
2059               /* we purposely leak the value here, it might not be
2060                * in a sane state if an error condition occured
2061                */
2062             }
2063         }
2064
2065       for (i = 0; i < n_params; i++)
2066         g_value_unset (param_values + i);
2067       g_value_unset (instance_and_params);
2068       g_slice_free1 (sizeof (GValue) * (n_params + 1), instance_and_params);
2069
2070       va_end (var_args);
2071
2072       SIGNAL_LOCK ();
2073       emission->chain_type = restore_type;
2074     }
2075   SIGNAL_UNLOCK ();
2076 }
2077
2078 /**
2079  * g_signal_get_invocation_hint:
2080  * @instance: the instance to query
2081  *
2082  * Returns the invocation hint of the innermost signal emission of instance.
2083  *
2084  * Returns: the invocation hint of the innermost signal emission.
2085  */
2086 GSignalInvocationHint*
2087 g_signal_get_invocation_hint (gpointer instance)
2088 {
2089   Emission *emission = NULL;
2090   
2091   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), NULL);
2092
2093   SIGNAL_LOCK ();
2094   emission = emission_find_innermost (instance);
2095   SIGNAL_UNLOCK ();
2096   
2097   return emission ? &emission->ihint : NULL;
2098 }
2099
2100 /**
2101  * g_signal_connect_closure_by_id:
2102  * @instance: the instance to connect to.
2103  * @signal_id: the id of the signal.
2104  * @detail: the detail.
2105  * @closure: the closure to connect.
2106  * @after: whether the handler should be called before or after the
2107  *  default handler of the signal.
2108  *
2109  * Connects a closure to a signal for a particular object.
2110  *
2111  * Returns: the handler id
2112  */
2113 gulong
2114 g_signal_connect_closure_by_id (gpointer  instance,
2115                                 guint     signal_id,
2116                                 GQuark    detail,
2117                                 GClosure *closure,
2118                                 gboolean  after)
2119 {
2120   SignalNode *node;
2121   gulong handler_seq_no = 0;
2122   
2123   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
2124   g_return_val_if_fail (signal_id > 0, 0);
2125   g_return_val_if_fail (closure != NULL, 0);
2126   
2127   SIGNAL_LOCK ();
2128   node = LOOKUP_SIGNAL_NODE (signal_id);
2129   if (node)
2130     {
2131       if (detail && !(node->flags & G_SIGNAL_DETAILED))
2132         g_warning ("%s: signal id `%u' does not support detail (%u)", G_STRLOC, signal_id, detail);
2133       else if (!g_type_is_a (G_TYPE_FROM_INSTANCE (instance), node->itype))
2134         g_warning ("%s: signal id `%u' is invalid for instance `%p'", G_STRLOC, signal_id, instance);
2135       else
2136         {
2137           Handler *handler = handler_new (after);
2138           
2139           handler_seq_no = handler->sequential_number;
2140           handler->detail = detail;
2141           handler->closure = g_closure_ref (closure);
2142           g_closure_sink (closure);
2143           handler_insert (signal_id, instance, handler);
2144           if (node->c_marshaller && G_CLOSURE_NEEDS_MARSHAL (closure))
2145             g_closure_set_marshal (closure, node->c_marshaller);
2146         }
2147     }
2148   else
2149     g_warning ("%s: signal id `%u' is invalid for instance `%p'", G_STRLOC, signal_id, instance);
2150   SIGNAL_UNLOCK ();
2151   
2152   return handler_seq_no;
2153 }
2154
2155 /**
2156  * g_signal_connect_closure:
2157  * @instance: the instance to connect to.
2158  * @detailed_signal: a string of the form "signal-name::detail".
2159  * @closure: the closure to connect.
2160  * @after: whether the handler should be called before or after the
2161  *  default handler of the signal.
2162  *
2163  * Connects a closure to a signal for a particular object.
2164  *
2165  * Returns: the handler id
2166  */
2167 gulong
2168 g_signal_connect_closure (gpointer     instance,
2169                           const gchar *detailed_signal,
2170                           GClosure    *closure,
2171                           gboolean     after)
2172 {
2173   guint signal_id;
2174   gulong handler_seq_no = 0;
2175   GQuark detail = 0;
2176   GType itype;
2177
2178   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
2179   g_return_val_if_fail (detailed_signal != NULL, 0);
2180   g_return_val_if_fail (closure != NULL, 0);
2181
2182   SIGNAL_LOCK ();
2183   itype = G_TYPE_FROM_INSTANCE (instance);
2184   signal_id = signal_parse_name (detailed_signal, itype, &detail, TRUE);
2185   if (signal_id)
2186     {
2187       SignalNode *node = LOOKUP_SIGNAL_NODE (signal_id);
2188
2189       if (detail && !(node->flags & G_SIGNAL_DETAILED))
2190         g_warning ("%s: signal `%s' does not support details", G_STRLOC, detailed_signal);
2191       else if (!g_type_is_a (itype, node->itype))
2192         g_warning ("%s: signal `%s' is invalid for instance `%p'", G_STRLOC, detailed_signal, instance);
2193       else
2194         {
2195           Handler *handler = handler_new (after);
2196
2197           handler_seq_no = handler->sequential_number;
2198           handler->detail = detail;
2199           handler->closure = g_closure_ref (closure);
2200           g_closure_sink (closure);
2201           handler_insert (signal_id, instance, handler);
2202           if (node->c_marshaller && G_CLOSURE_NEEDS_MARSHAL (handler->closure))
2203             g_closure_set_marshal (handler->closure, node->c_marshaller);
2204         }
2205     }
2206   else
2207     g_warning ("%s: signal `%s' is invalid for instance `%p'", G_STRLOC, detailed_signal, instance);
2208   SIGNAL_UNLOCK ();
2209
2210   return handler_seq_no;
2211 }
2212
2213 /**
2214  * g_signal_connect_data:
2215  * @instance: the instance to connect to.
2216  * @detailed_signal: a string of the form "signal-name::detail".
2217  * @c_handler: the #GCallback to connect.
2218  * @data: data to pass to @c_handler calls.
2219  * @destroy_data: a #GClosureNotify for @data.
2220  * @connect_flags: a combination of #GConnectFlags.
2221  *
2222  * Connects a #GCallback function to a signal for a particular object. Similar
2223  * to g_signal_connect(), but allows to provide a #GClosureNotify for the data
2224  * which will be called when the signal handler is disconnected and no longer
2225  * used. Specify @connect_flags if you need <literal>..._after()</literal> or
2226  * <literal>..._swapped()</literal> variants of this function.
2227  *
2228  * Returns: the handler id
2229  */
2230 gulong
2231 g_signal_connect_data (gpointer       instance,
2232                        const gchar   *detailed_signal,
2233                        GCallback      c_handler,
2234                        gpointer       data,
2235                        GClosureNotify destroy_data,
2236                        GConnectFlags  connect_flags)
2237 {
2238   guint signal_id;
2239   gulong handler_seq_no = 0;
2240   GQuark detail = 0;
2241   GType itype;
2242   gboolean swapped, after;
2243   
2244   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
2245   g_return_val_if_fail (detailed_signal != NULL, 0);
2246   g_return_val_if_fail (c_handler != NULL, 0);
2247
2248   swapped = (connect_flags & G_CONNECT_SWAPPED) != FALSE;
2249   after = (connect_flags & G_CONNECT_AFTER) != FALSE;
2250
2251   SIGNAL_LOCK ();
2252   itype = G_TYPE_FROM_INSTANCE (instance);
2253   signal_id = signal_parse_name (detailed_signal, itype, &detail, TRUE);
2254   if (signal_id)
2255     {
2256       SignalNode *node = LOOKUP_SIGNAL_NODE (signal_id);
2257
2258       if (detail && !(node->flags & G_SIGNAL_DETAILED))
2259         g_warning ("%s: signal `%s' does not support details", G_STRLOC, detailed_signal);
2260       else if (!g_type_is_a (itype, node->itype))
2261         g_warning ("%s: signal `%s' is invalid for instance `%p'", G_STRLOC, detailed_signal, instance);
2262       else
2263         {
2264           Handler *handler = handler_new (after);
2265
2266           handler_seq_no = handler->sequential_number;
2267           handler->detail = detail;
2268           handler->closure = g_closure_ref ((swapped ? g_cclosure_new_swap : g_cclosure_new) (c_handler, data, destroy_data));
2269           g_closure_sink (handler->closure);
2270           handler_insert (signal_id, instance, handler);
2271           if (node->c_marshaller && G_CLOSURE_NEEDS_MARSHAL (handler->closure))
2272             g_closure_set_marshal (handler->closure, node->c_marshaller);
2273         }
2274     }
2275   else
2276     g_warning ("%s: signal `%s' is invalid for instance `%p'", G_STRLOC, detailed_signal, instance);
2277   SIGNAL_UNLOCK ();
2278
2279   return handler_seq_no;
2280 }
2281
2282 /**
2283  * g_signal_handler_block:
2284  * @instance: The instance to block the signal handler of.
2285  * @handler_id: Handler id of the handler to be blocked.
2286  *
2287  * Blocks a handler of an instance so it will not be called during any
2288  * signal emissions unless it is unblocked again. Thus "blocking" a
2289  * signal handler means to temporarily deactive it, a signal handler
2290  * has to be unblocked exactly the same amount of times it has been
2291  * blocked before to become active again.
2292  *
2293  * The @handler_id has to be a valid signal handler id, connected to a
2294  * signal of @instance.
2295  */
2296 void
2297 g_signal_handler_block (gpointer instance,
2298                         gulong   handler_id)
2299 {
2300   Handler *handler;
2301   
2302   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
2303   g_return_if_fail (handler_id > 0);
2304   
2305   SIGNAL_LOCK ();
2306   handler = handler_lookup (instance, handler_id, NULL);
2307   if (handler)
2308     {
2309 #ifndef G_DISABLE_CHECKS
2310       if (handler->block_count >= HANDLER_MAX_BLOCK_COUNT - 1)
2311         g_error (G_STRLOC ": handler block_count overflow, %s", REPORT_BUG);
2312 #endif
2313       handler->block_count += 1;
2314     }
2315   else
2316     g_warning ("%s: instance `%p' has no handler with id `%lu'", G_STRLOC, instance, handler_id);
2317   SIGNAL_UNLOCK ();
2318 }
2319
2320 /**
2321  * g_signal_handler_unblock:
2322  * @instance: The instance to unblock the signal handler of.
2323  * @handler_id: Handler id of the handler to be unblocked.
2324  *
2325  * Undoes the effect of a previous g_signal_handler_block() call.  A
2326  * blocked handler is skipped during signal emissions and will not be
2327  * invoked, unblocking it (for exactly the amount of times it has been
2328  * blocked before) reverts its "blocked" state, so the handler will be
2329  * recognized by the signal system and is called upon future or
2330  * currently ongoing signal emissions (since the order in which
2331  * handlers are called during signal emissions is deterministic,
2332  * whether the unblocked handler in question is called as part of a
2333  * currently ongoing emission depends on how far that emission has
2334  * proceeded yet).
2335  *
2336  * The @handler_id has to be a valid id of a signal handler that is
2337  * connected to a signal of @instance and is currently blocked.
2338  */
2339 void
2340 g_signal_handler_unblock (gpointer instance,
2341                           gulong   handler_id)
2342 {
2343   Handler *handler;
2344   
2345   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
2346   g_return_if_fail (handler_id > 0);
2347   
2348   SIGNAL_LOCK ();
2349   handler = handler_lookup (instance, handler_id, NULL);
2350   if (handler)
2351     {
2352       if (handler->block_count)
2353         handler->block_count -= 1;
2354       else
2355         g_warning (G_STRLOC ": handler `%lu' of instance `%p' is not blocked", handler_id, instance);
2356     }
2357   else
2358     g_warning ("%s: instance `%p' has no handler with id `%lu'", G_STRLOC, instance, handler_id);
2359   SIGNAL_UNLOCK ();
2360 }
2361
2362 /**
2363  * g_signal_handler_disconnect:
2364  * @instance: The instance to remove the signal handler from.
2365  * @handler_id: Handler id of the handler to be disconnected.
2366  *
2367  * Disconnects a handler from an instance so it will not be called during
2368  * any future or currently ongoing emissions of the signal it has been
2369  * connected to. The @handler_id becomes invalid and may be reused.
2370  *
2371  * The @handler_id has to be a valid signal handler id, connected to a
2372  * signal of @instance.
2373  */
2374 void
2375 g_signal_handler_disconnect (gpointer instance,
2376                              gulong   handler_id)
2377 {
2378   Handler *handler;
2379   guint signal_id;
2380   
2381   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
2382   g_return_if_fail (handler_id > 0);
2383   
2384   SIGNAL_LOCK ();
2385   handler = handler_lookup (instance, handler_id, &signal_id);
2386   if (handler)
2387     {
2388       handler->sequential_number = 0;
2389       handler->block_count = 1;
2390       handler_unref_R (signal_id, instance, handler);
2391     }
2392   else
2393     g_warning ("%s: instance `%p' has no handler with id `%lu'", G_STRLOC, instance, handler_id);
2394   SIGNAL_UNLOCK ();
2395 }
2396
2397 /**
2398  * g_signal_handler_is_connected:
2399  * @instance: The instance where a signal handler is sought.
2400  * @handler_id: the handler id.
2401  *
2402  * Returns whether @handler_id is the id of a handler connected to @instance.
2403  *
2404  * Returns: whether @handler_id identifies a handler connected to @instance.
2405  */
2406 gboolean
2407 g_signal_handler_is_connected (gpointer instance,
2408                                gulong   handler_id)
2409 {
2410   Handler *handler;
2411   gboolean connected;
2412
2413   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), FALSE);
2414
2415   SIGNAL_LOCK ();
2416   handler = handler_lookup (instance, handler_id, NULL);
2417   connected = handler != NULL;
2418   SIGNAL_UNLOCK ();
2419
2420   return connected;
2421 }
2422
2423 void
2424 g_signal_handlers_destroy (gpointer instance)
2425 {
2426   GBSearchArray *hlbsa;
2427   
2428   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
2429   
2430   SIGNAL_LOCK ();
2431   hlbsa = g_hash_table_lookup (g_handler_list_bsa_ht, instance);
2432   if (hlbsa)
2433     {
2434       guint i;
2435       
2436       /* reentrancy caution, delete instance trace first */
2437       g_hash_table_remove (g_handler_list_bsa_ht, instance);
2438       
2439       for (i = 0; i < hlbsa->n_nodes; i++)
2440         {
2441           HandlerList *hlist = g_bsearch_array_get_nth (hlbsa, &g_signal_hlbsa_bconfig, i);
2442           Handler *handler = hlist->handlers;
2443           
2444           while (handler)
2445             {
2446               Handler *tmp = handler;
2447               
2448               handler = tmp->next;
2449               tmp->block_count = 1;
2450               /* cruel unlink, this works because _all_ handlers vanish */
2451               tmp->next = NULL;
2452               tmp->prev = tmp;
2453               if (tmp->sequential_number)
2454                 {
2455                   tmp->sequential_number = 0;
2456                   handler_unref_R (0, NULL, tmp);
2457                 }
2458             }
2459         }
2460       g_bsearch_array_free (hlbsa, &g_signal_hlbsa_bconfig);
2461     }
2462   SIGNAL_UNLOCK ();
2463 }
2464
2465 /**
2466  * g_signal_handler_find:
2467  * @instance: The instance owning the signal handler to be found.
2468  * @mask: Mask indicating which of @signal_id, @detail, @closure, @func
2469  *  and/or @data the handler has to match.
2470  * @signal_id: Signal the handler has to be connected to.
2471  * @detail: Signal detail the handler has to be connected to.
2472  * @closure: The closure the handler will invoke.
2473  * @func: The C closure callback of the handler (useless for non-C closures).
2474  * @data: The closure data of the handler's closure.
2475  *
2476  * Finds the first signal handler that matches certain selection criteria.
2477  * The criteria mask is passed as an OR-ed combination of #GSignalMatchType
2478  * flags, and the criteria values are passed as arguments.
2479  * The match @mask has to be non-0 for successful matches.
2480  * If no handler was found, 0 is returned.
2481  *
2482  * Returns: A valid non-0 signal handler id for a successful match.
2483  */
2484 gulong
2485 g_signal_handler_find (gpointer         instance,
2486                        GSignalMatchType mask,
2487                        guint            signal_id,
2488                        GQuark           detail,
2489                        GClosure        *closure,
2490                        gpointer         func,
2491                        gpointer         data)
2492 {
2493   gulong handler_seq_no = 0;
2494   
2495   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
2496   g_return_val_if_fail ((mask & ~G_SIGNAL_MATCH_MASK) == 0, 0);
2497   
2498   if (mask & G_SIGNAL_MATCH_MASK)
2499     {
2500       HandlerMatch *mlist;
2501       
2502       SIGNAL_LOCK ();
2503       mlist = handlers_find (instance, mask, signal_id, detail, closure, func, data, TRUE);
2504       if (mlist)
2505         {
2506           handler_seq_no = mlist->handler->sequential_number;
2507           handler_match_free1_R (mlist, instance);
2508         }
2509       SIGNAL_UNLOCK ();
2510     }
2511   
2512   return handler_seq_no;
2513 }
2514
2515 static guint
2516 signal_handlers_foreach_matched_R (gpointer         instance,
2517                                    GSignalMatchType mask,
2518                                    guint            signal_id,
2519                                    GQuark           detail,
2520                                    GClosure        *closure,
2521                                    gpointer         func,
2522                                    gpointer         data,
2523                                    void           (*callback) (gpointer instance,
2524                                                                gulong   handler_seq_no))
2525 {
2526   HandlerMatch *mlist;
2527   guint n_handlers = 0;
2528   
2529   mlist = handlers_find (instance, mask, signal_id, detail, closure, func, data, FALSE);
2530   while (mlist)
2531     {
2532       n_handlers++;
2533       if (mlist->handler->sequential_number)
2534         {
2535           SIGNAL_UNLOCK ();
2536           callback (instance, mlist->handler->sequential_number);
2537           SIGNAL_LOCK ();
2538         }
2539       mlist = handler_match_free1_R (mlist, instance);
2540     }
2541   
2542   return n_handlers;
2543 }
2544
2545 /**
2546  * g_signal_handlers_block_matched:
2547  * @instance: The instance to block handlers from.
2548  * @mask: Mask indicating which of @signal_id, @detail, @closure, @func
2549  *  and/or @data the handlers have to match.
2550  * @signal_id: Signal the handlers have to be connected to.
2551  * @detail: Signal detail the handlers have to be connected to.
2552  * @closure: The closure the handlers will invoke.
2553  * @func: The C closure callback of the handlers (useless for non-C closures).
2554  * @data: The closure data of the handlers' closures.
2555  *
2556  * Blocks all handlers on an instance that match a certain selection criteria.
2557  * The criteria mask is passed as an OR-ed combination of #GSignalMatchType
2558  * flags, and the criteria values are passed as arguments.
2559  * Passing at least one of the %G_SIGNAL_MATCH_CLOSURE, %G_SIGNAL_MATCH_FUNC
2560  * or %G_SIGNAL_MATCH_DATA match flags is required for successful matches.
2561  * If no handlers were found, 0 is returned, the number of blocked handlers
2562  * otherwise.
2563  *
2564  * Returns: The number of handlers that matched.
2565  */
2566 guint
2567 g_signal_handlers_block_matched (gpointer         instance,
2568                                  GSignalMatchType mask,
2569                                  guint            signal_id,
2570                                  GQuark           detail,
2571                                  GClosure        *closure,
2572                                  gpointer         func,
2573                                  gpointer         data)
2574 {
2575   guint n_handlers = 0;
2576   
2577   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
2578   g_return_val_if_fail ((mask & ~G_SIGNAL_MATCH_MASK) == 0, 0);
2579   
2580   if (mask & (G_SIGNAL_MATCH_CLOSURE | G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA))
2581     {
2582       SIGNAL_LOCK ();
2583       n_handlers = signal_handlers_foreach_matched_R (instance, mask, signal_id, detail,
2584                                                       closure, func, data,
2585                                                       g_signal_handler_block);
2586       SIGNAL_UNLOCK ();
2587     }
2588   
2589   return n_handlers;
2590 }
2591
2592 /**
2593  * g_signal_handlers_unblock_matched:
2594  * @instance: The instance to unblock handlers from.
2595  * @mask: Mask indicating which of @signal_id, @detail, @closure, @func
2596  *  and/or @data the handlers have to match.
2597  * @signal_id: Signal the handlers have to be connected to.
2598  * @detail: Signal detail the handlers have to be connected to.
2599  * @closure: The closure the handlers will invoke.
2600  * @func: The C closure callback of the handlers (useless for non-C closures).
2601  * @data: The closure data of the handlers' closures.
2602  *
2603  * Unblocks all handlers on an instance that match a certain selection
2604  * criteria. The criteria mask is passed as an OR-ed combination of
2605  * #GSignalMatchType flags, and the criteria values are passed as arguments.
2606  * Passing at least one of the %G_SIGNAL_MATCH_CLOSURE, %G_SIGNAL_MATCH_FUNC
2607  * or %G_SIGNAL_MATCH_DATA match flags is required for successful matches.
2608  * If no handlers were found, 0 is returned, the number of unblocked handlers
2609  * otherwise. The match criteria should not apply to any handlers that are
2610  * not currently blocked.
2611  *
2612  * Returns: The number of handlers that matched.
2613  */
2614 guint
2615 g_signal_handlers_unblock_matched (gpointer         instance,
2616                                    GSignalMatchType mask,
2617                                    guint            signal_id,
2618                                    GQuark           detail,
2619                                    GClosure        *closure,
2620                                    gpointer         func,
2621                                    gpointer         data)
2622 {
2623   guint n_handlers = 0;
2624   
2625   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
2626   g_return_val_if_fail ((mask & ~G_SIGNAL_MATCH_MASK) == 0, 0);
2627   
2628   if (mask & (G_SIGNAL_MATCH_CLOSURE | G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA))
2629     {
2630       SIGNAL_LOCK ();
2631       n_handlers = signal_handlers_foreach_matched_R (instance, mask, signal_id, detail,
2632                                                       closure, func, data,
2633                                                       g_signal_handler_unblock);
2634       SIGNAL_UNLOCK ();
2635     }
2636   
2637   return n_handlers;
2638 }
2639
2640 /**
2641  * g_signal_handlers_disconnect_matched:
2642  * @instance: The instance to remove handlers from.
2643  * @mask: Mask indicating which of @signal_id, @detail, @closure, @func
2644  *  and/or @data the handlers have to match.
2645  * @signal_id: Signal the handlers have to be connected to.
2646  * @detail: Signal detail the handlers have to be connected to.
2647  * @closure: The closure the handlers will invoke.
2648  * @func: The C closure callback of the handlers (useless for non-C closures).
2649  * @data: The closure data of the handlers' closures.
2650  *
2651  * Disconnects all handlers on an instance that match a certain
2652  * selection criteria. The criteria mask is passed as an OR-ed
2653  * combination of #GSignalMatchType flags, and the criteria values are
2654  * passed as arguments.  Passing at least one of the
2655  * %G_SIGNAL_MATCH_CLOSURE, %G_SIGNAL_MATCH_FUNC or
2656  * %G_SIGNAL_MATCH_DATA match flags is required for successful
2657  * matches.  If no handlers were found, 0 is returned, the number of
2658  * disconnected handlers otherwise.
2659  *
2660  * Returns: The number of handlers that matched.
2661  */
2662 guint
2663 g_signal_handlers_disconnect_matched (gpointer         instance,
2664                                       GSignalMatchType mask,
2665                                       guint            signal_id,
2666                                       GQuark           detail,
2667                                       GClosure        *closure,
2668                                       gpointer         func,
2669                                       gpointer         data)
2670 {
2671   guint n_handlers = 0;
2672   
2673   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), 0);
2674   g_return_val_if_fail ((mask & ~G_SIGNAL_MATCH_MASK) == 0, 0);
2675   
2676   if (mask & (G_SIGNAL_MATCH_CLOSURE | G_SIGNAL_MATCH_FUNC | G_SIGNAL_MATCH_DATA))
2677     {
2678       SIGNAL_LOCK ();
2679       n_handlers = signal_handlers_foreach_matched_R (instance, mask, signal_id, detail,
2680                                                       closure, func, data,
2681                                                       g_signal_handler_disconnect);
2682       SIGNAL_UNLOCK ();
2683     }
2684   
2685   return n_handlers;
2686 }
2687
2688 /**
2689  * g_signal_has_handler_pending:
2690  * @instance: the object whose signal handlers are sought.
2691  * @signal_id: the signal id.
2692  * @detail: the detail.
2693  * @may_be_blocked: whether blocked handlers should count as match.
2694  *
2695  * Returns whether there are any handlers connected to @instance for the
2696  * given signal id and detail.
2697  *
2698  * One example of when you might use this is when the arguments to the
2699  * signal are difficult to compute. A class implementor may opt to not
2700  * emit the signal if no one is attached anyway, thus saving the cost
2701  * of building the arguments.
2702  *
2703  * Returns: %TRUE if a handler is connected to the signal, %FALSE
2704  *          otherwise.
2705  */
2706 gboolean
2707 g_signal_has_handler_pending (gpointer instance,
2708                               guint    signal_id,
2709                               GQuark   detail,
2710                               gboolean may_be_blocked)
2711 {
2712   HandlerMatch *mlist;
2713   gboolean has_pending;
2714   
2715   g_return_val_if_fail (G_TYPE_CHECK_INSTANCE (instance), FALSE);
2716   g_return_val_if_fail (signal_id > 0, FALSE);
2717   
2718   SIGNAL_LOCK ();
2719   if (detail)
2720     {
2721       SignalNode *node = LOOKUP_SIGNAL_NODE (signal_id);
2722       
2723       if (!(node->flags & G_SIGNAL_DETAILED))
2724         {
2725           g_warning ("%s: signal id `%u' does not support detail (%u)", G_STRLOC, signal_id, detail);
2726           SIGNAL_UNLOCK ();
2727           return FALSE;
2728         }
2729     }
2730   mlist = handlers_find (instance,
2731                          (G_SIGNAL_MATCH_ID | G_SIGNAL_MATCH_DETAIL | (may_be_blocked ? 0 : G_SIGNAL_MATCH_UNBLOCKED)),
2732                          signal_id, detail, NULL, NULL, NULL, TRUE);
2733   if (mlist)
2734     {
2735       has_pending = TRUE;
2736       handler_match_free1_R (mlist, instance);
2737     }
2738   else
2739     has_pending = FALSE;
2740   SIGNAL_UNLOCK ();
2741   
2742   return has_pending;
2743 }
2744
2745 static inline gboolean
2746 signal_check_skip_emission (SignalNode *node,
2747                             gpointer    instance,
2748                             GQuark      detail)
2749 {
2750   HandlerList *hlist;
2751
2752   /* are we able to check for NULL class handlers? */
2753   if (!node->test_class_offset)
2754     return FALSE;
2755
2756   /* are there emission hooks pending? */
2757   if (node->emission_hooks && node->emission_hooks->hooks)
2758     return FALSE;
2759
2760   /* is there a non-NULL class handler? */
2761   if (node->test_class_offset != TEST_CLASS_MAGIC)
2762     {
2763       GTypeClass *class = G_TYPE_INSTANCE_GET_CLASS (instance, G_TYPE_FROM_INSTANCE (instance), GTypeClass);
2764
2765       if (G_STRUCT_MEMBER (gpointer, class, node->test_class_offset))
2766         return FALSE;
2767     }
2768
2769   /* are signals being debugged? */
2770 #ifdef  G_ENABLE_DEBUG
2771   IF_DEBUG (SIGNALS, g_trace_instance_signals || g_trap_instance_signals)
2772     return FALSE;
2773 #endif /* G_ENABLE_DEBUG */
2774
2775   /* is this a no-recurse signal already in emission? */
2776   if (node->flags & G_SIGNAL_NO_RECURSE &&
2777       emission_find (g_restart_emissions, node->signal_id, detail, instance))
2778     return FALSE;
2779
2780   /* do we have pending handlers? */
2781   hlist = handler_list_lookup (node->signal_id, instance);
2782   if (hlist && hlist->handlers)
2783     return FALSE;
2784
2785   /* none of the above, no emission required */
2786   return TRUE;
2787 }
2788
2789 /**
2790  * g_signal_emitv:
2791  * @instance_and_params: argument list for the signal emission. The first
2792  *  element in the array is a #GValue for the instance the signal is
2793  *  being emitted on. The rest are any arguments to be passed to the
2794  *  signal.
2795  * @signal_id: the signal id
2796  * @detail: the detail
2797  * @return_value: Location to store the return value of the signal emission.
2798  *
2799  * Emits a signal.
2800  *
2801  * Note that g_signal_emitv() doesn't change @return_value if no handlers are
2802  * connected, in contrast to g_signal_emit() and g_signal_emit_valist().
2803  */
2804 void
2805 g_signal_emitv (const GValue *instance_and_params,
2806                 guint         signal_id,
2807                 GQuark        detail,
2808                 GValue       *return_value)
2809 {
2810   gpointer instance;
2811   SignalNode *node;
2812 #ifdef G_ENABLE_DEBUG
2813   const GValue *param_values;
2814   guint i;
2815 #endif
2816   
2817   g_return_if_fail (instance_and_params != NULL);
2818   instance = g_value_peek_pointer (instance_and_params);
2819   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
2820   g_return_if_fail (signal_id > 0);
2821
2822 #ifdef G_ENABLE_DEBUG
2823   param_values = instance_and_params + 1;
2824 #endif
2825
2826   SIGNAL_LOCK ();
2827   node = LOOKUP_SIGNAL_NODE (signal_id);
2828   if (!node || !g_type_is_a (G_TYPE_FROM_INSTANCE (instance), node->itype))
2829     {
2830       g_warning ("%s: signal id `%u' is invalid for instance `%p'", G_STRLOC, signal_id, instance);
2831       SIGNAL_UNLOCK ();
2832       return;
2833     }
2834 #ifdef G_ENABLE_DEBUG
2835   if (detail && !(node->flags & G_SIGNAL_DETAILED))
2836     {
2837       g_warning ("%s: signal id `%u' does not support detail (%u)", G_STRLOC, signal_id, detail);
2838       SIGNAL_UNLOCK ();
2839       return;
2840     }
2841   for (i = 0; i < node->n_params; i++)
2842     if (!G_TYPE_CHECK_VALUE_TYPE (param_values + i, node->param_types[i] & ~G_SIGNAL_TYPE_STATIC_SCOPE))
2843       {
2844         g_critical ("%s: value for `%s' parameter %u for signal \"%s\" is of type `%s'",
2845                     G_STRLOC,
2846                     type_debug_name (node->param_types[i]),
2847                     i,
2848                     node->name,
2849                     G_VALUE_TYPE_NAME (param_values + i));
2850         SIGNAL_UNLOCK ();
2851         return;
2852       }
2853   if (node->return_type != G_TYPE_NONE)
2854     {
2855       if (!return_value)
2856         {
2857           g_critical ("%s: return value `%s' for signal \"%s\" is (NULL)",
2858                       G_STRLOC,
2859                       type_debug_name (node->return_type),
2860                       node->name);
2861           SIGNAL_UNLOCK ();
2862           return;
2863         }
2864       else if (!node->accumulator && !G_TYPE_CHECK_VALUE_TYPE (return_value, node->return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE))
2865         {
2866           g_critical ("%s: return value `%s' for signal \"%s\" is of type `%s'",
2867                       G_STRLOC,
2868                       type_debug_name (node->return_type),
2869                       node->name,
2870                       G_VALUE_TYPE_NAME (return_value));
2871           SIGNAL_UNLOCK ();
2872           return;
2873         }
2874     }
2875   else
2876     return_value = NULL;
2877 #endif  /* G_ENABLE_DEBUG */
2878
2879   /* optimize NOP emissions */
2880   if (signal_check_skip_emission (node, instance, detail))
2881     {
2882       /* nothing to do to emit this signal */
2883       SIGNAL_UNLOCK ();
2884       /* g_printerr ("omitting emission of \"%s\"\n", node->name); */
2885       return;
2886     }
2887
2888   SIGNAL_UNLOCK ();
2889   signal_emit_unlocked_R (node, detail, instance, return_value, instance_and_params);
2890 }
2891
2892 /**
2893  * g_signal_emit_valist:
2894  * @instance: the instance the signal is being emitted on.
2895  * @signal_id: the signal id
2896  * @detail: the detail
2897  * @var_args: a list of parameters to be passed to the signal, followed by a
2898  *  location for the return value. If the return type of the signal
2899  *  is #G_TYPE_NONE, the return value location can be omitted.
2900  *
2901  * Emits a signal.
2902  *
2903  * Note that g_signal_emit_valist() resets the return value to the default
2904  * if no handlers are connected, in contrast to g_signal_emitv().
2905  */
2906 void
2907 g_signal_emit_valist (gpointer instance,
2908                       guint    signal_id,
2909                       GQuark   detail,
2910                       va_list  var_args)
2911 {
2912   GValue *instance_and_params;
2913   GType signal_return_type;
2914   GValue *param_values;
2915   SignalNode *node;
2916   guint i, n_params;
2917   
2918   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
2919   g_return_if_fail (signal_id > 0);
2920
2921   SIGNAL_LOCK ();
2922   node = LOOKUP_SIGNAL_NODE (signal_id);
2923   if (!node || !g_type_is_a (G_TYPE_FROM_INSTANCE (instance), node->itype))
2924     {
2925       g_warning ("%s: signal id `%u' is invalid for instance `%p'", G_STRLOC, signal_id, instance);
2926       SIGNAL_UNLOCK ();
2927       return;
2928     }
2929 #ifndef G_DISABLE_CHECKS
2930   if (detail && !(node->flags & G_SIGNAL_DETAILED))
2931     {
2932       g_warning ("%s: signal id `%u' does not support detail (%u)", G_STRLOC, signal_id, detail);
2933       SIGNAL_UNLOCK ();
2934       return;
2935     }
2936 #endif  /* !G_DISABLE_CHECKS */
2937
2938   /* optimize NOP emissions */
2939   if (signal_check_skip_emission (node, instance, detail))
2940     {
2941       /* nothing to do to emit this signal */
2942       SIGNAL_UNLOCK ();
2943       /* g_printerr ("omitting emission of \"%s\"\n", node->name); */
2944       return;
2945     }
2946
2947   n_params = node->n_params;
2948   signal_return_type = node->return_type;
2949   instance_and_params = g_slice_alloc0 (sizeof (GValue) * (n_params + 1));
2950   param_values = instance_and_params + 1;
2951
2952   for (i = 0; i < node->n_params; i++)
2953     {
2954       gchar *error;
2955       GType ptype = node->param_types[i] & ~G_SIGNAL_TYPE_STATIC_SCOPE;
2956       gboolean static_scope = node->param_types[i] & G_SIGNAL_TYPE_STATIC_SCOPE;
2957
2958       SIGNAL_UNLOCK ();
2959       G_VALUE_COLLECT_INIT (param_values + i, ptype,
2960                             var_args,
2961                             static_scope ? G_VALUE_NOCOPY_CONTENTS : 0,
2962                             &error);
2963       if (error)
2964         {
2965           g_warning ("%s: %s", G_STRLOC, error);
2966           g_free (error);
2967
2968           /* we purposely leak the value here, it might not be
2969            * in a sane state if an error condition occoured
2970            */
2971           while (i--)
2972             g_value_unset (param_values + i);
2973
2974           g_slice_free1 (sizeof (GValue) * (n_params + 1), instance_and_params);
2975           return;
2976         }
2977       SIGNAL_LOCK ();
2978     }
2979   SIGNAL_UNLOCK ();
2980   instance_and_params->g_type = 0;
2981   g_value_init (instance_and_params, G_TYPE_FROM_INSTANCE (instance));
2982   g_value_set_instance (instance_and_params, instance);
2983   if (signal_return_type == G_TYPE_NONE)
2984     signal_emit_unlocked_R (node, detail, instance, NULL, instance_and_params);
2985   else
2986     {
2987       GValue return_value = { 0, };
2988       gchar *error = NULL;
2989       GType rtype = signal_return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE;
2990       gboolean static_scope = signal_return_type & G_SIGNAL_TYPE_STATIC_SCOPE;
2991       
2992       g_value_init (&return_value, rtype);
2993
2994       signal_emit_unlocked_R (node, detail, instance, &return_value, instance_and_params);
2995
2996       G_VALUE_LCOPY (&return_value,
2997                      var_args,
2998                      static_scope ? G_VALUE_NOCOPY_CONTENTS : 0,
2999                      &error);
3000       if (!error)
3001         g_value_unset (&return_value);
3002       else
3003         {
3004           g_warning ("%s: %s", G_STRLOC, error);
3005           g_free (error);
3006           
3007           /* we purposely leak the value here, it might not be
3008            * in a sane state if an error condition occured
3009            */
3010         }
3011     }
3012   for (i = 0; i < n_params; i++)
3013     g_value_unset (param_values + i);
3014   g_value_unset (instance_and_params);
3015   g_slice_free1 (sizeof (GValue) * (n_params + 1), instance_and_params);
3016 }
3017
3018 /**
3019  * g_signal_emit:
3020  * @instance: the instance the signal is being emitted on.
3021  * @signal_id: the signal id
3022  * @detail: the detail
3023  * @...: parameters to be passed to the signal, followed by a
3024  *  location for the return value. If the return type of the signal
3025  *  is #G_TYPE_NONE, the return value location can be omitted.
3026  *
3027  * Emits a signal.
3028  *
3029  * Note that g_signal_emit() resets the return value to the default
3030  * if no handlers are connected, in contrast to g_signal_emitv().
3031  */
3032 void
3033 g_signal_emit (gpointer instance,
3034                guint    signal_id,
3035                GQuark   detail,
3036                ...)
3037 {
3038   va_list var_args;
3039
3040   va_start (var_args, detail);
3041   g_signal_emit_valist (instance, signal_id, detail, var_args);
3042   va_end (var_args);
3043 }
3044
3045 /**
3046  * g_signal_emit_by_name:
3047  * @instance: the instance the signal is being emitted on.
3048  * @detailed_signal: a string of the form "signal-name::detail".
3049  * @...: parameters to be passed to the signal, followed by a
3050  *  location for the return value. If the return type of the signal
3051  *  is #G_TYPE_NONE, the return value location can be omitted.
3052  *
3053  * Emits a signal.
3054  *
3055  * Note that g_signal_emit_by_name() resets the return value to the default
3056  * if no handlers are connected, in contrast to g_signal_emitv().
3057  */
3058 void
3059 g_signal_emit_by_name (gpointer     instance,
3060                        const gchar *detailed_signal,
3061                        ...)
3062 {
3063   GQuark detail = 0;
3064   guint signal_id;
3065
3066   g_return_if_fail (G_TYPE_CHECK_INSTANCE (instance));
3067   g_return_if_fail (detailed_signal != NULL);
3068
3069   SIGNAL_LOCK ();
3070   signal_id = signal_parse_name (detailed_signal, G_TYPE_FROM_INSTANCE (instance), &detail, TRUE);
3071   SIGNAL_UNLOCK ();
3072
3073   if (signal_id)
3074     {
3075       va_list var_args;
3076
3077       va_start (var_args, detailed_signal);
3078       g_signal_emit_valist (instance, signal_id, detail, var_args);
3079       va_end (var_args);
3080     }
3081   else
3082     g_warning ("%s: signal name `%s' is invalid for instance `%p'", G_STRLOC, detailed_signal, instance);
3083 }
3084
3085 static inline gboolean
3086 accumulate (GSignalInvocationHint *ihint,
3087             GValue                *return_accu,
3088             GValue                *handler_return,
3089             SignalAccumulator     *accumulator)
3090 {
3091   gboolean continue_emission;
3092
3093   if (!accumulator)
3094     return TRUE;
3095
3096   continue_emission = accumulator->func (ihint, return_accu, handler_return, accumulator->data);
3097   g_value_reset (handler_return);
3098
3099   return continue_emission;
3100 }
3101
3102 static gboolean
3103 signal_emit_unlocked_R (SignalNode   *node,
3104                         GQuark        detail,
3105                         gpointer      instance,
3106                         GValue       *emission_return,
3107                         const GValue *instance_and_params)
3108 {
3109   SignalAccumulator *accumulator;
3110   Emission emission;
3111   GClosure *class_closure;
3112   HandlerList *hlist;
3113   Handler *handler_list = NULL;
3114   GValue *return_accu, accu = { 0, };
3115   guint signal_id;
3116   gulong max_sequential_handler_number;
3117   gboolean return_value_altered = FALSE;
3118   
3119 #ifdef  G_ENABLE_DEBUG
3120   IF_DEBUG (SIGNALS, g_trace_instance_signals == instance || g_trap_instance_signals == instance)
3121     {
3122       g_message ("%s::%s(%u) emitted (instance=%p, signal-node=%p)",
3123                  g_type_name (G_TYPE_FROM_INSTANCE (instance)),
3124                  node->name, detail,
3125                  instance, node);
3126       if (g_trap_instance_signals == instance)
3127         G_BREAKPOINT ();
3128     }
3129 #endif  /* G_ENABLE_DEBUG */
3130
3131   TRACE(GOBJECT_SIGNAL_EMIT(node->signal_id, detail, instance, G_TYPE_FROM_INSTANCE (instance)));
3132
3133   SIGNAL_LOCK ();
3134   signal_id = node->signal_id;
3135   if (node->flags & G_SIGNAL_NO_RECURSE)
3136     {
3137       Emission *node = emission_find (g_restart_emissions, signal_id, detail, instance);
3138       
3139       if (node)
3140         {
3141           node->state = EMISSION_RESTART;
3142           SIGNAL_UNLOCK ();
3143           return return_value_altered;
3144         }
3145     }
3146   accumulator = node->accumulator;
3147   if (accumulator)
3148     {
3149       SIGNAL_UNLOCK ();
3150       g_value_init (&accu, node->return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE);
3151       return_accu = &accu;
3152       SIGNAL_LOCK ();
3153     }
3154   else
3155     return_accu = emission_return;
3156   emission.instance = instance;
3157   emission.ihint.signal_id = node->signal_id;
3158   emission.ihint.detail = detail;
3159   emission.ihint.run_type = 0;
3160   emission.state = 0;
3161   emission.chain_type = G_TYPE_NONE;
3162   emission_push ((node->flags & G_SIGNAL_NO_RECURSE) ? &g_restart_emissions : &g_recursive_emissions, &emission);
3163   class_closure = signal_lookup_closure (node, instance);
3164   
3165  EMIT_RESTART:
3166   
3167   if (handler_list)
3168     handler_unref_R (signal_id, instance, handler_list);
3169   max_sequential_handler_number = g_handler_sequential_number;
3170   hlist = handler_list_lookup (signal_id, instance);
3171   handler_list = hlist ? hlist->handlers : NULL;
3172   if (handler_list)
3173     handler_ref (handler_list);
3174   
3175   emission.ihint.run_type = G_SIGNAL_RUN_FIRST;
3176   
3177   if ((node->flags & G_SIGNAL_RUN_FIRST) && class_closure)
3178     {
3179       emission.state = EMISSION_RUN;
3180
3181       emission.chain_type = G_TYPE_FROM_INSTANCE (instance);
3182       SIGNAL_UNLOCK ();
3183       g_closure_invoke (class_closure,
3184                         return_accu,
3185                         node->n_params + 1,
3186                         instance_and_params,
3187                         &emission.ihint);
3188       if (!accumulate (&emission.ihint, emission_return, &accu, accumulator) &&
3189           emission.state == EMISSION_RUN)
3190         emission.state = EMISSION_STOP;
3191       SIGNAL_LOCK ();
3192       emission.chain_type = G_TYPE_NONE;
3193       return_value_altered = TRUE;
3194       
3195       if (emission.state == EMISSION_STOP)
3196         goto EMIT_CLEANUP;
3197       else if (emission.state == EMISSION_RESTART)
3198         goto EMIT_RESTART;
3199     }
3200   
3201   if (node->emission_hooks)
3202     {
3203       gboolean need_destroy, was_in_call, may_recurse = TRUE;
3204       GHook *hook;
3205
3206       emission.state = EMISSION_HOOK;
3207       hook = g_hook_first_valid (node->emission_hooks, may_recurse);
3208       while (hook)
3209         {
3210           SignalHook *signal_hook = SIGNAL_HOOK (hook);
3211           
3212           if (!signal_hook->detail || signal_hook->detail == detail)
3213             {
3214               GSignalEmissionHook hook_func = (GSignalEmissionHook) hook->func;
3215               
3216               was_in_call = G_HOOK_IN_CALL (hook);
3217               hook->flags |= G_HOOK_FLAG_IN_CALL;
3218               SIGNAL_UNLOCK ();
3219               need_destroy = !hook_func (&emission.ihint, node->n_params + 1, instance_and_params, hook->data);
3220               SIGNAL_LOCK ();
3221               if (!was_in_call)
3222                 hook->flags &= ~G_HOOK_FLAG_IN_CALL;
3223               if (need_destroy)
3224                 g_hook_destroy_link (node->emission_hooks, hook);
3225             }
3226           hook = g_hook_next_valid (node->emission_hooks, hook, may_recurse);
3227         }
3228       
3229       if (emission.state == EMISSION_RESTART)
3230         goto EMIT_RESTART;
3231     }
3232   
3233   if (handler_list)
3234     {
3235       Handler *handler = handler_list;
3236       
3237       emission.state = EMISSION_RUN;
3238       handler_ref (handler);
3239       do
3240         {
3241           Handler *tmp;
3242           
3243           if (handler->after)
3244             {
3245               handler_unref_R (signal_id, instance, handler_list);
3246               handler_list = handler;
3247               break;
3248             }
3249           else if (!handler->block_count && (!handler->detail || handler->detail == detail) &&
3250                    handler->sequential_number < max_sequential_handler_number)
3251             {
3252               SIGNAL_UNLOCK ();
3253               g_closure_invoke (handler->closure,
3254                                 return_accu,
3255                                 node->n_params + 1,
3256                                 instance_and_params,
3257                                 &emission.ihint);
3258               if (!accumulate (&emission.ihint, emission_return, &accu, accumulator) &&
3259                   emission.state == EMISSION_RUN)
3260                 emission.state = EMISSION_STOP;
3261               SIGNAL_LOCK ();
3262               return_value_altered = TRUE;
3263               
3264               tmp = emission.state == EMISSION_RUN ? handler->next : NULL;
3265             }
3266           else
3267             tmp = handler->next;
3268           
3269           if (tmp)
3270             handler_ref (tmp);
3271           handler_unref_R (signal_id, instance, handler_list);
3272           handler_list = handler;
3273           handler = tmp;
3274         }
3275       while (handler);
3276       
3277       if (emission.state == EMISSION_STOP)
3278         goto EMIT_CLEANUP;
3279       else if (emission.state == EMISSION_RESTART)
3280         goto EMIT_RESTART;
3281     }
3282   
3283   emission.ihint.run_type = G_SIGNAL_RUN_LAST;
3284   
3285   if ((node->flags & G_SIGNAL_RUN_LAST) && class_closure)
3286     {
3287       emission.state = EMISSION_RUN;
3288       
3289       emission.chain_type = G_TYPE_FROM_INSTANCE (instance);
3290       SIGNAL_UNLOCK ();
3291       g_closure_invoke (class_closure,
3292                         return_accu,
3293                         node->n_params + 1,
3294                         instance_and_params,
3295                         &emission.ihint);
3296       if (!accumulate (&emission.ihint, emission_return, &accu, accumulator) &&
3297           emission.state == EMISSION_RUN)
3298         emission.state = EMISSION_STOP;
3299       SIGNAL_LOCK ();
3300       emission.chain_type = G_TYPE_NONE;
3301       return_value_altered = TRUE;
3302       
3303       if (emission.state == EMISSION_STOP)
3304         goto EMIT_CLEANUP;
3305       else if (emission.state == EMISSION_RESTART)
3306         goto EMIT_RESTART;
3307     }
3308   
3309   if (handler_list)
3310     {
3311       Handler *handler = handler_list;
3312       
3313       emission.state = EMISSION_RUN;
3314       handler_ref (handler);
3315       do
3316         {
3317           Handler *tmp;
3318           
3319           if (handler->after && !handler->block_count && (!handler->detail || handler->detail == detail) &&
3320               handler->sequential_number < max_sequential_handler_number)
3321             {
3322               SIGNAL_UNLOCK ();
3323               g_closure_invoke (handler->closure,
3324                                 return_accu,
3325                                 node->n_params + 1,
3326                                 instance_and_params,
3327                                 &emission.ihint);
3328               if (!accumulate (&emission.ihint, emission_return, &accu, accumulator) &&
3329                   emission.state == EMISSION_RUN)
3330                 emission.state = EMISSION_STOP;
3331               SIGNAL_LOCK ();
3332               return_value_altered = TRUE;
3333               
3334               tmp = emission.state == EMISSION_RUN ? handler->next : NULL;
3335             }
3336           else
3337             tmp = handler->next;
3338           
3339           if (tmp)
3340             handler_ref (tmp);
3341           handler_unref_R (signal_id, instance, handler);
3342           handler = tmp;
3343         }
3344       while (handler);
3345       
3346       if (emission.state == EMISSION_STOP)
3347         goto EMIT_CLEANUP;
3348       else if (emission.state == EMISSION_RESTART)
3349         goto EMIT_RESTART;
3350     }
3351   
3352  EMIT_CLEANUP:
3353   
3354   emission.ihint.run_type = G_SIGNAL_RUN_CLEANUP;
3355   
3356   if ((node->flags & G_SIGNAL_RUN_CLEANUP) && class_closure)
3357     {
3358       gboolean need_unset = FALSE;
3359       
3360       emission.state = EMISSION_STOP;
3361       
3362       emission.chain_type = G_TYPE_FROM_INSTANCE (instance);
3363       SIGNAL_UNLOCK ();
3364       if (node->return_type != G_TYPE_NONE && !accumulator)
3365         {
3366           g_value_init (&accu, node->return_type & ~G_SIGNAL_TYPE_STATIC_SCOPE);
3367           need_unset = TRUE;
3368         }
3369       g_closure_invoke (class_closure,
3370                         node->return_type != G_TYPE_NONE ? &accu : NULL,
3371                         node->n_params + 1,
3372                         instance_and_params,
3373                         &emission.ihint);
3374       if (need_unset)
3375         g_value_unset (&accu);
3376       SIGNAL_LOCK ();
3377       emission.chain_type = G_TYPE_NONE;
3378       
3379       if (emission.state == EMISSION_RESTART)
3380         goto EMIT_RESTART;
3381     }
3382   
3383   if (handler_list)
3384     handler_unref_R (signal_id, instance, handler_list);
3385   
3386   emission_pop ((node->flags & G_SIGNAL_NO_RECURSE) ? &g_restart_emissions : &g_recursive_emissions, &emission);
3387   SIGNAL_UNLOCK ();
3388   if (accumulator)
3389     g_value_unset (&accu);
3390
3391   TRACE(GOBJECT_SIGNAL_EMIT_END(node->signal_id, detail, instance, G_TYPE_FROM_INSTANCE (instance)));
3392
3393   return return_value_altered;
3394 }
3395
3396 static const gchar*
3397 type_debug_name (GType type)
3398 {
3399   if (type)
3400     {
3401       const char *name = g_type_name (type & ~G_SIGNAL_TYPE_STATIC_SCOPE);
3402       return name ? name : "<unknown>";
3403     }
3404   else
3405     return "<invalid>";
3406 }
3407
3408 /**
3409  * g_signal_accumulator_true_handled:
3410  * @ihint: standard #GSignalAccumulator parameter
3411  * @return_accu: standard #GSignalAccumulator parameter
3412  * @handler_return: standard #GSignalAccumulator parameter
3413  * @dummy: standard #GSignalAccumulator parameter
3414  *
3415  * A predefined #GSignalAccumulator for signals that return a
3416  * boolean values. The behavior that this accumulator gives is
3417  * that a return of %TRUE stops the signal emission: no further
3418  * callbacks will be invoked, while a return of %FALSE allows
3419  * the emission to coninue. The idea here is that a %TRUE return
3420  * indicates that the callback <emphasis>handled</emphasis> the signal,
3421  * and no further handling is needed.
3422  *
3423  * Since: 2.4
3424  *
3425  * Returns: standard #GSignalAccumulator result
3426  */
3427 gboolean
3428 g_signal_accumulator_true_handled (GSignalInvocationHint *ihint,
3429                                    GValue                *return_accu,
3430                                    const GValue          *handler_return,
3431                                    gpointer               dummy)
3432 {
3433   gboolean continue_emission;
3434   gboolean signal_handled;
3435   
3436   signal_handled = g_value_get_boolean (handler_return);
3437   g_value_set_boolean (return_accu, signal_handled);
3438   continue_emission = !signal_handled;
3439   
3440   return continue_emission;
3441 }
3442
3443 /* --- compile standard marshallers --- */
3444 #include "gmarshal.c"
3445
3446 #define __G_SIGNAL_C__
3447 #include "gobjectaliasdef.c"