/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void s_toplevel_delete (TOPLEVEL *toplevel)
{
GList *iter;
if (toplevel->auto_save_timeout != 0) {
/* Assume this works */
g_source_remove (toplevel->auto_save_timeout);
}
g_free (toplevel->bitmap_directory);
g_free (toplevel->bus_ripper_symname);
/* delete all pages */
s_page_delete_list (toplevel);
/* Delete the page list */
g_object_unref(toplevel->pages);
/* Remove all change notification handlers */
for (iter = toplevel->change_notify_funcs;
iter != NULL; iter = g_list_next (iter)) {
g_free (iter->data);
}
g_list_free (toplevel->change_notify_funcs);
toplevel->weak_refs = s_weakref_notify (toplevel, toplevel->weak_refs);
g_free (toplevel);
}
/*! \todo Finish function documentation!!!
* \brief
* \par Function Description
*
*/
void
s_delete_object(TOPLEVEL *toplevel, OBJECT *o_current)
{
if (o_current != NULL) {
/* If currently attached to a page, remove it from the page */
if (o_current->page != NULL) {
s_page_remove (toplevel, o_current->page, o_current);
}
s_conn_remove_object_connections (toplevel, o_current);
if (o_current->attached_to != NULL) {
/* do the actual remove */
o_attrib_remove(toplevel, &o_current->attached_to->attribs, o_current);
}
/* printf("sdeleting line\n"); */
geda_line_free (o_current->line);
o_current->line = NULL;
geda_path_free (o_current->path);
o_current->path = NULL;
/* printf("sdeleting circle\n");*/
geda_circle_free (o_current->circle);
o_current->circle = NULL;
/* printf("sdeleting arc\n");*/
geda_arc_free (o_current->arc);
o_current->arc = NULL;
/* printf("sdeleting box\n");*/
geda_box_free (o_current->box);
o_current->box = NULL;
geda_picture_free (o_current->picture);
o_current->picture = NULL;
if (o_current->text) {
/*printf("sdeleting text->string\n");*/
g_free(o_current->text->string);
o_current->text->string = NULL;
g_free(o_current->text->disp_string);
/* printf("sdeleting text\n");*/
g_free(o_current->text);
}
o_current->text = NULL;
/* printf("sdeleting name\n");*/
g_free(o_current->name);
o_current->name = NULL;
/* printf("sdeleting complex_basename\n");*/
g_free(o_current->complex_basename);
o_current->complex_basename = NULL;
if (o_current->complex) {
if (o_current->complex->prim_objs) {
/* printf("sdeleting complex->primitive_objects\n");*/
geda_object_list_delete (toplevel, o_current->complex->prim_objs);
o_current->complex->prim_objs = NULL;
}
g_free(o_current->complex);
o_current->complex = NULL;
}
o_attrib_detach_all (toplevel, o_current);
o_current->weak_refs = s_weakref_notify (o_current, o_current->weak_refs);
g_free(o_current); /* assuming it is not null */
o_current=NULL; /* misc clean up */
}
}
/*! \brief delete a page and it's contents
* \par Function Description
* Deletes a single page <B>page</B> from <B>toplevel</B>'s list of pages.
*
* See #s_page_delete_list() to delete all pages of a <B>toplevel</B>
*
* If the current page of toplevel is given as parameter <B>page</B>,
* the function sets the field <B>page_current</B> of the TOPLEVEL
* struct to NULL.
*/
void s_page_delete (TOPLEVEL *toplevel, PAGE *page)
{
PAGE *tmp;
gchar *backup_filename;
gchar *real_filename;
/* We need to temporarily make the page being deleted current because
* various functions called below (some indirectly) assume they are
* deleting objects from the current page.
*
* These functions are known to include:
* s_delete_object ()
*/
/* save page_current and switch to page */
if (page == toplevel->page_current) {
tmp = NULL;
} else {
tmp = toplevel->page_current;
s_page_goto (toplevel, page);
}
/* Get the real filename and file permissions */
real_filename = follow_symlinks (page->page_filename, NULL);
if (real_filename == NULL) {
s_log_message (_("s_page_delete: Can't get the real filename of %s."),
page->page_filename);
}
else {
backup_filename = f_get_autosave_filename (real_filename);
/* Delete the backup file */
if ( (g_file_test (backup_filename, G_FILE_TEST_EXISTS)) &&
(!g_file_test(backup_filename, G_FILE_TEST_IS_DIR)) )
{
if (unlink(backup_filename) != 0) {
s_log_message(_("s_page_delete: Unable to delete backup file %s."),
backup_filename);
}
}
g_free (backup_filename);
}
g_free(real_filename);
/* Free the selection object */
g_object_unref( page->selection_list );
/* then delete objects of page */
s_page_delete_objects (toplevel, page);
/* Free the objects in the place list. */
s_delete_object_glist (toplevel, page->place_list);
page->place_list = NULL;
/* This removes all objects from the list of connectible objects
* of the given \a page. */
if (g_list_length (page->connectible_list) != 0) {
fprintf (stderr,
"OOPS! page->connectible_list had something in it when it was freed!\n");
fprintf (stderr, "Length: %d\n", g_list_length (page->connectible_list));
}
g_list_free (page->connectible_list);
page->connectible_list = NULL;
/* free current page undo structs */
s_undo_free_all (toplevel, page);
/* ouch, deal with parents going away and the children still around */
page->up = -2;
g_free (page->page_filename);
geda_list_remove( toplevel->pages, page );
s_weakref_notify (page, page->weak_refs);
g_free (page);
/* restore page_current */
if (tmp != NULL) {
s_page_goto (toplevel, tmp);
} else {
/* page was page_current */
s_toplevel_set_page_current (toplevel, NULL);
/* page_current must be updated by calling function */
}
}
