misccoms.c: add more deleting function in 'quit' for shared ngspice
This commit is contained in:
parent
9520044a0f
commit
28dcedbfa6
|
|
@ -18,6 +18,7 @@ Author: 1985 Wayne A. Christopher, U. C. Berkeley CAD Group
|
||||||
#include "../misc/ivars.h"
|
#include "../misc/ivars.h"
|
||||||
#include "com_alias.h"
|
#include "com_alias.h"
|
||||||
#include "define.h"
|
#include "define.h"
|
||||||
|
#include "runcoms2.h"
|
||||||
|
|
||||||
#ifdef HAVE_GNUREADLINE
|
#ifdef HAVE_GNUREADLINE
|
||||||
#include <readline/readline.h>
|
#include <readline/readline.h>
|
||||||
|
|
@ -57,12 +58,12 @@ com_quit(wordlist *wl)
|
||||||
|
|
||||||
/* start to clean up the mess */
|
/* start to clean up the mess */
|
||||||
|
|
||||||
#if 0
|
#ifdef SHARED_MODULE
|
||||||
{
|
{
|
||||||
wordlist all = { "all", NULL, NULL };
|
wordlist all = { "all", NULL, NULL };
|
||||||
wordlist star = { "*", NULL, NULL };
|
wordlist star = { "*", NULL, NULL };
|
||||||
|
|
||||||
com_remcirc(NULL);
|
// com_remcirc(NULL);
|
||||||
com_destroy(&all);
|
com_destroy(&all);
|
||||||
com_unalias(&star);
|
com_unalias(&star);
|
||||||
com_undefine(&star);
|
com_undefine(&star);
|
||||||
|
|
@ -86,18 +87,26 @@ com_quit(wordlist *wl)
|
||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
#ifdef SHARED_MODULE
|
||||||
|
/* Destroy CKT when quit. */
|
||||||
|
if (!ft_nutmeg) {
|
||||||
|
while(ft_curckt)
|
||||||
|
com_remcirc(NULL);
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
DevSwitch(NULL);
|
DevSwitch(NULL);
|
||||||
DevSwitch(NULL);
|
DevSwitch(NULL);
|
||||||
|
|
||||||
/* then go away */
|
/* then go away */
|
||||||
|
|
||||||
#if 0
|
#ifdef SHARED_MODULE
|
||||||
cp_destroy_keywords();
|
cp_destroy_keywords();
|
||||||
destroy_ivars();
|
destroy_ivars();
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
byemesg();
|
byemesg();
|
||||||
#if 0
|
#ifdef SHARED_MODULE
|
||||||
destroy_const_plot();
|
destroy_const_plot();
|
||||||
spice_destroy_devices();
|
spice_destroy_devices();
|
||||||
#endif
|
#endif
|
||||||
|
|
@ -146,7 +155,7 @@ com_bug(wordlist *wl)
|
||||||
|
|
||||||
fprintf(cp_out,
|
fprintf(cp_out,
|
||||||
"Please use the ngspice bug tracker at:\n"
|
"Please use the ngspice bug tracker at:\n"
|
||||||
"http://sourceforge.net/tracker/?group_id=38962&atid=423915\n");
|
"http://sourceforge.net/p/ngspice/bugs/\n");
|
||||||
}
|
}
|
||||||
|
|
||||||
#endif
|
#endif
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue