init

1 files changed, 80 insertions, 0 deletions

diff --git a/src/sexp.h b/src/sexp.h
new file mode 100644
index 0000000..dfbc4d9
--- /dev/null
+++ b/src/sexp.h
@@ -0,0 +1,80 @@
+#ifndef BAMBOO_LISP_SEXP_H_
+#define BAMBOO_LISP_SEXP_H_
+
+#include <stdint.h>
+#include <stdbool.h>
+
+#include <algds/vec.h>
+
+struct sexp;
+typedef struct sexp SExp;
+
+typedef struct {
+    int idx;
+} SExpRef;
+
+typedef struct {
+    SExpRef car;
+    SExpRef cdr;
+} SExpPair;
+
+typedef struct {
+    SExpRef args;
+    SExpRef body;
+} SExpFunc;
+
+typedef struct {
+    SExpRef args;
+    SExpRef body;
+} SExpMacro;
+
+typedef struct {
+    SExpRef parent;
+    SExpRef child;
+    SExpRef bindings;
+} SExpEnv;
+
+typedef struct {
+    SExpRef name;
+    SExpRef value;
+    SExpRef func;
+    SExpRef next;
+} SExpBinding;
+
+typedef enum {
+    kIntegerSExp,
+    kRealSExp,
+    kBooleanSExp,
+    kNumberSExp,
+    kCharSExp,
+    kStringSExp,
+    kSymbolSExp,
+    kUserDataSExp,
+    kPairSExp,
+    kFuncSExp,
+    kEnvSExp,
+    kBindingSExp,
+    kMacroSExp,
+} SExpType;
+
+struct sexp {
+    SExpType type;
+    union {
+        int64_t integer;
+        double real;
+        bool boolean;
+        char character;
+        const char *str;
+        const void *userdata;
+        SExpPair pair;
+        SExpFunc func;
+        SExpEnv env;
+    };
+};
+
+void SExp_show(SExp self, FILE* fp);
+
+VECTOR_DEF(SExp);
+
+#endif
+