Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP string->number error detection

Browse source
This commit is contained in:
Justin Ethier 2016-11-16 17:29:40 +00:00
parent 12770291b7
commit 0f04b9a935
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
runtime.c
View file

@ -1694,6 +1694,14 @@ int str2double(double *out, char *s)
return 0; return 0;
} }
int str2double_error(char *str, double result) {
//int i, len = strlen(str);
//for (i = 0; i < len; i++) {
// if (!isspace(str[i]) && str[i] != '.' &&
//}
return 0;
}
object Cyc_string2number_(void *data, object cont, object str) object Cyc_string2number_(void *data, object cont, object str)
{ {
int result, rv; int result, rv;
@ -1709,9 +1717,11 @@ object Cyc_string2number_(void *data, object cont, object str)
_return_closcall1(data, cont, obj_int2obj(result)); _return_closcall1(data, cont, obj_int2obj(result));
} else { } else {
str2double(&n, s); str2double(&n, s);
{ if (n > 0.0L || n < 0.0L || !str2double_error(s, n)) {
make_double(result, n); make_double(result, n);
_return_closcall1(data, cont, &result); _return_closcall1(data, cont, &result);
} else {
_return_closcall1(data, cont, boolean_f);
} }
} }
} else { } else {