You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
127 lines
3.4 KiB
127 lines
3.4 KiB
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 1985 Thomas L. Quarles
|
|
Modified: AlansFixes
|
|
**********/
|
|
|
|
#include <config.h>
|
|
#include <ngspice.h>
|
|
#include <iferrmsg.h>
|
|
#include <ifsim.h>
|
|
#include <inpmacs.h>
|
|
|
|
#include "inppas3.h"
|
|
|
|
extern IFsimulator *ft_sim;
|
|
|
|
|
|
/* pass 3 - Read all nodeset and IC lines. All circuit nodes will have
|
|
* been created by now, (except for internal device nodes), so any
|
|
* nodeset or IC nodes which have to be created are flagged with a
|
|
* warning. */
|
|
|
|
void
|
|
INPpas3(void *ckt, card *data, INPtables *tab, void *task,
|
|
IFparm *nodeParms, int numNodeParms)
|
|
{
|
|
|
|
card *current;
|
|
int error; /* used by the macros defined above */
|
|
char *line; /* the part of the current line left
|
|
to parse */
|
|
char *name; /* the node's name */
|
|
char *token=NULL; /* a token from the line */
|
|
IFparm *prm; /* pointer to parameter to search
|
|
through array */
|
|
IFvalue ptemp; /* a value structure to package
|
|
resistance into */
|
|
int which; /* which analysis we are performing */
|
|
int length; /* length of a name */
|
|
void *node1; /* the first node's node pointer */
|
|
|
|
#ifdef TRACE
|
|
/* SDB debug statement */
|
|
printf("In INPpas3 . . . \n");
|
|
#endif
|
|
|
|
for(current = data; current != NULL; current = current->nextcard) {
|
|
line = current->line;
|
|
FREE(token)
|
|
INPgetTok(&line,&token,1);
|
|
|
|
if (strcmp(token,".nodeset")==0) {
|
|
which = -1;
|
|
|
|
for(prm = nodeParms; prm < nodeParms + numNodeParms; prm++) {
|
|
if(strcmp(prm->keyword,"nodeset")==0) {
|
|
which = prm->id;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if(which == -1) {
|
|
LITERR("nodeset unknown to simulator. \n")
|
|
goto quit;
|
|
}
|
|
|
|
for(;;) {
|
|
/* loop until we run out of data */
|
|
INPgetTok(&line,&name,1);
|
|
|
|
/* check to see if in the form V(xxx) and grab the xxx */
|
|
if( *name == 0) break; /* end of line */
|
|
length = strlen(name);
|
|
if( (*name == 'V' || *(name) == 'v') && (length == 1)){
|
|
/* looks like V - must be V(xx) - get xx now*/
|
|
INPgetTok(&line,&name,1);
|
|
if (INPtermInsert(ckt,&name,tab,&node1)!=E_EXISTS)
|
|
fprintf(stderr,
|
|
"Warning : Nodeset on non-existant node - %s\n", name);
|
|
ptemp.rValue = INPevaluate(&line,&error,1);
|
|
IFC(setNodeParm,(ckt,node1,which,&ptemp,(IFvalue*)NULL));
|
|
continue;
|
|
}
|
|
LITERR(" Error: .nodeset syntax error.\n")
|
|
break;
|
|
}
|
|
} else if ((strcmp(token,".ic") == 0)) {
|
|
/* .ic */
|
|
which = -1;
|
|
for(prm = nodeParms; prm < nodeParms + numNodeParms; prm++) {
|
|
if(strcmp(prm->keyword,"ic")==0) {
|
|
which = prm->id;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if(which==-1) {
|
|
LITERR("ic unknown to simulator. \n")
|
|
goto quit;
|
|
}
|
|
|
|
for(;;) {
|
|
/* loop until we run out of data */
|
|
INPgetTok(&line,&name,1);
|
|
/* check to see if in the form V(xxx) and grab the xxx */
|
|
if( *name == 0) break; /* end of line */
|
|
length = strlen(name);
|
|
if( (*name == 'V' || *(name) == 'v') && (length == 1)){
|
|
/* looks like V - must be V(xx) - get xx now*/
|
|
INPgetTok(&line,&name,1);
|
|
if (INPtermInsert(ckt,&name,tab,&node1)!=E_EXISTS)
|
|
fprintf(stderr,
|
|
"Warning : IC on non-existant node - %s\n", name);
|
|
ptemp.rValue = INPevaluate(&line,&error,1);
|
|
IFC(setNodeParm,(ckt,node1,which,&ptemp,(IFvalue*)NULL))
|
|
continue;
|
|
}
|
|
LITERR(" Error: .ic syntax error.\n")
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
quit:
|
|
FREE(token);
|
|
return;
|
|
}
|
|
|