#include "ngspice/ngspice.h"
#include "$(module)defs.h"
#include "ngspice/sperror.h"
#include "ngspice/suffix.h"
int $(module)mDelete(GENmodel **inModel, IFuid modname, GENmodel *kill)
{
register $(module)model **model = ($(module)model**)inModel;
register $(module)model *modfast =($(module)model*)kill;
$(module)instance *here;
$(module)instance *prev = NULL;
$(module)model **oldmod;
oldmod = model;
for ( ; *model ; model = &((*model)->$(module)nextModel)) {
if ((*model)->$(module)modName == modname ||
(modfast && *model == modfast))
goto delgot;
oldmod = model;
}
return(E_NOMOD);
delgot:
*oldmod = (*model)->$(module)nextModel; /* cut deleted device out of list */
for (here = (*model)->$(module)instances; here; here = here->$(module)nextInstance)
{ if(prev) FREE(prev);
prev = here;
}
if(prev) FREE(prev);
FREE(*model);
return(OK);
}