/*! \todo Finish function description!!!
* \brief
* \par Function Description
*
* \return SCM_BOOL_T always.
*/
SCM g_rc_reset_source_library(void)
{
s_slib_free();
s_slib_init();
return SCM_BOOL_T;
}
void
gsymcheck_quit(void)
{
s_clib_free();
s_slib_free();
}
void
gschlas_quit(void)
{
s_clib_free();
s_slib_free();
}
void gnetlist_quit(void)
{
s_clib_free();
s_slib_free();
s_rename_destroy_all();
/* o_text_freeallfonts(); */
/* Free GSList *backend_params */
g_slist_free (backend_params);
g_slist_free (input_files);
}
/*! \brief gattrib_quit -- wrap up and quit fcn.
*
* \par
*
*------------------------------------------------------------------*/
gint gattrib_quit(gint return_code)
{
/* s_clib_cache_free(); */
s_clib_free();
s_slib_free();
/* s_rename_destroy_all(); */
#ifdef DEBUG
fflush(stderr);
fflush(stdout);
printf("In gattrib_quit, calling gtk_main_quit()\n");
#endif
gtk_main_quit();
exit(return_code);
}
/*! \brief Cleanup gSchem on exit.
* \par Function Description
* This function cleans up all memory objects allocated during the
* gSchem runtime.
*/
void gschem_quit(void)
{
GList *list;
gschem_atexit_struct *p;
/* Call all registered functions in order */
list = exit_functions;
while(list != NULL) {
p = (gschem_atexit_struct *) list->data;
p->func(p->arg);
g_free(p);
list = g_list_next(list);
}
g_list_free(exit_functions);
s_clib_free();
s_slib_free();
s_menu_free();
/* o_text_freeallfonts();*/
s_attrib_free();
s_papersizes_free();
#ifdef HAVE_LIBSTROKE
x_stroke_free ();
#endif /* HAVE_LIBSTROKE */
o_undo_cleanup();
/* s_stroke_free(); no longer needed */
i_vars_freenames();
i_vars_libgeda_freenames();
/* x_window_free_head(); can't do this since it causes a
* condition in which window_head->... is still being refered
* after this */
/* enable this to get more memory usage from glib */
/* You also have to enable something in glib I think */
/* g_mem_profile();*/
gtk_main_quit();
}