-#include <libbonobo.h>
+/*
+ * AT-SPI - Assistive Technology Service Provider Interface
+ * (Gnome Accessibility Project; http://developer.gnome.org/projects/gap)
+ *
+ * Copyright 2001, 2002 Sun Microsystems Inc.,
+ * Copyright 2001, 2002 Ximian, Inc.
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+
+/*
+ *
+ * Basic SPI initialization and event loop function prototypes
+ *
+ */
+
#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
+#include <cspi/spi-private.h>
#include "spi.h"
-static CORBA_Environment ev;
-static AccessibilityRegistry registry;
+#undef DEBUG_OBJECTS
-Accessible *
-Obj_Add (Accessible object)
+static CORBA_Environment ev = { NULL };
+static Accessibility_Registry registry = CORBA_OBJECT_NIL;
+static GHashTable *live_refs = NULL;
+static GQueue *exception_handlers = NULL;
+
+static guint
+cspi_object_hash (gconstpointer key)
{
- /* TODO: keep list of live object refs */
- Accessible *oref = g_malloc (sizeof (Accessible));
- *oref = object;
- return oref;
+ CORBA_Object object = (CORBA_Object) key;
+
+ return CORBA_Object_hash (object, 0, &ev);
}
-/*
- *
- * Basic SPI initialization and event loop function prototypes
- *
- */
+static gboolean
+cspi_object_equal (gconstpointer a, gconstpointer b)
+{
+ CORBA_Object objecta = (CORBA_Object) a;
+ CORBA_Object objectb = (CORBA_Object) b;
-int
-SPI_init (void)
+ return CORBA_Object_is_equivalent (objecta, objectb, cspi_ev ());
+}
+
+static void
+cspi_object_release (gpointer value)
{
- int argc = 0;
- CORBA_Object oclient;
- char *obj_id;
+ Accessible *a = (Accessible *) value;
- CORBA_exception_init(&ev);
+#ifdef DEBUG_OBJECTS
+ g_print ("releasing %p => %p\n", a, a->objref);
+#endif
- if (!bonobo_init (&argc, NULL))
+ if (!a->on_loan)
{
- g_error ("Could not initialize Bonobo");
+ cspi_release_unref (a->objref);
}
- obj_id = "OAFIID:Accessibility_Registry:proto0.1";
-
- oclient = bonobo_activation_activate_from_id (obj_id, 0, NULL, &ev);
- if (ev._major != CORBA_NO_EXCEPTION) {
- fprintf (stderr,
- ("AT-SPI error: during registry activation: %s\n"),
- CORBA_exception_id(&ev));
- CORBA_exception_free(&ev);
- exit(-1);
+ memset (a, 0xaa, sizeof (Accessible));
+ a->ref_count = -1;
+
+#ifndef DEBUG_OBJECTS
+ free (a);
+#endif
+}
+
+gboolean
+cspi_exception_throw (CORBA_Environment *ev, char *desc_prefix)
+{
+ SPIExceptionHandler *handler = NULL;
+ SPIException ex;
+ if (exception_handlers) handler = g_queue_peek_head (exception_handlers);
+
+ ex.type = SPI_EXCEPTION_SOURCE_UNSPECIFIED;
+ ex.source = CORBA_OBJECT_NIL; /* can we get this from here? */
+ ex.ev = CORBA_exception__copy (ev);
+ switch (ev->_major) {
+ case CORBA_SYSTEM_EXCEPTION:
+ ex.code = SPI_EXCEPTION_UNSPECIFIED;
+ break;
+ case CORBA_USER_EXCEPTION: /* help! how to interpret this? */
+ ex.code = SPI_EXCEPTION_UNSPECIFIED;
+ break;
+ default:
+ ex.code = SPI_EXCEPTION_UNSPECIFIED;
+ break;
}
+
+ if (handler)
+ return (*handler) (&ex, FALSE);
+ else
+ return FALSE; /* means exception was not handled */
+}
- if (CORBA_Object_is_nil (oclient, &ev))
+SPIBoolean
+cspi_accessible_is_a (Accessible *accessible,
+ const char *interface_name)
+{
+ SPIBoolean retval;
+ Bonobo_Unknown unknown;
+
+ if (accessible == NULL)
{
- g_error ("Could not locate registry");
- exit(-1);
+ return FALSE;
}
- registry = (Accessibility_Registry) oclient;
+ unknown = Bonobo_Unknown_queryInterface (CSPI_OBJREF (accessible),
+ interface_name, cspi_ev ());
- bonobo_activate ();
+ if (ev._major != CORBA_NO_EXCEPTION)
+ {
+ g_warning ("Exception '%s' checking if is '%s'",
+ cspi_exception_get_text (),
+ interface_name);
+ retval = FALSE;
+ }
- return 0;
-}
+ else if (unknown != CORBA_OBJECT_NIL)
+ {
+ retval = TRUE;
+ cspi_release_unref (unknown);
+ }
+ else
+ {
+ retval = FALSE;
+ }
-void
-SPI_event_main (boolean isGNOMEApp)
-{
- if (isGNOMEApp) bonobo_main();
- else CORBA_ORB_run (bonobo_orb(), &ev);
+ return retval;
}
-/* Not Yet Implemented */
-boolean
-SPI_eventIsReady ()
+static GHashTable *
+cspi_get_live_refs (void)
{
- return FALSE;
+ if (!live_refs)
+ {
+ live_refs = g_hash_table_new_full (cspi_object_hash,
+ cspi_object_equal,
+ NULL,
+ cspi_object_release);
+ }
+ return live_refs;
}
-/* Not Yet Implemented */
-AccessibleEvent *
-SPI_nextEvent (boolean waitForEvent)
+CORBA_Environment *
+cspi_peek_ev (void)
{
- return NULL;
+ return &ev;
}
-void
-SPI_exit (void)
+CORBA_Environment *
+cspi_ev (void)
{
- exit(0);
+ CORBA_exception_init (&ev);
+ return &ev;
}
-AccessibleEventListener *
-CreateEventListener (AccessibleEventListenerCB callback)
+Accessibility_Registry
+cspi_registry (void)
{
- AccessibleEventListener *listener = accessible_event_listener_new ();
- if (callback)
+ if (!cspi_ping (registry))
{
- accessible_event_listener_add_callback (listener, callback);
+ registry = cspi_init ();
}
+ return registry;
}
-boolean
-EventListener_addCallback (AccessibleEventListener *listener,
- AccessibleEventListenerCB callback)
+SPIBoolean
+cspi_exception (void)
{
- accessible_event_listener_add_callback (listener, callback);
- return TRUE;
-}
+ SPIBoolean retval;
-boolean
-EventListener_removeCallback (AccessibleEventListener *listener,
- AccessibleEventListenerCB callback)
-{
- accessible_event_listener_remove_callback (listener, callback);
- return TRUE;
+ if (ev._major != CORBA_NO_EXCEPTION)
+ {
+ CORBA_exception_free (&ev);
+ retval = TRUE;
+ }
+ else
+ {
+ retval = FALSE;
+ }
+
+ return retval;
}
/*
- *
- * Global functions serviced by the registry
- *
+ * This method swallows the corba_object BonoboUnknown
+ * reference, and returns an Accessible associated with it.
+ * If the reference is loaned, it means it is only valid
+ * between a borrow / return pair.
*/
-
-boolean
-RegisterGlobalEventListener (AccessibleEventListener *listener,
- char *eventType)
+static Accessible *
+cspi_object_get_ref (CORBA_Object corba_object, gboolean on_loan)
{
- Accessibility_Registry_registerGlobalEventListener (
- registry,
- (Accessibility_EventListener)
- bonobo_object_corba_objref (bonobo_object (listener)),
- eventType,
- &ev);
+ Accessible *ref;
- if (ev._major != CORBA_NO_EXCEPTION)
+ if (corba_object == CORBA_OBJECT_NIL)
+ {
+ ref = NULL;
+ }
+ else if (!cspi_check_ev ("pre method check: add"))
{
- return FALSE;
+ ref = NULL;
}
else
{
- return TRUE;
+ if ((ref = g_hash_table_lookup (cspi_get_live_refs (), corba_object)))
+ {
+ g_assert (ref->ref_count > 0);
+ ref->ref_count++;
+ if (!on_loan)
+ {
+ if (ref->on_loan) /* Convert to a permanant ref */
+ {
+ ref->on_loan = FALSE;
+ }
+ else
+ {
+ cspi_release_unref (corba_object);
+ }
+ }
+#ifdef DEBUG_OBJECTS
+ g_print ("returning cached %p => %p\n", ref, ref->objref);
+#endif
+ }
+ else
+ {
+ ref = malloc (sizeof (Accessible));
+ ref->objref = corba_object;
+ ref->ref_count = 1;
+ ref->on_loan = on_loan;
+#ifdef DEBUG_OBJECTS
+ g_print ("allocated %p => %p\n", ref, corba_object);
+#endif
+ g_hash_table_insert (cspi_get_live_refs (), ref->objref, ref);
+ }
}
+
+ return ref;
}
-int
-GetDesktopCount ()
+Accessible *
+cspi_object_add (CORBA_Object corba_object)
{
- return Accessibility_Registry_getDesktopCount (registry, &ev);
+ return cspi_object_get_ref (corba_object, FALSE);
}
-Accessible
-*getDesktop (int n)
+Accessible *
+cspi_object_borrow (CORBA_Object corba_object)
{
- return Obj_Add (Accessibility_Registry_getDesktop (registry, (CORBA_short) n, &ev));
+ return cspi_object_get_ref (corba_object, TRUE);
}
-int
-getDesktopList (Accessible **list)
+void
+cspi_object_return (Accessible *accessible)
{
- *list = NULL;
- return 0;
+ int old_ref_count;
+ g_return_if_fail (accessible != NULL);
+
+ if (!accessible->on_loan ||
+ accessible->ref_count == 1)
+ {
+ cspi_object_unref (accessible);
+ }
+ else /* Convert to a permanant ref */
+ {
+ accessible->on_loan = FALSE;
+ old_ref_count = accessible->ref_count;
+ accessible->objref = cspi_dup_ref (accessible->objref);
+ if (old_ref_count != accessible->ref_count &&
+ accessible->ref_count == 1)
+ {
+ cspi_object_unref (accessible);
+ }
+ else
+ {
+ accessible->ref_count--;
+ }
+ }
+}
+
+Accessible *
+cspi_object_take (CORBA_Object corba_object)
+{
+ Accessible *accessible;
+ accessible = cspi_object_borrow (corba_object);
+
+ cspi_object_ref (accessible);
+ /*
+ * if the remote object is dead,
+ * cspi_object_return will throw an exception.
+ * FIXME: what clears that exception context ever ?
+ */
+ cspi_object_return (accessible);
+ if (cspi_exception ())
+ {
+ cspi_object_unref (accessible);
+ accessible = NULL;
+ }
+ return accessible;
}
-/* Not Yet Implemented */
void
-registerKeystrokeListener (KeystrokeListener *listener)
+cspi_object_ref (Accessible *accessible)
{
- ;
+ g_return_if_fail (accessible != NULL);
+
+ accessible->ref_count++;
}
-/* Not Yet Implemented */
void
-generateKeyEvent (long keyCode, long meta)
+cspi_object_unref (Accessible *accessible)
{
- ;
+ if (accessible == NULL)
+ {
+ return;
+ }
+
+ g_return_if_fail (accessible->ref_count > 0);
+ if (--accessible->ref_count == 0)
+ {
+ g_hash_table_remove (cspi_get_live_refs (), accessible->objref);
+ }
}
-/* Not Yet Implemented */
-void
-generateMouseEvent (long x, long y, char *name)
+static void
+cspi_cleanup (void)
{
- ;
+ GHashTable *refs;
+
+ cspi_streams_close_all ();
+
+ refs = live_refs;
+ live_refs = NULL;
+ if (refs)
+ {
+ g_hash_table_destroy (refs);
+ }
+
+ if (registry != CORBA_OBJECT_NIL)
+ {
+ cspi_release_unref (registry);
+ registry = CORBA_OBJECT_NIL;
+ }
}
-/*
+static gboolean SPI_inited = FALSE;
+
+/**
+ * SPI_init:
*
- * Accessible function prototypes
+ * Connects to the accessibility registry and initializes the SPI.
*
- */
-
+ * Returns: 0 on success, otherwise an integer error code.
+ **/
int
-Accessible_ref (Accessible *obj)
+SPI_init (void)
{
- Accessibility_Accessible_ref (*obj, &ev);
- return 0;
-}
+ if (SPI_inited)
+ {
+ return 1;
+ }
+ SPI_inited = TRUE;
-int
-Accessible_unref (Accessible *obj)
-{
- Accessibility_Accessible_unref (*obj, &ev);
- return 0;
-}
+ CORBA_exception_init (&ev);
-char *
-Accessible_getName (Accessible *obj)
-{
- return Accessibility_Accessible__get_name (*obj, &ev);
-}
+ registry = cspi_init ();
-char *
-Accessible_getDescription (Accessible *obj)
-{
- return Accessibility_Accessible__get_description (*obj, &ev);
-}
+ g_atexit (cspi_cleanup);
-Accessible *
-Accessible_getParent (Accessible *obj)
-{
- return Obj_Add (Accessibility_Accessible__get_parent (*obj, &ev));
+ /* fprintf (stderr, "registry=%x\n", (int) registry); */
+
+ if ((registry != CORBA_OBJECT_NIL) && (cspi_ping (registry)))
+ return 0;
+ else
+ return 2;
}
-long
-Accessible_getChildCount (Accessible *obj)
+/**
+ * SPI_event_main:
+ *
+ * Starts/enters the main event loop for the SPI services.
+ *
+ * (NOTE: This method does not return control, it is exited via a call to
+ * SPI_event_quit () from within an event handler).
+ *
+ **/
+void
+SPI_event_main (void)
{
- return Accessibility_Accessible_getChildCount (*obj, &ev);
+ cspi_main ();
}
-Accessible *
-Accessible_getChildAtIndex (Accessible *obj,
- long childIndex)
+/**
+ * SPI_event_quit:
+ *
+ * Quits the last main event loop for the SPI services,
+ * see SPI_event_main
+ **/
+void
+SPI_event_quit (void)
{
- return Obj_Add (Accessibility_Accessible_getChildAtIndex (*obj, childIndex, &ev));
+ cspi_main_quit ();
}
-long
-Accessible_getIndexInParent (Accessible *obj)
+/**
+ * SPI_eventIsReady:
+ *
+ * Checks to see if an SPI event is waiting in the event queue.
+ * Used by clients that don't wish to use SPI_event_main().
+ *
+ * Not Yet Implemented.
+ *
+ * Returns: #TRUE if an event is waiting, otherwise #FALSE.
+ *
+ **/
+SPIBoolean
+SPI_eventIsReady (void)
{
- return Accessibility_Accessible_getIndexInParent (*obj, &ev);
+ return FALSE;
}
-/* Not Yet Implemented */
-AccessibleRelation **
-Accessible_getRelationSet (Accessible *obj)
+/**
+ * SPI_nextEvent:
+ * @waitForEvent: a #SPIBoolean indicating whether to block or not.
+ *
+ * Gets the next event in the SPI event queue; blocks if no event
+ * is pending and @waitForEvent is #TRUE.
+ * Used by clients that don't wish to use SPI_event_main().
+ *
+ * Not Yet Implemented.
+ *
+ * Returns: the next #AccessibleEvent in the SPI event queue.
+ **/
+AccessibleEvent *
+SPI_nextEvent (SPIBoolean waitForEvent)
{
return NULL;
}
-/* Not Yet Implemented */
-char *
-Accessible_getRole (Accessible *obj)
+#ifdef PRINT_LEAKS
+static void
+report_leaked_ref (gpointer key, gpointer val, gpointer user_data)
{
- return "";
-}
+ char *name, *role;
+ Accessible *a = (Accessible *) val;
+
+ name = Accessible_getName (a);
+ if (cspi_exception ())
+ {
+ name = NULL;
+ }
-/* Not Yet Implemented */
-AccessibleStateSet *
-Accessible_getStateSet (Accessible *obj)
-{
- return NULL;
-}
+ role = Accessible_getRoleName (a);
+ if (cspi_exception ())
+ {
+ role = NULL;
+ }
+ fprintf (stderr, "leaked %d references to object %s, role %s %p\n",
+ a->ref_count, name ? name : "<?>", role ? role : "<?>", a);
-/*
+ SPI_freeString (name);
+}
+#endif
+
+/**
+ * SPI_exit:
*
- * AccessibleApplication function prototypes
+ * Disconnects from the Accessibility Registry and releases
+ * any floating resources. Call only once at exit.
*
- */
-
+ * Returns: 0 if there were no leaks, otherwise non zero.
+ **/
int
-AccessibleApplication_ref (AccessibleApplication *obj)
+SPI_exit (void)
+{
+ int leaked;
+
+ if (!SPI_inited)
+ {
+ return 0;
+ }
+
+ SPI_inited = FALSE;
+
+ if (live_refs)
+ {
+ leaked = g_hash_table_size (live_refs);
+#ifdef DEBUG_OBJECTS
+ fprintf (stderr, "Leaked %d SPI handles\n", leaked);
+
+#define PRINT_LEAKS
+#ifdef PRINT_LEAKS
+ g_hash_table_foreach (live_refs, report_leaked_ref, NULL);
+#endif
+
+#endif
+ }
+ else
+ {
+ leaked = 0;
+ }
+
+ cspi_cleanup ();
+
+ return leaked;
+}
+
+/**
+ * SPI_freeString:
+ * @s: a character string returned from another at-spi call.
+ *
+ * Free a character string returned from an at-spi call. Clients of
+ * at-spi should use this function instead of free () or g_free().
+ * A NULL string @s will be silently ignored.
+ * This API should not be used to free strings
+ * from other libraries or allocated by the client.
+ **/
+void
+SPI_freeString (char *s)
{
- Accessibility_Application_ref (*obj, &ev);
- return 0;
+ if (s)
+ {
+ CORBA_free (s);
+ }
}
-int
-AccessibleApplication_unref (AccessibleApplication *obj)
+/**
+ * SPI_freeRect:
+ * @r: a pointer to an SPIRect returned from another at-spi call.
+ *
+ * Free a SPIRect structure returned from an at-spi call. Clients of
+ * at-spi should use this function instead of free () or g_free().
+ * A NULL rect @r will be silently ignored.
+ * This API should not be used to free data
+ * from other libraries or allocated by the client.
+ *
+ * @Since: AT-SPI 1.6
+ **/
+void
+SPI_freeRect (SPIRect *r)
{
- Accessibility_Application_unref (*obj, &ev);
- return 0;
+ if (r)
+ {
+ /* err, okay, in this case the client _could_
+ have called g_free, but we don't want to guarantee it */
+ g_free (r);
+ }
}
+/**
+ * SPI_dupString:
+ * @s: a UTF-8 string to be duplicated
+ *
+ * @Since: AT-SPI 1.4
+ *
+ * Returns: a duplicate of the string passed as a parameter, which should
+ * be freed via SPI_freeString after use.
+ **/
char *
-AccessibleApplication_getToolkitName (AccessibleApplication *obj)
+SPI_dupString (char *s)
{
- return Accessibility_Application__get_toolkitName (*obj, &ev);
+ if (s)
+ {
+ return CORBA_string_dup (s);
+ }
+ else
+ return NULL;
}
-char *
-AccessibleApplication_getVersion (AccessibleApplication *obj)
+/**
+ * SPI_exceptionHandlerPush:
+ * @handler: an #SPIExceptionHandler to install as the first code to deal with exceptions.
+ *
+ * Install a client-side handler for #SPIException instances, which can see and handle any
+ * exceptions before chaining them to the next exception handler in the stack.
+ *
+ * @Since: AT-SPI 1.4
+ *
+ * Returns %TRUE if the result succeeded, %FALSE if @hander could not be registered.
+ **/
+SPIBoolean SPI_exceptionHandlerPush (SPIExceptionHandler *handler)
{
- return Accessibility_Application__get_version (*obj, &ev);
+ if (!exception_handlers)
+ exception_handlers = g_queue_new ();
+ g_queue_push_head (exception_handlers, handler);
+ return TRUE;
}
-long
-AccessibleApplication_getID (AccessibleApplication *obj)
+/**
+ * SPI_exceptionHandlerPop:
+ *
+ * Remove/pop an #SPIExceptionHandler off the error handler stack and return the new handler.
+ *
+ * @Since: AT-SPI 1.4
+ *
+ * Returns the #SPIExceptionHandler which is now at the top of the error handler stack after the call.
+ **/
+SPIExceptionHandler* SPI_exceptionHandlerPop (void)
{
- return Accessibility_Application__getID (*obj, &ev);
+ return (SPIExceptionHandler *) g_queue_pop_head (exception_handlers);
}
-/* Not Yet Implemented */
-boolean
-AccessibleApplication_pause (AccessibleApplication *obj)
+/**
+ * SPIException_getSourceType:
+ * @err: the exception being queried
+ *
+ * Get the #SPIExceptionType of an exception which has been thrown.
+ *
+ * @Since: AT-SPI 1.4
+ *
+ * Returns: the #SPIExceptionType corresponding to exception @err.
+ **/
+SPIExceptionType SPIException_getSourceType (SPIException *err)
{
- return FALSE;
+ if (err)
+ return err->type;
+ else
+ return SPI_EXCEPTION_SOURCE_UNSPECIFIED;
}
-/* Not Yet Implemented */
-boolean
-AccessibleApplication_resume (AccessibleApplication *obj)
+/**
+ * SPIException_getExceptionCode:
+ * @err: the #SPIException being queried.
+ *
+ * Get the #SPIExceptionCode telling what type of exception condition has occurred.
+ *
+ * @Since: AT-SPI 1.4
+ *
+ * Returns: the #SPIExceptionCode corresponding to exception @err.
+ **/
+SPIExceptionCode SPIException_getExceptionCode (SPIException *err)
+{
+ return err->code;
+}
+
+/**
+ * SPIAccessibleException_getSource:
+ * @err: the #SPIException being queried.
+ *
+ * Get the identity of the object which threw an exception.
+ *
+ * @Since: AT-SPI 1.4
+ *
+ * Returns: a pointer to the #Accessible object which threw the exception.
+ **/
+Accessible* SPIAccessibleException_getSource (SPIException *err)
{
- return FALSE;
+ if (err->type == SPI_EXCEPTION_SOURCE_ACCESSIBLE)
+ return cspi_object_get_ref (err->source, FALSE);
+ return NULL;
}
+/**
+ * SPIException_getDescription:
+ * @err: the #SPIException being queried.
+ *
+ * Get a text description of the exception that has been thrown.
+ * Unfortunately these descriptions tend to be terse and limited in
+ * the detail which they can provide.
+ *
+ * Returns: a brief character string describing the exception.
+ **/
+char* SPIException_getDescription (SPIException *err)
+{
+ /* TODO: friendlier error messages? */
+ if (err->ev)
+ return CORBA_exception_id (err->ev);
+ return NULL;
+}