first eval commit

2013-10-11 17:36:51 +09:00
parent f5f1ac480b
commit 6b0c1aa668
9 changed files with 134 additions and 5 deletions
@@ -2,10 +2,17 @@
 #define PICRIN_H__

 #include <stddef.h>
+#include <stdbool.h>

 #include "picrin/value.h"

+struct pic_env {
+  pic_value assoc;
+  struct pic_env *parent;
+};
+
 typedef struct {
+  struct pic_env *global_env;
 } pic_state;

 void *pic_alloc(pic_state *, size_t);
@@ -19,10 +26,14 @@ pic_value pic_cons(pic_state *, pic_value, pic_value);
 pic_value pic_car(pic_state *, pic_value);
 pic_value pic_cdr(pic_state *, pic_value);

+bool pic_eq_p(pic_state *, pic_value, pic_value);
+
 pic_value pic_intern_cstr(pic_state *, const char *);

 pic_value pic_parse(pic_state *, const char *);

+pic_value pic_eval(pic_state *, pic_value, struct pic_env *);
+
 void pic_debug(pic_state *, pic_value);

 #endif
@@ -47,4 +47,6 @@ enum pic_tt pic_type(pic_value);
 pic_value pic_nil_value();
 pic_value pic_obj_value(void *);

+#define pic_nil_p(v) (pic_type(v) == PIC_TT_NIL)
+
 #endif