sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Create an int and add ints.

This commit is contained in:
Simon Forman 2022-09-22 20:08:24 -07:00
parent 5caa685bab
commit ae864909ee
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
implementations/C/joy
View File

Binary file not shown.

22
implementations/C/joy.c
View File

@ -40,6 +40,14 @@ void my_callback(GC_PTR void_obj, GC_PTR void_environment) {
mpz_clear(*obj); mpz_clear(*obj);
} }
sexpr new_int(void) {
sexpr tmp = {GC_MALLOC(sizeof(struct cons))};
mpz_init(tmp.i);
GC_register_finalizer(tmp.i, my_callback, NULL, NULL, NULL);
return (tmp);
}
int main(void) int main(void)
{ {
mp_set_memory_functions( mp_set_memory_functions(
@ -47,11 +55,15 @@ int main(void)
&reallocate_function, &reallocate_function,
&deallocate_function &deallocate_function
); );
mpz_t pie; mpz_t pi;
//mpz_init_set_str (pie, "3141592653589793238462643383279502884", 10); //mpz_init_set_str (pi, "3141592653589793238462643383279502884", 10);
mpz_init_set_str (pie, "25d0c79fe247f31777d922627a74624", 16); mpz_init_set_str (pi, "25d0c79fe247f31777d922627a74624", 16);
gmp_printf ("%Zd = %Zx\n", pie, pie); gmp_printf ("%Zd = %Zx\n", pi, pi);
GC_register_finalizer(pie, my_callback, NULL, NULL, NULL); GC_register_finalizer(pi, my_callback, NULL, NULL, NULL);
sexpr i = new_int();
mpz_add(i.i, pi, pi);
gmp_printf ("%Zd\n", i.i);
return 0; return 0;
//return to_i(car(cons(from_i(0),from_i(1)))); //return to_i(car(cons(from_i(0),from_i(1))));