From b86d3361836935297c6aedb0318ed8a34e4c52f0 Mon Sep 17 00:00:00 2001
From: Felix Perktold <Felix.Perktold@student.uibk.ac.at>
Date: Sun, 18 Jan 2026 14:21:34 +0100
Subject: refactor lisp.h into public lisp_api.h and internal lisp.h

---
 lisp_api.h | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 lisp_api.h

(limited to 'lisp_api.h')

diff --git a/lisp_api.h b/lisp_api.h
new file mode 100644
index 0000000..70d317b
--- /dev/null
+++ b/lisp_api.h
@@ -0,0 +1,52 @@
+#ifndef LISP_API_H
+#define LISP_API_H
+
+typedef struct value value;
+typedef struct env env;
+
+typedef enum {
+	VT_INT,
+	VT_DOUBLE,
+	VT_SYMBOL,
+	VT_STRING,
+	VT_NIL,
+	VT_PAIR,
+	VT_LAMBDA,
+	VT_BUILTIN
+} val_type;
+
+struct value {
+	val_type type;
+	union {
+		int i;
+		double d;
+		const char *sym;
+		const char *str;
+		struct {
+			value *car;
+			value *cdr;
+		} pair;
+		struct {
+			value *params;
+			value *body;
+			env *env;
+		} lambda;
+		struct {
+			value *(*fn) (env *, value *);
+		} builtin;
+	} as;
+};
+
+value *make_int(int i);
+value *make_double(double d);
+value *make_symbol(const char *sym);
+value *make_string(const char *str);
+value *make_nil();
+value *make_lambda(env *e, value *params, value *body);
+value *make_builtin(value *(*fn) (env *, value *));
+value *cons(value *car, value *cdr);
+value *car(value *cons);
+value *cdr(value *cons);
+value *reverse(value *list);
+
+#endif
-- 
cgit v1.2.3