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.
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Library General Public
10 * License as published by the Free Software Foundation; either
11 * version 2 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Library General Public License for more details.
18 * You should have received a copy of the GNU Library General Public
19 * License along with this library; if not, write to the
20 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 * Boston, MA 02111-1307, USA.
24 #include <glib/gmessages.h>
25 #include <glib/gslist.h>
27 #include "spi-private.h"
34 static GSList *working_list = NULL; /* of Iteration */
36 static char *spi_atk_bridge_null_string = "";
39 * deletes an element from the list - in a re-entrant
40 * safe fashion; advances the element pointer to the next
44 spi_re_entrant_list_delete_link (GList * const *element_ptr)
51 g_return_if_fail (element_ptr != NULL);
53 element = *element_ptr;
54 g_return_if_fail (element != NULL);
57 first_item = (element->prev == NULL);
59 g_list_remove_link (NULL, element);
61 for (l = working_list; l; l = l->next)
63 Iteration *i = l->data;
65 if (i->iterator == element)
70 if (first_item && *(i->list) == element)
76 g_list_free_1 (element);
80 spi_re_entrant_list_foreach (GList **list,
94 working_list = g_slist_prepend (working_list, &i);
97 GList *l = i.iterator;
99 func (&i.iterator, user_data);
102 i.iterator = i.iterator->next;
105 working_list = g_slist_remove (working_list, &i);
109 spi_init_any_nil (CORBA_any *any)
111 any->_type = TC_null;
113 any->_release = FALSE;
117 spi_init_any_object (CORBA_any *any, CORBA_Object *o)
119 CORBA_Environment ev;
120 CORBA_exception_init (&ev);
122 any->_type = TC_CORBA_Object;
124 any->_release = FALSE;
125 CORBA_exception_free (&ev);
129 spi_init_any_string (CORBA_any *any, char **string_pointer)
131 any->_type = (CORBA_TypeCode) TC_CORBA_string;
132 if (string_pointer && *string_pointer)
133 any->_value = string_pointer;
135 any->_value = &spi_atk_bridge_null_string;
136 any->_release = FALSE;