cktask.c

来自「ngspice又一个电子CAD仿真软件代码.功能更全」· C语言 代码 · 共 46 行

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

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

#include <config.h>
#include <devdefs.h>
#include <sperror.h>

#include "dev.h"


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

    DEVices = devices();
    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);
}