luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

inpcom.c, abstraction, find_subckt_w_params()

This commit is contained in:
rlar 2013-05-19 23:12:21 +02:00
parent 87ae3be5df
commit 4e9102daaa
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/frontend/inpcom.c
View File

@ -2003,6 +2003,19 @@ new_subckt_w_params(char *str)
} }
static char **
find_subckt_w_params(char *subckt_name)
{
int i;
for (i = 0; i < num_subckt_w_params; i++)
if (strcmp(subckt_w_params[i], subckt_name) == 0)
return & subckt_w_params[i];
return NULL;
}
static char* static char*
inp_fix_subckt(char *s) inp_fix_subckt(char *s)
{ {
@ -2670,11 +2683,8 @@ inp_fix_inst_calls_for_numparam(struct line *deck)
} }
if (ciprefix("x", inst_line)) { if (ciprefix("x", inst_line)) {
subckt_name = inp_get_subckt_name(inst_line); subckt_name = inp_get_subckt_name(inst_line);
for (i = 0; i < num_subckt_w_params; i++)
if (strcmp(subckt_w_params[i], subckt_name) == 0)
break;
if (i < num_subckt_w_params) { if (find_subckt_w_params(subckt_name)) {
sprintf(name_w_space, "%s ", subckt_name); sprintf(name_w_space, "%s ", subckt_name);
/* find .subckt line */ /* find .subckt line */