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
 234   remove_data = g_strsplit (event, ":", 3);
 235   if (!remove_data)
 236     {
 237       return;
 238     }
 239
 240   for (list = registry->events; list;)
 241     {
 242       event_data *evdata = list->data;
 243       if (!g_strcmp0 (evdata->bus_name, bus_name) &&
 244           event_is_subtype (evdata->data, remove_data))
 245         {
 246           list = list->next;
 247           g_strfreev (evdata->data);
 248           g_free (evdata->bus_name);
 249           g_free (evdata);
 250           registry->events = g_list_remove (registry->events, evdata);
 251         }
 252       else
 253         {
 254           if (needs_mouse_poll (evdata->data))
 255             mouse_found = TRUE;
 256           list = list->next;
 257         }
 258     }
 259
 260   if (!mouse_found)
 261     spi_device_event_controller_stop_poll_mouse ();
 262
 263   g_strfreev (remove_data);
 264 }
 265
 266 static void
 267 handle_disconnection (DBusConnection *bus, DBusMessage *message, void *user_data)
 268 {
 269   char *name, *old, *new;
 270   SpiRegistry *reg = SPI_REGISTRY (user_data);
 271
 272   if (dbus_message_get_args (message, NULL,
 273                              DBUS_TYPE_STRING, &name,
 274                              DBUS_TYPE_STRING, &old,
 275                              DBUS_TYPE_STRING, &new,
 276                              DBUS_TYPE_INVALID))
 277     {
 278       if (*old != '\0' && *new == '\0')
 279         {
 280           /* Remove all children with the application name the same as the disconnected application. */
 281           guint i;
 282           for (i = 0; i < reg->apps->len; i++)
 283             {
 284               SpiReference *ref  = g_ptr_array_index (reg->apps, i);
 285               while (!g_strcmp0 (old, ref->name))
 286                 {
 287                   children_removed_listener (bus, i, old, ref->path);
 288                   g_ptr_array_remove_index (reg->apps, i);
 289                 }
 290             }
 291
 292           remove_events (reg, old, "");
 293         }
 294     }
 295 }
 296
 297 /*
 298  * Converts names of th eform "active-descendant-changed" to
 299  *"ActiveDesendantChanged"
 300  */
 301 static gchar *
 302 ensure_proper_format (const char *name)
 303 {
 304   gchar *ret = (gchar *) g_malloc (strlen (name) * 2 + 2);
 305   gchar *p = ret;
 306   gboolean need_upper = TRUE;
 307
 308   if (!ret)
 309     return NULL;
 310   while (*name)
 311     {
 312       if (need_upper)
 313         {
 314           *p++ = toupper (*name);
 315           need_upper = FALSE;
 316         }
 317       else if (*name == '-')
 318         need_upper = TRUE;
 319       else if (*name == ':')
 320         {
 321           need_upper = TRUE;
 322           *p++ = *name;
 323         }
 324       else
 325         *p++ = *name;
 326       name++;
 327     }
 328   return ret;
 329 }
 330
 331 static DBusHandlerResult
 332 signal_filter (DBusConnection *bus, DBusMessage *message, void *user_data)
 333 {
 334   SpiRegistry *registry = SPI_REGISTRY (user_data);
 335   guint res = DBUS_HANDLER_RESULT_HANDLED;
 336   const gint   type    = dbus_message_get_type (message);
 337   const char *iface = dbus_message_get_interface (message);
 338   const char *member = dbus_message_get_member (message);
 339
 340   if (type != DBUS_MESSAGE_TYPE_SIGNAL)
 341     return;
 342
 343   if (!g_strcmp0(iface, DBUS_INTERFACE_DBUS) &&
 344       !g_strcmp0(member, "NameOwnerChanged"))
 345       handle_disconnection (bus, message, user_data);
 346   else
 347       res = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
 348
 349   return res;
 350 }
 351
 352 /* org.at_spi.Socket interface */
 353 /*---------------------------------------------------------------------------*/
 354
 355 static DBusMessage*
 356 impl_Embed (DBusConnection *bus, DBusMessage *message, void *user_data)
 357 {
 358   SpiRegistry *reg = SPI_REGISTRY (user_data);
 359   DBusMessageIter iter, iter_struct;
 360   gchar *app_name, *obj_path;
 361
 362   DBusMessage *reply = NULL;
 363   DBusMessageIter reply_iter;
 364
 365   dbus_message_iter_init (message, &iter);
 366   dbus_message_iter_recurse (&iter, &iter_struct);
 367   if (!(dbus_message_iter_get_arg_type (&iter_struct) == DBUS_TYPE_STRING))
 368         goto error;
 369   dbus_message_iter_get_basic (&iter_struct, &app_name);
 370   if (!dbus_message_iter_next (&iter_struct))
 371         goto error;
 372   if (!(dbus_message_iter_get_arg_type (&iter_struct) == DBUS_TYPE_OBJECT_PATH))
 373         goto error;
 374   dbus_message_iter_get_basic (&iter_struct, &obj_path);
 375
 376   add_application(reg, bus, app_name, obj_path);
 377
 378   set_id (reg, bus, app_name, obj_path);
 379
 380   reply = dbus_message_new_method_return (message);
 381   dbus_message_iter_init_append (reply, &reply_iter);
 382   append_reference (&reply_iter,
 383                     dbus_bus_get_unique_name (bus),
 384                     SPI_DBUS_PATH_ROOT);
 385
 386   return reply;
 387 error:
 388   return dbus_message_new_error (message, DBUS_ERROR_FAILED, "Invalid arguments");
 389 }
 390
 391 static DBusMessage*
 392 impl_Unembed (DBusConnection *bus, DBusMessage *message, void *user_data)
 393 {
 394   SpiRegistry *reg = SPI_REGISTRY (user_data);
 395   DBusMessageIter iter, iter_struct;
 396   gchar *app_name, *obj_path;
 397   guint index;
 398
 399   dbus_message_iter_init (message, &iter);
 400   dbus_message_iter_recurse (&iter, &iter_struct);
 401   if (!(dbus_message_iter_get_arg_type (&iter_struct) == DBUS_TYPE_STRING))
 402         goto error;
 403   dbus_message_iter_get_basic (&iter_struct, &app_name);
 404   if (!dbus_message_iter_next (&iter_struct))
 405         goto error;
 406   if (!(dbus_message_iter_get_arg_type (&iter_struct) == DBUS_TYPE_OBJECT_PATH))
 407         goto error;
 408   dbus_message_iter_get_basic (&iter_struct, &obj_path);
 409
 410   if (find_index_of_reference (reg->apps, app_name, obj_path, &index))
 411       remove_application(reg, bus, index);
 412
 413   return NULL;
 414 error:
 415   return dbus_message_new_error (message, DBUS_ERROR_FAILED, "Invalid arguments");
 416 }
 417
 418 /* org.at_spi.Component interface */
 419 /*---------------------------------------------------------------------------*/
 420
 421 static DBusMessage *
 422 impl_Contains (DBusConnection * bus, DBusMessage * message, void *user_data)
 423 {
 424   dbus_bool_t retval = FALSE;
 425   DBusMessage *reply;
 426
 427   reply = dbus_message_new_method_return (message);
 428   dbus_message_append_args (reply, DBUS_TYPE_BOOLEAN, &retval,
 429                             DBUS_TYPE_INVALID);
 430   return reply;
 431 }
 432
 433 static DBusMessage *
 434 impl_GetAccessibleAtPoint (DBusConnection * bus, DBusMessage * message,
 435                            void *user_data)
 436 {
 437   DBusMessage *reply = NULL;
 438   DBusMessageIter iter;
 439
 440   reply = dbus_message_new_method_return (message);
 441   dbus_message_iter_init_append (reply, &iter);
 442   append_reference (&iter,
 443                     dbus_bus_get_unique_name (bus),
 444                     SPI_DBUS_PATH_NULL);
 445
 446   return reply;
 447 }
 448
 449 static DBusMessage *
 450 impl_GetExtents (DBusConnection * bus, DBusMessage * message, void *user_data)
 451 {
 452   dbus_uint32_t coord_type;
 453   dbus_int32_t x = 0, y = 0, width = 1024, height = 768;
 454   DBusMessage *reply;
 455   DBusMessageIter iter, iter_struct;
 456
 457   reply = dbus_message_new_method_return (message);
 458   dbus_message_iter_init_append (reply, &iter);
 459   dbus_message_iter_open_container (&iter, DBUS_TYPE_STRUCT, NULL,
 460                                     &iter_struct);
 461     dbus_message_iter_append_basic (&iter_struct, DBUS_TYPE_INT32, &x);
 462     dbus_message_iter_append_basic (&iter_struct, DBUS_TYPE_INT32, &y);
 463     dbus_message_iter_append_basic (&iter_struct, DBUS_TYPE_INT32, &width);
 464     dbus_message_iter_append_basic (&iter_struct, DBUS_TYPE_INT32, &height);
 465   dbus_message_iter_close_container (&iter, &iter_struct);
 466   return reply;
 467 }
 468
 469 static DBusMessage *
 470 impl_GetPosition (DBusConnection * bus, DBusMessage * message,
 471                   void *user_data)
 472 {
 473   DBusMessage *reply;
 474   dbus_int32_t x = 0, y = 0;
 475
 476   reply = dbus_message_new_method_return (message);
 477   dbus_message_append_args (reply, DBUS_TYPE_INT32, &x, DBUS_TYPE_INT32,
 478                             &y, DBUS_TYPE_INVALID);
 479   return reply;
 480 }
 481
 482 static DBusMessage *
 483 impl_GetSize (DBusConnection * bus, DBusMessage * message, void *user_data)
 484 {
 485   /* TODO - Get the screen size */
 486   DBusMessage *reply;
 487   dbus_int32_t width = 1024, height = 768;
 488
 489   reply = dbus_message_new_method_return (message);
 490   dbus_message_append_args (reply, DBUS_TYPE_INT32, &width,
 491                             DBUS_TYPE_INT32, &height, DBUS_TYPE_INVALID);
 492   return reply;
 493 }
 494
 495 #define LAYER_WIDGET 3;
 496
 497 static DBusMessage *
 498 impl_GetLayer (DBusConnection * bus, DBusMessage * message, void *user_data)
 499 {
 500   DBusMessage *reply;
 501   dbus_uint32_t rv = LAYER_WIDGET;
 502
 503   reply = dbus_message_new_method_return (message);
 504   dbus_message_append_args (reply, DBUS_TYPE_UINT32, &rv,
 505                             DBUS_TYPE_INVALID);
 506   return reply;
 507 }
 508
 509 static DBusMessage *
 510 impl_GetMDIZOrder (DBusConnection * bus, DBusMessage * message,
 511                    void *user_data)
 512 {
 513   DBusMessage *reply;
 514   dbus_int16_t rv = 0;
 515
 516   reply = dbus_message_new_method_return (message);
 517   dbus_message_append_args (reply, DBUS_TYPE_INT16, &rv,
 518                             DBUS_TYPE_INVALID);
 519   return reply;
 520 }
 521
 522 static DBusMessage *
 523 impl_GrabFocus (DBusConnection * bus, DBusMessage * message, void *user_data)
 524 {
 525   DBusMessage *reply;
 526   dbus_bool_t retval = FALSE;
 527
 528   reply = dbus_message_new_method_return (message);
 529   dbus_message_append_args (reply, DBUS_TYPE_BOOLEAN, &retval,
 530                             DBUS_TYPE_INVALID);
 531   return reply;
 532 }
 533
 534 static DBusMessage *
 535 impl_GetAlpha (DBusConnection * bus, DBusMessage * message, void *user_data)
 536 {
 537   double rv = 1.0;
 538   DBusMessage *reply;
 539
 540   reply = dbus_message_new_method_return (message);
 541   dbus_message_append_args (reply, DBUS_TYPE_DOUBLE, &rv,
 542                             DBUS_TYPE_INVALID);
 543   return reply;
 544 }
 545
 546 /* org.at_spi.Accessible interface */
 547 /*---------------------------------------------------------------------------*/
 548
 549 static dbus_bool_t
 550 impl_get_Name (DBusMessageIter * iter, void *user_data)
 551 {
 552   const gchar *name = "main";
 553   return return_v_string (iter, name);
 554 }
 555
 556 static dbus_bool_t
 557 impl_get_Description (DBusMessageIter * iter, void *user_data)
 558 {
 559   const gchar *description = "";
 560   return return_v_string (iter, description);
 561 }
 562
 563 static dbus_bool_t
 564 impl_get_Parent (DBusMessageIter * iter, void *user_data)
 565 {
 566   const gchar *name = "";
 567   DBusMessageIter iter_variant;
 568
 569   dbus_message_iter_open_container (iter, DBUS_TYPE_VARIANT, "(so)",
 570                                     &iter_variant);
 571   append_reference (&iter_variant,
 572                     name,
 573                     SPI_DBUS_PATH_NULL);
 574   dbus_message_iter_close_container (iter, &iter_variant);
 575   return TRUE;
 576 }
 577
 578 static dbus_bool_t
 579 impl_get_ChildCount (DBusMessageIter * iter, void *user_data)
 580 {
 581   SpiRegistry *reg = SPI_REGISTRY (user_data);
 582   dbus_int32_t rv = reg->apps->len;
 583
 584   return dbus_message_iter_append_basic (iter, DBUS_TYPE_INT32, &rv);
 585 }
 586
 587 static DBusMessage *
 588 impl_GetChildAtIndex (DBusConnection * bus,
 589                       DBusMessage * message, void *user_data)
 590 {
 591   SpiRegistry *reg = SPI_REGISTRY (user_data);
 592   DBusMessage *reply;
 593   DBusMessageIter iter;
 594   DBusError error;
 595   SpiReference *ref;
 596   dbus_int32_t i;
 597
 598   dbus_error_init (&error);
 599   if (!dbus_message_get_args
 600        (message, &error, DBUS_TYPE_INT32, &i, DBUS_TYPE_INVALID))
 601     {
 602       return dbus_message_new_error (message, DBUS_ERROR_FAILED, "Invalid arguments");
 603     }
 604
 605   reply = dbus_message_new_method_return (message);
 606   dbus_message_iter_init_append (reply, &iter);
 607
 608   if (i < 0 || i >= reg->apps->len)
 609     append_reference (&iter, SPI_DBUS_NAME_REGISTRY, SPI_DBUS_PATH_NULL);
 610   else
 611     {
 612       ref = g_ptr_array_index (reg->apps, i);
 613       append_reference (&iter, ref->name, ref->path);
 614     }
 615
 616   return reply;
 617 }
 618
 619 static DBusMessage *
 620 impl_GetChildren (DBusConnection * bus,
 621                   DBusMessage * message, void *user_data)
 622 {
 623   DBusMessage *reply = NULL;
 624   DBusMessageIter iter, iter_array;
 625   SpiRegistry *reg = SPI_REGISTRY (user_data);
 626   int i;
 627
 628   reply = dbus_message_new_method_return (message);
 629
 630   dbus_message_iter_init_append (reply, &iter);
 631   dbus_message_iter_open_container(&iter, DBUS_TYPE_ARRAY, "(so)", &iter_array);
 632   for (i=0; i < reg->apps->len; i++)
 633     {
 634       SpiReference *current = g_ptr_array_index (reg->apps, i);
 635       append_reference (&iter_array, current->name, current->path);
 636     }
 637   dbus_message_iter_close_container(&iter, &iter_array);
 638   return reply;
 639 }
 640
 641 static DBusMessage *
 642 impl_GetIndexInParent (DBusConnection * bus,
 643                        DBusMessage * message, void *user_data)
 644 {
 645   DBusMessage *reply;
 646   dbus_uint32_t rv = 0;
 647
 648   reply = dbus_message_new_method_return (message);
 649   dbus_message_append_args (reply, DBUS_TYPE_UINT32, &rv, DBUS_TYPE_INVALID);
 650   return reply;
 651 }
 652
 653 static DBusMessage *
 654 impl_GetRelationSet (DBusConnection * bus,
 655                      DBusMessage * message, void *user_data)
 656 {
 657   DBusMessage *reply;
 658   DBusMessageIter iter, iter_array;
 659
 660   reply = dbus_message_new_method_return (message);
 661   dbus_message_iter_init_append (reply, &iter);
 662   dbus_message_iter_open_container (&iter, DBUS_TYPE_ARRAY, "(ua(so))", &iter_array);
 663   dbus_message_iter_close_container (&iter, &iter_array);
 664
 665   return reply;
 666 }
 667
 668 static DBusMessage *
 669 impl_GetRole (DBusConnection * bus, DBusMessage * message, void * user_data)
 670 {
 671   DBusMessage *reply;
 672   dbus_uint32_t rv = 0;
 673
 674   reply = dbus_message_new_method_return (message);
 675   dbus_message_append_args (reply, DBUS_TYPE_UINT32, &rv, DBUS_TYPE_INVALID);
 676   return reply;
 677 }
 678
 679 static DBusMessage *
 680 impl_GetRoleName (DBusConnection * bus,
 681                   DBusMessage * message, void *user_data)
 682 {
 683   DBusMessage *reply;
 684   const char *role_name = "unknown";
 685
 686   reply = dbus_message_new_method_return (message);
 687   dbus_message_append_args (reply, DBUS_TYPE_STRING, &role_name,
 688                             DBUS_TYPE_INVALID);
 689   return reply;
 690 }
 691
 692 static DBusMessage *
 693 impl_GetLocalizedRoleName (DBusConnection * bus,
 694                            DBusMessage * message, void *user_data)
 695 {
 696   /* TODO - Localize this */
 697   DBusMessage *reply;
 698   const char *role_name = "unknown";
 699
 700   reply = dbus_message_new_method_return (message);
 701   dbus_message_append_args (reply, DBUS_TYPE_STRING, &role_name,
 702                             DBUS_TYPE_INVALID);
 703   return reply;
 704 }
 705
 706 static DBusMessage *
 707 impl_GetState (DBusConnection * bus, DBusMessage * message, void *user_data)
 708 {
 709   DBusMessage *reply = NULL;
 710   DBusMessageIter iter, iter_array;
 711
 712   dbus_uint32_t states[2] = {0, 0};
 713   guint count;
 714
 715   reply = dbus_message_new_method_return (message);
 716   dbus_message_iter_init_append (reply, &iter);
 717
 718   dbus_message_iter_open_container (&iter, DBUS_TYPE_ARRAY, "u", &iter_array);
 719   for (count = 0; count < 2; count++)
 720     {
 721       dbus_message_iter_append_basic (&iter_array, DBUS_TYPE_UINT32,
 722                                       &states[count]);
 723     }
 724   dbus_message_iter_close_container (&iter, &iter_array);
 725   return reply;
 726 }
 727
 728 static DBusMessage *
 729 impl_GetAttributes (DBusConnection * bus,
 730                     DBusMessage * message, void *user_data)
 731 {
 732   DBusMessage *reply = NULL;
 733   DBusMessageIter iter, array;
 734
 735   reply = dbus_message_new_method_return (message);
 736   dbus_message_iter_init_append (reply, &iter);
 737   dbus_message_iter_open_container (&iter, DBUS_TYPE_ARRAY, "{ss}", &array);
 738   dbus_message_iter_close_container (&iter, &array);
 739
 740   return reply;
 741 }
 742
 743 static DBusMessage *
 744 impl_GetApplication (DBusConnection * bus,
 745                      DBusMessage * message, void *user_data)
 746 {
 747   DBusMessage *reply = NULL;
 748   DBusMessageIter iter;
 749
 750   reply = dbus_message_new_method_return (message);
 751   dbus_message_iter_init_append (reply, &iter);
 752   append_reference (&iter,
 753                     dbus_bus_get_unique_name (bus),
 754                     SPI_DBUS_PATH_NULL);
 755
 756   return reply;
 757 }
 758
 759 static DBusMessage *
 760 impl_GetInterfaces (DBusConnection * bus,
 761                     DBusMessage * message, void *user_data)
 762 {
 763   DBusMessage *reply;
 764   DBusMessageIter iter, iter_array;
 765
 766   const char *acc = SPI_DBUS_INTERFACE_ACCESSIBLE;
 767   const char *com = SPI_DBUS_INTERFACE_COMPONENT;
 768
 769   reply = dbus_message_new_method_return (message);
 770
 771   dbus_message_iter_init_append (reply, &iter);
 772   dbus_message_iter_open_container (&iter, DBUS_TYPE_ARRAY, "s",
 773                                     &iter_array);
 774     dbus_message_iter_append_basic (&iter_array, DBUS_TYPE_STRING, &acc);
 775     dbus_message_iter_append_basic (&iter_array, DBUS_TYPE_STRING, &com);
 776   dbus_message_iter_close_container (&iter, &iter_array);
 777
 778   return reply;
 779 }
 780
 781 /* I would rather these two be signals, but I'm not sure that dbus-python
 782  * supports emitting signals except for a service, so implementing as both
 783  * a method call and signal for now.
 784  */
 785 static DBusMessage *
 786 impl_register_event_listener (DBusConnection *bus, DBusMessage *message, void *user_data)
 787 {
 788   SpiRegistry *registry = SPI_REGISTRY (user_data);
 789   const char *orig_name;
 790   gchar *name;
 791   event_data *evdata;
 792   gchar **data;
 793   GList *new_list;
 794
 795   if (!dbus_message_get_args (message, NULL, DBUS_TYPE_STRING, &orig_name,
 796     DBUS_TYPE_INVALID))
 797     return;
 798
 799   name = ensure_proper_format (orig_name);
 800
 801   evdata = (event_data *) g_malloc (sizeof (*evdata));
 802   if (!evdata)
 803     return;
 804   data = g_strsplit (name, ":", 3);
 805   if (!data)
 806     {
 807       g_free (evdata);
 808       return;
 809     }
 810   evdata->bus_name = g_strdup (dbus_message_get_sender (message));
 811   evdata->data = data;
 812   new_list = g_list_append (registry->events, evdata);
 813   if (new_list)
 814     registry->events = new_list;
 815
 816   if (needs_mouse_poll (evdata->data))
 817     {
 818       spi_device_event_controller_start_poll_mouse (registry);
 819     }
 820
 821   g_free (name);
 822   /* TODO: Send a signal */
 823   return dbus_message_new_method_return (message);
 824 }
 825
 826 static DBusMessage *
 827 impl_deregister_event_listener (DBusConnection *bus, DBusMessage *message, void *user_data)
 828 {
 829   SpiRegistry *registry = SPI_REGISTRY (user_data);
 830   const char *orig_name;
 831   gchar *name;
 832
 833   if (!dbus_message_get_args (message, NULL, DBUS_TYPE_STRING, &orig_name,
 834     DBUS_TYPE_INVALID))
 835     return;
 836   name = ensure_proper_format (orig_name);
 837
 838   remove_events (registry, dbus_message_get_sender (message), name);
 839
 840   /* TODO: Send a signal */
 841   g_free (name);
 842   return dbus_message_new_method_return (message);
 843 }
 844
 845 /*---------------------------------------------------------------------------*/
 846
 847 static void
 848 emit_Available (DBusConnection * bus)
 849 {
 850   DBusMessage *sig;
 851   DBusMessageIter iter;
 852
 853   sig = dbus_message_new_signal(SPI_DBUS_PATH_ROOT, SPI_DBUS_INTERFACE_SOCKET, "Available");
 854
 855   dbus_message_iter_init_append(sig, &iter);
 856   append_reference (&iter, SPI_DBUS_NAME_REGISTRY, SPI_DBUS_PATH_ROOT);
 857
 858   dbus_connection_send(bus, sig, NULL);
 859   dbus_message_unref(sig);
 860 }
 861
 862 /*---------------------------------------------------------------------------*/
 863
 864 static const char *introspection_header =
 865 "<?xml version=\"1.0\"?>\n";
 866
 867 static const char *introspection_node_element =
 868 "<node name=\"%s\">\n";
 869
 870 static const char *introspection_footer =
 871 "</node>";
 872
 873 static DBusMessage *
 874 impl_Introspect (DBusConnection * bus,
 875                  DBusMessage * message, void *user_data)
 876 {
 877   GString *output;
 878   gchar *final;
 879   gint i;
 880
 881   const gchar *pathstr = SPI_DBUS_PATH_ROOT;
 882
 883   DBusMessage *reply;
 884
 885   output = g_string_new(introspection_header);
 886
 887   g_string_append_printf(output, introspection_node_element, pathstr);
 888
 889   g_string_append (output, spi_org_a11y_atspi_Accessible);
 890   g_string_append (output, spi_org_a11y_atspi_Component);
 891
 892   g_string_append(output, introspection_footer);
 893   final = g_string_free(output, FALSE);
 894
 895   reply = dbus_message_new_method_return (message);
 896   dbus_message_append_args(reply, DBUS_TYPE_STRING, &final, DBUS_TYPE_INVALID);
 897
 898   g_free(final);
 899   return reply;
 900 }
 901
 902 /*---------------------------------------------------------------------------*/
 903
 904 /*
 905  * Emits an AT-SPI event.
 906  * AT-SPI events names are split into three parts:
 907  * class:major:minor
 908  * This is mapped onto D-Bus events as:
 909  * D-Bus Interface:Signal Name:Detail argument
 910  *
 911  * Marshals a basic type into the 'any_data' attribute of
 912  * the AT-SPI event.
 913  */
 914 static void
 915 emit_event (DBusConnection *bus,
 916             const char *klass,
 917             const char *major,
 918             const char *minor,
 919             dbus_int32_t detail1,
 920             dbus_int32_t detail2,
 921             const char *name,
 922             const char *path)
 923 {
 924   DBusMessage *sig;
 925   DBusMessageIter iter, iter_variant;
 926
 927   sig = dbus_message_new_signal(SPI_DBUS_PATH_ROOT, klass, major);
 928
 929   dbus_message_iter_init_append(sig, &iter);
 930
 931   dbus_message_iter_append_basic(&iter, DBUS_TYPE_STRING, &minor);
 932   dbus_message_iter_append_basic(&iter, DBUS_TYPE_INT32, &detail1);
 933   dbus_message_iter_append_basic(&iter, DBUS_TYPE_INT32, &detail2);
 934
 935   dbus_message_iter_open_container (&iter, DBUS_TYPE_VARIANT, "(so)",
 936                                     &iter_variant);
 937     append_reference (&iter_variant, name, path);
 938   dbus_message_iter_close_container (&iter, &iter_variant);
 939
 940   append_reference (&iter,
 941                     dbus_bus_get_unique_name (bus),
 942                     SPI_DBUS_PATH_ROOT);
 943
 944   dbus_connection_send(bus, sig, NULL);
 945   dbus_message_unref(sig);
 946 }
 947
 948 /*---------------------------------------------------------------------------*/
 949
 950 /*
 951  * Children changed signal converter and forwarder.
 952  *
 953  * Klass (Interface) org.a11y.atspi.Event.Object
 954  * Major is the signal name.
 955  * Minor is 'add' or 'remove'
 956  * detail1 is the index.
 957  * detail2 is 0.
 958  * any_data is the child reference.
 959  */
 960
 961 static void
 962 children_added_listener (DBusConnection * bus,
 963                          gint             index,
 964                          const gchar    * name,
 965                          const gchar    * path)
 966 {
 967   emit_event (bus, SPI_DBUS_INTERFACE_EVENT_OBJECT, "ChildrenChanged", "add", index, 0,
 968               name, path);
 969 }
 970
 971 static void
 972 children_removed_listener (DBusConnection * bus,
 973                            gint             index,
 974                            const gchar    * name,
 975                            const gchar    * path)
 976 {
 977   emit_event (bus, SPI_DBUS_INTERFACE_EVENT_OBJECT, "ChildrenChanged", "remove", index, 0,
 978               name, path);
 979 }
 980
 981 /*---------------------------------------------------------------------------*/
 982
 983 static DBusHandlerResult
 984 handle_method (DBusConnection *bus, DBusMessage *message, void *user_data)
 985 {
 986   DBusHandlerResult result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
 987
 988   const gchar *iface   = dbus_message_get_interface (message);
 989   const gchar *member  = dbus_message_get_member (message);
 990   const gint   type    = dbus_message_get_type (message);
 991
 992   DBusMessage *reply = NULL;
 993
 994   /* Check for basic reasons not to handle */
 995   if (type   != DBUS_MESSAGE_TYPE_METHOD_CALL ||
 996       member == NULL ||
 997       iface  == NULL)
 998       return DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
 999
1000   if (!strcmp (iface, "org.freedesktop.DBus.Properties"))
1001     {
1002       if (!strcmp (member, "Get"))
1003         {
1004           const gchar *prop_iface;
1005           const gchar *prop_member;
1006           DBusError error;
1007
1008           dbus_error_init (&error);
1009           if (dbus_message_get_args (message,
1010                                      &error,
1011                                      DBUS_TYPE_STRING,
1012                                      &prop_iface,
1013                                      DBUS_TYPE_STRING,
1014                                      &prop_member,
1015                                      DBUS_TYPE_INVALID))
1016             {
1017               DBusMessageIter iter;
1018
1019               reply = dbus_message_new_method_return (message);
1020               dbus_message_iter_init_append (reply, &iter);
1021
1022
1023               if (!strcmp (prop_iface, SPI_DBUS_INTERFACE_ACCESSIBLE))
1024                 {
1025                   if      (!strcmp (prop_member, "Name"))
1026                     impl_get_Name (&iter, user_data);
1027                   else if (!strcmp (prop_member, "Description"))
1028                     impl_get_Description (&iter, user_data);
1029                   else if (!strcmp (prop_member, "Parent"))
1030                     impl_get_Parent (&iter, user_data);
1031                   else if (!strcmp (prop_member, "ChildCount"))
1032                     impl_get_ChildCount (&iter, user_data);
1033                   else
1034                     {
1035                       dbus_message_unref (reply);
1036                       reply = dbus_message_new_error (message, DBUS_ERROR_FAILED, "Property unavailable");
1037                     }
1038                 }
1039             }
1040           else
1041             {
1042               reply = dbus_message_new_error (message, DBUS_ERROR_FAILED, error.message);
1043             }
1044           result = DBUS_HANDLER_RESULT_HANDLED;
1045         }
1046       else if (!strcmp (member, "GetAll"))
1047         {
1048           result = DBUS_HANDLER_RESULT_HANDLED;
1049         }
1050     }
1051
1052   if (!strcmp (iface, SPI_DBUS_INTERFACE_ACCESSIBLE))
1053     {
1054       result = DBUS_HANDLER_RESULT_HANDLED;
1055       if      (!strcmp (member, "GetChildAtIndex"))
1056           reply = impl_GetChildAtIndex (bus, message, user_data);
1057       else if (!strcmp (member, "GetChildren"))
1058           reply = impl_GetChildren (bus, message, user_data);
1059       else if (!strcmp (member, "GetIndexInParent"))
1060           reply = impl_GetIndexInParent (bus, message, user_data);
1061       else if (!strcmp (member, "GetRelationSet"))
1062           reply = impl_GetRelationSet (bus, message, user_data);
1063       else if (!strcmp (member, "GetRole"))
1064           reply = impl_GetRole (bus, message, user_data);
1065       else if (!strcmp (member, "GetRoleName"))
1066           reply = impl_GetRoleName (bus, message, user_data);
1067       else if (!strcmp (member, "GetLocalizedRoleName"))
1068           reply = impl_GetLocalizedRoleName (bus, message, user_data);
1069       else if (!strcmp (member, "GetState"))
1070           reply = impl_GetState (bus, message, user_data);
1071       else if (!strcmp (member, "GetAttributes"))
1072           reply = impl_GetAttributes (bus, message, user_data);
1073       else if (!strcmp (member, "GetApplication"))
1074           reply = impl_GetApplication (bus, message, user_data);
1075       else if (!strcmp (member, "GetInterfaces"))
1076           reply = impl_GetInterfaces (bus, message, user_data);
1077       else
1078          result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1079     }
1080
1081   if (!strcmp (iface, SPI_DBUS_INTERFACE_COMPONENT))
1082     {
1083       result = DBUS_HANDLER_RESULT_HANDLED;
1084       if      (!strcmp (member, "Contains"))
1085           reply = impl_Contains (bus, message, user_data);
1086       else if (!strcmp (member, "GetAccessibleAtPoint"))
1087           reply = impl_GetAccessibleAtPoint (bus, message, user_data);
1088       else if (!strcmp (member, "GetExtents"))
1089           reply = impl_GetExtents (bus, message, user_data);
1090       else if (!strcmp (member, "GetPosition"))
1091           reply = impl_GetPosition (bus, message, user_data);
1092       else if (!strcmp (member, "GetSize"))
1093           reply = impl_GetSize (bus, message, user_data);
1094       else if (!strcmp (member, "GetLayer"))
1095           reply = impl_GetLayer (bus, message, user_data);
1096       else if (!strcmp (member, "GetMDIZOrder"))
1097           reply = impl_GetMDIZOrder (bus, message, user_data);
1098       else if (!strcmp (member, "GrabFocus"))
1099           reply = impl_GrabFocus (bus, message, user_data);
1100       else if (!strcmp (member, "GetAlpha"))
1101           reply = impl_GetAlpha (bus, message, user_data);
1102       else
1103          result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1104     }
1105
1106   if (!strcmp (iface, SPI_DBUS_INTERFACE_SOCKET))
1107     {
1108       result = DBUS_HANDLER_RESULT_HANDLED;
1109       if      (!strcmp (member, "Embed"))
1110           reply = impl_Embed (bus, message, user_data);
1111       else if (!strcmp (member, "Unembed"))
1112           reply = impl_Unembed (bus, message, user_data);
1113       else
1114           result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1115     }
1116
1117   if (!strcmp (iface, SPI_DBUS_INTERFACE_APPLICATION))
1118     {
1119       result = DBUS_HANDLER_RESULT_HANDLED;
1120       if (!strcmp(member, "RegisterEventListener"))
1121       reply = impl_register_event_listener (bus, message, user_data);
1122       else if (!strcmp(member, "DeregisterEventListener"))
1123         reply = impl_deregister_event_listener (bus, message, user_data);
1124       else
1125           result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1126     }
1127   if (!strcmp (iface, "org.freedesktop.DBus.Introspectable"))
1128     {
1129       result = DBUS_HANDLER_RESULT_HANDLED;
1130       if      (!strcmp (member, "Introspect"))
1131           reply = impl_Introspect (bus, message, user_data);
1132       else
1133           result = DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
1134     }
1135
1136   if (result == DBUS_HANDLER_RESULT_HANDLED)
1137     {
1138       if (!reply)
1139         {
1140           reply = dbus_message_new_method_return (message);
1141         }
1142
1143       dbus_connection_send (bus, reply, NULL);
1144       dbus_message_unref (reply);
1145     }
1146 #if 0
1147   else
1148     {
1149       g_print ("Registry | Unhandled message : %s|%s\n", iface, member);
1150     }
1151 #endif
1152
1153   return result;
1154 }
1155
1156 /*---------------------------------------------------------------------------*/
1157
1158 static DBusObjectPathVTable registry_vtable =
1159 {
1160   NULL,
1161   &handle_method,
1162   NULL, NULL, NULL, NULL
1163 };
1164
1165 static gchar *app_sig_match_name_owner =
1166        "type='signal', interface='org.freedesktop.DBus', member='NameOwnerChanged'";
1167
1168 SpiRegistry *
1169 spi_registry_new (DBusConnection *bus)
1170 {
1171   SpiRegistry *reg = g_object_new (SPI_REGISTRY_TYPE, NULL);
1172
1173   reg->bus = bus;
1174
1175   dbus_bus_add_match (bus, app_sig_match_name_owner, NULL);
1176   dbus_connection_add_filter (bus, signal_filter, reg, NULL);
1177
1178   dbus_connection_register_object_path (bus, SPI_DBUS_PATH_ROOT, &registry_vtable, reg);
1179
1180   emit_Available (bus);
1181
1182   reg->events = NULL;
1183
1184   return reg;
1185 }
1186
1187 /*END------------------------------------------------------------------------*/