cktask.c

spice中支持多层次元件模型仿真的可单独运行的插件源码

/**********
Copyright 1990 Regents of the University of California.  All rights reserved.
Author: 1985 Thomas L. Quarles
**********/

    /* CKTask
     *  Ask questions about a specified device.
     */

#include "spice.h"
#include <stdio.h>
#include "cktdefs.h"
#include "ifsim.h"
#include "devdefs.h"
#include "sperror.h"
#include "util.h"
#include "suffix.h"

extern SPICEdev *DEVices[];

int
CKTask(ckt,fast,which,value,selector)
    GENERIC *ckt;
    GENERIC *fast;
    int which;
    IFvalue *value;
    IFvalue *selector;
{
    register int type = ((GENinstance *)fast)->GENmodPtr->GENmodType;
    int error;
#ifdef PARALLEL_ARCH
    long msgtype, length;
    long from = ((GENinstance *)fast)->GENowner;
#endif /* PARALLEL_ARCH */

    if((*DEVices[type]).DEVask) {
        error = DEVices[type]->DEVask((CKTcircuit *)ckt,
                (GENinstance *)fast,which,value,selector);
    } else {
	error = E_BADPARM;
    }
#ifdef PARALLEL_ARCH
    msgtype = MT_ASK;
    length = sizeof(IFvalue);
    BRDCST_(&msgtype, (char *)value,  &length, &from);
    msgtype++;
    length = sizeof(int);
    BRDCST_(&msgtype, (char *)&error, &length, &from);
#endif /* PARALLEL_ARCH */
    return(error);
}