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

subckt.c, rewrite `collect_global_nodes()'

This commit is contained in:
rlar 2014-07-25 21:19:52 +02:00
parent d82b836136
commit b9ecd4d28e
1 changed files with 28 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
src/frontend/subckt.c
View File

@ -131,43 +131,50 @@ static bool use_numparams = FALSE;
static char start[32], sbend[32], invoke[32], model[32];
static char global_nodes[128][128];
static char *global_nodes[128];
static int num_global_nodes;
static void
collect_global_nodes(struct line *c)
{
int i;
for (i = 0; i < 128; i++)
strcpy(global_nodes[i], ""); /* Clear global node holder */
num_global_nodes = 0;
for (; c; c = c->li_next)
if (ciprefix(".global", c->li_line)) {
char *s = c->li_line;
txfree(gettok(&s));
while (*s) {
char *t = s;
i = 0;
for (/*s*/; *s && !isspace(*s); s++)
i++;
strncpy(global_nodes[num_global_nodes], t, (size_t) i);
if (i>0 && t[i-1] != '\0')
global_nodes[num_global_nodes][i] = '\0';
for (; *s && !isspace(*s); s++)
;
global_nodes[num_global_nodes++] = copy_substring(t, s);
while (isspace(*s))
s++;
num_global_nodes++;
} /* global_nodes[] holds name of global node */
#ifdef TRACE
printf("***Global node option has been found.***\n");
for (i = 0; i<num_global_nodes; i++)
printf("***Global node no.%d is %s.***\n", i, global_nodes[i]);
printf("\n");
#endif
}
c->li_line[0] = '*'; /* comment it out */
}
#ifdef TRACE
{
int i;
printf("***Global node option has been found.***\n");
for (i = 0; i < num_global_nodes; i++)
printf("***Global node no.%d is %s.***\n", i, global_nodes[i]);
printf("\n");
}
#endif
}
static void
free_global_nodes(void)
{
int i;
for (i = 0; i < num_global_nodes; i++)
tfree(global_nodes[i]);
num_global_nodes = 0;
}
@ -338,6 +345,7 @@ inp_subcktexpand(struct line *deck) {
/* doit does the actual splicing in of the .subckt . . . */
deck = doit(deck, modnames);
free_global_nodes();
wl_free(modnames);
/* Count numbers of line in deck after expansion */