pebblisp/src/env.h

#ifndef ENVIRONMENT_H
#define ENVIRONMENT_H

#include "object.h"
#include "hash.h"

struct StrippedObject {
    Type type;
    void* data;
};

struct EnvElement {
    char* symbol;
    struct StrippedObject object;
};

struct Environment;
struct Environment {
    struct Environment* outer;
    struct ObjectTable table;
    // struct EnvElement* elements; // iterative
    // int capacity; // iterative

    int refs;
};

Object deStrip(struct StrippedObject object);

struct Environment* global();

void setGlobal(struct Environment* env);

Object fetchFromEnvironment(const char* name, struct Environment* env);

struct Environment envForLambda(const Object* params, const Object* arguments, int paramCount,
                                struct Environment* outer);

void addToEnv(struct Environment* env, const char* name, Object obj);

void printEnv(struct Environment* env, int printPointers);

void addFunc(const char* name,
             Object (* func)(Object*, int, struct Environment*),
             struct Environment* env,
             int i);

void deleteEnv(struct Environment* e);

void shredDictionary();

struct Environment defaultEnv();

struct Environment defaultEnvPreAllocated(struct EnvElement* elements);

int getStructIndex(const char* name);

struct StructDef* getStructAt(int i);

void addStructDef(struct StructDef def);

void printColored(const char* code);

int runTests(int detailed);

int getTotalSearchDepth();

int getTotalSearches();

#define unused __attribute__((unused))

#define array_length(_array) (sizeof(_array) / sizeof((_array)[0]))

#define fnn(_name, _docs, ...) \
static const char * const _name ## Doc = _docs; \
unused static const char * const _name ## Tests[] = {__VA_ARGS__}; \
_Static_assert(array_length(_name ## Tests) % 2 == 0, "Array of test strings must have exactly one expected result for each test."); \
Object _name(Object* params, int length, struct Environment* env)

#define fn(_name, _symbol, _docs, ...) \
static const char * const _name ## Symbol = _symbol; \
fnn(_name, _docs, __VA_ARGS__)

fn(segfault, "seg",
   "Induces a segfault."
);

fn(help, "?",
   "Gets a string with help text for the given function.\n"
   "For example:\n"
   "  (? islist) => \"(islist (1 2 3)) => T\""
);


#endif