Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Correct float parsing when exponent has sign

Browse source
This commit is contained in:
Ekaitz Zarraga 2020-05-21 17:53:46 +02:00
parent d2006daa3c
commit ce1996f1a7
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/chibi/json.c
View file

@ -17,7 +17,7 @@ sexp sexp_json_exception (sexp ctx, sexp self, const char* msg, sexp str, const
sexp parse_json_number (sexp ctx, sexp self, sexp str, const char* s, int* i, const int len) {
double res = 0, scale = 1;
int j = *i, sign = 1, inexactp = 0;
int j = *i, sign = 1, inexactp = 0, scale_sign = 1;
if (s[j] == '+') {
++j;
} else if (s[j] == '-') {
@ -33,9 +33,17 @@ sexp parse_json_number (sexp ctx, sexp self, sexp str, const char* s, int* i, co
res /= scale;
} else if (j < len && sexp_tolower(s[j]) == 'e') {
inexactp = 1;
if (j+1 < len) {
if (s[j+1] == '+') {
++j;
} else if (s[j+1] == '-') {
++j;
scale_sign = -1;
}
}
for (++j, scale=0; j < len && isdigit(s[j]); )
scale = scale * 10 + s[j++] - '0';
res *= pow(10.0, scale);
res *= pow(10.0, scale_sign * scale);
}
*i = j;
return (inexactp || fabs(res) > SEXP_MAX_FIXNUM) ?