From 5eeb355805e0d5d91981dbe7eacb078f41da0437 Mon Sep 17 00:00:00 2001 From: Felix Perktold Date: Sat, 20 Dec 2025 21:59:28 +0100 Subject: init commit --- lisp.h | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 lisp.h (limited to 'lisp.h') diff --git a/lisp.h b/lisp.h new file mode 100644 index 0000000..535bc50 --- /dev/null +++ b/lisp.h @@ -0,0 +1,37 @@ +#ifndef LISP_H +#define LISP_H + +typedef enum { + VALTYPE_INT, + VALTYPE_DOUBLE, + VALTYPE_SYMBOL, + VALTYPE_STRING, + VALTYPE_NIL, + VALTYPE_PAIR +} val_type; + +typedef struct value value; +struct value { + val_type type; + union { + int i; + double d; + const char *sym; + const char *str; + struct { + value *car; + value *cdr; + } pair; + } 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 *cons(value *car, value *cdr); + +void *print_val(value *val); + +#endif -- cgit v1.2.3