luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mw_comms.c, whitespace, indentation, cleanups

This commit is contained in:
rlar 2012-07-19 18:42:11 +02:00
parent 95978d3697
commit 3062e25184
1 changed files with 72 additions and 73 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

145
src/frontend/mw_coms.c
View File

@ -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);
com_scirc(wlist);
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;
}
} */
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);
com_scirc(wlist);
wl_free(wlist);
}
else
ft_curckt = NULL;
}