Removed po directory from Makefile.am for now.
[platform/core/uifw/at-spi2-atk.git] / libspi / application.c
index 2a1fcde..40e09c7 100644 (file)
  * Boston, MA 02111-1307, USA.
  */
 
-/*
- * application.c: implements SpiApplication.idl
- *
- */
+/* application.c: implements SpiApplication.idl */
+
 #include <string.h>
 #include <config.h>
-#include <bonobo/Bonobo.h>
 #include <atk/atkutil.h>
+#include <libspi/application.h>
 
-/*
- * This pulls the CORBA definitions for the "Accessibility::Accessible" server
- */
-#include <libspi/Accessibility.h>
-
-/*
- * This pulls the definition for the BonoboObject (GObject Type)
- */
-#include "application.h"
-
-/*
- * Our parent Gtk object type
- */
+/* Our parent Gtk object type */
 #define PARENT_TYPE SPI_ACCESSIBLE_TYPE
 
-/*
- * A pointer to our parent object class
- */
+/* A pointer to our parent object class */
 static SpiAccessibleClass *spi_application_parent_class;
 
 static SpiApplication *the_app;
@@ -54,12 +38,26 @@ static SpiApplication *the_app;
 /* static methods */
 
 static void notify_listeners (GList *listeners,
-                             Accessibility_Event *e,
-                             CORBA_Environment *ev);
+                             SpiAccessible *source,
+                             Accessibility_Event *e);
 
-static char* lookup_toolkit_event_for_name (char *generic_name);
+static const char *reverse_lookup_name_for_toolkit_event (char *toolkit_name);
 
-static char* reverse_lookup_name_for_toolkit_event (char *toolkit_name);
+static const char *
+lookup_toolkit_event_for_name (const char *generic_name)
+{
+  char *toolkit_specific_name;
+  SpiApplicationClass *klass = g_type_class_peek (SPI_APPLICATION_TYPE);
+#ifdef SPI_DEBUG
+  fprintf (stderr, "looking for %s in hash table.\n", generic_name);
+#endif
+  toolkit_specific_name =
+    (char *) g_hash_table_lookup (klass->toolkit_event_names, generic_name);
+#ifdef SPI_DEBUG
+  fprintf (stderr, "generic event %s converted to %s\n", generic_name, toolkit_specific_name);
+#endif
+  return toolkit_specific_name;
+}
 
 /*
  * Implemented GObject::finalize
@@ -67,38 +65,48 @@ static char* reverse_lookup_name_for_toolkit_event (char *toolkit_name);
 static void
 spi_accessible_application_finalize (GObject *object)
 {
-  /* TODO: any necessary cleanup */
+  GList *l;
+  SpiApplication *application = (SpiApplication *) object;
+  CORBA_Environment ev;
+
+  CORBA_exception_init (&ev);
+
+  for (l = application->toolkit_listeners; l; l = l->next)
+    {
+      CORBA_Object_release ((CORBA_Object) l->data, &ev);
+    }
+
+  CORBA_exception_free (&ev);
+
+  g_list_free (application->toolkit_listeners);
+  application->toolkit_listeners = NULL;
+
+  g_print ("application finalize called\n");
   (G_OBJECT_CLASS (spi_application_parent_class))->finalize (object);
 }
 
 static CORBA_string
 impl_accessibility_application_get_toolkit_name (PortableServer_Servant servant,
-                                                 CORBA_Environment *ev)
+                                                 CORBA_Environment     *ev)
 {
-  CORBA_char *retval;
-  SpiApplication *application = SPI_APPLICATION (bonobo_object_from_servant (servant));
-  retval = CORBA_string_dup (atk_get_toolkit_name ());
-  return retval;
+  return CORBA_string_dup (atk_get_toolkit_name ());
 }
 
 static CORBA_string
 impl_accessibility_application_get_version (PortableServer_Servant servant,
-                                            CORBA_Environment *ev)
+                                            CORBA_Environment     *ev)
 {
-  CORBA_char *retval;
-  SpiApplication *application = SPI_APPLICATION (bonobo_object_from_servant (servant));
-  retval = CORBA_string_dup (atk_get_toolkit_version ());
-  return retval;
+  return CORBA_string_dup (atk_get_toolkit_version ());
 }
 
 static CORBA_long
 impl_accessibility_application_get_id (PortableServer_Servant servant,
-                                       CORBA_Environment *ev)
+                                       CORBA_Environment     *ev)
 {
-  CORBA_long retval;
-  SpiApplication *application = SPI_APPLICATION (bonobo_object_from_servant (servant));
-  retval = (CORBA_long) application->id;
-  return retval;
+  SpiApplication *application = SPI_APPLICATION (
+    bonobo_object_from_servant (servant));
+
+  return application->id;
 }
 
 static void
@@ -106,114 +114,122 @@ impl_accessibility_application_set_id (PortableServer_Servant servant,
                                        const CORBA_long id,
                                        CORBA_Environment *ev)
 {
-  SpiApplication *application = SPI_APPLICATION (bonobo_object_from_servant (servant));
+  SpiApplication *application = SPI_APPLICATION (
+    bonobo_object_from_servant (servant));
+
   application->id = id;
 }
 
-#define APP_STATIC_BUFF_SZ 64
+static AtkObject *
+get_atk_object_ref (GObject *gobject)
+{
+  AtkObject *aobject;
+
+  if (ATK_IS_IMPLEMENTOR (gobject))
+    {
+      aobject = atk_implementor_ref_accessible (ATK_IMPLEMENTOR (gobject));
+    }
+  else if (ATK_IS_OBJECT (gobject))
+    {
+      aobject = ATK_OBJECT (gobject);
+      g_object_ref (G_OBJECT (aobject));
+    }
+  else
+    {
+      aobject = NULL;
+      g_error ("received event from non-AtkImplementor");
+    }
+
+  return aobject;
+}
 
 static gboolean
 spi_application_object_event_listener (GSignalInvocationHint *signal_hint,
-                                  guint n_param_values,
-                                  const GValue *param_values,
-                                  gpointer data)
+                                      guint                   n_param_values,
+                                      const GValue           *param_values,
+                                      gpointer                data)
 {
-  Accessibility_Event *e = Accessibility_Event__alloc();
-  AtkObject *aobject;
-  GObject *gobject;
+  Accessibility_Event e;
+  AtkObject     *aobject;
   SpiAccessible *source;
-  CORBA_Environment ev;
-  GSignalQuery signal_query;
-  gchar *name;
-  char sbuf[APP_STATIC_BUFF_SZ];
-  char *generic_name;
+  GSignalQuery   signal_query;
+  gchar         *event_name;
+  const char    *generic_name;
+
+  g_return_val_if_fail (the_app != NULL, FALSE);
   
   g_signal_query (signal_hint->signal_id, &signal_query);
-  name = signal_query.signal_name;
-  fprintf (stderr, "Received (object) signal %s:%s\n",
-          g_type_name (signal_query.itype), name);
 
-  /* TODO: move GTK dependency out of app.c into bridge */
-  snprintf(sbuf, APP_STATIC_BUFF_SZ, "Gtk:%s:%s", g_type_name (signal_query.itype), name);
+  /* TODO: move GTK reference out of app.c into bridge */
+  event_name = g_strdup_printf ("Gtk:%s:%s",
+                               g_type_name (signal_query.itype),
+                               signal_query.signal_name);
 
-  generic_name = reverse_lookup_name_for_toolkit_event (sbuf);
-  gobject = g_value_get_object (param_values + 0);
+  generic_name = reverse_lookup_name_for_toolkit_event (event_name);
 
-  /* notify the actual listeners */
-  if (ATK_IS_IMPLEMENTOR (gobject))
-  {
-    aobject = atk_implementor_ref_accessible (ATK_IMPLEMENTOR (gobject));
-  }
-  else if (ATK_IS_OBJECT (gobject))
-  {
-    aobject = ATK_OBJECT (gobject);
-    g_object_ref (G_OBJECT (aobject));
-  }
-  else
-  {
-    g_error("received event from non-AtkImplementor");
-  }
+  fprintf (stderr, "Received (object) signal %s maps to '%s'\n",
+          event_name, generic_name);
+
+  g_free (event_name);
 
   g_return_val_if_fail (generic_name, FALSE);
-  if (generic_name)
-    {
-        source = spi_accessible_new (aobject);
-       e->type = CORBA_string_dup (generic_name);
-       e->source = BONOBO_OBJREF (source);
-        /*
-        * no need to dup this ref, since it's inprocess               
-        * and will be dup'ed by (inprocess) notify_listeners() call below
-        */
-       e->detail1 = 0;
-       e->detail2 = 0;
-       if (the_app) notify_listeners (the_app->toolkit_listeners, e, &ev);
-        /* unref because the in-process notify has called b_o_dup_ref (e->source) */
-        bonobo_object_release_unref (e->source, &ev); 
-    }
-  /* and, decrement the refcount on atkobject, incremented moments ago:
-   *  the call to spi_accessible_new() above should have added an extra ref */
+
+  aobject = get_atk_object_ref (g_value_get_object (param_values + 0));
+
+  source = spi_accessible_new (aobject);
+  e.type = CORBA_string_dup (generic_name);
+  e.source = CORBA_OBJECT_NIL;
+  e.detail1 = 0;
+  e.detail2 = 0;
+
+  notify_listeners (the_app->toolkit_listeners, source, &e);
+
+  bonobo_object_unref (BONOBO_OBJECT (source));
+
   g_object_unref (G_OBJECT (aobject));
 
   return TRUE;
 }
 
-
 static gboolean
 spi_application_toolkit_event_listener (GSignalInvocationHint *signal_hint,
-                                   guint n_param_values,
-                                   const GValue *param_values,
-                                   gpointer data)
+                                       guint                  n_param_values,
+                                       const GValue          *param_values,
+                                       gpointer               data)
 {
-  Accessibility_Event *e = Accessibility_Event__alloc();
-  AtkObject *aobject;
-  GObject *gobject;
+  Accessibility_Event e;
+  AtkObject      *aobject;
   SpiAccessible *source;
-  CORBA_Environment ev;
-  GSignalQuery signal_query;
-  gchar *name;
-  char sbuf[APP_STATIC_BUFF_SZ];
+  GSignalQuery   signal_query;
+  char          *event_name;
+
+  g_return_val_if_fail (the_app != NULL, FALSE);
 
   g_signal_query (signal_hint->signal_id, &signal_query);
-  name = signal_query.signal_name;
-  fprintf (stderr, "Received signal %s:%s\n", g_type_name (signal_query.itype), name);
 
-  /* TODO: move GTK dependency out of app.c into bridge */
-  snprintf(sbuf, APP_STATIC_BUFF_SZ, "Gtk:%s:%s", g_type_name (signal_query.itype), name);
+  /* TODO: move GTK reference out of app.c into bridge */
+  event_name = g_strdup_printf ("Gtk:%s:%s",
+                               g_type_name (signal_query.itype), 
+                               signal_query.signal_name);
+
+#ifdef SPI_DEBUG  
+  fprintf (stderr, "Received signal %s\n", event_name);
+#endif
+  
+  aobject = get_atk_object_ref (g_value_get_object (param_values + 0));
+
+  source = spi_accessible_new (aobject);
+  e.type = CORBA_string_dup (event_name);
+  e.source = CORBA_OBJECT_NIL;
+  e.detail1 = 0;
+  e.detail2 = 0;
+  notify_listeners (the_app->toolkit_listeners, source, &e);
+
+  bonobo_object_unref (BONOBO_OBJECT (source));
+  g_object_unref (G_OBJECT (aobject));
+
+  g_free (event_name);
 
-  gobject = g_value_get_object (param_values + 0);
-  /* notify the actual listeners */
-  if (ATK_IS_IMPLEMENTOR (gobject))
-    {
-      aobject = atk_implementor_ref_accessible (ATK_IMPLEMENTOR (gobject));
-      source = spi_accessible_new (aobject);
-      e->type = CORBA_string_dup (sbuf);
-      e->source = BONOBO_OBJREF (source);
-      e->detail1 = 0;
-      e->detail2 = 0;
-      if (the_app) notify_listeners (the_app->toolkit_listeners, e, &ev);
-      bonobo_object_unref (source);
-      g_object_unref (G_OBJECT (aobject));
-    }
   return TRUE;
 }
 
@@ -241,13 +257,14 @@ impl_accessibility_application_register_object_event_listener (PortableServer_Se
                                                               const CORBA_char *event_name,
                                                               CORBA_Environment *ev)
 {
-  guint spi_listener_id;
-  char *toolkit_specific_event_name = lookup_toolkit_event_for_name (event_name);
+  guint spi_listener_id = 0;
+  const char *toolkit_specific_event_name =
+         lookup_toolkit_event_for_name (event_name);
   if (toolkit_specific_event_name)
   {
     spi_listener_id =
        atk_add_global_event_listener (spi_application_object_event_listener,
-                                     CORBA_string_dup (toolkit_specific_event_name));
+                                     toolkit_specific_event_name);
     the_app->toolkit_listeners = g_list_append (the_app->toolkit_listeners,
                                              CORBA_Object_duplicate (listener, ev));
   }
@@ -259,50 +276,38 @@ impl_accessibility_application_register_object_event_listener (PortableServer_Se
 }
 
 static void
-notify_listeners (GList *listeners, Accessibility_Event *e, CORBA_Environment *ev)
+notify_listeners (GList *listeners, SpiAccessible *source, Accessibility_Event *e)
 {
-    int n_listeners=0;
-    int i;
-    if (listeners) n_listeners = g_list_length (listeners);
-
-    for (i=0; i<n_listeners; ++i) {
-        Accessibility_EventListener listener;
-       e->source = bonobo_object_dup_ref (e->source, ev); 
-       listener = (Accessibility_EventListener) g_list_nth_data (listeners, i);
-       Accessibility_EventListener_notifyEvent (listener, e, ev);
-       /*
-        * when this (oneway) call completes, the CORBA refcount and
-        * Bonobo_Unknown refcount will be decremented by the recipient
-        */
-    }
-}
+  GList *l;
+  CORBA_Environment ev;
 
-static char *
-lookup_toolkit_event_for_name (char *generic_name)
-{
-    char *toolkit_specific_name;
-    SpiApplicationClass *klass = g_type_class_peek (SPI_APPLICATION_TYPE);
-#ifdef SPI_DEBUG
-    fprintf (stderr, "looking for %s in hash table.\n", generic_name);
-#endif
-    toolkit_specific_name =
-           (char *) g_hash_table_lookup (klass->toolkit_event_names, generic_name);
-#ifdef SPI_DEBUG
-    fprintf (stderr, "generic event %s converted to %s\n", generic_name, toolkit_specific_name);
-#endif
-    return toolkit_specific_name;
+  CORBA_exception_init (&ev);
+
+  for (l = listeners; l; l = l->next)
+    {
+      Accessibility_EventListener listener = l->data;
+
+      e->source = bonobo_object_dup_ref (BONOBO_OBJREF (source), &ev);
+
+      Accessibility_EventListener_notifyEvent (listener, e, &ev);
+      /*
+       * when this (oneway) call completes, the CORBA refcount and
+       * Bonobo_Unknown refcount will be decremented by the recipient
+       */
+      CORBA_exception_free (&ev);
+    }
 }
 
-static char *
+static const char *
 reverse_lookup_name_for_toolkit_event (char *toolkit_specific_name)
 {
-    char *generic_name;
+    const char *generic_name;
     SpiApplicationClass *klass = g_type_class_peek (SPI_APPLICATION_TYPE);
 #ifdef SPI_DEBUG
     fprintf (stderr, "(reverse lookup) looking for %s in hash table.\n", toolkit_specific_name);
 #endif
     generic_name =
-           (char *) g_hash_table_lookup (klass->generic_event_names, toolkit_specific_name);
+           (const char *) g_hash_table_lookup (klass->generic_event_names, toolkit_specific_name);
 #ifdef SPI_DEBUG
     fprintf (stderr, "toolkit event %s converted to %s\n", toolkit_specific_name, generic_name);
 #endif
@@ -344,54 +349,22 @@ spi_application_class_init (SpiApplicationClass *klass)
 }
 
 static void
-spi_application_init (SpiApplication  *application)
+spi_application_init (SpiApplication *application)
 {
-  SPI_ACCESSIBLE (application)->atko = g_object_new (atk_object_get_type(), NULL);
-  application->toolkit_listeners = (GList *) NULL;
+  application->toolkit_listeners = NULL;
   the_app = application;
 }
 
-GType
-spi_application_get_type (void)
-{
-        static GType type = 0;
-
-        if (!type) {
-                static const GTypeInfo tinfo = {
-                        sizeof (SpiApplicationClass),
-                        (GBaseInitFunc) NULL,
-                        (GBaseFinalizeFunc) NULL,
-                        (GClassInitFunc) spi_application_class_init,
-                        (GClassFinalizeFunc) NULL,
-                        NULL, /* class data */
-                        sizeof (SpiApplication),
-                        0, /* n preallocs */
-                        (GInstanceInitFunc) spi_application_init,
-                        NULL /* value table */
-                };
-                /*
-                 * Bonobo_type_unique auto-generates a load of
-                 * CORBA structures for us. All derived types must
-                 * use bonobo_type_unique.
-                 */
-                type = bonobo_type_unique (
-                        PARENT_TYPE,
-                        POA_Accessibility_Application__init,
-                        NULL,
-                        G_STRUCT_OFFSET (SpiApplicationClass, epv),
-                        &tinfo,
-                        "SpiApplication");
-        }
-
-        return type;
-}
+BONOBO_TYPE_FUNC_FULL (SpiApplication,
+                      Accessibility_Application,
+                      PARENT_TYPE, spi_application);
 
 SpiApplication *
 spi_application_new (AtkObject *app_root)
 {
-    SpiApplication *retval =
-               SPI_APPLICATION (g_object_new (spi_application_get_type (), NULL));
-    SPI_ACCESSIBLE (retval)->atko = app_root;
-    g_object_ref (G_OBJECT (app_root));
-    return retval;
+  SpiApplication *retval = g_object_new (SPI_APPLICATION_TYPE, NULL);
+
+  spi_base_construct (SPI_BASE (retval), app_root);
+
+  return retval;
 }