first commit

1 files changed, 62 insertions, 0 deletions

diff --git a/main.c b/main.c
new file mode 100644
index 0000000..34bad00
--- /dev/null
+++ b/main.c
@@ -0,0 +1,62 @@
+#include "parser.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#define MAX 50
+#define JUSTDO(a)                                                              \
+  if (!(a)) {                                                                  \
+    perror(#a);                                                                \
+    exit(1);                                                                   \
+  }
+
+extern ht_t *WORD_TABLE;
+extern array_t *STACK;
+extern char *INBUF;
+extern parser_t *PARSER;
+
+/** char *get_line  FILE *f
+ * reads an arbitrarily long line of text or until EOF
+ * caller must free the pointer returned after use
+ */
+char *get_line(FILE *f) {
+  int len = MAX;
+  char buf[MAX], *e = NULL, *ret;
+  JUSTDO(ret = calloc(MAX, 1));
+  while (fgets(buf, MAX, f)) {
+    if (len - strlen(ret) < MAX)
+      JUSTDO(ret = realloc(ret, len *= 2));
+    strcat(ret, buf);
+    if ((e = strrchr(ret, '\n')))
+      break;
+  }
+  if (e)
+    *e = '\0';
+  return ret;
+}
+
+int main(int argc, char **argv) {
+  PARSER = init_parser("");
+  value_t *v;
+  STACK = init_array(10);
+  WORD_TABLE = init_ht(500);
+
+  printf("exit to exit REPL;\n");
+  while (1) {
+    printf("> ");
+    INBUF = get_line(stdin);
+    parser_reset(PARSER, INBUF);
+    while (1) {
+      v = parser_get_next(PARSER);
+      if (v == NULL)
+        break;
+      eval(v);
+    }
+    free(INBUF);
+  }
+  ht_free(WORD_TABLE);
+  array_free(STACK);
+  free(PARSER);
+  free(INBUF);
+  return 0;
+}