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

WIP, testing str->bignum2

Browse source
This commit is contained in:
Justin Ethier 2022-06-13 21:49:51 -04:00
parent 0b929e5582
commit 63b62751fc
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
test-bn.scm
View file

@ -13,6 +13,14 @@
; return_closcall1(data, k, bn); ; return_closcall1(data, k, bn);
; ") ; ")
(define-c test-str2bn
"(void *data, int argc, closure _, object k, object str, object radix)"
" int len = string_len(str);
char *s = string_str(str);
bignum2_type *bn = gc_alloc_bignum2(data, len);
bn = str_to_bignum(data, bn, s, s + len, obj_obj2int(radix));
return_closcall1(data, k, bn); ")
(define-c test-plus (define-c test-plus
"(void *data, int argc, closure _, object k, object fx1, object fx2)" "(void *data, int argc, closure _, object k, object fx1, object fx2)"
" object bn1 = Cyc_int2bignum2(data, obj_obj2int(fx1)); " object bn1 = Cyc_int2bignum2(data, obj_obj2int(fx1));
@ -44,6 +52,12 @@ if(is_value_type(result)) {
(write (test-bn 123456789)) (write (test-bn 123456789))
(newline) (newline)
(write (test-str2bn "123454354534523454243999" 10))
(newline)
(write (test-str2bn "123454354534523454243999" 16))
(newline)
(map (map
(lambda (row) (lambda (row)
(write row) (write row)