com_unset.c

来自「ngspice又一个电子CAD仿真软件代码.功能更全」· C语言 代码 · 共 35 行

/*************
* com_unset.c
* $Id: com_unset.c,v 1.3 2005/05/30 20:28:30 sjborley Exp $
************/

#include <config.h>
#include <ngspice.h>

#include <macros.h>
#include <bool.h>

#include "com_unset.h"
#include "variable.h"

void
com_unset(wordlist *wl)
{
    char *name;
    struct variable *var, *nv;

    if (eq(wl->wl_word, "*")) {
        for (var = variables; var; var = nv) {
            nv = var->va_next;
            cp_remvar(var->va_name);
        }
        wl = wl->wl_next;
    }
    while (wl != NULL) {
        name = wl->wl_word;
        cp_remvar(name);
        wl = wl->wl_next;
    }
    return;
}