1 files changed, 34 insertions, 0 deletions

diff --git a/src/bootstrap/environment.h b/src/bootstrap/environment.h
new file mode 100644
index 0000000..cc13921
--- /dev/null
+++ b/src/bootstrap/environment.h
@@ -0,0 +1,34 @@
+#ifndef BDL_ENVIRONMENT_H
+#define BDL_ENVIRONMENT_H
+
+#include "objects.h"
+
+typedef struct EnvEntry {
+    Object *symbol;
+    Object *value;
+} EnvEntry;
+
+typedef struct Environment {
+    struct Environment *parent;
+    EnvEntry *buf;
+    size_t size;
+    size_t cap;
+    bool marked;
+} Environment;
+
+Environment * env_create(Environment *parent);
+void env_add_symbol(Environment *env, Object *symbol, Object *value);
+Object * env_lookup(Environment *env, Object *symbol);
+Object * env_update(Environment *env, Object *symbol, Object *value);
+ssize_t env_index_current(Environment *env, Object *symbol);
+void env_add_or_update_current(Environment *env, Object *symbol, Object *value);
+Environment * env_extend(Environment *parent, Environment *extra);
+
+#define MAKE_ENV_VAR(ENV,STR,VAR) \
+    (env_add_symbol((ENV), MAKE_SYM(STR), (VAR)))
+#define MAKE_ENV_PROC(ENV,STR,FUN) \
+    (env_add_symbol((ENV), MAKE_SYM(STR), make_procedure(FUN)))
+
+#define ENV_BUF_CAP 8
+
+#endif // BDL_ENVIRONMENT_H