DEVdelete(), change API

instead of searching and then deleting a device-instance,
  just delete a given instance.
The search shall be done somewhere else.

right now nowhere,
  because DEVdelete() currently isn't used anyway.
This commit is contained in:
rlar 2018-01-13 20:31:41 +01:00
parent d7abe962e0
commit 174b424d13
119 changed files with 240 additions and 953 deletions

View File

@ -73,7 +73,7 @@ typedef struct SPICEdev {
/* subroutine to destroy all models and instances */
int (*DEVmodDelete)(GENmodel**,IFuid,GENmodel*);
/* subroutine to delete a model and all instances */
int (*DEVdelete)(GENmodel*,IFuid,GENinstance**);
int (*DEVdelete)(GENinstance*);
/* subroutine to delete an instance */
int (*DEVsetic)(GENmodel*,CKTcircuit*);
/* routine to pick up device init conds from rhs */

View File

@ -26,7 +26,7 @@ struct coreInfo_t {
int ((*dllitf_MIFmAsk)(CKTcircuit *, GENmodel *, int, IFvalue *));
int ((*dllitf_MIFtrunc)(GENmodel *, CKTcircuit *, double *));
int ((*dllitf_MIFconvTest)(GENmodel *, CKTcircuit *));
int ((*dllitf_MIFdelete)(GENmodel *, IFuid, GENinstance **));
int ((*dllitf_MIFdelete)(GENinstance *));
int ((*dllitf_MIFmDelete)(GENmodel **, IFuid, GENmodel *));
void ((*dllitf_MIFdestroy)(GENmodel **));
char * ((*dllitf_MIFgettok)(char **));

View File

@ -125,9 +125,7 @@ extern int MIFconvTest(
);
extern int MIFdelete(
GENmodel *inModel,
IFuid name,
GENinstance **inst
GENinstance *inst
);
extern int MIFmDelete(

View File

@ -46,22 +46,10 @@
#include "ngspice/suffix.h"
int
$(module)delete(GENmodel *model, IFuid name, GENinstance **kill)
$(module)delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}
</admst:template>

View File

@ -44,7 +44,7 @@ extern int $(module)ask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int $(module)mAsk(CKTcircuit*,GENmodel *,int, IFvalue*);
extern int $(module)acLoad(GENmodel *,CKTcircuit*);
extern int $(module)convTest(GENmodel *,CKTcircuit*);
extern int $(module)delete(GENmodel*,IFuid,GENinstance**);
extern int $(module)delete(GENinstance*);
extern int $(module)getic(GENmodel*,CKTcircuit*);
extern int $(module)mDelete(GENmodel**,IFuid,GENmodel*);
extern int $(module)noise(int,int,GENmodel*,CKTcircuit*,Ndata*,double*);

View File

@ -10,20 +10,8 @@ Author: 1987 Kanwar Jit Singh
int
ASRCdelete(GENmodel *model, IFuid name, GENinstance **kill)
ASRCdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -5,7 +5,7 @@ Author: 1985 Thomas L. Quarles
extern int ASRCask(CKTcircuit *, GENinstance *, int, IFvalue *, IFvalue*);
extern int ASRCconvTest(GENmodel *, CKTcircuit *);
extern int ASRCdelete(GENmodel *, IFuid, GENinstance **);
extern int ASRCdelete(GENinstance *);
extern void ASRCdestroy(GENmodel **);
extern int ASRCfindBr(CKTcircuit *, GENmodel *, IFuid);
extern int ASRCload(GENmodel *, CKTcircuit *);

View File

@ -15,20 +15,8 @@ Author: 1985 Thomas L. Quarles
int
BJTdelete(GENmodel *model, IFuid name, GENinstance **kill)
BJTdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -10,7 +10,7 @@ Modified: 2000 AlansFixes
extern int BJTacLoad(GENmodel *,CKTcircuit*);
extern int BJTask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int BJTconvTest(GENmodel*,CKTcircuit*);
extern int BJTdelete(GENmodel*,IFuid,GENinstance**);
extern int BJTdelete(GENinstance*);
extern void BJTdestroy(GENmodel**);
extern int BJTgetic(GENmodel*,CKTcircuit*);
extern int BJTload(GENmodel*,CKTcircuit*);

View File

@ -11,20 +11,8 @@ Author: 1985 Hong J. Park, Thomas L. Quarles
int
B1delete(GENmodel *model, IFuid name, GENinstance **kill)
B1delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ Modified: 2000 AlansFixes
extern int B1acLoad(GENmodel *,CKTcircuit*);
extern int B1ask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int B1convTest(GENmodel *,CKTcircuit*);
extern int B1delete(GENmodel*,IFuid,GENinstance**);
extern int B1delete(GENinstance*);
extern void B1destroy(GENmodel**);
extern int B1getic(GENmodel*,CKTcircuit*);
extern int B1load(GENmodel*,CKTcircuit*);

View File

@ -11,20 +11,8 @@ Author: 1985 Hong J. Park, Thomas L. Quarles
int
B2delete(GENmodel *model, IFuid name, GENinstance **kill)
B2delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -6,7 +6,7 @@ Author: 1988 Min-Chie Jeng, Hong June Park, Thomas L. Quarles
extern int B2acLoad(GENmodel *,CKTcircuit*);
extern int B2ask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int B2convTest(GENmodel *,CKTcircuit*);
extern int B2delete(GENmodel*,IFuid,GENinstance**);
extern int B2delete(GENinstance*);
extern void B2destroy(GENmodel**);
extern int B2getic(GENmodel*,CKTcircuit*);
extern int B2load(GENmodel*,CKTcircuit*);

View File

@ -17,20 +17,8 @@
int
BSIM3delete(GENmodel *model, IFuid name, GENinstance **kill)
BSIM3delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ File: bsim3ext.h
extern int BSIM3acLoad(GENmodel *,CKTcircuit*);
extern int BSIM3ask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int BSIM3convTest(GENmodel *,CKTcircuit*);
extern int BSIM3delete(GENmodel*,IFuid,GENinstance**);
extern int BSIM3delete(GENinstance*);
extern void BSIM3destroy(GENmodel**);
extern int BSIM3getic(GENmodel*,CKTcircuit*);
extern int BSIM3load(GENmodel*,CKTcircuit*);

View File

@ -18,20 +18,8 @@ Modified by Paolo Nenzi 2002
int
B3SOIDDdelete(GENmodel *model, IFuid name, GENinstance **kill)
B3SOIDDdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ Modifed by Paolo Nenzi 2002
extern int B3SOIDDacLoad(GENmodel *,CKTcircuit*);
extern int B3SOIDDask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int B3SOIDDconvTest(GENmodel *,CKTcircuit*);
extern int B3SOIDDdelete(GENmodel*,IFuid,GENinstance**);
extern int B3SOIDDdelete(GENinstance*);
extern void B3SOIDDdestroy(GENmodel**);
extern int B3SOIDDgetic(GENmodel*,CKTcircuit*);
extern int B3SOIDDload(GENmodel*,CKTcircuit*);

View File

@ -18,20 +18,8 @@ File: b3soifddel.c 98/5/01
int
B3SOIFDdelete(GENmodel *model, IFuid name, GENinstance **kill)
B3SOIFDdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ File: b3soifdext.h
extern int B3SOIFDacLoad(GENmodel *,CKTcircuit*);
extern int B3SOIFDask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int B3SOIFDconvTest(GENmodel *,CKTcircuit*);
extern int B3SOIFDdelete(GENmodel*,IFuid,GENinstance**);
extern int B3SOIFDdelete(GENinstance*);
extern void B3SOIFDdestroy(GENmodel**);
extern int B3SOIFDgetic(GENmodel*,CKTcircuit*);
extern int B3SOIFDload(GENmodel*,CKTcircuit*);

View File

@ -18,20 +18,8 @@ Modified by Paolo Nenzi 2002
int
B3SOIPDdelete(GENmodel *model, IFuid name, GENinstance **kill)
B3SOIPDdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ Modified by Paolo Nenzi 2002
extern int B3SOIPDacLoad(GENmodel *,CKTcircuit*);
extern int B3SOIPDask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int B3SOIPDconvTest(GENmodel *,CKTcircuit*);
extern int B3SOIPDdelete(GENmodel*,IFuid,GENinstance**);
extern int B3SOIPDdelete(GENinstance*);
extern void B3SOIPDdestroy(GENmodel**);
extern int B3SOIPDgetic(GENmodel*,CKTcircuit*);
extern int B3SOIPDload(GENmodel*,CKTcircuit*);

View File

@ -12,20 +12,8 @@ File: b3v0del.c
int
BSIM3v0delete(GENmodel *model, IFuid name, GENinstance **kill)
BSIM3v0delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -7,7 +7,7 @@ File: bsim3v0ext.h
extern int BSIM3v0acLoad(GENmodel *,CKTcircuit*);
extern int BSIM3v0ask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int BSIM3v0convTest(GENmodel *,CKTcircuit*);
extern int BSIM3v0delete(GENmodel*,IFuid,GENinstance**);
extern int BSIM3v0delete(GENinstance*);
extern void BSIM3v0destroy(GENmodel**);
extern int BSIM3v0getic(GENmodel*,CKTcircuit*);
extern int BSIM3v0load(GENmodel*,CKTcircuit*);

View File

@ -18,20 +18,8 @@
int
BSIM3v1delete(GENmodel *model, IFuid name, GENinstance **kill)
BSIM3v1delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ File: bsim3v1ext.h
extern int BSIM3v1acLoad(GENmodel *, CKTcircuit *);
extern int BSIM3v1ask(CKTcircuit *, GENinstance *, int, IFvalue *, IFvalue *);
extern int BSIM3v1convTest(GENmodel *, CKTcircuit *);
extern int BSIM3v1delete(GENmodel *, IFuid, GENinstance **);
extern int BSIM3v1delete(GENinstance *);
extern void BSIM3v1destroy(GENmodel **);
extern int BSIM3v1getic(GENmodel *, CKTcircuit *);
extern int BSIM3v1load(GENmodel *, CKTcircuit *);

View File

@ -18,20 +18,8 @@
int
BSIM3v32delete(GENmodel *model, IFuid name, GENinstance **kill)
BSIM3v32delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -9,7 +9,7 @@ File: bsim3ext.h
extern int BSIM3v32acLoad(GENmodel *,CKTcircuit*);
extern int BSIM3v32ask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int BSIM3v32convTest(GENmodel *,CKTcircuit*);
extern int BSIM3v32delete(GENmodel*,IFuid,GENinstance**);
extern int BSIM3v32delete(GENinstance*);
extern void BSIM3v32destroy(GENmodel**);
extern int BSIM3v32getic(GENmodel*,CKTcircuit*);
extern int BSIM3v32load(GENmodel*,CKTcircuit*);

View File

@ -66,20 +66,8 @@
int
BSIM4delete(GENmodel *model, IFuid name, GENinstance **kill)
BSIM4delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -61,7 +61,7 @@
extern int BSIM4acLoad(GENmodel *,CKTcircuit*);
extern int BSIM4ask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int BSIM4convTest(GENmodel *,CKTcircuit*);
extern int BSIM4delete(GENmodel*,IFuid,GENinstance**);
extern int BSIM4delete(GENinstance*);
extern void BSIM4destroy(GENmodel**);
extern int BSIM4getic(GENmodel*,CKTcircuit*);
extern int BSIM4load(GENmodel*,CKTcircuit*);

View File

@ -16,20 +16,8 @@
int
BSIM4v5delete(GENmodel *model, IFuid name, GENinstance **kill)
BSIM4v5delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ File: bsim4v5ext.h
extern int BSIM4v5acLoad(GENmodel *,CKTcircuit*);
extern int BSIM4v5ask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int BSIM4v5convTest(GENmodel *,CKTcircuit*);
extern int BSIM4v5delete(GENmodel*,IFuid,GENinstance**);
extern int BSIM4v5delete(GENinstance*);
extern void BSIM4v5destroy(GENmodel**);
extern int BSIM4v5getic(GENmodel*,CKTcircuit*);
extern int BSIM4v5load(GENmodel*,CKTcircuit*);

View File

@ -18,20 +18,8 @@
int
BSIM4v6delete(GENmodel *model, IFuid name, GENinstance **kill)
BSIM4v6delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ File: bsim4v6ext.h
extern int BSIM4v6acLoad(GENmodel *,CKTcircuit*);
extern int BSIM4v6ask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int BSIM4v6convTest(GENmodel *,CKTcircuit*);
extern int BSIM4v6delete(GENmodel*,IFuid,GENinstance**);
extern int BSIM4v6delete(GENinstance*);
extern void BSIM4v6destroy(GENmodel**);
extern int BSIM4v6getic(GENmodel*,CKTcircuit*);
extern int BSIM4v6load(GENmodel*,CKTcircuit*);

View File

@ -18,20 +18,8 @@
int
BSIM4v7delete(GENmodel *model, IFuid name, GENinstance **kill)
BSIM4v7delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ File: bsim4v7ext.h
extern int BSIM4v7acLoad(GENmodel *,CKTcircuit*);
extern int BSIM4v7ask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int BSIM4v7convTest(GENmodel *,CKTcircuit*);
extern int BSIM4v7delete(GENmodel*,IFuid,GENinstance**);
extern int BSIM4v7delete(GENinstance*);
extern void BSIM4v7destroy(GENmodel**);
extern int BSIM4v7getic(GENmodel*,CKTcircuit*);
extern int BSIM4v7load(GENmodel*,CKTcircuit*);

View File

@ -21,20 +21,8 @@
int
B4SOIdelete(GENmodel *model, IFuid name, GENinstance **kill)
B4SOIdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -10,7 +10,7 @@ File: b4soiext.h
extern int B4SOIacLoad(GENmodel *,CKTcircuit*);
extern int B4SOIask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int B4SOIconvTest(GENmodel *,CKTcircuit*);
extern int B4SOIdelete(GENmodel*,IFuid,GENinstance**);
extern int B4SOIdelete(GENinstance*);
extern void B4SOIdestroy(GENmodel**);
extern int B4SOIgetic(GENmodel*,CKTcircuit*);
extern int B4SOIload(GENmodel*,CKTcircuit*);

View File

@ -11,20 +11,8 @@ Modified: September 2003 Paolo Nenzi
int
CAPdelete(GENmodel *model, IFuid name, GENinstance **kill)
CAPdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -5,7 +5,7 @@ Author: 1985 Thomas L. Quarles
extern int CAPacLoad(GENmodel*,CKTcircuit*);
extern int CAPask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int CAPdelete(GENmodel*,IFuid,GENinstance**);
extern int CAPdelete(GENinstance*);
extern void CAPdestroy(GENmodel**);
extern int CAPgetic(GENmodel*,CKTcircuit*);
extern int CAPload(GENmodel*,CKTcircuit*);

View File

@ -10,20 +10,8 @@ Author: 1985 Thomas L. Quarles
int
CCCSdelete(GENmodel *model, IFuid name, GENinstance **kill)
CCCSdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -5,7 +5,7 @@ Author: 1985 Thomas L. Quarles
extern int CCCSask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int CCCSdelete(GENmodel*,IFuid,GENinstance**);
extern int CCCSdelete(GENinstance*);
extern void CCCSdestroy(GENmodel**);
extern int CCCSload(GENmodel*,CKTcircuit*);
extern int CCCSmDelete(GENmodel**,IFuid,GENmodel*);

View File

@ -10,20 +10,8 @@ Author: 1985 Thomas L. Quarles
int
CCVSdelete(GENmodel *model, IFuid name, GENinstance **kill)
CCVSdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -4,7 +4,7 @@ Author: 1985 Thomas L. Quarles
**********/
extern int CCVSask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int CCVSdelete(GENmodel*,IFuid,GENinstance**);
extern int CCVSdelete(GENinstance*);
extern void CCVSdestroy(GENmodel**);
extern int CCVSfindBr(CKTcircuit*,GENmodel*,IFuid);
extern int CCVSload(GENmodel*,CKTcircuit*);

View File

@ -11,20 +11,8 @@ Author: 1992 Charles Hough
int
CPLdelete(GENmodel *model, IFuid name, GENinstance **kill)
CPLdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -5,7 +5,7 @@ reserved.
/* extern int CPLaccept(CKTcircuit*, GENmodel*); */
extern int CPLask(CKTcircuit*, GENinstance*, int, IFvalue*, IFvalue*);
extern int CPLdelete(GENmodel*, IFuid,GENinstance**);
extern int CPLdelete(GENinstance*);
extern void CPLdestroy(GENmodel**);
extern int CPLload(GENmodel*, CKTcircuit*);
extern int CPLmAsk(CKTcircuit*, GENmodel*, int, IFvalue*);

View File

@ -10,20 +10,8 @@ Author: 1985 Gordon Jacobs
int
CSWdelete(GENmodel *model, IFuid name, GENinstance **kill)
CSWdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -6,7 +6,7 @@ Modified: 2000 AlansFixes
extern int CSWask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int CSWacLoad(GENmodel*,CKTcircuit*);
extern int CSWdelete(GENmodel*,IFuid,GENinstance**);
extern int CSWdelete(GENinstance*);
extern void CSWdestroy(GENmodel**);
extern int CSWload(GENmodel*,CKTcircuit*);
extern int CSWmAsk(CKTcircuit*,GENmodel*,int,IFvalue*);

View File

@ -10,20 +10,8 @@ Author: 1985 Thomas L. Quarles
int
DIOdelete(GENmodel *model, IFuid name, GENinstance **kill)
DIOdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -7,7 +7,7 @@ Modified: 2000 AlansFixes
extern int DIOacLoad(GENmodel*,CKTcircuit*);
extern int DIOask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int DIOconvTest(GENmodel *,CKTcircuit*);
extern int DIOdelete(GENmodel*,IFuid,GENinstance**);
extern int DIOdelete(GENinstance*);
extern void DIOdestroy(GENmodel**);
extern int DIOgetic(GENmodel*,CKTcircuit*);
extern int DIOload(GENmodel*,CKTcircuit*);

View File

@ -14,20 +14,8 @@ Author: 1985 S. Hwang
int
HFETAdelete(GENmodel *model, IFuid name, GENinstance **kill)
HFETAdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -5,7 +5,7 @@ Modified: Paolo Nenzi
extern int HFETAacLoad(GENmodel*,CKTcircuit*);
extern int HFETAask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int HFETAdelete(GENmodel*,IFuid,GENinstance**);
extern int HFETAdelete(GENinstance*);
extern void HFETAdestroy(GENmodel**);
extern int HFETAgetic(GENmodel*,CKTcircuit*);
extern int HFETAload(GENmodel*,CKTcircuit*);

View File

@ -14,20 +14,8 @@ Author: 1985 S. Hwang
int
HFET2delete(GENmodel *model, IFuid name, GENinstance **kill)
HFET2delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -5,7 +5,7 @@ Author: Trond Ytterdal
extern int HFET2acLoad(GENmodel*,CKTcircuit*);
extern int HFET2ask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int HFET2delete(GENmodel*,IFuid,GENinstance**);
extern int HFET2delete(GENinstance*);
extern void HFET2destroy(GENmodel**);
extern int HFET2getic(GENmodel*,CKTcircuit*);
extern int HFET2load(GENmodel*,CKTcircuit*);

View File

@ -62,20 +62,8 @@ to others."
int
HSM2delete(GENmodel *model, IFuid name, GENinstance **kill)
HSM2delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -18,7 +18,7 @@
extern int HSM2acLoad(GENmodel *,CKTcircuit*);
extern int HSM2ask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int HSM2convTest(GENmodel *,CKTcircuit*);
extern int HSM2delete(GENmodel*,IFuid,GENinstance**);
extern int HSM2delete(GENinstance*);
extern void HSM2destroy(GENmodel**);
extern int HSM2getic(GENmodel*,CKTcircuit*);
extern int HSM2load(GENmodel*,CKTcircuit*);

View File

@ -23,20 +23,8 @@
int
HSMHVdelete(GENmodel *model, IFuid name, GENinstance **kill)
HSMHVdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -18,7 +18,7 @@
extern int HSMHVacLoad(GENmodel *,CKTcircuit*);
extern int HSMHVask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int HSMHVconvTest(GENmodel *,CKTcircuit*);
extern int HSMHVdelete(GENmodel*,IFuid,GENinstance**);
extern int HSMHVdelete(GENinstance*);
extern void HSMHVdestroy(GENmodel**);
extern int HSMHVgetic(GENmodel*,CKTcircuit*);
extern int HSMHVload(GENmodel*,CKTcircuit*);

View File

@ -65,20 +65,8 @@ June 2008 (revised October 2011)
int
HSMHV2delete(GENmodel *model, IFuid name, GENinstance **kill)
HSMHV2delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -18,7 +18,7 @@
extern int HSMHV2acLoad(GENmodel *,CKTcircuit*);
extern int HSMHV2ask(CKTcircuit *,GENinstance*,int,IFvalue*,IFvalue*);
extern int HSMHV2convTest(GENmodel *,CKTcircuit*);
extern int HSMHV2delete(GENmodel*,IFuid,GENinstance**);
extern int HSMHV2delete(GENinstance*);
extern void HSMHV2destroy(GENmodel**);
extern int HSMHV2getic(GENmodel*,CKTcircuit*);
extern int HSMHV2load(GENmodel*,CKTcircuit*);

View File

@ -10,20 +10,8 @@ Author: 1985 Thomas L. Quarles
int
INDdelete(GENmodel *model, IFuid name, GENinstance **kill)
INDdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ Author: 1985 Thomas L. Quarles
extern int INDacLoad(GENmodel*,CKTcircuit*);
extern int INDask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int INDmAsk(CKTcircuit*, GENmodel*, int, IFvalue*);
extern int INDdelete(GENmodel*,IFuid,GENinstance**);
extern int INDdelete(GENinstance*);
extern void INDdestroy(GENmodel**);
extern int INDload(GENmodel*,CKTcircuit*);
extern int INDmDelete(GENmodel**,IFuid,GENmodel*);
@ -27,7 +27,7 @@ extern int INDtrunc(GENmodel*,CKTcircuit*,double*);
extern int MUTacLoad(GENmodel*,CKTcircuit*);
extern int MUTask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int MUTdelete(GENmodel*,IFuid,GENinstance**);
extern int MUTdelete(GENinstance*);
extern void MUTdestroy(GENmodel**);
extern int MUTmDelete(GENmodel**,IFuid,GENmodel*);
extern int MUTparam(int,IFvalue*,GENinstance*,IFvalue*);

View File

@ -11,21 +11,9 @@ Author: 1985 Thomas L. Quarles
#ifdef MUTUAL
int
MUTdelete(GENmodel *model, IFuid name, GENinstance **kill)
MUTdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}
#endif /*MUTUAL*/

View File

@ -10,20 +10,8 @@ Author: 1985 Thomas L. Quarles
int
ISRCdelete(GENmodel *model, IFuid name, GENinstance **kill)
ISRCdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -6,7 +6,7 @@ Author: 1985 Thomas L. Quarles
extern int ISRCaccept(CKTcircuit*,GENmodel*);
extern int ISRCacLoad(GENmodel*,CKTcircuit*);
extern int ISRCask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int ISRCdelete(GENmodel*,IFuid,GENinstance**);
extern int ISRCdelete(GENinstance*);
extern void ISRCdestroy(GENmodel**);
extern int ISRCload(GENmodel*,CKTcircuit*);
extern int ISRCmDelete(GENmodel**,IFuid,GENmodel*);

View File

@ -10,20 +10,8 @@ Author: 1985 Thomas L. Quarles
int
JFETdelete(GENmodel *model, IFuid name, GENinstance **kill)
JFETdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -6,7 +6,7 @@ Modified: 2000 AlansFixes
extern int JFETacLoad(GENmodel*,CKTcircuit*);
extern int JFETask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int JFETdelete(GENmodel*,IFuid,GENinstance**);
extern int JFETdelete(GENinstance*);
extern void JFETdestroy(GENmodel**);
extern int JFETgetic(GENmodel*,CKTcircuit*);
extern int JFETload(GENmodel*,CKTcircuit*);

View File

@ -14,20 +14,8 @@ Modified to jfet2 for PS model definition ( Anthony E. Parker )
int
JFET2delete(GENmodel *model, IFuid name, GENinstance **kill)
JFET2delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -9,7 +9,7 @@ Modified to add PS model and new parameter definitions ( Anthony E. Parker )
extern int JFET2acLoad(GENmodel*,CKTcircuit*);
extern int JFET2ask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int JFET2delete(GENmodel*,IFuid,GENinstance**);
extern int JFET2delete(GENinstance*);
extern void JFET2destroy(GENmodel**);
extern int JFET2getic(GENmodel*,CKTcircuit*);
extern int JFET2load(GENmodel*,CKTcircuit*);

View File

@ -10,20 +10,8 @@ Author: 1990 Jaijeet S. Roychowdhury
int
LTRAdelete(GENmodel *model, IFuid name, GENinstance **kill)
LTRAdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ Modified: 2000 AlansFixes
extern int LTRAaccept(CKTcircuit*,GENmodel*);
extern int LTRAask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int LTRAacLoad(GENmodel*,CKTcircuit*);
extern int LTRAdelete(GENmodel*,IFuid,GENinstance**);
extern int LTRAdelete(GENinstance*);
extern void LTRAdestroy(GENmodel**);
extern int LTRAload(GENmodel*,CKTcircuit*);
extern int LTRAmAsk(CKTcircuit*,GENmodel*,int,IFvalue*);

View File

@ -10,20 +10,8 @@ Author: 1985 S. Hwang
int
MESdelete(GENmodel *model, IFuid name, GENinstance **kill)
MESdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -6,7 +6,7 @@ Modified: 2000 AlansFixes
extern int MESacLoad(GENmodel*,CKTcircuit*);
extern int MESask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int MESdelete(GENmodel*,IFuid,GENinstance**);
extern int MESdelete(GENinstance*);
extern void MESdestroy(GENmodel**);
extern int MESgetic(GENmodel*,CKTcircuit*);
extern int MESload(GENmodel*,CKTcircuit*);

View File

@ -14,20 +14,8 @@ Author: 1985 S. Hwang
int
MESAdelete(GENmodel *model, IFuid name, GENinstance **kill)
MESAdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -5,7 +5,7 @@ Author: Trond Ytterdal
extern int MESAacLoad(GENmodel*,CKTcircuit*);
extern int MESAask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int MESAdelete(GENmodel*,IFuid,GENinstance**);
extern int MESAdelete(GENinstance*);
extern void MESAdestroy(GENmodel**);
extern int MESAgetic(GENmodel*,CKTcircuit*);
extern int MESAload(GENmodel*,CKTcircuit*);

View File

@ -10,20 +10,8 @@ Author: 1985 Thomas L. Quarles
int
MOS1delete(GENmodel *model, IFuid name, GENinstance **kill)
MOS1delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -6,7 +6,7 @@ Modified: 2000 AlansFixes
extern int MOS1acLoad(GENmodel *,CKTcircuit*);
extern int MOS1ask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int MOS1delete(GENmodel*,IFuid,GENinstance**);
extern int MOS1delete(GENinstance*);
extern void MOS1destroy(GENmodel**);
extern int MOS1getic(GENmodel*,CKTcircuit*);
extern int MOS1load(GENmodel*,CKTcircuit*);

View File

@ -10,20 +10,8 @@ Author: 1985 Thomas L. Quarles
int
MOS2delete(GENmodel *model, IFuid name, GENinstance **kill)
MOS2delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ extern int MOS2acLoad(GENmodel*,CKTcircuit*);
extern int MOS2ask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int MOS2mAsk(CKTcircuit*,GENmodel*,int,IFvalue*);
extern int MOS2convTest(GENmodel*,CKTcircuit*);
extern int MOS2delete(GENmodel*,IFuid,GENinstance**);
extern int MOS2delete(GENinstance*);
extern void MOS2destroy(GENmodel**);
extern int MOS2getic(GENmodel*,CKTcircuit*);
extern int MOS2load(GENmodel*,CKTcircuit*);

View File

@ -10,20 +10,8 @@ Author: 1985 Thomas L. Quarles
int
MOS3delete(GENmodel *model, IFuid name, GENinstance **kill)
MOS3delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -7,7 +7,7 @@ Modified: 2000 AlansFixes
extern int MOS3acLoad(GENmodel*,CKTcircuit*);
extern int MOS3ask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int MOS3convTest(GENmodel *,CKTcircuit *);
extern int MOS3delete(GENmodel*,IFuid,GENinstance**);
extern int MOS3delete(GENinstance*);
extern void MOS3destroy(GENmodel**);
extern int MOS3getic(GENmodel*,CKTcircuit*);
extern int MOS3load(GENmodel*,CKTcircuit*);

View File

@ -10,20 +10,8 @@ Author: 1985 Thomas L. Quarles
int
MOS6delete(GENmodel *model, IFuid name, GENinstance **kill)
MOS6delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -5,7 +5,7 @@ Author: 1985 Thomas L. Quarles
extern int MOS6acLoad(GENmodel *,CKTcircuit*);
extern int MOS6ask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int MOS6delete(GENmodel*,IFuid,GENinstance**);
extern int MOS6delete(GENinstance*);
extern void MOS6destroy(GENmodel**);
extern int MOS6getic(GENmodel*,CKTcircuit*);
extern int MOS6load(GENmodel*,CKTcircuit*);

View File

@ -11,20 +11,8 @@ Modified: Alan Gillespie
int
MOS9delete(GENmodel *model, IFuid name, GENinstance **kill)
MOS9delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -7,7 +7,7 @@ Modified: Alan Gillespie
extern int MOS9acLoad(GENmodel*,CKTcircuit*);
extern int MOS9ask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int MOS9convTest(GENmodel *,CKTcircuit *);
extern int MOS9delete(GENmodel*,IFuid,GENinstance**);
extern int MOS9delete(GENinstance*);
extern void MOS9destroy(GENmodel**);
extern int MOS9getic(GENmodel*,CKTcircuit*);
extern int MOS9load(GENmodel*,CKTcircuit*);

View File

@ -15,20 +15,8 @@ Author: 1987 Kartikeya Mayaram, U. C. Berkeley CAD Group
int
NBJTdelete(GENmodel *model, IFuid name, GENinstance **kill)
NBJTdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -8,7 +8,7 @@ Author: 1987 Karti Mayaram
extern int NBJTacLoad(GENmodel *, CKTcircuit *);
extern int NBJTask(CKTcircuit *, GENinstance *, int, IFvalue *, IFvalue *);
extern int NBJTdelete(GENmodel *, IFuid, GENinstance **);
extern int NBJTdelete(GENinstance *);
extern void NBJTdestroy(GENmodel **);
extern int NBJTgetic(GENmodel *, CKTcircuit *);
extern int NBJTload(GENmodel *, CKTcircuit *);

View File

@ -9,7 +9,7 @@ Author: 1987 Karti Mayaram
extern int NBJT2acLoad(GENmodel *, CKTcircuit *);
extern int NBJT2ask(CKTcircuit *, GENinstance *, int, IFvalue *, IFvalue *);
extern int NBJT2delete(GENmodel *, IFuid, GENinstance **);
extern int NBJT2delete(GENinstance *);
extern void NBJT2destroy(GENmodel **);
extern int NBJT2getic(GENmodel *, CKTcircuit *);
extern int NBJT2load(GENmodel *, CKTcircuit *);

View File

@ -15,20 +15,8 @@ Author: 1987 Kartikeya Mayaram, U. C. Berkeley CAD Group
int
NBJT2delete(GENmodel *model, IFuid name, GENinstance **kill)
NBJT2delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -11,20 +11,8 @@ University of Science and Technology of China
int
NDEVdelete(GENmodel *model, IFuid name, GENinstance **kill)
NDEVdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -9,7 +9,7 @@ Author: 1987 Karti Mayaram
extern int NDEVacLoad(GENmodel *, CKTcircuit *);
extern int NDEVask(CKTcircuit *, GENinstance *, int, IFvalue *, IFvalue *);
extern int NDEVdelete(GENmodel *, IFuid, GENinstance **);
extern int NDEVdelete(GENinstance *);
extern void NDEVdestroy(GENmodel **);
extern int NDEVgetic(GENmodel *, CKTcircuit *);
extern int NDEVload(GENmodel *, CKTcircuit *);

View File

@ -10,20 +10,8 @@ Author: 1987 Kartikeya Mayaram, U. C. Berkeley CAD Group
int
NUMDdelete(GENmodel *model, IFuid name, GENinstance **kill)
NUMDdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -9,7 +9,7 @@ Author: 1987 Karti Mayaram
extern int NUMDacLoad(GENmodel *, CKTcircuit *);
extern int NUMDask(CKTcircuit *, GENinstance *, int, IFvalue *, IFvalue *);
extern int NUMDdelete(GENmodel *, IFuid, GENinstance **);
extern int NUMDdelete(GENinstance *);
extern void NUMDdestroy(GENmodel **);
extern int NUMDgetic(GENmodel *, CKTcircuit *);
extern int NUMDload(GENmodel *, CKTcircuit *);

View File

@ -10,20 +10,8 @@ Author: 1987 Kartikeya Mayaram, U. C. Berkeley CAD Group
int
NUMD2delete(GENmodel *model, IFuid name, GENinstance **kill)
NUMD2delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -9,7 +9,7 @@ Author: 1987 Karti Mayaram
extern int NUMD2acLoad(GENmodel *, CKTcircuit *);
extern int NUMD2ask(CKTcircuit *, GENinstance *, int, IFvalue *, IFvalue *);
extern int NUMD2delete(GENmodel *, IFuid, GENinstance **);
extern int NUMD2delete(GENinstance *);
extern void NUMD2destroy(GENmodel **);
extern int NUMD2getic(GENmodel *, CKTcircuit *);
extern int NUMD2load(GENmodel *, CKTcircuit *);

View File

@ -15,20 +15,8 @@ Author: 1987 Kartikeya Mayaram, U. C. Berkeley CAD Group
int
NUMOSdelete(GENmodel *model, IFuid name, GENinstance **kill)
NUMOSdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -9,7 +9,7 @@ Author: 1987 Karti Mayaram
extern int NUMOSacLoad(GENmodel *, CKTcircuit *);
extern int NUMOSask(CKTcircuit *, GENinstance *, int, IFvalue *, IFvalue *);
extern int NUMOSdelete(GENmodel *, IFuid, GENinstance **);
extern int NUMOSdelete(GENinstance *);
extern void NUMOSdestroy(GENmodel **);
extern int NUMOSgetic(GENmodel *, CKTcircuit *);
extern int NUMOSload(GENmodel *, CKTcircuit *);

View File

@ -10,20 +10,8 @@ Modified: Apr 2000 - Paolo Nenzi
int
RESdelete(GENmodel *model, IFuid name, GENinstance **kill)
RESdelete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -4,7 +4,7 @@ Author: 1985 Thomas L. Quarles
**********/
extern int RESask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int RESdelete(GENmodel*,IFuid,GENinstance**);
extern int RESdelete(GENinstance*);
extern void RESdestroy(GENmodel**);
extern int RESload(GENmodel*,CKTcircuit*);
extern int RESacload(GENmodel*,CKTcircuit*);

View File

@ -27,20 +27,8 @@ Acknowledgements : Rupert Howes and Pete Mole.
int
SOI3delete(GENmodel *model, IFuid name, GENinstance **kill)
SOI3delete(GENinstance *inst)
{
for (; model; model = model->GENnextModel) {
GENinstance **prev = &(model->GENinstances);
GENinstance *here = *prev;
for (; here; here = *prev) {
if (here->GENname == name || (kill && here == *kill)) {
*prev = here->GENnextInstance;
GENinstanceFree(here);
return OK;
}
prev = &(here->GENnextInstance);
}
}
return E_NODEV;
GENinstanceFree(inst);
return OK;
}

View File

@ -23,7 +23,7 @@ ngspice integration
extern int SOI3acLoad(GENmodel *,CKTcircuit*);
extern int SOI3ask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
extern int SOI3delete(GENmodel*,IFuid,GENinstance**);
extern int SOI3delete(GENinstance*);
extern void SOI3destroy(GENmodel**);
extern int SOI3getic(GENmodel*,CKTcircuit*);
extern int SOI3load(GENmodel*,CKTcircuit*);

Some files were not shown because too many files have changed in this diff Show More