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

getexpress(), drop `c' and cleanup

This commit is contained in:
rlar 2017-11-18 11:54:53 +01:00
parent f8fc4edf52
commit 33b8936a3b
1 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/frontend/numparam/xpressn.c
View File

@ -1347,37 +1347,33 @@ getexpress(nupa_type *type, SPICE_DSTRINGPTR tstr_p, const char *s)
while ((s < ls_ptr - 1) && (*s <= ' '))
s++; /*white space ? */
if (*s == '"') {
/* string constant */
if (*s == '"') { /* string constant */
s++;
p = s;
while ((p < ls_ptr - 1) && (*p != '"'))
p++;
tpe = NUPA_STRING;
do
p++;
while ((p < ls_ptr) && (*p <= ' '));
tpe = NUPA_STRING;
} else {
if (*s == '{')
s++;
p = s - 1;
p++;
p = s;
for (; p < ls_ptr; p++) {
char c = *p;
if (strchr(",;)}", c)) /* legal separators */
if (strchr(",;)}", *p)) /* legal separators */
break;
if (c == '(') {
if (*p == '(') {
/* sub-formula */
int level = 1;
p++;