You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
65 lines
1.5 KiB
65 lines
1.5 KiB
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 1985 Thomas L. Quarles
|
|
**********/
|
|
|
|
/* CKTcrtElement(ckt,type,inModPtr,inInstPtr,name,subname)
|
|
*
|
|
* Create a device of the specified type, with the given name, using
|
|
* the specified model in the named circuit. */
|
|
|
|
#include <config.h>
|
|
#include <devdefs.h>
|
|
#include <sperror.h>
|
|
|
|
#include "dev.h"
|
|
#include "memory.h"
|
|
|
|
int
|
|
CKTcrtElt(CKTcircuit *ckt, GENmodel *inModPtr, GENinstance **inInstPtr, IFuid name)
|
|
{
|
|
GENinstance *instPtr = NULL; /* instPtr points to the data struct for per-instance data */
|
|
GENmodel *modPtr = /*fixme*/ inModPtr; /* modPtr points to the data struct for per-model data */
|
|
|
|
SPICEdev **DEVices;
|
|
int error;
|
|
int type;
|
|
|
|
DEVices = devices();
|
|
|
|
if(!modPtr)
|
|
return E_NOMOD;
|
|
|
|
type = modPtr->GENmodType;
|
|
|
|
error = CKTfndDev(ckt, &type, &instPtr, name, inModPtr,
|
|
(char *)NULL );
|
|
if (error == OK) {
|
|
if (inInstPtr)
|
|
*inInstPtr = instPtr;
|
|
return E_EXISTS;
|
|
} else if (error != E_NODEV)
|
|
return error;
|
|
|
|
#ifdef TRACE
|
|
/*------ SDB debug statement -------*/
|
|
printf("In CKTcrtElt, about to tmalloc new model, type = %d. . . \n", type);
|
|
#endif
|
|
|
|
instPtr = (GENinstance *) tmalloc(*DEVices[type]->DEVinstSize);
|
|
if (instPtr == (GENinstance *)NULL)
|
|
return E_NOMEM;
|
|
|
|
instPtr->GENname = name;
|
|
|
|
instPtr->GENmodPtr = modPtr;
|
|
|
|
instPtr->GENnextInstance = modPtr->GENinstances;
|
|
|
|
modPtr->GENinstances = instPtr;
|
|
|
|
if(inInstPtr != NULL)
|
|
*inInstPtr = instPtr;
|
|
|
|
return OK;
|
|
}
|