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

.gllobal bug

This commit is contained in:
h_vogt 2010-01-17 14:49:42 +00:00
parent 4479aa7d5c
commit 204362044e
2 changed files with 23 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ChangeLog
View File

@ -1,3 +1,6 @@
2010-01-17 Holger Vogt
* subckt.c: .global bug by R. Larice
2010-01-16 Dietmar Warning
* tests/transmission: Only few tests should be easier, more examples under
examples/TransmissionLine at next

38
src/frontend/subckt.c
View File

@ -245,26 +245,28 @@ inp_subcktexpand(struct line *deck)
/* Added by H.Tanaka to find global nodes */
for(i=0;i<128;i++) strcpy(node[i],"");/* Clear global node holder */
for (c = deck; c; c = c->li_next) {
if (ciprefix(".global", c->li_line)) {
s = c->li_line;
txfree(gettok(&s));
numgnode=0;
while(*s) {
i=0;
t=s;
for (/*s*/; *s && !isspace(*s); s++) i++;
strncpy(node[numgnode],t,i+1); /* i+1: include \0 character */
while (isspace(*s)) s++;
numgnode++;
} /* node[] holds name of global node */
if (ciprefix(".global", c->li_line)) {
s = c->li_line;
txfree(gettok(&s));
numgnode=0;
while(*s) {
i=0;
t=s;
for (/*s*/; *s && !isspace(*s); s++) i++;
strncpy(node[numgnode],t,i);
if(i>0 && t[i-1] != '\0')
node[numgnode][i] = '\0';
while (isspace(*s)) s++;
numgnode++;
} /* node[] holds name of global node */
#ifdef TRACE
printf("***Global node option has been found.***\n");
for(i=0;i<numgnode;i++)
printf("***Global node no.%d is %s.***\n",i,node[i]);
printf("\n");
printf("***Global node option has been found.***\n");
for(i=0;i<numgnode;i++)
printf("***Global node no.%d is %s.***\n",i,node[i]);
printf("\n");
#endif /* TRACE */
c->li_line[0] = '*'; /* comment it out */
}/* if(ciprefix.. */
c->li_line[0] = '*'; /* comment it out */
}/* if(ciprefix.. */
} /* for(c=deck.. */
/* Let's do a few cleanup things... Get rid of ( ) around node