47 lines
862 B
C
47 lines
862 B
C
#include <gc.h>
|
|
#include <gmp.h>
|
|
|
|
// Example S-exprs
|
|
// https://www.hboehm.info/gc/04tutorial.pdf
|
|
|
|
typedef union se
|
|
{
|
|
struct cons * cp;
|
|
mpz_t i;
|
|
} sexpr;
|
|
|
|
struct cons
|
|
{
|
|
union se head;
|
|
union se tail;
|
|
};
|
|
|
|
#define car(s) (s).cp->head
|
|
#define cdr(s) (s).cp->tail
|
|
#define from_i(z) ({sexpr tmp; tmp.i=z; tmp;})
|
|
#define to_i(s) (s).i
|
|
|
|
sexpr cons(sexpr a, sexpr b) {
|
|
sexpr tmp = {GC_MALLOC(sizeof(struct cons))};
|
|
car(tmp) = a; cdr(tmp) = b;
|
|
return (tmp);
|
|
};
|
|
|
|
void* reallocate_function (void *ptr, size_t old_size, size_t new_size) {
|
|
return GC_realloc(ptr, new_size);
|
|
}
|
|
void deallocate_function (void *ptr, size_t size) {
|
|
GC_free(ptr);
|
|
}
|
|
int main(void)
|
|
{
|
|
mp_set_memory_functions(
|
|
&GC_malloc,
|
|
&reallocate_function,
|
|
&deallocate_function
|
|
);
|
|
return 0;
|
|
//return to_i(car(cons(from_i(0),from_i(1))));
|
|
}
|
|
|