/* Michael Widlok               2 Jun 1999 */
/* New commands for unloading circuits */

#include "ngspice/ngspice.h"
#include "ngspice/cpdefs.h"
#include "ngspice/ftedefs.h"
#include "ngspice/ftedev.h"
#include "ngspice/ftedebug.h"
#include "ngspice/dvec.h"

#include "circuits.h"
#include "mw_coms.h"
#include "variable.h"
#include "runcoms.h"
#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 plot *p;
    struct plot *paux;
    int auxCir = 1, i, auxPlot;

    char* namecircuit;
    char buf[80];

    NG_IGNORE(wl);

    if (!ft_curckt) {
        fprintf(cp_err, "Error: there is no circuit loaded.\n");
        return;
    }

    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;
    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)
        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 {

        /* 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 && 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;
            /* otherwise we run over the list of plots */
            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;
                }
            }
            p = p->pl_next;
        }
    }

    /* 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(copy(buf), NULL);
        com_scirc(wlist);
        wl_free(wlist);
    }
    else if (ft_circuits) {
        struct wordlist *wlist;
        sprintf(buf, "%d", auxCir-1);
        wlist = wl_cons(copy(buf), NULL);
        com_scirc(wlist);
        wl_free(wlist);
    }
    else
        ft_curckt = NULL;
}