2 * AT-SPI - Assistive Technology Service Provider Interface
3 * (Gnome Accessibility Project; http://developer.gnome.org/projects/gap)
5 * Copyright 2001, 2002 Sun Microsystems Inc.,
6 * Copyright 2001, 2002 Ximian, 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.
26 #include <libbonobo.h>
27 #include "../cspi-lowlevel.h"
30 cspi_dup_ref (CORBA_Object object)
32 return bonobo_object_dup_ref (object, cspi_ev ());
36 cspi_release_unref (CORBA_Object object)
38 bonobo_object_release_unref (object, NULL);
42 cspi_check_ev (const char *error_string)
44 CORBA_Environment *ev = cspi_peek_ev ();
46 if (ev->_major != CORBA_NO_EXCEPTION)
50 err = bonobo_exception_get_text (ev);
52 if (!_cspi_exception_throw (ev, (char *) error_string)) {
53 fprintf (stderr, "Warning: AT-SPI error: %s: %s\n",
59 CORBA_exception_free (ev);
70 cspi_exception_get_text (void)
74 txt = bonobo_exception_get_text (cspi_ev ());
85 CORBA_Object registry;
88 if (!bonobo_init (0, NULL))
90 g_error ("Could not initialize Bonobo");
93 obj_id = "OAFIID:Accessibility_Registry:1.0";
95 CORBA_exception_init (&ev);
97 registry = bonobo_activation_activate_from_id (
98 obj_id, 0, NULL, &ev);
100 if (ev._major != CORBA_NO_EXCEPTION)
102 g_error ("AT-SPI error: during registry activation: %s\n",
103 bonobo_exception_get_text (&ev));
106 if (registry == CORBA_OBJECT_NIL)
108 g_error ("Could not locate registry");
117 cspi_ping (CORBA_Object object)
119 return bonobo_unknown_ping (object, NULL);
129 cspi_main_quit (void)