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, introduce bogus_find_subckt() 

extracted from inp_fix_inst_calls_for_numparam().
This code is and was evil, as it does not respect scoping rules.
This commit is contained in:
rlar 2016-10-25 21:51:38 +02:00 committed by Holger Vogt
parent 0a21c17d8b
commit 0f1b75a95b
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/frontend/inpcom.c
View File

@ -2658,6 +2658,24 @@ inp_fix_subckt_multiplier(struct names *subckt_w_params, struct card *subckt_car
}
/* a bogus search for a .subckt with given name,
* which does not honour scoping rules
*/
static struct card *
bogus_find_subckt(struct card *d, const char *subckt_name)
{
const size_t len = strlen(subckt_name);
for (; d; d = d->nextcard)
if (ciprefix(".subckt", d->line)) {
const char *n = skip_ws(skip_non_ws(d->line));
if ((strncmp(n, subckt_name, len) == 0) && (!n[len] || isspace_c(n[len])))
break;
}
return d;
}
static void
inp_fix_inst_calls_for_numparam(struct names *subckt_w_params, struct card *deck)
{
@ -2666,7 +2684,6 @@ inp_fix_inst_calls_for_numparam(struct names *subckt_w_params, struct card *deck
char *subckt_param_values[1000];
char *inst_param_names[1000];
char *inst_param_values[1000];
char name_w_space[1000];
int i;
// first iterate through instances and find occurences where 'm' multiplier needs to be
@ -2685,17 +2702,8 @@ inp_fix_inst_calls_for_numparam(struct names *subckt_w_params, struct card *deck
struct card *d, *p = NULL;
// iterate through the deck to find the subckt (last one defined wins)
for (d = deck; d; d = d->nextcard) {
char *subckt_line = d->line;
if (ciprefix(".subckt", subckt_line)) {
subckt_line = skip_non_ws(subckt_line);
subckt_line = skip_ws(subckt_line);
sprintf(name_w_space, "%s ", subckt_name);
if (strncmp(subckt_line, name_w_space, strlen(name_w_space)) == 0)
p = d;
}
}
for (d = deck; (d = bogus_find_subckt(d, subckt_name)) != NULL; d = d->nextcard)
p = d;
if (p) {
int num_subckt_params = inp_get_params(p->line, subckt_param_names, subckt_param_values);
@ -2731,17 +2739,11 @@ inp_fix_inst_calls_for_numparam(struct names *subckt_w_params, struct card *deck
if (find_name(subckt_w_params, subckt_name)) {
struct card *d;
/* find .subckt line */
sprintf(name_w_space, "%s ", subckt_name);
for (d = deck; d; d = d->nextcard) {
for (d = deck; (d = bogus_find_subckt(d, subckt_name)) != NULL; d = d->nextcard) {
char *subckt_line = d->line;
if (ciprefix(".subckt", subckt_line)) {
subckt_line = skip_non_ws(subckt_line);
subckt_line = skip_ws(subckt_line);
if (strncmp(subckt_line, name_w_space, strlen(name_w_space)) == 0) {
int num_subckt_params = inp_get_params(subckt_line, subckt_param_names, subckt_param_values);
int num_inst_params = inp_get_params(inst_line, inst_param_names, inst_param_values);
@ -2783,8 +2785,6 @@ inp_fix_inst_calls_for_numparam(struct names *subckt_w_params, struct card *deck
}
break;
}
}
}
}