|
|
|
@ -15,117 +15,116 @@ |
|
|
|
#include "spiceif.h" |
|
|
|
|
|
|
|
/* Clears ckt and removes current circ. form database */ |
|
|
|
|
|
|
|
|
|
|
|
void |
|
|
|
com_removecirc(wordlist *wl) |
|
|
|
{ |
|
|
|
struct variable *v, *next; |
|
|
|
struct circ *ct; |
|
|
|
struct circ *caux=NULL; |
|
|
|
struct circ *caux = NULL; |
|
|
|
struct plot *p; |
|
|
|
struct plot *paux; |
|
|
|
int auxCir=1,i,auxPlot; |
|
|
|
int auxCir = 1, i, auxPlot; |
|
|
|
|
|
|
|
char* namecircuit; |
|
|
|
char buf[80]; |
|
|
|
|
|
|
|
NG_IGNORE(wl); |
|
|
|
|
|
|
|
if (ft_curckt == NULL) { |
|
|
|
if (!ft_curckt) { |
|
|
|
fprintf(cp_err, "Error: there is no circuit loaded.\n"); |
|
|
|
return; |
|
|
|
} |
|
|
|
|
|
|
|
ct = ft_curckt; |
|
|
|
|
|
|
|
ct = ft_curckt; |
|
|
|
|
|
|
|
if_cktfree(ct->ci_ckt, ct->ci_symtab); |
|
|
|
|
|
|
|
for (v = ct->ci_vars; v; v = next) { |
|
|
|
next = v->va_next; |
|
|
|
tfree(v); |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
/* PN FTESTATS*/ |
|
|
|
tfree(ct->FTEstats); |
|
|
|
|
|
|
|
ct->ci_vars = NULL; |
|
|
|
caux=ft_circuits; |
|
|
|
caux = ft_circuits; |
|
|
|
namecircuit = strdup(ft_curckt->ci_name); |
|
|
|
/* The circuit being removed is the first loaded and you have more circuits */ |
|
|
|
if(ft_curckt==ft_circuits&&ft_circuits->ci_next!=NULL) |
|
|
|
ft_circuits=ft_circuits->ci_next; |
|
|
|
|
|
|
|
/* The circuit being removed is the first loaded and you have more circuits */ |
|
|
|
if (ft_curckt == ft_circuits && ft_circuits->ci_next) |
|
|
|
ft_circuits = ft_circuits->ci_next; |
|
|
|
|
|
|
|
/* The circuit being removed id the first loaded and there are no more circuits */ |
|
|
|
else if(ft_circuits->ci_next==NULL) |
|
|
|
ft_circuits=NULL; |
|
|
|
|
|
|
|
else if (ft_circuits->ci_next == NULL) |
|
|
|
ft_circuits = NULL; |
|
|
|
|
|
|
|
else { |
|
|
|
|
|
|
|
|
|
|
|
/* Run over the circuit list to find how many of them are |
|
|
|
* in front of the one to be removed |
|
|
|
*/ |
|
|
|
for (; ft_curckt != caux&&caux; caux = caux->ci_next) |
|
|
|
auxCir++; |
|
|
|
|
|
|
|
caux=ft_circuits; |
|
|
|
/* Remove the circuit and move pointer to the next one */ |
|
|
|
for(i=1;i<auxCir-1;i++) |
|
|
|
caux=caux->ci_next; |
|
|
|
caux->ci_next=caux->ci_next->ci_next; |
|
|
|
/* ft_curckt=ft_circuits; */ |
|
|
|
|
|
|
|
|
|
|
|
/* Run over the circuit list to find how many of them are |
|
|
|
* in front of the one to be removed |
|
|
|
*/ |
|
|
|
for (; ft_curckt != caux && caux; caux = caux->ci_next) |
|
|
|
auxCir++; |
|
|
|
|
|
|
|
caux = ft_circuits; |
|
|
|
|
|
|
|
/* Remove the circuit and move pointer to the next one */ |
|
|
|
for (i = 1; i < auxCir-1; i++) |
|
|
|
caux = caux->ci_next; |
|
|
|
|
|
|
|
caux->ci_next = caux->ci_next->ci_next; |
|
|
|
/* ft_curckt = ft_circuits; */ |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* If the plot is the first one and there are no other plots */ |
|
|
|
if(plot_list->pl_next==NULL&&strcmp(plot_list->pl_title,namecircuit)==0) |
|
|
|
plot_list=NULL; |
|
|
|
|
|
|
|
|
|
|
|
else if(plot_list&&plot_list->pl_next!=NULL){ |
|
|
|
if (!plot_list->pl_next && strcmp(plot_list->pl_title, namecircuit) == 0) |
|
|
|
plot_list = NULL; |
|
|
|
|
|
|
|
else if (plot_list && plot_list->pl_next) { |
|
|
|
p = plot_list; |
|
|
|
while(p){ |
|
|
|
auxPlot=1; |
|
|
|
/* If the plot is in the first position */ |
|
|
|
if(plot_list->pl_next&&strcmp(plot_list->pl_title,namecircuit)==0) |
|
|
|
plot_list=plot_list->pl_next; |
|
|
|
while (p) { |
|
|
|
auxPlot = 1; |
|
|
|
/* If the plot is in the first position */ |
|
|
|
if (plot_list->pl_next && strcmp(plot_list->pl_title, namecircuit) == 0) |
|
|
|
plot_list = plot_list->pl_next; |
|
|
|
/* otherwise we run over the list of plots */ |
|
|
|
else { |
|
|
|
for (; strcmp(p->pl_title,namecircuit)!=0&&p->pl_next!=NULL; p = p->pl_next) |
|
|
|
auxPlot++; |
|
|
|
if(strcmp(p->pl_title,namecircuit)==0){ |
|
|
|
else { |
|
|
|
for (; strcmp(p->pl_title, namecircuit) != 0 && p->pl_next; p = p->pl_next) |
|
|
|
auxPlot++; |
|
|
|
if (strcmp(p->pl_title, namecircuit) == 0) { |
|
|
|
paux = plot_list; |
|
|
|
for(i=1;i<auxPlot-1;i++) |
|
|
|
paux=paux->pl_next; |
|
|
|
paux->pl_next=paux->pl_next->pl_next; |
|
|
|
for (i = 1; i < auxPlot-1; i++) |
|
|
|
paux = paux->pl_next; |
|
|
|
paux->pl_next = paux->pl_next->pl_next; |
|
|
|
} |
|
|
|
} |
|
|
|
p = p->pl_next; |
|
|
|
} |
|
|
|
} |
|
|
|
p=p->pl_next; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
/*if (ft_curckt) { |
|
|
|
|
|
|
|
|
|
|
|
/* if (ft_curckt) { |
|
|
|
ft_curckt->ci_devices = cp_kwswitch(CT_DEVNAMES, ft_circuits->ci_devices); |
|
|
|
ft_curckt->ci_nodes = cp_kwswitch(CT_NODENAMES, ft_circuits->ci_nodes); |
|
|
|
}*/ |
|
|
|
if(ft_circuits&&caux->ci_next){ |
|
|
|
struct wordlist *wlist; |
|
|
|
sprintf(buf,"%d",auxCir); |
|
|
|
wlist = wl_cons(buf, NULL); |
|
|
|
} */ |
|
|
|
|
|
|
|
if (ft_circuits && caux->ci_next) { |
|
|
|
struct wordlist *wlist; |
|
|
|
sprintf(buf, "%d", auxCir); |
|
|
|
wlist = wl_cons(buf, NULL); |
|
|
|
com_scirc(wlist); |
|
|
|
wl_free(wlist); |
|
|
|
} |
|
|
|
else if(ft_circuits){ |
|
|
|
struct wordlist *wlist; |
|
|
|
sprintf(buf,"%d",(auxCir-1)); |
|
|
|
wlist = wl_cons(buf, NULL); |
|
|
|
wl_free(wlist); |
|
|
|
} |
|
|
|
else if (ft_circuits) { |
|
|
|
struct wordlist *wlist; |
|
|
|
sprintf(buf, "%d", auxCir-1); |
|
|
|
wlist = wl_cons(buf, NULL); |
|
|
|
com_scirc(wlist); |
|
|
|
wl_free(wlist); |
|
|
|
|
|
|
|
} |
|
|
|
else |
|
|
|
ft_curckt=NULL; |
|
|
|
return; |
|
|
|
wl_free(wlist); |
|
|
|
} |
|
|
|
else |
|
|
|
ft_curckt = NULL; |
|
|
|
} |
|
|
|
|