/*! \brief delete all items from the list store
*
* This function deletes all items in the list store and removes all the weak
* references to the objects.
*
* \param [in] state
*/
static void
clear_store (GschemFindTextState *state)
{
GtkTreeIter iter;
gboolean valid;
g_return_if_fail (state != NULL);
g_return_if_fail (state->store != NULL);
valid = gtk_tree_model_get_iter_first (GTK_TREE_MODEL (state->store), &iter);
while (valid) {
GValue value = G_VALUE_INIT;
gtk_tree_model_get_value (GTK_TREE_MODEL (state->store),
&iter,
COLUMN_OBJECT,
&value);
if (G_VALUE_HOLDS_POINTER (&value)) {
OBJECT *object = (OBJECT*) g_value_get_pointer (&value);
s_object_weak_unref (object, (NotifyFunc) object_weakref_cb, state);
}
g_value_unset (&value);
valid = gtk_tree_model_iter_next (GTK_TREE_MODEL (state->store), &iter);
}
gtk_list_store_clear (state->store);
}
/*! \brief Free a gEDA smob.
* \par Function Description
* Finalizes a gEDA smob for deletion, removing the weak reference.
*
* Used internally to Guile.
*/
static size_t
smob_free (SCM smob)
{
void *data;
/* If the weak reference has already been cleared, do nothing */
if (!EDASCM_SMOB_VALIDP(smob)) return 0;
data = (void *) SCM_SMOB_DATA (smob);
/* Otherwise, clear the weak reference */
switch (EDASCM_SMOB_TYPE (smob)) {
case GEDA_SMOB_TOPLEVEL:
s_toplevel_weak_unref ((TOPLEVEL *) data, smob_weakref_notify, smob);
break;
case GEDA_SMOB_PAGE:
s_page_weak_unref ((PAGE *) data, smob_weakref_notify, smob);
break;
case GEDA_SMOB_OBJECT:
/* See edascm_from_object() for an explanation of why OBJECT
* smobs store a TOPLEVEL in the second data word */
s_object_weak_unref ((OBJECT *) data, smob_weakref_notify, smob);
s_toplevel_weak_unref ((TOPLEVEL *) SCM_SMOB_DATA_2 (smob),
smob_weakref2_notify, smob);
break;
default:
/* This should REALLY definitely never be run */
g_critical ("%s: received bad smob flags.", __FUNCTION__);
}
/* If the smob is marked as garbage-collectable, destroy its
* contents.
*
* Because PAGEs and TOPLEVELs should never be garbage collected,
* emit critical warnings if the GC tries to free them.
*/
if (EDASCM_SMOB_GCP (smob)) {
switch (EDASCM_SMOB_TYPE (smob)) {
case GEDA_SMOB_TOPLEVEL:
g_critical ("%s: Blocked garbage-collection of TOPLEVEL %p",
__FUNCTION__, data);
break;
case GEDA_SMOB_PAGE:
g_critical ("%s: Blocked garbage-collection of PAGE %p",
__FUNCTION__, data);
break;
case GEDA_SMOB_OBJECT:
/* See edascm_from_object() for an explanation of why OBJECT
* smobs store a TOPLEVEL in the second data word */
s_delete_object ((TOPLEVEL *) SCM_SMOB_DATA_2 (smob), (OBJECT *) data);
break;
default:
/* This should REALLY definitely never be run */
g_critical ("%s: received bad smob flags.", __FUNCTION__);
}
}
return 0;
}
/*! \brief Free a gEDA smob.
* \par Function Description
* Finalizes a gEDA smob for deletion, removing the weak reference.
*
* Used internally to Guile.
*/
static size_t
smob_free (SCM smob)
{
void *data;
/* If the weak reference has already been cleared, do nothing */
if (!EDASCM_SMOB_VALIDP(smob)) return 0;
data = (void *) SCM_SMOB_DATA (smob);
/* If the smob is being finalized, it must not be in the cache! */
g_warn_if_fail (!smob_cache_contains (data));
/* Otherwise, clear the weak reference */
switch (EDASCM_SMOB_TYPE (smob)) {
case GEDA_SMOB_TOPLEVEL:
s_toplevel_weak_unref ((TOPLEVEL *) data, smob_weakref_notify,
unpack_as_pointer (smob));
break;
case GEDA_SMOB_PAGE:
s_page_weak_unref ((PAGE *) data, smob_weakref_notify,
unpack_as_pointer (smob));
break;
case GEDA_SMOB_OBJECT:
/* See edascm_from_object() for an explanation of why OBJECT
* smobs store a TOPLEVEL in the second data word */
s_object_weak_unref ((OBJECT *) data, smob_weakref2_notify,
unpack_as_pointer (smob));
break;
case GEDA_SMOB_CONFIG:
g_object_unref (G_OBJECT (data));
break;
case GEDA_SMOB_CLOSURE:
break;
default:
/* This should REALLY definitely never be run */
g_critical ("%s: received bad smob flags.", __FUNCTION__);
}
/* If the smob is marked as garbage-collectable, destroy its
* contents.
*
* Because PAGEs and TOPLEVELs should never be garbage collected,
* emit critical warnings if the GC tries to free them.
*/
if (EDASCM_SMOB_GCP (smob)) {
switch (EDASCM_SMOB_TYPE (smob)) {
case GEDA_SMOB_TOPLEVEL:
g_critical ("%s: Blocked garbage-collection of TOPLEVEL %p",
__FUNCTION__, data);
break;
case GEDA_SMOB_PAGE:
g_critical ("%s: Blocked garbage-collection of PAGE %p",
__FUNCTION__, data);
break;
case GEDA_SMOB_OBJECT:
/* See edascm_from_object() for an explanation of why OBJECT
* smobs store a TOPLEVEL in the second data word */
s_delete_object ((TOPLEVEL *) SCM_SMOB_DATA_2 (smob), (OBJECT *) data);
break;
case GEDA_SMOB_CONFIG:
/* These are reference counted, so the structure will have
* already been destroyed above if appropriate. */
break;
case GEDA_SMOB_CLOSURE:
break;
default:
/* This should REALLY definitely never be run */
g_critical ("%s: received bad smob flags.", __FUNCTION__);
}
}
return 0;
}
