|
|
@ -1372,16 +1372,11 @@ getexpress(const char * const s, SPICE_DSTRINGPTR tstr_p, const char **pi) |
|
|
|
|
|
|
|
|
p = xia_ptr - 1; |
|
|
p = xia_ptr - 1; |
|
|
|
|
|
|
|
|
do |
|
|
|
|
|
{ |
|
|
|
|
|
char c; |
|
|
|
|
|
|
|
|
|
|
|
p++; |
|
|
|
|
|
|
|
|
p++; |
|
|
|
|
|
|
|
|
if (p >= ls_ptr) |
|
|
|
|
|
break; |
|
|
|
|
|
|
|
|
for (; p < ls_ptr; p++) { |
|
|
|
|
|
|
|
|
c = *p; |
|
|
|
|
|
|
|
|
char c = *p; |
|
|
|
|
|
|
|
|
if (c == '(') { |
|
|
if (c == '(') { |
|
|
/* sub-formula */ |
|
|
/* sub-formula */ |
|
|
@ -1403,8 +1398,7 @@ getexpress(const char * const s, SPICE_DSTRINGPTR tstr_p, const char **pi) |
|
|
|
|
|
|
|
|
if (strchr(",;)}", c)) /* legal separators */ |
|
|
if (strchr(",;)}", c)) /* legal separators */ |
|
|
break; |
|
|
break; |
|
|
|
|
|
|
|
|
} while (1); |
|
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
tpe = NUPA_REAL; |
|
|
tpe = NUPA_REAL; |
|
|
} |
|
|
} |
|
|
|