schaf.h

#ifndef SCHAF_H
#define SCHAF_H

#include <stdbool.h>
#include <stdint.h>

#include "utils.h"

typedef enum {
// immediate
    TYPE_BOOL,
    TYPE_INT,
    TYPE_SYMBOL,
    TYPE_NULL,
    TYPE_UNDEF,
// boxed (tagged)
    TYPE_PAIR,
    TYPE_STRING,
    TYPE_PROC,
} Type;

typedef uintptr_t Value;
typedef uintptr_t Symbol;

extern const Value Qnil, Qundef, Qfalse, Qtrue;

void sch_init(uintptr_t *base);
#define SCH_INIT() uintptr_t sch_stack_base = 0; sch_init(&sch_stack_base)
int sch_fin(void);
int sch_exit_status(void);

bool value_is_null(Value v);
bool value_is_int(Value v);
bool value_is_symbol(Value v);
bool value_is_string(Value v);
bool value_is_pair(Value v);
Type value_type_of(Value v);

int64_t value_to_int(Value v);
Symbol value_to_symbol(Value v);
const char *value_to_string(Value v);
const char *value_to_type_name(Value v);

Value value_of_int(int64_t i);
Value value_of_symbol(const char *s);
Value value_of_string(const char *s);

Value cons(Value car, Value cdr);
int64_t length(Value list);

Value car(Value v);
Value cdr(Value v);

ATTR_XMALLOC char *stringify(Value v);
void display(Value v);
Value parse(const char *path);
Value parse_string(const char *in);
Value load(const char *path);
Value eval_string(const char *s);

const char *error_message(void);

void sch_set_gc_init_size(double mib);
void sch_set_gc_stress(bool b);

#endif