cktmcrt.c File Reference

#include "spice.h"
#include <stdio.h>
#include "devdefs.h"
#include "sperror.h"
#include "util.h"
#include "cktext.h"

Include dependency graph for cktmcrt.c:

Go to the source code of this file.

Functions
int	CKTmodCrt (GENERIC *ckt, int type, GENERIC **modfast, IFuid name)

Function Documentation

int CKTmodCrt	(	GENERIC *	ckt,
		int	type,
		GENERIC **	modfast,
		IFuid	name
	)

Definition at line 22 of file cktmcrt.c.

{
    extern SPICEdev *DEVices[];
    GENmodel *mymodfast = NULL;
    struct sCKTmodHead *mh;
    int error;

    error = CKTfndMod(ckt,&type,(GENERIC**)&mymodfast,name);
    if (error == E_NOMOD) {
        mymodfast = (GENmodel *)MALLOC(*DEVices[type]->DEVmodSize);
        if(mymodfast == (GENmodel *)NULL) return(E_NOMEM);
        mymodfast->GENmodType = type;
        mymodfast->GENmodName = name;
        mymodfast->GENnextModel =
            (GENmodel *)((CKTcircuit *)ckt)->CKThead[type];
        ((CKTcircuit *)ckt)->CKThead[type] = (GENmodel *)mymodfast;
        if (modfast) *modfast=(GENERIC *)mymodfast;

        for (mh = ((CKTcircuit *)ckt)->CKTheadList; mh != NULL;
                mh = mh->next) {
            if (mh->type == type) break;
        }
        if (mh == NULL) {
            mh = (struct sCKTmodHead *) MALLOC(sizeof(struct sCKTmodHead));
            if (mh == NULL)
                return (E_NOMEM);
            mh->type = type;
            mh->next = ((CKTcircuit *)ckt)->CKTheadList;
            ((CKTcircuit *)ckt)->CKTheadList = mh;
        }
        mh->head = (GENmodel *)mymodfast;

        return (OK);
    }
    else if (error == 0) {
        if (modfast) *modfast = (GENERIC *)mymodfast;
        return (E_EXISTS);
    }
    else {
        return (error);
    }
    /*NOTREACHED*/
}