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

If we encounter tc1= or tc2= (temp coeffs.) or m= (multiplier), 

the expression is done, thus keeping the brackets as is.
Enables tcx={} or m={} with their own expressions, dealt with
by numparam.
This commit is contained in:
Holger Vogt 2020-12-25 15:46:05 +01:00
parent 98eb5bf475
commit a147a3b190
1 changed files with 9 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/frontend/inpcom.c
View File

@ -6072,8 +6072,9 @@ static char *inp_modify_exp(/* NOT CONST */ char *expr)
char *s;
wordlist *wl = NULL, *wlist = NULL;
/* Scan the expression and replace all '{' and '}' with ' ' */
for (s = expr; *s; s++) {
/* Scan the expression and replace all '{' and '}' with ' '.
As soon as we encounter a tc1=, tc2=, or m=, stop it. */
for (s = expr; *s && !(ciprefix("tc1=", s) || ciprefix("tc2=", s) || ciprefix("m=", s)) ; s++) {
if ((*s == '{') || (*s == '}')) {
*s = ' ';
}
@ -6163,23 +6164,12 @@ static char *inp_modify_exp(/* NOT CONST */ char *expr)
cieq(buf, "temp")) {
wl->wl_word = copy(buf);
}
else if (cieq(buf, "tc1") || cieq(buf, "tc2") ||
cieq(buf, "reciproctc") || cieq(buf, "m") || cieq(buf, "reciprocm")) {
s = skip_ws(s);
/* no {} around tc1 = or tc2 = , these are temp coeffs.
m= is a multiplier*/
if (s[0] == '=' && s[1] != '=') {
buf[i++] = '=';
buf[i] = '\0';
s++;
wl->wl_word = copy(buf);
}
else {
wl->wl_word = tprintf("({%s})", buf);
}
/* '-' following the '=' is attached to number as its sign
*/
c_arith = TRUE;
/* as soon as we encounter tc1= or tc2= (temp coeffs.) or
m= (multiplier), the expression is done */
else if ((*s == '=') && (cieq(buf, "tc1") || cieq(buf, "tc2") ||
cieq(buf, "reciproctc") || cieq(buf, "m") || cieq(buf, "reciprocm"))) {
wl->wl_word = tprintf("%s%s", buf, s);
break;
}
else {
/* {} around all other tokens */