93 char *leadname =
NULL;
94 char *groundname =
"0";
115 IFC(newInstance,(ckt,tab->
defAmod,&fast,name))
116 IFC(bindNode,(ckt,fast,1,node1))
117 IFC(bindNode,(ckt,fast,2,node2))
135 if (strcmp(nname3,
"function")) {
139 IFC(bindNode,(ckt,fast,3,node3))
140 IFC(bindNode,(ckt,fast,4,node4))
144 if (strcmp(nname3,groundname) && strcmp(nname4,groundname))
145 sprintf(buf,
"v(%s,%s)",nname3,nname4);
146 else if (strcmp(nname3,groundname))
147 sprintf(buf,
"v(%s)",nname3);
148 else if (strcmp(nname4,groundname))
149 sprintf(buf,
"(-v(%s))",nname4);
166 if (strcmp(nm,
"function")) {
171 sprintf(buf,
"i(%s)",parm->
uValue);
181 src_parse(&line,ckt,type,fast,&leadval,&waslead,tab));
182 if (waslead && leadname !=
NULL) {
213 char *nline, *nend, *
start, *end;
215 nline =
tmalloc(strlen(*line)+1);
220 while (**line != (
char) 0) {
227 while (**line ==
')')
231 if (!isalpha(*parm)) {
244 if ((*parm ==
'v' || *parm ==
'i') && strlen(parm) == 1) {
246 while (*s != *parm) s++;
248 if (*s ==
'(' || *s ==
')') {
269 error = (*(
ft_sim->setInstanceParm))(ckt,fast,
291 while (*nend != (
char) 0) {
304 return ((
char *)
NULL);
314 return ((
char *)
NULL);
316 while (isalpha(*nend))
318 while (isspace(*nend) || *nend ==
',')
342 if (!val || nend <= place) {
360 error = (*(
ft_sim->setInstanceParm))(ckt,fast,
384 errbuf =
tmalloc(strlen(parm)+25);
385 (void)sprintf(errbuf,
"Unknown parameter (%s).",parm);
392 return ((
char *)
NULL);
static char * src_parse()
static char buf[MAXPROMPT]
void SRCparse(int type, GENERIC *ckt, GENERIC *tabp, GENERIC *currentp)