inpdevparse.c

来自「支持数字元件仿真的SPICE插件」· C语言 代码 · 共 83 行

/*
 * Copyright (c) 1985 Thomas L. Quarles
 */

    /*
     * INPdevParse()
     *
     *  parse a given input according to the standard rules - look
     *  for the parameters given in the parmlists, In addition, 
     *  an optional leading numeric parameter is handled.
     */

#include "prefix.h"
#include <stdio.h>
#include "util.h"
#include "IFsim.h"
#include "INPdefs.h"
#ifndef CMS
#include "IFerrmsgs.h"
#else  /* CMS */
#include "IFerrmsg.h"
#endif /* CMS */
#include "CPdefs.h"
#ifndef CMS
#include "FTEextern.h"
#else  /* CMS */
#include "FTEexter.h"
#endif /* CMS */
#include "suffix.h"

RCSID("INPdevParse.c $Revision: 1.1 $ on $Date: 91/04/02 11:56:34 $")

char *
INPdevParse(line,ckt,dev,fast,leading,waslead,tab)
    char **line;    /* the line to parse */
    GENERIC *ckt;/* the circuit this device is a member of */
    int dev;        /* the device type code to the device being parsed */
    GENERIC *fast;    /* direct pointer to device being parsed */
    double *leading;/* the optional leading numeric parameter */
    int *waslead;   /* flag - 1 if leading double given, 0 otherwise */
    INPtables *tab;

{
    int error;  /* int to store evaluate error return codes in */
    char *parm;
    char *errbuf;
    int i;
    IFvalue *val;

    /* check for leading value */
    *waslead = 0;
    *leading = INPevaluate(line,&error,1);
    if(error == 0) { /* found a good leading number */
        *waslead = 1;
    } else *leading=0;
    while (**line != (char) 0) {
        error = INPgetTok(line,&parm,1);
        if(error) return(INPerror(error));
        for(i=0;i<(*(ft_sim->devices)[dev]).numInstanceParms;i++) {
            if(strcmp(parm,
                    ((*(ft_sim->devices)[dev]).instanceParms[i].keyword)) ==0) {
                val = INPgetValue(ckt,line,
                        ((*(ft_sim->devices)[dev]).instanceParms[i].dataType),
                        tab);
        if (!val)
            return (INPerror(E_PARMVAL));
                error = (*(ft_sim->setInstanceParm))(ckt,fast,
                        (*(ft_sim->devices)[dev]).instanceParms[i].id,
                        val,(IFvalue*)NULL);
                if(error) return(INPerror(error));
                break;
            }
        }
        if(i==(*(ft_sim->devices)[dev]).numInstanceParms) {
            errbuf = MALLOC(strlen(parm)+25);
            (void)sprintf(errbuf," unknown parameter (%s) \n",parm);
            return(errbuf);
        }
        FREE(parm);
    }
    return((char *)NULL);
}