Added missing atspi/Makefile.am
[platform/upstream/at-spi2-core.git] / registryd / registry.c
1 /*
2  * AT-SPI - Assistive Technology Service Provider Interface
3  * (Gnome Accessibility Project; http://developer.gnome.org/projects/gap)
4  *
5  * Copyright 2008, 2010 Codethink Ltd.
6  * Copyright 2001, 2002 Sun Microsystems Inc.,
7  * Copyright 2001, 2002 Ximian, Inc.
8  *
9  * This library is free software; you can redistribute it and/or
10  * modify it under the terms of the GNU Library General Public
11  * License as published by the Free Software Foundation; either
12  * version 2 of the License, or (at your option) any later version.
13  *
14  * This library is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17  * Library General Public License for more details.
18  *
19  * You should have received a copy of the GNU Library General Public
20  * License along with this library; if not, write to the
21  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22  * Boston, MA 02111-1307, USA.
23  */
24
25 #include <config.h>
26 #include <string.h>
27 #include <dbus/dbus-glib-lowlevel.h>
28
29 #include "paths.h"
30 #include "registry.h"
31 #include "introspection.h"
32
33 typedef struct event_data event_data;
34 struct event_data
35 {
36   gchar *bus_name;
37   gchar **data;
38 };
39
40 static void
41 children_added_listener (DBusConnection * bus,
42                          gint             index,
43                          const gchar    * name,
44                          const gchar    * path);
45
46 static void
47 children_removed_listener (DBusConnection * bus,
48                            gint             index,
49                            const gchar    * name,
50                            const gchar    * path);
51
52 /*---------------------------------------------------------------------------*/
53
54 typedef struct _SpiReference
55 {
56   gchar *name;
57   gchar *path;
58 } SpiReference;
59
60 static SpiReference *
61 spi_reference_new (const gchar *name, const gchar *path)
62 {
63   SpiReference *ref;
64
65   ref = g_new0 (SpiReference, 1);
66   ref->name = g_strdup (name);
67   ref->path = g_strdup (path);
68
69   return ref;
70 }
71
72 static void
73 spi_reference_free (SpiReference *ref)
74 {
75   g_free (ref->name);
76   g_free (ref->path);
77   g_free (ref);
78 }
79
80 /*---------------------------------------------------------------------------*/
81
82 G_DEFINE_TYPE(SpiRegistry, spi_registry, G_TYPE_OBJECT)
83
84 static void
85 spi_registry_class_init (SpiRegistryClass *klass)
86 {
87   GObjectClass * object_class = (GObjectClass *) klass;
88
89   spi_registry_parent_class = g_type_class_ref (G_TYPE_OBJECT);
90 }
91
92 static void
93 spi_registry_init (SpiRegistry *registry)
94 {
95   registry->apps = g_ptr_array_new_with_free_func ((GDestroyNotify) spi_reference_free);
96 }
97
98 /*---------------------------------------------------------------------------*/
99
100 static dbus_bool_t
101 return_v_string (DBusMessageIter * iter, const gchar * str)
102 {
103   DBusMessageIter variant;
104
105   if (!dbus_message_iter_open_container (iter, DBUS_TYPE_VARIANT, "s",
106                                     &variant))
107     return FALSE;
108     dbus_message_iter_append_basic (&variant, DBUS_TYPE_STRING, &str);
109   dbus_message_iter_close_container (iter, &variant);
110   return TRUE;
111 }
112
113 static dbus_bool_t
114 append_reference (DBusMessageIter * iter, const char * name, const char * path)
115 {
116   DBusMessageIter iter_struct;
117
118   if (!dbus_message_iter_open_container (iter, DBUS_TYPE_STRUCT, NULL,
119                                     &iter_struct))
120     return FALSE;
121   dbus_message_iter_append_basic (&iter_struct, DBUS_TYPE_STRING, &name);
122   dbus_message_iter_append_basic (&iter_struct, DBUS_TYPE_OBJECT_PATH, &path);
123   dbus_message_iter_close_container (iter, &iter_struct);
124   return TRUE;
125 }
126
127 /*---------------------------------------------------------------------------*/
128
129 static gboolean
130 compare_reference (SpiReference *one, SpiReference *two)
131 {
132   if (g_strcmp0 (one->name, two->name) == 0 &&
133       g_strcmp0 (one->path, two->path) == 0)
134     return TRUE;
135   else
136     return FALSE;
137 }
138
139 static gboolean
140 find_index_of_reference (GPtrArray *arr, const gchar *name, const gchar * path, guint *index)
141 {
142   SpiReference *ref;
143   gboolean found = FALSE;
144   guint i = 0;
145
146   ref = spi_reference_new (name, path);
147
148   for (i = 0; i < arr->len && found == FALSE; i++)
149     {
150       if (compare_reference (ref, g_ptr_array_index (arr, i)));
151         {
152           found = TRUE;
153         }
154     }
155
156   spi_reference_free (ref);
157
158   *index = i;
159   return found;
160 }
161
162 static void
163 add_application (SpiRegistry *reg, DBusConnection *bus, const gchar *name, const gchar *path)
164 {
165   g_ptr_array_add (reg->apps, spi_reference_new (name, path));
166   children_added_listener (bus, reg->apps->len - 1, name, path);
167 }
168
169 static void
170 set_id (SpiRegistry *reg, DBusConnection *bus, const gchar *name, const gchar *path)
171 {
172   DBusMessage *message;
173   DBusMessageIter iter, iter_variant;
174   const char *iface_application = "org.a11y.atspi.Application";
175   const char *id = "Id";
176
177   message = dbus_message_new_method_call (name, path,
178                                           DBUS_INTERFACE_PROPERTIES, "Set");
179   if (!message)
180     return;
181   dbus_message_iter_init_append (message, &iter);
182   dbus_message_iter_append_basic (&iter, DBUS_TYPE_STRING, &iface_application);
183   dbus_message_iter_append_basic (&iter, DBUS_TYPE_STRING, &id);
184   dbus_message_iter_open_container (&iter, DBUS_TYPE_VARIANT, "i", &iter_variant);
185   dbus_message_iter_append_basic (&iter_variant, DBUS_TYPE_INT32, &reg->id);
186   /* TODO: This will cause problems if we cycle through 2^31 ids */
187   reg->id++;
188   dbus_message_iter_close_container (&iter, &iter_variant);
189   dbus_connection_send (bus, message, NULL);
190   dbus_message_unref (message);
191 }
192
193 static void
194 remove_application (SpiRegistry *reg, DBusConnection *bus, guint index)
195 {
196   SpiReference *ref = g_ptr_array_index (reg->apps, index);
197
198   /*TODO spi_remove_device_listeners (registry->de_controller, old);*/
199   children_removed_listener (bus, index, ref->name, ref->path);
200   g_ptr_array_remove_index (reg->apps, index);
201 }
202
203 static gboolean
204 event_is_subtype (gchar **needle, gchar **haystack)
205 {
206   while (*haystack && **haystack)
207     {
208       if (g_strcmp0 (*needle, *haystack))
209         return FALSE;
210       needle++;
211       haystack++;
212     }
213   return TRUE;
214 }
215
216 static gboolean
217 needs_mouse_poll (char **event)
218 {
219   if (g_strcmp0 (event [0], "Mouse") != 0)
220     return FALSE;
221   if (!event [1] || !event [1][0])
222     return TRUE;
223   return (g_strcmp0 (event [1], "Abs") == 0);
224 }
225
226 static void
227 remove_events (SpiRegistry *registry, const char *bus_name, const char *event)
228 {
229   event_data *evdata;
230   gchar **remove_data;
231   GList *list;
232   gboolean mouse_found = FALSE;
233   DBusMessage *signal;
234
235   remove_data = g_strsplit (event, ":", 3);
236   if (!remove_data)
237     {
238       return;
239     }
240
241   for (list = registry->events; list;)
242     {
243       event_data *evdata = list->data;
244       if (!g_strcmp0 (evdata->bus_name, bus_name) &&
245           event_is_subtype (evdata->data, remove_data))
246         {
247           list = list->next;
248           g_strfreev (evdata->data);
249           g_free (evdata->bus_name);
250           g_free (evdata);
251           registry->events = g_list_remove (registry->events, evdata);
252         }
253       else
254         {
255           if (needs_mouse_poll (evdata->data))
256             mouse_found = TRUE;
257           list = list->next;
258         }
259     }
260
261   if (!mouse_found)
262     spi_device_event_controller_stop_poll_mouse ();
263
264   g_strfreev (remove_data);
265
266   signal = dbus_message_new_signal (SPI_DBUS_PATH_REGISTRY,
267                                     SPI_DBUS_INTERFACE_REGISTRY,
268                                     "EventListenerDeregistered");
269   dbus_message_append_args (signal, DBUS_TYPE_STRING, &bus_name,
270                             DBUS_TYPE_STRING, &event, DBUS_TYPE_INVALID);
271   dbus_connection_send (registry->bus, signal, NULL);
272   dbus_message_unref (signal);
273 }
274
275 static void
276 handle_disconnection (DBusConnection *bus, DBusMessage *message, void *user_data)
277 {
278   char *name, *old, *new;
279   SpiRegistry *reg = SPI_REGISTRY (user_data);
280
281   if (dbus_message_get_args (message, NULL,
282                              DBUS_TYPE_STRING, &name,
283                              DBUS_TYPE_STRING, &old,
284                              DBUS_TYPE_STRING, &new,
285                              DBUS_TYPE_INVALID))
286     {
287       if (*old != '\0' && *new == '\0')
288         {
289           /* Remove all children with the application name the same as the disconnected application. */
290           guint i;
291           for (i = 0; i < reg->apps->len; i++)
292             {
293               SpiReference *ref  = g_ptr_array_index (reg->apps, i);
294               while (!g_strcmp0 (old, ref->name))
295                 {
296                   children_removed_listener (bus, i, old, ref->path);
297                   g_ptr_array_remove_index (reg->apps, i);
298                 }
299             } 
300
301           remove_events (reg, old, "");
302         }
303     }
304 }
305
306 /*
307  * Converts names of the form "active-descendant-changed" to
308  *" ActiveDescendantChanged"
309  */
310 static gchar *
311 ensure_proper_format (const char *name)
312 {
313   gchar *ret = (gchar *) g_malloc (strlen (name) * 2 + 2);
314   gchar *p = ret;
315   gboolean need_upper = TRUE;
316
317   if (!ret)
318     return NULL;
319   while (*name)
320     {
321       if (need_upper)
322         {
323           *p++ = toupper (*name);
324           need_upper = FALSE;
325         }
326       else if (*name == '-')
327         need_upper = TRUE;
328       else if (*name == ':')
329         {
330           need_upper = TRUE;
331           *p++ = *name;
332         }
333       else
334         *p++ = *name;
335       name++;
336     }
337   *p = '\0';
338   return ret;
339 }
340
341 static DBusHandlerResult
342 signal_filter (DBusConnection *bus, DBusMessage *message, void *user_data)
343 {
344   SpiRegistry *registry = SPI_REGISTRY (user_data);
345   guint res = DBUS_HANDLER_RESULT_HANDLED;
346   const gint   type    = dbus_message_get_type (message);
347   const char *iface = dbus_message_get_interface (message);
348   const char *member = dbus_message_get_member (message);
349
350   if (type != DBUS_MESSAGE_TYPE_SIGNAL)
351     return;
352
353   if (!g_strcmp0(iface, DBUS_INTERFACE_DBUS) &&
354       !g_strcmp0(member, "NameOwnerChanged"))
355       handle_disconnection (bus, message, user_data);
356   else
357       res = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
358
359   return res;
360 }
361
362 /* org.at_spi.Socket interface */
363 /*---------------------------------------------------------------------------*/
364
365 static DBusMessage*
366 impl_Embed (DBusConnection *bus, DBusMessage *message, void *user_data)
367 {
368   SpiRegistry *reg = SPI_REGISTRY (user_data);
369   DBusMessageIter iter, iter_struct;
370   gchar *app_name, *obj_path;
371
372   DBusMessage *reply = NULL;
373   DBusMessageIter reply_iter;
374
375   dbus_message_iter_init (message, &iter);
376   dbus_message_iter_recurse (&iter, &iter_struct);
377   if (!(dbus_message_iter_get_arg_type (&iter_struct) == DBUS_TYPE_STRING))
378         goto error;
379   dbus_message_iter_get_basic (&iter_struct, &app_name);
380   if (!dbus_message_iter_next (&iter_struct))
381         goto error;
382   if (!(dbus_message_iter_get_arg_type (&iter_struct) == DBUS_TYPE_OBJECT_PATH))
383         goto error;
384   dbus_message_iter_get_basic (&iter_struct, &obj_path);
385
386   add_application(reg, bus, app_name, obj_path);
387
388   set_id (reg, bus, app_name, obj_path);
389
390   reply = dbus_message_new_method_return (message);
391   dbus_message_iter_init_append (reply, &reply_iter);
392   append_reference (&reply_iter, 
393                     dbus_bus_get_unique_name (bus),
394                     SPI_DBUS_PATH_ROOT);
395
396   return reply;
397 error:
398   return dbus_message_new_error (message, DBUS_ERROR_FAILED, "Invalid arguments");
399 }
400
401 static DBusMessage*
402 impl_Unembed (DBusConnection *bus, DBusMessage *message, void *user_data)
403 {
404   SpiRegistry *reg = SPI_REGISTRY (user_data);
405   DBusMessageIter iter, iter_struct;
406   gchar *app_name, *obj_path;
407   guint index;
408
409   dbus_message_iter_init (message, &iter);
410   dbus_message_iter_recurse (&iter, &iter_struct);
411   if (!(dbus_message_iter_get_arg_type (&iter_struct) == DBUS_TYPE_STRING))
412         goto error;
413   dbus_message_iter_get_basic (&iter_struct, &app_name);
414   if (!dbus_message_iter_next (&iter_struct))
415         goto error;
416   if (!(dbus_message_iter_get_arg_type (&iter_struct) == DBUS_TYPE_OBJECT_PATH))
417         goto error;
418   dbus_message_iter_get_basic (&iter_struct, &obj_path);
419
420   if (find_index_of_reference (reg->apps, app_name, obj_path, &index))
421       remove_application(reg, bus, index);
422
423   return NULL;
424 error:
425   return dbus_message_new_error (message, DBUS_ERROR_FAILED, "Invalid arguments");
426 }
427
428 /* org.at_spi.Component interface */
429 /*---------------------------------------------------------------------------*/
430
431 static DBusMessage *
432 impl_Contains (DBusConnection * bus, DBusMessage * message, void *user_data)
433 {
434   dbus_bool_t retval = FALSE;
435   DBusMessage *reply;
436
437   reply = dbus_message_new_method_return (message);
438   dbus_message_append_args (reply, DBUS_TYPE_BOOLEAN, &retval,
439                             DBUS_TYPE_INVALID);
440   return reply;
441 }
442
443 static DBusMessage *
444 impl_GetAccessibleAtPoint (DBusConnection * bus, DBusMessage * message,
445                            void *user_data)
446 {
447   DBusMessage *reply = NULL;
448   DBusMessageIter iter;
449
450   reply = dbus_message_new_method_return (message);
451   dbus_message_iter_init_append (reply, &iter);
452   append_reference (&iter, 
453                     dbus_bus_get_unique_name (bus),
454                     SPI_DBUS_PATH_NULL);
455
456   return reply;
457 }
458
459 static DBusMessage *
460 impl_GetExtents (DBusConnection * bus, DBusMessage * message, void *user_data)
461 {
462   dbus_uint32_t coord_type;
463   dbus_int32_t x = 0, y = 0, width = 1024, height = 768;
464   DBusMessage *reply;
465   DBusMessageIter iter, iter_struct;
466
467   reply = dbus_message_new_method_return (message);
468   dbus_message_iter_init_append (reply, &iter);
469   dbus_message_iter_open_container (&iter, DBUS_TYPE_STRUCT, NULL,
470                                     &iter_struct);
471     dbus_message_iter_append_basic (&iter_struct, DBUS_TYPE_INT32, &x);
472     dbus_message_iter_append_basic (&iter_struct, DBUS_TYPE_INT32, &y);
473     dbus_message_iter_append_basic (&iter_struct, DBUS_TYPE_INT32, &width);
474     dbus_message_iter_append_basic (&iter_struct, DBUS_TYPE_INT32, &height);
475   dbus_message_iter_close_container (&iter, &iter_struct);
476   return reply;
477 }
478
479 static DBusMessage *
480 impl_GetPosition (DBusConnection * bus, DBusMessage * message,
481                   void *user_data)
482 {
483   DBusMessage *reply;
484   dbus_int32_t x = 0, y = 0;
485
486   reply = dbus_message_new_method_return (message);
487   dbus_message_append_args (reply, DBUS_TYPE_INT32, &x, DBUS_TYPE_INT32,
488                             &y, DBUS_TYPE_INVALID);
489   return reply;
490 }
491
492 static DBusMessage *
493 impl_GetSize (DBusConnection * bus, DBusMessage * message, void *user_data)
494 {
495   /* TODO - Get the screen size */
496   DBusMessage *reply;
497   dbus_int32_t width = 1024, height = 768;
498
499   reply = dbus_message_new_method_return (message);
500   dbus_message_append_args (reply, DBUS_TYPE_INT32, &width,
501                             DBUS_TYPE_INT32, &height, DBUS_TYPE_INVALID);
502   return reply;
503 }
504
505 #define LAYER_WIDGET 3;
506
507 static DBusMessage *
508 impl_GetLayer (DBusConnection * bus, DBusMessage * message, void *user_data)
509 {
510   DBusMessage *reply;
511   dbus_uint32_t rv = LAYER_WIDGET;
512
513   reply = dbus_message_new_method_return (message);
514   dbus_message_append_args (reply, DBUS_TYPE_UINT32, &rv,
515                             DBUS_TYPE_INVALID);
516   return reply;
517 }
518
519 static DBusMessage *
520 impl_GetMDIZOrder (DBusConnection * bus, DBusMessage * message,
521                    void *user_data)
522 {
523   DBusMessage *reply;
524   dbus_int16_t rv = 0;
525
526   reply = dbus_message_new_method_return (message);
527   dbus_message_append_args (reply, DBUS_TYPE_INT16, &rv,
528                             DBUS_TYPE_INVALID);
529   return reply;
530 }
531
532 static DBusMessage *
533 impl_GrabFocus (DBusConnection * bus, DBusMessage * message, void *user_data)
534 {
535   DBusMessage *reply;
536   dbus_bool_t retval = FALSE;
537
538   reply = dbus_message_new_method_return (message);
539   dbus_message_append_args (reply, DBUS_TYPE_BOOLEAN, &retval,
540                             DBUS_TYPE_INVALID);
541   return reply;
542 }
543
544 static DBusMessage *
545 impl_GetAlpha (DBusConnection * bus, DBusMessage * message, void *user_data)
546 {
547   double rv = 1.0;
548   DBusMessage *reply;
549
550   reply = dbus_message_new_method_return (message);
551   dbus_message_append_args (reply, DBUS_TYPE_DOUBLE, &rv,
552                             DBUS_TYPE_INVALID);
553   return reply;
554 }
555
556 /* org.at_spi.Accessible interface */
557 /*---------------------------------------------------------------------------*/
558
559 static dbus_bool_t
560 impl_get_Name (DBusMessageIter * iter, void *user_data)
561 {
562   const gchar *name = "main";
563   return return_v_string (iter, name);
564 }
565
566 static dbus_bool_t
567 impl_get_Description (DBusMessageIter * iter, void *user_data)
568 {
569   const gchar *description = "";
570   return return_v_string (iter, description);
571 }
572
573 static dbus_bool_t
574 impl_get_Parent (DBusMessageIter * iter, void *user_data)
575 {
576   const gchar *name = "";
577   DBusMessageIter iter_variant;
578
579   dbus_message_iter_open_container (iter, DBUS_TYPE_VARIANT, "(so)",
580                                     &iter_variant);
581   append_reference (&iter_variant, 
582                     name,
583                     SPI_DBUS_PATH_NULL);
584   dbus_message_iter_close_container (iter, &iter_variant);
585   return TRUE;
586 }
587
588 static dbus_bool_t
589 impl_get_ChildCount (DBusMessageIter * iter, void *user_data)
590 {
591   SpiRegistry *reg = SPI_REGISTRY (user_data);
592   dbus_int32_t rv = reg->apps->len;
593
594   return dbus_message_iter_append_basic (iter, DBUS_TYPE_INT32, &rv);
595 }
596
597 static DBusMessage *
598 impl_GetChildAtIndex (DBusConnection * bus,
599                       DBusMessage * message, void *user_data)
600 {
601   SpiRegistry *reg = SPI_REGISTRY (user_data);
602   DBusMessage *reply;
603   DBusMessageIter iter;
604   DBusError error;
605   SpiReference *ref;
606   dbus_int32_t i;
607
608   dbus_error_init (&error);
609   if (!dbus_message_get_args 
610        (message, &error, DBUS_TYPE_INT32, &i, DBUS_TYPE_INVALID))
611     {
612       return dbus_message_new_error (message, DBUS_ERROR_FAILED, "Invalid arguments");
613     }
614
615   reply = dbus_message_new_method_return (message);
616   dbus_message_iter_init_append (reply, &iter);
617
618   if (i < 0 || i >= reg->apps->len)
619     append_reference (&iter, SPI_DBUS_NAME_REGISTRY, SPI_DBUS_PATH_NULL);
620   else
621     {
622       ref = g_ptr_array_index (reg->apps, i);
623       append_reference (&iter, ref->name, ref->path);
624     }
625
626   return reply;
627 }
628
629 static DBusMessage *
630 impl_GetChildren (DBusConnection * bus,
631                   DBusMessage * message, void *user_data)
632 {
633   DBusMessage *reply = NULL;
634   DBusMessageIter iter, iter_array;
635   SpiRegistry *reg = SPI_REGISTRY (user_data);
636   int i;
637
638   reply = dbus_message_new_method_return (message);
639
640   dbus_message_iter_init_append (reply, &iter);
641   dbus_message_iter_open_container(&iter, DBUS_TYPE_ARRAY, "(so)", &iter_array);
642   for (i=0; i < reg->apps->len; i++)
643     {
644       SpiReference *current = g_ptr_array_index (reg->apps, i);
645       append_reference (&iter_array, current->name, current->path);
646     }
647   dbus_message_iter_close_container(&iter, &iter_array);
648   return reply;
649 }
650
651 static DBusMessage *
652 impl_GetIndexInParent (DBusConnection * bus,
653                        DBusMessage * message, void *user_data)
654 {
655   DBusMessage *reply;
656   dbus_uint32_t rv = 0;
657
658   reply = dbus_message_new_method_return (message);
659   dbus_message_append_args (reply, DBUS_TYPE_UINT32, &rv, DBUS_TYPE_INVALID);
660   return reply;
661 }
662
663 static DBusMessage *
664 impl_GetRelationSet (DBusConnection * bus,
665                      DBusMessage * message, void *user_data)
666 {
667   DBusMessage *reply;
668   DBusMessageIter iter, iter_array;
669
670   reply = dbus_message_new_method_return (message);
671   dbus_message_iter_init_append (reply, &iter);
672   dbus_message_iter_open_container (&iter, DBUS_TYPE_ARRAY, "(ua(so))", &iter_array);
673   dbus_message_iter_close_container (&iter, &iter_array);
674
675   return reply;
676 }
677
678 static DBusMessage *
679 impl_GetRole (DBusConnection * bus, DBusMessage * message, void * user_data)
680 {
681   DBusMessage *reply;
682   dbus_uint32_t rv = 0;
683
684   reply = dbus_message_new_method_return (message);
685   dbus_message_append_args (reply, DBUS_TYPE_UINT32, &rv, DBUS_TYPE_INVALID);
686   return reply;
687 }
688
689 static DBusMessage *
690 impl_GetRoleName (DBusConnection * bus,
691                   DBusMessage * message, void *user_data)
692 {
693   DBusMessage *reply;
694   const char *role_name = "unknown";
695
696   reply = dbus_message_new_method_return (message);
697   dbus_message_append_args (reply, DBUS_TYPE_STRING, &role_name,
698                             DBUS_TYPE_INVALID);
699   return reply;
700 }
701
702 static DBusMessage *
703 impl_GetLocalizedRoleName (DBusConnection * bus,
704                            DBusMessage * message, void *user_data)
705 {
706   /* TODO - Localize this */
707   DBusMessage *reply;
708   const char *role_name = "unknown";
709
710   reply = dbus_message_new_method_return (message);
711   dbus_message_append_args (reply, DBUS_TYPE_STRING, &role_name,
712                             DBUS_TYPE_INVALID);
713   return reply;
714 }
715
716 static DBusMessage *
717 impl_GetState (DBusConnection * bus, DBusMessage * message, void *user_data)
718 {
719   DBusMessage *reply = NULL;
720   DBusMessageIter iter, iter_array;
721
722   dbus_uint32_t states[2] = {0, 0};
723   guint count;
724
725   reply = dbus_message_new_method_return (message);
726   dbus_message_iter_init_append (reply, &iter);
727
728   dbus_message_iter_open_container (&iter, DBUS_TYPE_ARRAY, "u", &iter_array);
729   for (count = 0; count < 2; count++)
730     {
731       dbus_message_iter_append_basic (&iter_array, DBUS_TYPE_UINT32,
732                                       &states[count]);
733     }
734   dbus_message_iter_close_container (&iter, &iter_array);
735   return reply;
736 }
737
738 static DBusMessage *
739 impl_GetAttributes (DBusConnection * bus,
740                     DBusMessage * message, void *user_data)
741 {
742   DBusMessage *reply = NULL;
743   DBusMessageIter iter, array;
744
745   reply = dbus_message_new_method_return (message);
746   dbus_message_iter_init_append (reply, &iter);
747   dbus_message_iter_open_container (&iter, DBUS_TYPE_ARRAY, "{ss}", &array);
748   dbus_message_iter_close_container (&iter, &array);
749
750   return reply;
751 }
752
753 static DBusMessage *
754 impl_GetApplication (DBusConnection * bus,
755                      DBusMessage * message, void *user_data)
756 {
757   DBusMessage *reply = NULL;
758   DBusMessageIter iter;
759
760   reply = dbus_message_new_method_return (message);
761   dbus_message_iter_init_append (reply, &iter);
762   append_reference (&iter,
763                     dbus_bus_get_unique_name (bus),
764                     SPI_DBUS_PATH_NULL);
765
766   return reply;
767 }
768
769 static DBusMessage *
770 impl_GetInterfaces (DBusConnection * bus,
771                     DBusMessage * message, void *user_data)
772 {
773   DBusMessage *reply;
774   DBusMessageIter iter, iter_array;
775
776   const char *acc = SPI_DBUS_INTERFACE_ACCESSIBLE;
777   const char *com = SPI_DBUS_INTERFACE_COMPONENT;
778
779   reply = dbus_message_new_method_return (message);
780
781   dbus_message_iter_init_append (reply, &iter);
782   dbus_message_iter_open_container (&iter, DBUS_TYPE_ARRAY, "s",
783                                     &iter_array);
784     dbus_message_iter_append_basic (&iter_array, DBUS_TYPE_STRING, &acc);
785     dbus_message_iter_append_basic (&iter_array, DBUS_TYPE_STRING, &com);
786   dbus_message_iter_close_container (&iter, &iter_array);
787
788   return reply;
789 }
790
791 /* I would rather these two be signals, but I'm not sure that dbus-python
792  * supports emitting signals except for a service, so implementing as both
793  * a method call and signal for now.
794  */
795 static DBusMessage *
796 impl_register_event (DBusConnection *bus, DBusMessage *message, void *user_data)
797 {
798   SpiRegistry *registry = SPI_REGISTRY (user_data);
799   const char *orig_name;
800   gchar *name;
801   event_data *evdata;
802   gchar **data;
803   GList *new_list;
804   DBusMessage *signal;
805   const char *sender = dbus_message_get_sender (message);
806
807   if (!dbus_message_get_args (message, NULL, DBUS_TYPE_STRING, &orig_name,
808     DBUS_TYPE_INVALID))
809     return;
810
811   name = ensure_proper_format (orig_name);
812
813   evdata = (event_data *) g_malloc (sizeof (*evdata));
814   if (!evdata)
815     return;
816   data = g_strsplit (name, ":", 3);
817   if (!data)
818     {
819       g_free (evdata);
820       return;
821     }
822   if (!data [0])
823     data [1] = NULL;
824   if (!data [1])
825     data [2] = NULL;
826   evdata->bus_name = g_strdup (sender);
827   evdata->data = data;
828   new_list = g_list_append (registry->events, evdata);
829   if (new_list)
830     registry->events = new_list;
831
832   if (needs_mouse_poll (evdata->data))
833     {
834       spi_device_event_controller_start_poll_mouse (registry);
835     }
836
837   signal = dbus_message_new_signal (SPI_DBUS_PATH_REGISTRY,
838                                     SPI_DBUS_INTERFACE_REGISTRY,
839                                     "EventListenerRegistered");
840   dbus_message_append_args (signal, DBUS_TYPE_STRING, &sender,
841                             DBUS_TYPE_STRING, &name, DBUS_TYPE_INVALID);
842   dbus_connection_send (bus, signal, NULL);
843   dbus_message_unref (signal);
844
845   g_free (name);
846   return dbus_message_new_method_return (message);
847 }
848
849 static DBusMessage *
850 impl_deregister_event (DBusConnection *bus, DBusMessage *message, void *user_data)
851 {
852   SpiRegistry *registry = SPI_REGISTRY (user_data);
853   const char *orig_name;
854   gchar *name;
855   const char *sender = dbus_message_get_sender (message);
856
857   if (!dbus_message_get_args (message, NULL, DBUS_TYPE_STRING, &orig_name,
858     DBUS_TYPE_INVALID))
859     return;
860   name = ensure_proper_format (orig_name);
861
862   remove_events (registry, sender, name);
863
864   g_free (name);
865   return dbus_message_new_method_return (message);
866 }
867
868 static DBusMessage *
869 impl_get_registered_events (DBusConnection *bus, DBusMessage *message, void *user_data)
870 {
871   SpiRegistry *registry = SPI_REGISTRY (user_data);
872   event_data *evdata;
873   DBusMessage *reply;
874   DBusMessageIter iter, iter_struct, iter_array;
875   GList *list;
876
877   reply = dbus_message_new_method_return (message);
878   if (!reply)
879     return NULL;
880
881   dbus_message_iter_init_append (reply, &iter);
882   dbus_message_iter_open_container (&iter, DBUS_TYPE_ARRAY, "(ss)", &iter_array);
883   for (list = registry->events; list; list = list->next)
884     {
885       gchar *str;
886       evdata = list->data;
887       str = g_strconcat (evdata->data [0],
888                          ":", (evdata->data [1]? evdata->data [1]: ""),
889                          ":", (evdata->data [2]? evdata->data [2]: ""), NULL);
890       dbus_message_iter_open_container (&iter_array, DBUS_TYPE_STRUCT, NULL, &iter_struct);
891       dbus_message_iter_append_basic (&iter_struct, DBUS_TYPE_STRING, &evdata->bus_name);
892       dbus_message_iter_append_basic (&iter_struct, DBUS_TYPE_STRING, &str);
893       dbus_message_iter_close_container (&iter_array, &iter_struct);
894       g_free (str);
895     }
896   dbus_message_iter_close_container (&iter, &iter_array);
897   return reply;
898 }
899
900 /*---------------------------------------------------------------------------*/
901
902 static void 
903 emit_Available (DBusConnection * bus)
904 {
905   DBusMessage *sig;
906   DBusMessageIter iter;
907   
908   sig = dbus_message_new_signal(SPI_DBUS_PATH_ROOT, SPI_DBUS_INTERFACE_SOCKET, "Available");
909
910   dbus_message_iter_init_append(sig, &iter);
911   append_reference (&iter, SPI_DBUS_NAME_REGISTRY, SPI_DBUS_PATH_ROOT);
912
913   dbus_connection_send(bus, sig, NULL);
914   dbus_message_unref(sig);
915 }
916
917 /*---------------------------------------------------------------------------*/
918
919 static const char *introspection_header =
920 "<?xml version=\"1.0\"?>\n";
921
922 static const char *introspection_node_element =
923 "<node name=\"%s\">\n";
924
925 static const char *introspection_footer =
926 "</node>";
927
928 static DBusMessage *
929 impl_Introspect_root (DBusConnection * bus,
930                  DBusMessage * message, void *user_data)
931 {
932   GString *output;
933   gchar *final;
934   gint i;
935
936   const gchar *pathstr = SPI_DBUS_PATH_ROOT;
937
938   DBusMessage *reply;
939
940   output = g_string_new(introspection_header);
941
942   g_string_append_printf(output, introspection_node_element, pathstr);
943
944   g_string_append (output, spi_org_a11y_atspi_Accessible);
945   g_string_append (output, spi_org_a11y_atspi_Component);
946
947   g_string_append(output, introspection_footer);
948   final = g_string_free(output, FALSE);
949
950   reply = dbus_message_new_method_return (message);
951   dbus_message_append_args(reply, DBUS_TYPE_STRING, &final, DBUS_TYPE_INVALID);
952
953   g_free(final);
954   return reply;
955 }
956
957 static DBusMessage *
958 impl_Introspect_registry (DBusConnection * bus,
959                  DBusMessage * message, void *user_data)
960 {
961   GString *output;
962   gchar *final;
963   gint i;
964
965   const gchar *pathstr = SPI_DBUS_PATH_REGISTRY;
966
967   DBusMessage *reply;
968
969   output = g_string_new(introspection_header);
970
971   g_string_append_printf(output, introspection_node_element, pathstr);
972
973   g_string_append (output, spi_org_a11y_atspi_Registry);
974
975   g_string_append(output, introspection_footer);
976   final = g_string_free(output, FALSE);
977
978   reply = dbus_message_new_method_return (message);
979   dbus_message_append_args(reply, DBUS_TYPE_STRING, &final, DBUS_TYPE_INVALID);
980
981   g_free(final);
982   return reply;
983 }
984
985 /*---------------------------------------------------------------------------*/
986
987 /*
988  * Emits an AT-SPI event.
989  * AT-SPI events names are split into three parts:
990  * class:major:minor
991  * This is mapped onto D-Bus events as:
992  * D-Bus Interface:Signal Name:Detail argument
993  *
994  * Marshals a basic type into the 'any_data' attribute of
995  * the AT-SPI event.
996  */
997 static void 
998 emit_event (DBusConnection *bus,
999             const char *klass,
1000             const char *major,
1001             const char *minor,
1002             dbus_int32_t detail1,
1003             dbus_int32_t detail2,
1004             const char *name,
1005             const char *path)
1006 {
1007   DBusMessage *sig;
1008   DBusMessageIter iter, iter_variant;
1009   
1010   sig = dbus_message_new_signal(SPI_DBUS_PATH_ROOT, klass, major);
1011
1012   dbus_message_iter_init_append(sig, &iter);
1013
1014   dbus_message_iter_append_basic(&iter, DBUS_TYPE_STRING, &minor);
1015   dbus_message_iter_append_basic(&iter, DBUS_TYPE_INT32, &detail1);
1016   dbus_message_iter_append_basic(&iter, DBUS_TYPE_INT32, &detail2);
1017
1018   dbus_message_iter_open_container (&iter, DBUS_TYPE_VARIANT, "(so)",
1019                                     &iter_variant);
1020     append_reference (&iter_variant, name, path);
1021   dbus_message_iter_close_container (&iter, &iter_variant);
1022
1023   append_reference (&iter,
1024                     dbus_bus_get_unique_name (bus),
1025                     SPI_DBUS_PATH_ROOT);
1026
1027   dbus_connection_send(bus, sig, NULL);
1028   dbus_message_unref(sig);
1029 }
1030
1031 /*---------------------------------------------------------------------------*/
1032
1033 /*
1034  * Children changed signal converter and forwarder.
1035  *
1036  * Klass (Interface) org.a11y.atspi.Event.Object
1037  * Major is the signal name.
1038  * Minor is 'add' or 'remove'
1039  * detail1 is the index.
1040  * detail2 is 0.
1041  * any_data is the child reference.
1042  */
1043
1044 static void
1045 children_added_listener (DBusConnection * bus,
1046                          gint             index,
1047                          const gchar    * name,
1048                          const gchar    * path)
1049 {
1050   emit_event (bus, SPI_DBUS_INTERFACE_EVENT_OBJECT, "ChildrenChanged", "add", index, 0,
1051               name, path);
1052 }
1053
1054 static void
1055 children_removed_listener (DBusConnection * bus,
1056                            gint             index,
1057                            const gchar    * name,
1058                            const gchar    * path)
1059 {
1060   emit_event (bus, SPI_DBUS_INTERFACE_EVENT_OBJECT, "ChildrenChanged", "remove", index, 0,
1061               name, path);
1062 }
1063
1064 /*---------------------------------------------------------------------------*/
1065
1066 static DBusHandlerResult
1067 handle_method_root (DBusConnection *bus, DBusMessage *message, void *user_data)
1068 {
1069   DBusHandlerResult result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1070
1071   const gchar *iface   = dbus_message_get_interface (message);
1072   const gchar *member  = dbus_message_get_member (message);
1073   const gint   type    = dbus_message_get_type (message);
1074
1075   DBusMessage *reply = NULL;
1076
1077   /* Check for basic reasons not to handle */
1078   if (type   != DBUS_MESSAGE_TYPE_METHOD_CALL ||
1079       member == NULL ||
1080       iface  == NULL)
1081       return DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1082
1083   if (!strcmp (iface, "org.freedesktop.DBus.Properties"))
1084     {
1085       if (!strcmp (member, "Get"))
1086         {
1087           const gchar *prop_iface;
1088           const gchar *prop_member;
1089           DBusError error;
1090
1091           dbus_error_init (&error);
1092           if (dbus_message_get_args (message,
1093                                      &error,
1094                                      DBUS_TYPE_STRING,
1095                                      &prop_iface,
1096                                      DBUS_TYPE_STRING,
1097                                      &prop_member,
1098                                      DBUS_TYPE_INVALID))
1099             {
1100               DBusMessageIter iter;
1101
1102               reply = dbus_message_new_method_return (message);
1103               dbus_message_iter_init_append (reply, &iter);
1104
1105
1106               if (!strcmp (prop_iface, SPI_DBUS_INTERFACE_ACCESSIBLE))
1107                 {
1108                   if      (!strcmp (prop_member, "Name"))
1109                     impl_get_Name (&iter, user_data);
1110                   else if (!strcmp (prop_member, "Description"))
1111                     impl_get_Description (&iter, user_data);
1112                   else if (!strcmp (prop_member, "Parent"))
1113                     impl_get_Parent (&iter, user_data);
1114                   else if (!strcmp (prop_member, "ChildCount"))
1115                     impl_get_ChildCount (&iter, user_data);
1116                   else
1117                     {
1118                       dbus_message_unref (reply); 
1119                       reply = dbus_message_new_error (message, DBUS_ERROR_FAILED, "Property unavailable");
1120                     }
1121                 }
1122             }
1123           else
1124             {
1125               reply = dbus_message_new_error (message, DBUS_ERROR_FAILED, error.message);
1126             }
1127           result = DBUS_HANDLER_RESULT_HANDLED;
1128         }
1129       else if (!strcmp (member, "GetAll"))
1130         {
1131           result = DBUS_HANDLER_RESULT_HANDLED;
1132         }
1133     }
1134
1135   if (!strcmp (iface, SPI_DBUS_INTERFACE_ACCESSIBLE))
1136     {
1137       result = DBUS_HANDLER_RESULT_HANDLED;
1138       if      (!strcmp (member, "GetChildAtIndex"))
1139           reply = impl_GetChildAtIndex (bus, message, user_data);
1140       else if (!strcmp (member, "GetChildren"))
1141           reply = impl_GetChildren (bus, message, user_data);
1142       else if (!strcmp (member, "GetIndexInParent"))
1143           reply = impl_GetIndexInParent (bus, message, user_data);
1144       else if (!strcmp (member, "GetRelationSet"))
1145           reply = impl_GetRelationSet (bus, message, user_data);
1146       else if (!strcmp (member, "GetRole"))
1147           reply = impl_GetRole (bus, message, user_data);
1148       else if (!strcmp (member, "GetRoleName"))
1149           reply = impl_GetRoleName (bus, message, user_data);
1150       else if (!strcmp (member, "GetLocalizedRoleName"))
1151           reply = impl_GetLocalizedRoleName (bus, message, user_data);
1152       else if (!strcmp (member, "GetState"))
1153           reply = impl_GetState (bus, message, user_data);
1154       else if (!strcmp (member, "GetAttributes"))
1155           reply = impl_GetAttributes (bus, message, user_data);
1156       else if (!strcmp (member, "GetApplication"))
1157           reply = impl_GetApplication (bus, message, user_data);
1158       else if (!strcmp (member, "GetInterfaces"))
1159           reply = impl_GetInterfaces (bus, message, user_data);
1160       else
1161          result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1162     }
1163
1164   if (!strcmp (iface, SPI_DBUS_INTERFACE_COMPONENT))
1165     {
1166       result = DBUS_HANDLER_RESULT_HANDLED;
1167       if      (!strcmp (member, "Contains"))
1168           reply = impl_Contains (bus, message, user_data);
1169       else if (!strcmp (member, "GetAccessibleAtPoint"))
1170           reply = impl_GetAccessibleAtPoint (bus, message, user_data);
1171       else if (!strcmp (member, "GetExtents"))
1172           reply = impl_GetExtents (bus, message, user_data);
1173       else if (!strcmp (member, "GetPosition"))
1174           reply = impl_GetPosition (bus, message, user_data);
1175       else if (!strcmp (member, "GetSize"))
1176           reply = impl_GetSize (bus, message, user_data);
1177       else if (!strcmp (member, "GetLayer"))
1178           reply = impl_GetLayer (bus, message, user_data);
1179       else if (!strcmp (member, "GetMDIZOrder"))
1180           reply = impl_GetMDIZOrder (bus, message, user_data);
1181       else if (!strcmp (member, "GrabFocus"))
1182           reply = impl_GrabFocus (bus, message, user_data);
1183       else if (!strcmp (member, "GetAlpha"))
1184           reply = impl_GetAlpha (bus, message, user_data);
1185       else
1186          result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1187     }
1188
1189   if (!strcmp (iface, SPI_DBUS_INTERFACE_SOCKET))
1190     {
1191       result = DBUS_HANDLER_RESULT_HANDLED;
1192       if      (!strcmp (member, "Embed"))
1193           reply = impl_Embed (bus, message, user_data);
1194       else if (!strcmp (member, "Unembed"))
1195           reply = impl_Unembed (bus, message, user_data);
1196       else
1197           result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1198     }
1199
1200   if (!strcmp (iface, "org.freedesktop.DBus.Introspectable"))
1201     {
1202       result = DBUS_HANDLER_RESULT_HANDLED;
1203       if      (!strcmp (member, "Introspect"))
1204           reply = impl_Introspect_root (bus, message, user_data);
1205       else
1206           result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1207     }
1208
1209   if (result == DBUS_HANDLER_RESULT_HANDLED)
1210     {
1211       if (!reply)
1212         {
1213           reply = dbus_message_new_method_return (message);
1214         }
1215
1216       dbus_connection_send (bus, reply, NULL);
1217       dbus_message_unref (reply);
1218     }
1219 #if 0
1220   else
1221     {
1222       g_print ("Registry | Unhandled message : %s|%s\n", iface, member);
1223     }
1224 #endif
1225   
1226   return result;
1227 }
1228
1229 static DBusHandlerResult
1230 handle_method_registry (DBusConnection *bus, DBusMessage *message, void *user_data)
1231 {
1232   DBusHandlerResult result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1233
1234   const gchar *iface   = dbus_message_get_interface (message);
1235   const gchar *member  = dbus_message_get_member (message);
1236   const gint   type    = dbus_message_get_type (message);
1237
1238   DBusMessage *reply = NULL;
1239
1240   /* Check for basic reasons not to handle */
1241   if (type   != DBUS_MESSAGE_TYPE_METHOD_CALL ||
1242       member == NULL ||
1243       iface  == NULL)
1244       return DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1245
1246   if (!strcmp (iface, SPI_DBUS_INTERFACE_REGISTRY))
1247     {
1248       result = DBUS_HANDLER_RESULT_HANDLED;
1249       if (!strcmp(member, "RegisterEvent"))
1250       reply = impl_register_event (bus, message, user_data);
1251       else if (!strcmp(member, "DeregisterEvent"))
1252         reply = impl_deregister_event (bus, message, user_data);
1253       else if (!strcmp(member, "GetRegisteredEvents"))
1254         reply = impl_get_registered_events (bus, message, user_data);
1255       else
1256           result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1257     }
1258
1259   if (!strcmp (iface, "org.freedesktop.DBus.Introspectable"))
1260     {
1261       result = DBUS_HANDLER_RESULT_HANDLED;
1262       if      (!strcmp (member, "Introspect"))
1263           reply = impl_Introspect_registry (bus, message, user_data);
1264       else
1265           result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1266     }
1267
1268   if (result == DBUS_HANDLER_RESULT_HANDLED)
1269     {
1270       if (!reply)
1271         {
1272           reply = dbus_message_new_method_return (message);
1273         }
1274
1275       dbus_connection_send (bus, reply, NULL);
1276       dbus_message_unref (reply);
1277     }
1278 #if 0
1279   else
1280     {
1281       g_print ("Registry | Unhandled message : %s|%s\n", iface, member);
1282     }
1283 #endif
1284   
1285   return result;
1286 }
1287
1288 /*---------------------------------------------------------------------------*/
1289
1290 static DBusObjectPathVTable root_vtable =
1291 {
1292   NULL,
1293   &handle_method_root,
1294   NULL, NULL, NULL, NULL
1295 };
1296
1297 static DBusObjectPathVTable registry_vtable =
1298 {
1299   NULL,
1300   &handle_method_registry,
1301   NULL, NULL, NULL, NULL
1302 };
1303
1304 static gchar *app_sig_match_name_owner =
1305        "type='signal', interface='org.freedesktop.DBus', member='NameOwnerChanged'";
1306
1307 SpiRegistry *
1308 spi_registry_new (DBusConnection *bus)
1309 {
1310   SpiRegistry *reg = g_object_new (SPI_REGISTRY_TYPE, NULL);
1311
1312   reg->bus = bus;
1313
1314   dbus_bus_add_match (bus, app_sig_match_name_owner, NULL);
1315   dbus_connection_add_filter (bus, signal_filter, reg, NULL);
1316
1317   dbus_connection_register_object_path (bus, SPI_DBUS_PATH_ROOT, &root_vtable, reg);
1318
1319   dbus_connection_register_object_path (bus, SPI_DBUS_PATH_REGISTRY, &registry_vtable, reg);
1320
1321   emit_Available (bus);
1322
1323   reg->events = NULL;
1324
1325   return reg;
1326 }
1327
1328 /*END------------------------------------------------------------------------*/