interim/sledge/alloc.h

#ifndef MINILISP_ALLOC_H
#define MINILISP_ALLOC_H

#include "minilisp.h"
#include <string.h>
#include <stdio.h>
#include "strmap.h"

#define env_t StrMap

#if defined(CPU_ARM) || defined(CPU_X86) || defined(__AMIGA)
#define STACK_FRAME_MARKER 0xf0000001
#endif

#ifdef CPU_X64
// functions store a pointer to their own definition ORed with this marker on the stack
#define STACK_FRAME_MARKER 0xf000000000000001
#endif

enum cell_allocator_t {
  CA_STACK,
  CA_HEAP
};

typedef struct MemStats {
  unsigned long byte_heap_used;
  unsigned long byte_heap_max;
  unsigned long cells_used;
  unsigned long cells_max;
} MemStats;

void init_allocator();

Cell* get_cell_heap();
void* cell_malloc(int num_bytes);
void* cell_realloc(void* old_addr, unsigned int old_size, unsigned int num_bytes);
Cell* collect_garbage(env_t* global_env, void* stack_end, void* stack_pointer);
Cell* list_symbols(env_t* global_env);

Cell* alloc_cons(Cell* ar, Cell* dr);
Cell* alloc_list(Cell** items, int num);
Cell* alloc_sym(char* str);
Cell* alloc_bytes();
Cell* alloc_num_bytes(unsigned int num_bytes);
Cell* alloc_string();
Cell* alloc_num_string(unsigned int num_bytes);
Cell* alloc_string_copy(char* str);
Cell* alloc_string_from_bytes(Cell* bytes);
Cell* alloc_concat(Cell* str1, Cell* str2);
Cell* alloc_substr(Cell* str, unsigned int from, unsigned int len);
Cell* alloc_int(int i);
Cell* alloc_nil();
Cell* alloc_error(unsigned int code);
Cell* alloc_lambda(Cell* args);
Cell* alloc_builtin(unsigned int b, Cell* signature);
Cell* alloc_clone(Cell* orig);
Cell* alloc_struct_def(int size);
Cell* alloc_struct(Cell* struct_def);
Cell* alloc_vector(int size);

MemStats* alloc_stats();

void  free_tree(Cell* root);

#endif