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

I think I'm doing this right?

This commit is contained in:
Simon Forman 2023-02-01 15:25:21 -08:00
parent 5a32c649f9
commit e44dd3c9e6
2 changed files with 21 additions and 3 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.

24
implementations/C/joy.c
View File

@ -10,21 +10,21 @@ enum JoyTypeType {
joyList joyList
}; };
typedef struct list_node* JoyList;
struct JoyType { struct JoyType {
enum JoyTypeType kind; enum JoyTypeType kind;
union { union {
int boolean; int boolean;
mpz_t i; mpz_t i;
JoyList el; struct list_node* el;
} value; } value;
} name ; } name ;
struct list_node { struct list_node {
struct JoyType head; struct JoyType head;
struct list_node* tail; struct list_node* tail;
}; } JoyList;
void* void*
@ -32,11 +32,13 @@ reallocate_function (void *ptr, __attribute__((unused)) size_t old_size, size_t
return GC_REALLOC(ptr, new_size); return GC_REALLOC(ptr, new_size);
} }
void void
deallocate_function (void *ptr, __attribute__((unused)) size_t size) { deallocate_function (void *ptr, __attribute__((unused)) size_t size) {
GC_FREE(ptr); GC_FREE(ptr);
} }
void void
my_callback(GC_PTR void_obj, __attribute__((unused)) GC_PTR void_environment) { my_callback(GC_PTR void_obj, __attribute__((unused)) GC_PTR void_environment) {
/*MY_ENVIRONMENT *env = (MY_ENVIRONMENT)void_environment;*/ /*MY_ENVIRONMENT *env = (MY_ENVIRONMENT)void_environment;*/
@ -45,10 +47,25 @@ my_callback(GC_PTR void_obj, __attribute__((unused)) GC_PTR void_environment) {
} }
struct list_node*
push_integer_from_str(char *str, struct list_node* tail)
{
struct list_node* el;
el = GC_malloc(sizeof(struct list_node));
el->head.kind = joyInt;
mpz_init_set_str((mpz_ptr)&(el->head.value), str, 10);
GC_register_finalizer((mpz_ptr)&(el->head.value), my_callback, NULL, NULL, NULL);
el->tail = tail;
return el;
}
int int
main(void) main(void)
{ {
mpz_t pi; mpz_t pi;
struct list_node* el;
mp_set_memory_functions( mp_set_memory_functions(
&GC_malloc, &GC_malloc,
&reallocate_function, &reallocate_function,
@ -62,6 +79,7 @@ main(void)
mpz_mul(pi, pi, pi); mpz_mul(pi, pi, pi);
gmp_printf("%Zd = %Zx\n", pi, pi); gmp_printf("%Zd = %Zx\n", pi, pi);
el = push_integer_from_str("3141592653589793238462643383279502884", 0);
/*sexpr i = new_int();*/ /*sexpr i = new_int();*/
/*mpz_add(i.i, pi, pi);*/ /*mpz_add(i.i, pi, pi);*/