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

WIP - reading bignums

Browse source
This commit is contained in:
Justin Ethier 2017-02-10 00:37:41 -05:00
parent b9c8d2abf4
commit b9d6d5d873
2 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
include/cyclone/types.h
View file

@ -369,7 +369,7 @@ typedef struct {
n.hdr.mark = gc_color_red; \
n.hdr.grayed = 0; \
n.tag = bignum_tag; \
mp_init(&n);
mp_init(&(n.bn));
/* TODO: check return value of mp_init */
typedef struct {
@ -392,6 +392,7 @@ typedef struct {
#define integer_value(x) (((integer_type *) x)->value)
#define double_value(x) (((double_type *) x)->value)
#define bignum_value(x) (((bignum_type *) x)->bn)
/* Define string type */
typedef struct {

19
runtime.c
View file

@ -1708,6 +1708,18 @@ str2int_errno str2int(int *out, char *s, int base)
return STR2INT_SUCCESS;
}
int str_is_bignum(str2int_errno errnum, char *c)
{
if (errnum == STR2INT_INCONVERTIBLE) return 0; // Unexpected chars for int
for (;*c; c++) {
if (!isdigit(*c) && *c != '-') {
return 0;
}
}
return 1;
}
object Cyc_string2number_(void *data, object cont, object str)
{
int result, rv;
@ -1721,6 +1733,13 @@ object Cyc_string2number_(void *data, object cont, object str)
rv = str2int(&result, s, 10);
if (rv == STR2INT_SUCCESS) {
_return_closcall1(data, cont, obj_int2obj(result));
} else if (str_is_bignum(rv, s)) {
make_empty_bignum(bn);
// TODO: check return value
mp_read_radix(&(bignum_value(&bn)), s, 10);
_return_closcall1(data, cont, &bn);
} else {
char *str_end;
n = strtold(s, &str_end);