parser/inpeval.c, whitespace cleanup
This commit is contained in:
rlar
parent
4555107013
commit
c018b328b9
|
|
@ -9,8 +9,10 @@ Author: 1985 Thomas L. Quarles
|
|||
#include "ngspice/inpdefs.h"
|
||||
#include "inpxx.h"
|
||||
|
||||
double INPevaluate(char **line, int *error, int gobble)
|
||||
/* non-zero to gobble rest of token, zero to leave it alone */
|
||||
|
||||
double
|
||||
INPevaluate(char **line, int *error, int gobble)
|
||||
/* gobble: non-zero to gobble rest of token, zero to leave it alone */
|
||||
{
|
||||
char *token;
|
||||
char *here;
|
||||
|
|
@ -23,12 +25,13 @@ double INPevaluate(char **line, int *error, int gobble)
|
|||
|
||||
/* setup */
|
||||
tmpline = *line;
|
||||
|
||||
if (gobble == 1) {
|
||||
/* MW. INPgetUTok should be called with gobble=0 or it make
|
||||
* errors in v(1,2) exp */
|
||||
/* MW. INPgetUTok should be called with gobble=0 or it make
|
||||
* errors in v(1,2) exp */
|
||||
*error = INPgetUTok(line, &token, 0);
|
||||
if (*error)
|
||||
return (0.0);
|
||||
return (0.0);
|
||||
} else if (gobble == 2) {
|
||||
*error = INPgetU2Tok(line, &token, 0);
|
||||
if (*error)
|
||||
|
|
@ -37,21 +40,25 @@ double INPevaluate(char **line, int *error, int gobble)
|
|||
token = *line;
|
||||
*error = 0;
|
||||
}
|
||||
|
||||
mantis = 0;
|
||||
expo1 = 0;
|
||||
expo2 = 0;
|
||||
sign = 1;
|
||||
expsgn = 1;
|
||||
|
||||
/* loop through all of the input token */
|
||||
here = token;
|
||||
|
||||
if (*here == '+')
|
||||
here++; /* plus, so do nothing except skip it */
|
||||
else if (*here == '-') { /* minus, so skip it, and change sign */
|
||||
here++; /* plus, so do nothing except skip it */
|
||||
else if (*here == '-') { /* minus, so skip it, and change sign */
|
||||
here++;
|
||||
sign = -1;
|
||||
}
|
||||
|
||||
if ((*here == '\0') || ((!(isdigit(*here))) && (*here != '.'))) {
|
||||
/* number looks like just a sign! */
|
||||
/* number looks like just a sign! */
|
||||
*error = 1;
|
||||
if (gobble) {
|
||||
FREE(token);
|
||||
|
|
@ -60,11 +67,13 @@ double INPevaluate(char **line, int *error, int gobble)
|
|||
}
|
||||
return (0);
|
||||
}
|
||||
|
||||
while (isdigit(*here)) {
|
||||
/* digit, so accumulate it. */
|
||||
mantis = 10 * mantis + *here - '0';
|
||||
here++;
|
||||
}
|
||||
|
||||
if (*here == '\0') {
|
||||
/* reached the end of token - done. */
|
||||
if (gobble) {
|
||||
|
|
@ -74,6 +83,7 @@ double INPevaluate(char **line, int *error, int gobble)
|
|||
}
|
||||
return ((double) mantis * sign);
|
||||
}
|
||||
|
||||
if (*here == ':') {
|
||||
/* ':' is no longer used for subcircuit node numbering
|
||||
but is part of ternary function a?b:c
|
||||
|
|
@ -86,10 +96,12 @@ double INPevaluate(char **line, int *error, int gobble)
|
|||
}
|
||||
return ((double) mantis * sign);
|
||||
}
|
||||
|
||||
/* after decimal point! */
|
||||
if (*here == '.') {
|
||||
/* found a decimal point! */
|
||||
here++; /* skip to next character */
|
||||
here++; /* skip to next character */
|
||||
|
||||
if (*here == '\0') {
|
||||
/* number ends in the decimal point */
|
||||
if (gobble) {
|
||||
|
|
@ -99,6 +111,7 @@ double INPevaluate(char **line, int *error, int gobble)
|
|||
}
|
||||
return ((double) mantis * sign);
|
||||
}
|
||||
|
||||
while (isdigit(*here)) {
|
||||
/* digit, so accumulate it. */
|
||||
mantis = 10 * mantis + *here - '0';
|
||||
|
|
@ -110,106 +123,110 @@ double INPevaluate(char **line, int *error, int gobble)
|
|||
} else {
|
||||
*line = here;
|
||||
}
|
||||
return (mantis * sign * pow(10., (double) expo1));
|
||||
return (mantis * sign * pow(10.0, (double) expo1));
|
||||
}
|
||||
here++;
|
||||
}
|
||||
}
|
||||
|
||||
/* now look for "E","e",etc to indicate an exponent */
|
||||
if ((*here == 'E') || (*here == 'e') || (*here == 'D')
|
||||
|| (*here == 'd')) {
|
||||
if ((*here == 'E') || (*here == 'e') || (*here == 'D') || (*here == 'd')) {
|
||||
|
||||
/* have an exponent, so skip the e */
|
||||
here++;
|
||||
|
||||
/* now look for exponent sign */
|
||||
if (*here == '+')
|
||||
here++; /* just skip + */
|
||||
here++; /* just skip + */
|
||||
else if (*here == '-') {
|
||||
here++; /* skip over minus sign */
|
||||
expsgn = -1; /* and make a negative exponent */
|
||||
here++; /* skip over minus sign */
|
||||
expsgn = -1; /* and make a negative exponent */
|
||||
/* now look for the digits of the exponent */
|
||||
}
|
||||
|
||||
while (isdigit(*here)) {
|
||||
expo2 = 10 * expo2 + *here - '0';
|
||||
here++;
|
||||
}
|
||||
}
|
||||
|
||||
/* now we have all of the numeric part of the number, time to
|
||||
* look for the scale factor (alphabetic)
|
||||
*/
|
||||
switch (*here) {
|
||||
case 't':
|
||||
case 'T':
|
||||
expo1 = expo1 + 12;
|
||||
break;
|
||||
case 'g':
|
||||
case 'G':
|
||||
expo1 = expo1 + 9;
|
||||
break;
|
||||
case 'k':
|
||||
case 'K':
|
||||
expo1 = expo1 + 3;
|
||||
break;
|
||||
case 'u':
|
||||
case 'U':
|
||||
expo1 = expo1 - 6;
|
||||
break;
|
||||
case 'n':
|
||||
case 'N':
|
||||
expo1 = expo1 - 9;
|
||||
break;
|
||||
case 'p':
|
||||
case 'P':
|
||||
expo1 = expo1 - 12;
|
||||
break;
|
||||
case 'f':
|
||||
case 'F':
|
||||
expo1 = expo1 - 15;
|
||||
break;
|
||||
case 'm':
|
||||
case 'M':
|
||||
{
|
||||
/* special case for m - may be m or mil or meg */
|
||||
if (here[1] != '\0' && here[2] != '\0') {
|
||||
/* at least 2 characters, so check them. */
|
||||
if ((here[1] == 'E') || (here[1] == 'e')) {
|
||||
if ((here[2] == 'G') || (here[2] == 'g')) {
|
||||
expo1 = expo1 + 6;
|
||||
if (gobble) {
|
||||
FREE(token);
|
||||
} else {
|
||||
*line = here;
|
||||
}
|
||||
return (sign * mantis *
|
||||
pow(10.0,
|
||||
(double) (expo1 + expsgn * expo2)));
|
||||
case 't':
|
||||
case 'T':
|
||||
expo1 = expo1 + 12;
|
||||
break;
|
||||
case 'g':
|
||||
case 'G':
|
||||
expo1 = expo1 + 9;
|
||||
break;
|
||||
case 'k':
|
||||
case 'K':
|
||||
expo1 = expo1 + 3;
|
||||
break;
|
||||
case 'u':
|
||||
case 'U':
|
||||
expo1 = expo1 - 6;
|
||||
break;
|
||||
case 'n':
|
||||
case 'N':
|
||||
expo1 = expo1 - 9;
|
||||
break;
|
||||
case 'p':
|
||||
case 'P':
|
||||
expo1 = expo1 - 12;
|
||||
break;
|
||||
case 'f':
|
||||
case 'F':
|
||||
expo1 = expo1 - 15;
|
||||
break;
|
||||
case 'm':
|
||||
case 'M':
|
||||
{
|
||||
/* special case for m - may be m or mil or meg */
|
||||
if (here[1] != '\0' && here[2] != '\0') {
|
||||
/* at least 2 characters, so check them. */
|
||||
if ((here[1] == 'E') || (here[1] == 'e')) {
|
||||
if ((here[2] == 'G') || (here[2] == 'g')) {
|
||||
expo1 = expo1 + 6;
|
||||
if (gobble) {
|
||||
FREE(token);
|
||||
} else {
|
||||
*line = here;
|
||||
}
|
||||
} else if ((here[1] == 'I') || (here[1] == 'i')) {
|
||||
if ((here[2] == 'L') || (here[2] == 'l')) {
|
||||
expo1 = expo1 - 6;
|
||||
mantis = mantis * 25.4;
|
||||
if (gobble) {
|
||||
FREE(token);
|
||||
} else {
|
||||
*line = here;
|
||||
}
|
||||
return (sign * mantis *
|
||||
pow(10.0,
|
||||
(double) (expo1 + expsgn * expo2)));
|
||||
return (sign * mantis *
|
||||
pow(10.0, (double) (expo1 + expsgn * expo2)));
|
||||
}
|
||||
} else if ((here[1] == 'I') || (here[1] == 'i')) {
|
||||
if ((here[2] == 'L') || (here[2] == 'l')) {
|
||||
expo1 = expo1 - 6;
|
||||
mantis = mantis * 25.4;
|
||||
if (gobble) {
|
||||
FREE(token);
|
||||
} else {
|
||||
*line = here;
|
||||
}
|
||||
return (sign * mantis *
|
||||
pow(10.0, (double) (expo1 + expsgn * expo2)));
|
||||
}
|
||||
}
|
||||
/* not either special case, so just m => 1e-3 */
|
||||
expo1 = expo1 - 3;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
/* not either special case, so just m => 1e-3 */
|
||||
expo1 = expo1 - 3;
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
|
||||
if (gobble) {
|
||||
FREE(token);
|
||||
} else {
|
||||
*line = here;
|
||||
}
|
||||
|
||||
return (sign * mantis *
|
||||
pow(10.0, (double) (expo1 + expsgn * expo2)));
|
||||
pow(10.0, (double) (expo1 + expsgn * expo2)));
|
||||
}
|
||||
|
|
|
|||
Loading…
Reference in New Issue