2 * AT-SPI - Assistive Technology Service Provider Interface
3 * (Gnome Accessibility Project; http://developer.gnome.org/projects/gap)
5 * Copyright 2002 Ximian Inc.
6 * Copyright 2002 Sun Microsystems, Inc.
7 * Copyright 2010, 2011 Novell, Inc.
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.
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.
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.
25 #include "atspi-private.h"
31 AtspiEventListenerCB callback;
33 GDestroyNotify callback_destroyed;
39 G_DEFINE_TYPE (AtspiEventListener, atspi_event_listener, G_TYPE_OBJECT)
42 atspi_event_listener_init (AtspiEventListener *listener)
47 atspi_event_listener_class_init (AtspiEventListenerClass *klass)
52 remove_datum (const AtspiEvent *event, void *user_data)
54 AtspiEventListenerSimpleCB cb = user_data;
61 GDestroyNotify callback_destroyed;
64 static GHashTable *callbacks;
67 callback_ref (void *callback, GDestroyNotify callback_destroyed)
73 callbacks = g_hash_table_new (g_direct_hash, g_direct_equal);
78 info = g_hash_table_lookup (callbacks, callback);
81 info = g_new (CallbackInfo, 1);
82 info->callback = callback;
83 info->callback_destroyed = callback_destroyed;
85 g_hash_table_insert (callbacks, callback, info);
92 callback_unref (gpointer callback)
98 info = g_hash_table_lookup (callbacks, callback);
101 g_warning ("Atspi: Dereferencing invalid callback %p\n", callback);
105 if (info->ref_count == 0)
108 /* TODO: Figure out why this seg faults from Python */
109 if (info->callback_destroyed)
110 (*info->callback_destroyed) (info->callback);
113 g_hash_table_remove (callbacks, callback);
118 * atspi_event_listener_new:
119 * @callback: (scope notified): An #AtspiEventListenerSimpleCB to be called
120 * when an event is fired.
121 * @user_data: (closure): data to pass to the callback.
122 * @callback_destroyed: A #GDestroyNotify called when the listener is freed
123 * and data associated with the callback should be freed. Can be NULL.
125 * Creates a new #AtspiEventListener associated with a specified @callback.
127 * Returns: (transfer full): A new #AtspiEventListener.
130 atspi_event_listener_new (AtspiEventListenerCB callback,
132 GDestroyNotify callback_destroyed)
134 AtspiEventListener *listener = g_object_new (ATSPI_TYPE_EVENT_LISTENER, NULL);
135 listener->callback = callback;
136 callback_ref (callback, callback_destroyed);
137 listener->user_data = user_data;
138 listener->cb_destroyed = callback_destroyed;
143 * atspi_event_listener_new_simple:
144 * @callback: (scope notified): An #AtspiEventListenerSimpleCB to be called
145 * when an event is fired.
146 * @callback_destroyed: A #GDestroyNotify called when the listener is freed
147 * and data associated with the callback should be freed. Can be NULL.
149 * Creates a new #AtspiEventListener associated with a specified @callback.
150 * Returns: (transfer full): A new #AtspiEventListener.
153 atspi_event_listener_new_simple (AtspiEventListenerSimpleCB callback,
154 GDestroyNotify callback_destroyed)
156 AtspiEventListener *listener = g_object_new (ATSPI_TYPE_EVENT_LISTENER, NULL);
157 listener->callback = remove_datum;
158 callback_ref (remove_datum, callback_destroyed);
159 listener->user_data = callback;
160 listener->cb_destroyed = callback_destroyed;
164 static GList *event_listeners = NULL;
167 convert_name_from_dbus (const char *name, gboolean path_hack)
169 gchar *ret = g_malloc (g_utf8_strlen (name, -1) * 2 + 1);
170 const char *p = name;
182 *q++ = tolower (*p++);
184 else if (path_hack && *p == '/')
197 cache_process_children_changed (AtspiEvent *event)
199 AtspiAccessible *child;
201 if (!G_VALUE_HOLDS (&event->any_data, ATSPI_TYPE_ACCESSIBLE) ||
202 !(event->source->cached_properties & ATSPI_CACHE_CHILDREN) ||
203 atspi_state_set_contains (event->source->states, ATSPI_STATE_MANAGES_DESCENDANTS))
206 child = g_value_get_object (&event->any_data);
208 if (!strncmp (event->type, "object:children-changed:add", 27))
210 if (g_list_find (event->source->children, child))
212 GList *new_list = g_list_insert (event->source->children, g_object_ref (child), event->detail1);
214 event->source->children = new_list;
216 else if (g_list_find (event->source->children, child))
218 event->source->children = g_list_remove (event->source->children, child);
219 if (child == child->parent.app->root)
220 g_object_run_dispose (G_OBJECT (child->parent.app));
221 g_object_unref (child);
226 cache_process_property_change (AtspiEvent *event)
228 if (!strcmp (event->type, "object:property-change:accessible-parent"))
230 if (event->source->accessible_parent)
231 g_object_unref (event->source->accessible_parent);
232 if (G_VALUE_HOLDS (&event->any_data, ATSPI_TYPE_ACCESSIBLE))
234 event->source->accessible_parent = g_value_dup_object (&event->any_data);
235 _atspi_accessible_add_cache (event->source, ATSPI_CACHE_PARENT);
239 event->source->accessible_parent = NULL;
240 event->source->cached_properties &= ~ATSPI_CACHE_PARENT;
243 else if (!strcmp (event->type, "object:property-change:accessible-name"))
245 if (event->source->name)
246 g_free (event->source->name);
247 if (G_VALUE_HOLDS_STRING (&event->any_data))
249 event->source->name = g_value_dup_string (&event->any_data);
250 _atspi_accessible_add_cache (event->source, ATSPI_CACHE_NAME);
254 event->source->name = NULL;
255 event->source->cached_properties &= ~ATSPI_CACHE_NAME;
258 else if (!strcmp (event->type, "object:property-change:accessible-description"))
260 if (event->source->description)
261 g_free (event->source->description);
262 if (G_VALUE_HOLDS_STRING (&event->any_data))
264 event->source->description = g_value_dup_string (&event->any_data);
265 _atspi_accessible_add_cache (event->source, ATSPI_CACHE_DESCRIPTION);
269 event->source->description = NULL;
270 event->source->cached_properties &= ~ATSPI_CACHE_DESCRIPTION;
276 cache_process_state_changed (AtspiEvent *event)
278 if (event->source->states)
279 atspi_state_set_set_by_name (event->source->states, event->type + 21,
284 demarshal_rect (DBusMessageIter *iter, AtspiRect *rect)
286 dbus_int32_t x, y, width, height;
287 DBusMessageIter iter_struct;
289 dbus_message_iter_recurse (iter, &iter_struct);
290 if (dbus_message_iter_get_arg_type (&iter_struct) != DBUS_TYPE_INT32) return FALSE;
291 dbus_message_iter_get_basic (&iter_struct, &x);
292 dbus_message_iter_next (&iter_struct);
293 if (dbus_message_iter_get_arg_type (&iter_struct) != DBUS_TYPE_INT32) return FALSE;
294 dbus_message_iter_get_basic (&iter_struct, &y);
295 dbus_message_iter_next (&iter_struct);
296 if (dbus_message_iter_get_arg_type (&iter_struct) != DBUS_TYPE_INT32) return FALSE;
297 dbus_message_iter_get_basic (&iter_struct, &width);
298 dbus_message_iter_next (&iter_struct);
299 if (dbus_message_iter_get_arg_type (&iter_struct) != DBUS_TYPE_INT32) return FALSE;
300 dbus_message_iter_get_basic (&iter_struct, &height);
304 rect->height = height;
309 strdup_and_adjust_for_dbus (const char *s)
311 gchar *d = g_strdup (s);
322 memmove (p, p + 1, g_utf8_strlen (p, -1));
330 p [1] = toupper (p [1]);
334 d [0] = toupper (d [0]);
339 convert_event_type_to_dbus (const char *eventType, char **categoryp, char **namep, char **detailp, GPtrArray **matchrule_array)
341 gchar *tmp = strdup_and_adjust_for_dbus (eventType);
342 char *category = NULL, *name = NULL, *detail = NULL;
343 char *saveptr = NULL;
345 if (tmp == NULL) return FALSE;
346 category = strtok_r (tmp, ":", &saveptr);
347 if (category) category = g_strdup (category);
348 if (!category) goto oom;
349 name = strtok_r (NULL, ":", &saveptr);
352 name = g_strdup (name);
354 detail = strtok_r (NULL, ":", &saveptr);
355 if (detail) detail = g_strdup (detail);
360 matchrule = g_strdup_printf ("type='signal',interface='org.a11y.atspi.Event.%s'", category);
361 if (name && name [0])
363 gchar *new_str = g_strconcat (matchrule, ",member='", name, "'", NULL);
367 (*matchrule_array) = g_ptr_array_new ();
368 if (detail && detail [0])
370 gchar *new_str = g_strconcat (matchrule, ",arg0='", detail, "'", NULL);
371 g_ptr_array_add (*matchrule_array, new_str);
372 new_str = g_strconcat (matchrule, ",arg0path='", detail, "/'", NULL);
373 g_ptr_array_add (*matchrule_array, new_str);
377 g_ptr_array_add (*matchrule_array, matchrule);
379 if (categoryp) *categoryp = category;
380 else g_free (category);
381 if (namep) *namep = name;
382 else if (name) g_free (name);
383 if (detailp) *detailp = detail;
384 else if (detail) g_free (detail);
388 if (tmp) g_free (tmp);
389 if (category) g_free (category);
390 if (name) g_free (name);
391 if (detail) g_free (detail);
396 listener_entry_free (EventListenerEntry *e)
398 gpointer callback = (e->callback == remove_datum ? (gpointer)e->user_data : (gpointer)e->callback);
399 g_free (e->category);
401 if (e->detail) g_free (e->detail);
402 callback_unref (callback);
407 * atspi_event_listener_register:
408 * @listener: The #AtspiEventListener to register against an event type.
409 * @event_type: a character string indicating the type of events for which
410 * notification is requested. Format is
411 * EventClass:major_type:minor_type:detail
412 * where all subfields other than EventClass are optional.
413 * EventClasses include "object", "window", "mouse",
414 * and toolkit events (e.g. "Gtk", "AWT").
415 * Examples: "focus:", "Gtk:GtkWidget:button_press_event".
417 * Adds an in-process callback function to an existing #AtspiEventListener.
419 * Legal object event types:
421 * (property change events)
423 * object:property-change
424 * object:property-change:accessible-name
425 * object:property-change:accessible-description
426 * object:property-change:accessible-parent
427 * object:property-change:accessible-value
428 * object:property-change:accessible-role
429 * object:property-change:accessible-table-caption
430 * object:property-change:accessible-table-column-description
431 * object:property-change:accessible-table-column-header
432 * object:property-change:accessible-table-row-description
433 * object:property-change:accessible-table-row-header
434 * object:property-change:accessible-table-summary
436 * (other object events)
438 * object:state-changed
439 * object:children-changed
440 * object:visible-data-changed
441 * object:selection-changed
442 * object:text-selection-changed
443 * object:text-changed
444 * object:text-caret-moved
445 * object:row-inserted
446 * object:row-reordered
448 * object:column-inserted
449 * object:column-reordered
450 * object:column-deleted
451 * object:model-changed
452 * object:active-descendant-changed
462 * window:desktop-create
463 * window:desktop-destroy
486 * NOTE: this character string may be UTF-8, but should not contain byte
488 * (ascii ':'), except as a delimiter, since non-UTF-8 string
489 * delimiting functions are used internally.
490 * In general, listening to
491 * toolkit-specific events is not recommended.
494 * Returns: #TRUE if successful, otherwise #FALSE.
497 atspi_event_listener_register (AtspiEventListener *listener,
498 const gchar *event_type,
501 /* TODO: Keep track of which events have been registered, so that we
502 * deregister all of them when the event listener is destroyed */
504 return atspi_event_listener_register_from_callback (listener->callback,
506 listener->cb_destroyed,
511 * atspi_event_listener_register_from_callback:
512 * @callback: (scope notified): the #AtspiEventListenerCB to be registered
513 * against an event type.
514 * @user_data: (closure): User data to be passed to the callback.
515 * @callback_destroyed: A #GDestroyNotify called when the callback is destroyed.
516 * @event_type: a character string indicating the type of events for which
517 * notification is requested. See #atspi_event_listener_register
518 * for a description of the format.
520 * Registers an #AtspiEventListenerCB against an @event_type.
522 * Returns: #TRUE if successfull, otherwise #FALSE.
526 atspi_event_listener_register_from_callback (AtspiEventListenerCB callback,
528 GDestroyNotify callback_destroyed,
529 const gchar *event_type,
532 EventListenerEntry *e;
535 DBusMessage *message, *reply;
536 GPtrArray *matchrule_array;
546 g_warning ("called atspi_event_listener_register_from_callback with a NULL event_type");
550 e = g_new (EventListenerEntry, 1);
551 e->callback = callback;
552 e->user_data = user_data;
553 e->callback_destroyed = callback_destroyed;
554 callback_ref (callback == remove_datum ? (gpointer)user_data : (gpointer)callback,
556 if (!convert_event_type_to_dbus (event_type, &e->category, &e->name, &e->detail, &matchrule_array))
561 new_list = g_list_prepend (event_listeners, e);
564 listener_entry_free (e);
567 event_listeners = new_list;
568 dbus_error_init (&d_error);
569 for (i = 0; i < matchrule_array->len; i++)
571 char *matchrule = g_ptr_array_index (matchrule_array, i);
572 dbus_bus_add_match (_atspi_bus(), matchrule, &d_error);
575 g_ptr_array_free (matchrule_array, TRUE);
578 g_warning ("Atspi: Adding match: %s", d_error.message);
579 /* TODO: Set error */
582 dbus_error_init (&d_error);
583 message = dbus_message_new_method_call (atspi_bus_registry,
585 atspi_interface_registry,
589 dbus_message_append_args (message, DBUS_TYPE_STRING, &event_type, DBUS_TYPE_INVALID);
590 reply = _atspi_dbus_send_with_reply_and_block (message, error);
592 dbus_message_unref (reply);
598 * atspi_event_listener_register_no_data:
599 * @callback: (scope notified): the #AtspiEventListenerSimpleCB to be
600 * registered against an event type.
601 * @callback_destroyed: A #GDestroyNotify called when the callback is destroyed.
602 * @event_type: a character string indicating the type of events for which
603 * notification is requested. Format is
604 * EventClass:major_type:minor_type:detail
605 * where all subfields other than EventClass are optional.
606 * EventClasses include "object", "window", "mouse",
607 * and toolkit events (e.g. "Gtk", "AWT").
608 * Examples: "focus:", "Gtk:GtkWidget:button_press_event".
610 * Registers an #AtspiEventListenetSimpleCB. The method is similar to
611 * #atspi_event_listener_register, but @callback takes no user_data.
613 * Returns: #TRUE if successfull, otherwise #FALSE.
616 atspi_event_listener_register_no_data (AtspiEventListenerSimpleCB callback,
617 GDestroyNotify callback_destroyed,
618 const gchar *event_type,
621 return atspi_event_listener_register_from_callback (remove_datum, callback,
627 is_superset (const gchar *super, const gchar *sub)
629 if (!super || !super [0])
631 return (strcmp (super, sub) == 0);
635 * atspi_event_listener_deregister:
636 * @listener: The #AtspiEventListener to deregister.
637 * @event_type: a string specifying the event type for which this
638 * listener is to be deregistered.
640 * Deregisters an #AtspiEventListener from the registry, for a specific
643 * Returns: #TRUE if successful, otherwise #FALSE.
646 atspi_event_listener_deregister (AtspiEventListener *listener,
647 const gchar *event_type,
650 return atspi_event_listener_deregister_from_callback (listener->callback,
656 * atspi_event_listener_deregister_from_callback:
657 * @callback: (scope call): the #AtspiEventListenerCB registered against an
659 * @user_data: (closure): User data that was passed in for this callback.
660 * @event_type: a string specifying the event type for which this
661 * listener is to be deregistered.
663 * Deregisters an #AtspiEventListenerCB from the registry, for a specific
666 * Returns: #TRUE if successful, otherwise #FALSE.
669 atspi_event_listener_deregister_from_callback (AtspiEventListenerCB callback,
671 const gchar *event_type,
674 char *category, *name, *detail;
675 GPtrArray *matchrule_array;
679 if (!convert_event_type_to_dbus (event_type, &category, &name, &detail, &matchrule_array))
688 for (l = event_listeners; l;)
690 EventListenerEntry *e = l->data;
691 if (e->callback == callback &&
692 e->user_data == user_data &&
693 is_superset (category, e->category) &&
694 is_superset (name, e->name) &&
695 is_superset (detail, e->detail))
697 gboolean need_replace;
699 DBusMessage *message, *reply;
700 need_replace = (l == event_listeners);
701 l = g_list_remove (l, e);
704 dbus_error_init (&d_error);
705 for (i = 0; i < matchrule_array->len; i++)
707 char *matchrule = g_ptr_array_index (matchrule_array, i);
708 dbus_bus_remove_match (_atspi_bus(), matchrule, &d_error);
710 dbus_error_init (&d_error);
711 message = dbus_message_new_method_call (atspi_bus_registry,
713 atspi_interface_registry,
717 dbus_message_append_args (message, DBUS_TYPE_STRING, &event_type, DBUS_TYPE_INVALID);
718 reply = _atspi_dbus_send_with_reply_and_block (message, error);
720 dbus_message_unref (reply);
722 listener_entry_free (e);
724 else l = g_list_next (l);
728 if (detail) g_free (detail);
729 for (i = 0; i < matchrule_array->len; i++)
730 g_free (g_ptr_array_index (matchrule_array, i));
731 g_ptr_array_free (matchrule_array, TRUE);
736 * atspi_event_listener_deregister_no_data:
737 * @callback: (scope call): the #AtspiEventListenerSimpleCB registered against
739 * @event_type: a string specifying the event type for which this
740 * listener is to be deregistered.
742 * deregisters an #AtspiEventListenerSimpleCB from the registry, for a specific
745 * Returns: #TRUE if successful, otherwise #FALSE.
748 atspi_event_listener_deregister_no_data (AtspiEventListenerSimpleCB callback,
749 const gchar *event_type,
752 return atspi_event_listener_deregister_from_callback (remove_datum, callback,
758 atspi_event_copy (AtspiEvent *src)
760 AtspiEvent *dst = g_new0 (AtspiEvent, 1);
761 dst->type = g_strdup (src->type);
762 dst->source = g_object_ref (src->source);
763 dst->detail1 = src->detail1;
764 dst->detail2 = src->detail2;
765 g_value_init (&dst->any_data, G_VALUE_TYPE (&src->any_data));
766 g_value_copy (&src->any_data, &dst->any_data);
771 atspi_event_free (AtspiEvent *event)
773 g_object_unref (event->source);
774 g_free (event->type);
775 g_value_unset (&event->any_data);
780 detail_matches_listener (const char *event_detail, const char *listener_detail)
782 if (!listener_detail)
785 return !(listener_detail [strcspn (listener_detail, ":")] == '\0'
786 ? strncmp (listener_detail, event_detail,
787 strcspn (event_detail, ":"))
788 : strcmp (listener_detail, event_detail));
792 _atspi_send_event (AtspiEvent *e)
794 char *category, *name, *detail;
797 /* Ensure that the value is set to avoid a Python exception */
798 /* TODO: Figure out how to do this without using a private field */
799 if (e->any_data.g_type == 0)
801 g_value_init (&e->any_data, G_TYPE_INT);
802 g_value_set_int (&e->any_data, 0);
805 if (!convert_event_type_to_dbus (e->type, &category, &name, &detail, NULL))
807 g_warning ("Atspi: Couldn't parse event: %s\n", e->type);
810 for (l = event_listeners; l; l = g_list_next (l))
812 EventListenerEntry *entry = l->data;
813 if (!strcmp (category, entry->category) &&
814 (entry->name == NULL || !strcmp (name, entry->name)) &&
815 detail_matches_listener (detail, entry->detail))
817 entry->callback (atspi_event_copy (e), entry->user_data);
820 if (detail) g_free (detail);
826 _atspi_dbus_handle_event (DBusConnection *bus, DBusMessage *message, void *data)
829 const char *category = dbus_message_get_interface (message);
830 const char *member = dbus_message_get_member (message);
831 const char *signature = dbus_message_get_signature (message);
833 gchar *converted_type;
834 DBusMessageIter iter, iter_variant;
835 dbus_message_iter_init (message, &iter);
837 dbus_int32_t detail1, detail2;
840 if (strcmp (signature, "siiv(so)") != 0)
842 g_warning ("Got invalid signature %s for signal %s from interface %s\n", signature, member, category);
843 return DBUS_HANDLER_RESULT_HANDLED;
846 memset (&e, 0, sizeof (e));
850 category = g_utf8_strrchr (category, -1, '.');
851 if (category == NULL)
854 return DBUS_HANDLER_RESULT_NOT_YET_HANDLED;
858 dbus_message_iter_get_basic (&iter, &detail);
859 dbus_message_iter_next (&iter);
860 dbus_message_iter_get_basic (&iter, &detail1);
862 dbus_message_iter_next (&iter);
863 dbus_message_iter_get_basic (&iter, &detail2);
865 dbus_message_iter_next (&iter);
867 converted_type = convert_name_from_dbus (category, FALSE);
868 name = convert_name_from_dbus (member, FALSE);
869 detail = convert_name_from_dbus (detail, TRUE);
871 if (strcasecmp (category, name) != 0)
873 p = g_strconcat (converted_type, ":", name, NULL);
874 g_free (converted_type);
877 else if (detail [0] == '\0')
879 p = g_strconcat (converted_type, ":", NULL);
880 g_free (converted_type);
884 if (detail[0] != '\0')
886 p = g_strconcat (converted_type, ":", detail, NULL);
887 g_free (converted_type);
890 e.type = converted_type;
891 e.source = _atspi_ref_accessible (dbus_message_get_sender(message), dbus_message_get_path(message));
893 dbus_message_iter_recurse (&iter, &iter_variant);
894 switch (dbus_message_iter_get_arg_type (&iter_variant))
896 case DBUS_TYPE_STRUCT:
899 if (demarshal_rect (&iter_variant, &rect))
901 g_value_init (&e.any_data, ATSPI_TYPE_RECT);
902 g_value_set_boxed (&e.any_data, &rect);
906 AtspiAccessible *accessible;
907 accessible = _atspi_dbus_return_accessible_from_iter (&iter_variant);
908 g_value_init (&e.any_data, ATSPI_TYPE_ACCESSIBLE);
909 g_value_set_instance (&e.any_data, accessible);
911 g_object_unref (accessible); /* value now owns it */
915 case DBUS_TYPE_STRING:
917 dbus_message_iter_get_basic (&iter_variant, &p);
918 g_value_init (&e.any_data, G_TYPE_STRING);
919 g_value_set_string (&e.any_data, p);
926 if (!strncmp (e.type, "object:children-changed", 23))
928 cache_process_children_changed (&e);
930 else if (!strncmp (e.type, "object:property-change", 22))
932 cache_process_property_change (&e);
934 else if (!strncmp (e.type, "object:state-changed", 20))
936 cache_process_state_changed (&e);
939 _atspi_send_event (&e);
941 g_free (converted_type);
944 g_object_unref (e.source);
945 g_value_unset (&e.any_data);
946 return DBUS_HANDLER_RESULT_HANDLED;
949 G_DEFINE_BOXED_TYPE (AtspiEvent, atspi_event, atspi_event_copy, atspi_event_free)