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