/* -*- Mode: C; c-basic-offset: 4 -*- * vim: tabstop=4 shiftwidth=4 expandtab * * Copyright (C) 2011 John (J5) Palmieri , Red Hat, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 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 * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 * USA */ #include "pygi-marshal-cleanup.h" #include static inline void _cleanup_caller_allocates (PyGIInvokeState *state, PyGIArgCache *cache, gpointer data) { PyGIInterfaceCache *iface_cache = (PyGIInterfaceCache *)cache; if (iface_cache->g_type == G_TYPE_BOXED) { gsize size; size = g_struct_info_get_size (iface_cache->interface_info); g_slice_free1 (size, data); } else if (iface_cache->g_type == G_TYPE_VALUE) { g_slice_free (GValue, data); } else if (iface_cache->is_foreign) { pygi_struct_foreign_release ((GIBaseInfo *)iface_cache->interface_info, data); } else { g_free (data); } } /** * Cleanup during invoke can happen in multiple * stages, each of which can be the result of a * successful compleation of that stage or an error * occured which requires partial cleanup. * * For the most part, either the C interface being * invoked or the python object which wraps the * parameters, handle their lifecycles but in some * cases, where we have intermediate objects, * or when we fail processing a parameter, we need * to handle the clean up manually. * * There are two argument processing stages. * They are the in stage, where we process python * parameters into their C counterparts, and the out * stage, where we process out C parameters back * into python objects. The in stage also sets up * temporary out structures for caller allocated * parameters which need to be cleaned up either on * in stage failure or at the completion of the out * stage (either success or failure) * * The in stage must call one of these cleanup functions: * - pygi_marshal_cleanup_args_from_py_marshal_success * (continue to out stage) * - pygi_marshal_cleanup_args_from_py_parameter_fail * (final, exit from invoke) * * The out stage must call one of these cleanup functions which are all final: * - pygi_marshal_cleanup_args_to_py_marshal_success * - pygi_marshal_cleanup_args_return_fail * - pygi_marshal_cleanup_args_to_py_parameter_fail * **/ void pygi_marshal_cleanup_args_from_py_marshal_success (PyGIInvokeState *state, PyGICallableCache *cache) { gssize i; /* For in success, call cleanup for all GI_DIRECTION_IN values only. */ for (i = 0; i < cache->n_args; i++) { PyGIArgCache *arg_cache = cache->args_cache[i]; PyGIMarshalCleanupFunc cleanup_func = arg_cache->from_py_cleanup; if (cleanup_func && arg_cache->direction == PYGI_DIRECTION_FROM_PYTHON && state->args[i]->v_pointer != NULL) cleanup_func (state, arg_cache, state->args[i]->v_pointer, TRUE); } } void pygi_marshal_cleanup_args_to_py_marshal_success (PyGIInvokeState *state, PyGICallableCache *cache) { /* clean up the return if available */ if (cache->return_cache != NULL) { PyGIMarshalCleanupFunc cleanup_func = cache->return_cache->to_py_cleanup; if (cleanup_func && state->return_arg.v_pointer != NULL) cleanup_func (state, cache->return_cache, state->return_arg.v_pointer, TRUE); } /* Now clean up args */ GSList *cache_item = cache->to_py_args; while (cache_item) { PyGIArgCache *arg_cache = (PyGIArgCache *) cache_item->data; PyGIMarshalCleanupFunc cleanup_func = arg_cache->to_py_cleanup; gpointer data = state->args[arg_cache->c_arg_index]->v_pointer; if (cleanup_func != NULL && data != NULL) cleanup_func (state, arg_cache, data, TRUE); cache_item = cache_item->next; } } void pygi_marshal_cleanup_args_from_py_parameter_fail (PyGIInvokeState *state, PyGICallableCache *cache, gssize failed_arg_index) { gssize i; state->failed = TRUE; for (i = 0; i < cache->n_args && i <= failed_arg_index; i++) { PyGIArgCache *arg_cache = cache->args_cache[i]; PyGIMarshalCleanupFunc cleanup_func = arg_cache->from_py_cleanup; gpointer data = state->args[i]->v_pointer; if (cleanup_func && arg_cache->direction == PYGI_DIRECTION_FROM_PYTHON && data != NULL) { cleanup_func (state, arg_cache, data, i < failed_arg_index); } else if (arg_cache->is_caller_allocates && data != NULL) { _cleanup_caller_allocates (state, arg_cache, data); } } } void pygi_marshal_cleanup_args_return_fail (PyGIInvokeState *state, PyGICallableCache *cache) { state->failed = TRUE; } void pygi_marshal_cleanup_args_to_py_parameter_fail (PyGIInvokeState *state, PyGICallableCache *cache, gssize failed_to_py_arg_index) { state->failed = TRUE; } void _pygi_marshal_cleanup_from_py_utf8 (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { /* We strdup strings so always free if we have processed this parameter for input */ if (was_processed) g_free (data); } void _pygi_marshal_cleanup_to_py_utf8 (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { /* Python copies the string so we need to free it if the interface is transfering ownership, whether or not it has been processed yet */ if (arg_cache->transfer == GI_TRANSFER_EVERYTHING) g_free (data); } void _pygi_marshal_cleanup_from_py_interface_object (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { /* If we processed the parameter but fail before invoking the method, we need to remove the ref we added */ if (was_processed && state->failed && data != NULL && arg_cache->transfer == GI_TRANSFER_EVERYTHING) g_object_unref (G_OBJECT(data)); } void _pygi_marshal_cleanup_to_py_interface_object (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { /* If we error out and the object is not marshalled into a PyGObject we must take care of removing the ref */ if (!was_processed && arg_cache->transfer == GI_TRANSFER_EVERYTHING) g_object_unref (G_OBJECT(data)); } void _pygi_marshal_cleanup_from_py_interface_callback (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { PyGICallbackCache *callback_cache = (PyGICallbackCache *)arg_cache; if (was_processed && callback_cache->scope == GI_SCOPE_TYPE_CALL) { _pygi_invoke_closure_free (state->args_data[arg_cache->c_arg_index]); state->args_data[arg_cache->c_arg_index] = NULL; } } void _pygi_marshal_cleanup_from_py_interface_struct_gvalue (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { if (was_processed) { PyObject *py_arg = PyTuple_GET_ITEM (state->py_in_args, arg_cache->py_arg_index); GType py_object_type = pyg_type_from_object_strict ( (PyObject *) py_arg->ob_type, FALSE); if (py_object_type != G_TYPE_VALUE) { g_value_unset ((GValue *) data); g_slice_free (GValue, data); } } } void _pygi_marshal_cleanup_from_py_interface_struct_foreign (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { if (state->failed && was_processed) pygi_struct_foreign_release ( ( (PyGIInterfaceCache *)arg_cache)->interface_info, data); } void _pygi_marshal_cleanup_to_py_interface_struct_foreign (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { if (!was_processed && arg_cache->transfer == GI_TRANSFER_EVERYTHING) pygi_struct_foreign_release ( ( (PyGIInterfaceCache *)arg_cache)->interface_info, data); } static GArray* _wrap_c_array (PyGIInvokeState *state, PyGISequenceCache *sequence_cache, gpointer data) { GArray *array_; gsize len = 0; if (sequence_cache->fixed_size >= 0) { len = sequence_cache->fixed_size; } else if (sequence_cache->is_zero_terminated) { len = g_strv_length ((gchar **)data); } else if (sequence_cache->len_arg_index >= 0) { GIArgument *len_arg = state->args[sequence_cache->len_arg_index]; len = len_arg->v_long; } array_ = g_array_new (FALSE, FALSE, sequence_cache->item_size); if (array_ == NULL) return NULL; g_free (array_->data); array_->data = data; array_->len = len; return array_; } void _pygi_marshal_cleanup_from_py_array (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { if (was_processed) { GArray *array_ = NULL; GPtrArray *ptr_array_ = NULL; PyGISequenceCache *sequence_cache = (PyGISequenceCache *)arg_cache; /* If this isn't a garray create one to help process variable sized array elements */ if (sequence_cache->array_type == GI_ARRAY_TYPE_C) { array_ = _wrap_c_array (state, sequence_cache, data); if (array_ == NULL) return; } else if (sequence_cache->array_type == GI_ARRAY_TYPE_PTR_ARRAY) { ptr_array_ = (GPtrArray *) data; } else { array_ = (GArray *) data; } /* clean up items first */ if (sequence_cache->item_cache->from_py_cleanup != NULL) { gsize i; guint len = (array_ != NULL) ? array_->len : ptr_array_->len; PyGIMarshalCleanupFunc cleanup_func = sequence_cache->item_cache->from_py_cleanup; for (i = 0; i < len; i++) { gpointer item; /* case 1: GPtrArray */ if (ptr_array_ != NULL) item = g_ptr_array_index (ptr_array_, i); /* case 2: C array or GArray with object pointers */ else if (sequence_cache->item_cache->is_pointer) item = g_array_index (array_, gpointer, i); /* case 3: C array or GArray with simple types or structs */ else item = array_->data + i * sequence_cache->item_size; cleanup_func (state, sequence_cache->item_cache, item, TRUE); } } /* Only free the array when we didn't transfer ownership */ if (sequence_cache->array_type == GI_ARRAY_TYPE_C) { g_array_free (array_, arg_cache->transfer == GI_TRANSFER_NOTHING); } else if (state->failed || arg_cache->transfer == GI_TRANSFER_NOTHING) { if (array_ != NULL) g_array_free (array_, TRUE); else g_ptr_array_free (ptr_array_, TRUE); } } } void _pygi_marshal_cleanup_to_py_array (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { if (arg_cache->transfer == GI_TRANSFER_EVERYTHING || arg_cache->transfer == GI_TRANSFER_CONTAINER) { GArray *array_ = NULL; GPtrArray *ptr_array_ = NULL; PyGISequenceCache *sequence_cache = (PyGISequenceCache *)arg_cache; /* If this isn't a garray create one to help process variable sized array elements */ if (sequence_cache->array_type == GI_ARRAY_TYPE_C) { array_ = _wrap_c_array (state, sequence_cache, data); if (array_ == NULL) return; } else if (sequence_cache->array_type == GI_ARRAY_TYPE_PTR_ARRAY) { ptr_array_ = (GPtrArray *) data; } else { array_ = (GArray *) data; } if (sequence_cache->item_cache->to_py_cleanup != NULL) { gsize i; guint len = (array_ != NULL) ? array_->len : ptr_array_->len; PyGIMarshalCleanupFunc cleanup_func = sequence_cache->item_cache->to_py_cleanup; for (i = 0; i < len; i++) { cleanup_func (state, sequence_cache->item_cache, (array_ != NULL) ? g_array_index (array_, gpointer, i) : g_ptr_array_index (ptr_array_, i), was_processed); } } if (array_ != NULL) g_array_free (array_, TRUE); else g_ptr_array_free (ptr_array_, TRUE); } } void _pygi_marshal_cleanup_from_py_glist (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { if (was_processed) { GSList *list_; PyGISequenceCache *sequence_cache = (PyGISequenceCache *)arg_cache; list_ = (GSList *)data; /* clean up items first */ if (sequence_cache->item_cache->from_py_cleanup != NULL) { PyGIMarshalCleanupFunc cleanup_func = sequence_cache->item_cache->from_py_cleanup; GSList *node = list_; while (node != NULL) { cleanup_func (state, sequence_cache->item_cache, node->data, TRUE); node = node->next; } } if (state->failed || arg_cache->transfer == GI_TRANSFER_NOTHING || arg_cache->transfer == GI_TRANSFER_CONTAINER) { switch (arg_cache->type_tag) { case GI_TYPE_TAG_GLIST: g_list_free ( (GList *)list_); break; case GI_TYPE_TAG_GSLIST: g_slist_free (list_); break; default: g_assert_not_reached(); } } } } void _pygi_marshal_cleanup_to_py_glist (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { PyGISequenceCache *sequence_cache = (PyGISequenceCache *)arg_cache; if (arg_cache->transfer == GI_TRANSFER_EVERYTHING || arg_cache->transfer == GI_TRANSFER_CONTAINER) { GSList *list_ = (GSList *)data; if (sequence_cache->item_cache->to_py_cleanup != NULL) { PyGIMarshalCleanupFunc cleanup_func = sequence_cache->item_cache->to_py_cleanup; GSList *node = list_; while (node != NULL) { cleanup_func (state, sequence_cache->item_cache, node->data, was_processed); node = node->next; } } if (arg_cache->transfer == GI_TRANSFER_EVERYTHING) { switch (arg_cache->type_tag) { case GI_TYPE_TAG_GLIST: g_list_free ( (GList *)list_); break; case GI_TYPE_TAG_GSLIST: g_slist_free (list_); break; default: g_assert_not_reached(); } } } } void _pygi_marshal_cleanup_from_py_ghash (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { if (data == NULL) return; if (was_processed) { GHashTable *hash_; PyGIHashCache *hash_cache = (PyGIHashCache *)arg_cache; hash_ = (GHashTable *)data; /* clean up keys and values first */ if (hash_cache->key_cache->from_py_cleanup != NULL || hash_cache->value_cache->from_py_cleanup != NULL) { GHashTableIter hiter; gpointer key; gpointer value; PyGIMarshalCleanupFunc key_cleanup_func = hash_cache->key_cache->from_py_cleanup; PyGIMarshalCleanupFunc value_cleanup_func = hash_cache->value_cache->from_py_cleanup; g_hash_table_iter_init (&hiter, hash_); while (g_hash_table_iter_next (&hiter, &key, &value)) { if (key != NULL && key_cleanup_func != NULL) key_cleanup_func (state, hash_cache->key_cache, key, TRUE); if (value != NULL && value_cleanup_func != NULL) value_cleanup_func (state, hash_cache->value_cache, value, TRUE); } } if (state->failed || arg_cache->transfer == GI_TRANSFER_NOTHING || arg_cache->transfer == GI_TRANSFER_CONTAINER) g_hash_table_destroy (hash_); } } void _pygi_marshal_cleanup_to_py_ghash (PyGIInvokeState *state, PyGIArgCache *arg_cache, gpointer data, gboolean was_processed) { if (data == NULL) return; /* assume hashtable has boxed key and value */ if (arg_cache->transfer == GI_TRANSFER_EVERYTHING) g_hash_table_destroy ( (GHashTable *)data); }