inppas2.c

支持数字元件仿真的SPICE插件

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

#include "prefix.h"
#include <string.h>
#include <ctype.h>
#include "IFsim.h"
#include "CPdefs.h"
#ifndef CMS
#include "FTEextern.h"
#else  /* CMS */
#include "FTEexter.h"
#endif /* CMS */
#include "FTEdefs.h"
#include "INPdefs.h"
#include "util.h"
#ifndef CMS
#include "IFerrmsgs.h"
#else  /* CMS */
#include "IFerrmsg.h"
#endif /* CMS */
#include "TSKdefs.h"
#include "INPmacs.h"

/* gtri - add - wbk - 11/9/90 - include function prototypes */
#include "MIFproto.h"
/* gtri - end - wbk - 11/9/90 */

#include "suffix.h"

RCSID("INPpas2.c $Revision: 1.1 $ on $Date: 91/04/02 11:57:11 $")

    /* pass 2 - pass through the card images built up so far and
     *  perform the appropriate actions.  We have pre-read all of
     *  the .MODEL cards, so we can ignore them
     */

void
INPpas2(ckt,data,tab,task) 
    GENERIC *ckt;
    card *data;
    INPtables *tab;
    GENERIC *task;
{

card *current;
char c;
char * groundname="0";
char * gname;
GENERIC *gnode;
int error;  /* used by the macros defined above */

    error = INPgetTok(&groundname,&gname,1);
    if(error) data->error = INPerrCat(data->error,INPmkTemp(
            "can't read internal ground node name!\n"));
    error = INPgndInsert(ckt,&gname,tab,&gnode);
    if(error && error!=E_EXISTS)data->error = INPerrCat(data->error,INPmkTemp(
            "can't insert internal ground node in symbol table!\n"));
    for(current = data; current != NULL; current = current->nextcard) {
        c = *(current->line);
        c = islower(c) ? toupper(c) : c;
        if(c) switch(c) {

        case ' ':   /* blank line (space leading) */
        case '\t':   /* blank line (tab leading) */
            break;

/* gtri - add - wbk - 10/23/90 - add case for 'A' devices */

        case 'A':   /* Aname <cm connections> <mname> */
            MIF_INP2A(ckt,tab,current);
            break;

/* gtri - end - wbk - 10/23/90 */

        case 'R':   /* Rname <node> <node> [<val>][<mname>][w=<val>][l=<val>] */
            INP2R(ckt,tab,current);
            break;
        case 'C':   /* Cname <node> <node> <val> [IC=<val>] */
            INP2C(ckt,tab,current);
            break;
        case 'L':   /* Lname <node> <node> <val> [IC=<val>] */
            INP2L(ckt,tab,current);
            break;
        case 'G':   /* Gname <node> <node> <node> <node> <val> */
            INP2G(ckt,tab,current);
            break;
        case 'E':   /* Ename <node> <node> <node> <node> <val> */
            INP2E(ckt,tab,current);
            break;
        case 'F':   /* Fname <node> <node> <vname> <val> */
            INP2F(ckt,tab,current);
            break;
        case 'H':   /* Hname <node> <node> <vname> <val> */
            INP2H(ckt,tab,current);
            break;
        case 'D':   /* Dname <node> <node> <model> [<val>] [OFF] [IC=<val>] */
            INP2D(ckt,tab,current);
            break;
        case 'J':   /* Jname <node> <node> <node> <model> [<val>] [OFF] 
                     *       [IC=<val>,<val>] */
            INP2J(ckt,tab,current);
            break;
        case 'Z':   /* Zname <node> <node> <node> <model> [<val>] [OFF] 
                     *       [IC=<val>,<val>] */
            INP2Z(ckt,tab,current);
            break;
        case 'M':   /* Mname <node> <node> <node> <node> <model> [L=<val>]
                     *       [W=<val>] [AD=<val>] [AS=<val>] [PD=<val>]
                     *       [PS=<val>] [NRD=<val>] [NRS=<val>] [OFF] 
                     *       [IC=<val>,<val>,<val>] */
            INP2M(ckt,tab,current);
            break;

        case 'V':   /* Vname <node> <node> [ [DC] <val>] [AC [<val> [<val> ] ] ]
                     *       [<tran function>] */
            INP2V(ckt,tab,current);
            break;
        case 'I':   /* Iname <node> <node> [ [DC] <val>] [AC [<val> [<val> ] ] ]
                     *       [<tran function>] */
            INP2I(ckt,tab,current);
            break;

        case 'Q':   /* Qname <node> <node> <node> [<node>] <model> [<val>] [OFF]
                     *       [IC=<val>,<val>] */
            INP2Q(ckt,tab,current,gnode);
            break;

        case 'T':   /* Tname <node> <node> <node> <node> [TD=<val>] 
                     *       [F=<val> [NL=<val>]][IC=<val>,<val>,<val>,<val>] */
            INP2T(ckt,tab,current);
            break;

        case 'S':   /* Sname <node> <node> <node> <node> [<modname>] [IC] */
            INP2S(ckt,tab,current);
            break;

        case 'W':   /* Wname <node> <node> <vctrl> [<modname>] [IC] */
            /* CURRENT CONTROLLED SWITCH */
            INP2W(ckt,tab,current);
            break;

        case 'U':   /* Uname <node> <node> <model> [l=<val>] [n=<val>] */
            INP2U(ckt,tab,current);
            break;

        case 'K':   /* Kname Lname Lname <val> */
            INP2K(ckt,tab,current);
            break;

        case '*':   /* *<anything> - a comment - ignore */
            break;

        case 'B':   /* Bname <node> <node> [V=expr] [I=expr] */
            /* Arbitrary source. */
            INP2B(ckt,tab,current);
            break;

        case '.':   /* .<something> Many possibilities */
            if(INP2dot(ckt,tab,current,task,gnode)) goto end;
            break;

        default:
            /* the un-implemented device */
            LITERR(" unknown device type - error \n")
            break;
        }
    }
end:
    return;
}