add eval

1 files changed, 37 insertions, 2 deletions

diff --git a/src/interp.h b/src/interp.h
index 6ec1c6d..b82fcd7 100644
--- a/src/interp.h
+++ b/src/interp.h
@@ -5,18 +5,35 @@
 
 #include <algds/hash_table.h>
 
+#include "algds/vec.h"
 #include "sexp.h"
 
+
+struct interp;
+typedef struct interp Interp;
+
+typedef SExpRef (*LispPrimitive)(Interp *interp, SExpRef sexp);
+
 typedef struct {
+    const char *name;
+    LispPrimitive fn;
+} PrimitiveEntry;
+
+VECTOR_DEF(PrimitiveEntry);
+
+struct interp {
     bool gc_paused;
     SExpVector objs;
+    PrimitiveEntryVector primitives;
     IntVector empty_space;
     String2IntHashTable symbols;
     SExpRef stack;
     SExpRef evaluating;
     SExpRef top_level;
     SExpRef nil;
-} Interp;
+    char *errmsg_buf;
+};
+
 
 void Interp_init(Interp *self);
 void Interp_free(Interp *self);
@@ -24,7 +41,26 @@ SExp* Interp_ref(Interp *self, SExpRef ref);
 void Interp_gc(Interp *self);
 void Interp_pause_gc(Interp *self);
 void Interp_restart_gc(Interp *self);
+void Interp_add_primitive(Interp *self, const char *name, LispPrimitive fn);
+
+SExpRef primitive_car(Interp *interp, SExpRef sexp);
+SExpRef primitive_cdr(Interp *interp, SExpRef sexp);
+SExpRef primitive_cons(Interp *interp, SExpRef sexp);
+SExpRef primitive_add(Interp *interp, SExpRef sexp);
+SExpRef primitive_sub(Interp *interp, SExpRef sexp);
+
+SExpRef lisp_cons(Interp *ctx, SExpRef car, SExpRef cdr);
+SExpRef lisp_dup(Interp *ctx, SExpRef val);
+SExpRef lisp_car(Interp *ctx, SExpRef val);
+SExpRef lisp_cdr(Interp *ctx, SExpRef val);
+SExpRef lisp_eval(Interp *ctx, SExpRef val);
+SExpRef lisp_eval_args(Interp *ctx, SExpRef val);
+SExpRef lisp_add(Interp *ctx, SExpRef lhs, SExpRef rhs);
+SExpRef lisp_sub(Interp *ctx, SExpRef lhs, SExpRef rhs);
+SExpRef lisp_mul(Interp *ctx, SExpRef lhs, SExpRef rhs);
+SExpRef lisp_div(Interp *ctx, SExpRef lhs, SExpRef rhs);
 
+SExpRef new_error(Interp *interp, const char *format, ...);
 SExpRef new_sexp(Interp *ctx);
 SExpRef new_boolean(Interp *ctx, bool val);
 SExpRef new_char(Interp *ctx, char val);
@@ -32,7 +68,6 @@ SExpRef new_integer(Interp *ctx, int64_t val);
 SExpRef new_real(Interp *ctx, double val);
 SExpRef new_string(Interp *ctx, const char *val);
 SExpRef new_symbol(Interp *ctx, const char *val);
-SExpRef cons(Interp *ctx, SExpRef car, SExpRef cdr);
 SExpRef new_list1(Interp *ctx, SExpRef e1);
 SExpRef new_list2(Interp *ctx, SExpRef e1, SExpRef e2);
 SExpRef new_list3(Interp *ctx, SExpRef e1, SExpRef e2, SExpRef e3);