58 if (*here ==
'\0' || ((!(isdigit(*here))) && (*here !=
'.'))) {
71 while (isdigit(*here)) {
73 mantis = 10*mantis + (*here -
'0');
84 return ((
double)mantis*sign);
103 return ((
double)mantis*sign);
105 while (isdigit(*here)) {
107 mantis = 10*mantis + (*here -
'0');
117 return (mantis*sign*pow(10.0,(
double)expo1));
123 if ((*here ==
'E') || (*here ==
'e') ||
124 (*here ==
'D') || (*here ==
'd')) {
138 while (isdigit(*here)) {
139 expo2 = 10*expo2 + (*here -
'0');
185 if (*(here+1) !=
'\0' && *(here+2) !=
'\0') {
187 if ((*(here+1) ==
'E') || (*(here+1) ==
'e')) {
188 if ((*(here+2) ==
'G') || (*(here+2) ==
'g')) {
198 pow(10.0,(
double)(expo1 + expsgn*expo2)));
201 else if ((*(here+1) ==
'I') || (*(here+1) ==
'i')) {
202 if ( (*(here+2) ==
'L') || (*(here+2) ==
'l')) {
205 mantis = mantis*25.4;
213 pow(10.0,(
double)(expo1 + expsgn*expo2)));
230 return (sign*mantis*pow(10.0,(
double)(expo1 + expsgn*expo2)));
double INPevaluate(char **line, int *error, int gobble)