cktfdev.c File Reference

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

Include dependency graph for cktfdev.c:

Go to the source code of this file.

Functions
int	CKTfndDev (GENERIC *Ckt, int *type, GENERIC **fast, IFuid name, GENERIC *modfast, IFuid modname)

Function Documentation

int CKTfndDev	(	GENERIC *	Ckt,
		int *	type,
		GENERIC **	fast,
		IFuid	name,
		GENERIC *	modfast,
		IFuid	modname
	)

Definition at line 18 of file cktfdev.c.

{
    CKTcircuit *ckt=(CKTcircuit *)Ckt;
    GENinstance *here;
    GENmodel *mods;

    if ((GENinstance **)fast != (GENinstance **)NULL && 
            *(GENinstance **)fast != (GENinstance *)NULL) {
        /* already have  fast, so nothing much to do */
        /* just get & set type */
        if (type) *type = (*((GENinstance**)fast))->GENmodPtr->GENmodType;
        return (OK);
    } 
    if (modfast) {
        /* have model, just need device */
        mods = (GENmodel*)modfast;
        for (here = mods->GENinstances; here != NULL; 
                here = here->GENnextInstance) {
            if (here->GENname == name) {
                if (fast != NULL) *(GENinstance **)fast = here;
                if (type) *type = mods->GENmodType;
                return (OK);
            }
        }
        return(E_NODEV);
    }
    if (*type >= 0 && *type < DEVmaxnum) {
        /* have device type, need to find model & device */
        /* look through all models */
        for (mods = (GENmodel *)ckt->CKThead[*type]; mods != NULL; 
                mods = mods->GENnextModel) {
            /* and all instances */
            if (modname == (char *)NULL || mods->GENmodName == modname) {
                for (here = mods->GENinstances; here != NULL; 
                        here = here->GENnextInstance) {
                    if (here->GENname == name) {
                        if (fast != 0) *(GENinstance **)fast = here;
                        return (OK);
                    }
                }
                if (mods->GENmodName == modname) {
                    return (E_NODEV);
                }
            }
        }
        return (E_NOMOD);
    }
    else if (*type == -1) {
        /* look through all types (UGH - worst case - take forever) */ 
        for (*type = 0; *type < DEVmaxnum; (*type)++) {
            /* need to find model & device */
            /* look through all models */
            for (mods = (GENmodel *)ckt->CKThead[*type]; mods!=NULL;
                    mods = mods->GENnextModel) {
                /* and all instances */
                if (modname == (char *)NULL || mods->GENmodName == modname) {
                    for (here = mods->GENinstances; here != NULL; 
                            here = here->GENnextInstance) {
                        if (here->GENname == name) {
                            if (fast != 0) *(GENinstance **)fast = here;
                            return (OK);
                        }
                    }
                    if (mods->GENmodName == modname) {
                        return (E_NODEV);
                    }
                }
            }
        }
        *type = -1;
        return (E_NODEV);
    }
    else return (E_BADPARM);
}