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.
64 lines
1.6 KiB
64 lines
1.6 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"
|
|
|
|
int
|
|
CKTcrtElt(void *ckt, void *inModPtr, void **inInstPtr, IFuid name)
|
|
{
|
|
GENinstance *instPtr = NULL; /* instPtr points to the data struct for per-instance data */
|
|
GENmodel *modPtr = (GENmodel*)inModPtr; /* modPtr points to the data struct for per-model data */
|
|
|
|
SPICEdev **DEVices;
|
|
int error;
|
|
int type;
|
|
|
|
DEVices = devices();
|
|
|
|
if( (GENmodel *)modPtr == (GENmodel*)NULL )
|
|
return E_NOMOD;
|
|
|
|
type = ((GENmodel*)modPtr)->GENmodType;
|
|
|
|
error = CKTfndDev(ckt, &type, (void**)&instPtr, name, inModPtr,
|
|
(char *)NULL );
|
|
if (error == OK) {
|
|
if (inInstPtr)
|
|
*inInstPtr=(void *)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 = (void *)instPtr;
|
|
|
|
return OK;
|
|
}
|