initial commit

main.c

@@ -0,0 +1,89 @@
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "common.h"
+
+#include "chunk.h"
+#include "gc.h"
+#include "parser.h"
+#include "vendor/mpc.h"
+#include "vm.h"
+
+void dump(const V *data, Z size) {
+  char ascii[17];
+  Z i, j;
+  ascii[16] = '\0';
+  for (i = 0; i < size; ++i) {
+    printf("%02X ", ((unsigned char *)data)[i]);
+    if (((unsigned char *)data)[i] >= ' ' &&
+        ((unsigned char *)data)[i] <= '~') {
+      ascii[i % 16] = ((unsigned char *)data)[i];
+    } else {
+      ascii[i % 16] = '.';
+    }
+    if ((i + 1) % 8 == 0 || i + 1 == size) {
+      printf(" ");
+      if ((i + 1) % 16 == 0) {
+        printf("|  %s \n", ascii);
+      } else if (i + 1 == size) {
+        ascii[(i + 1) % 16] = '\0';
+        if ((i + 1) % 16 <= 8) {
+          printf(" ");
+        }
+        for (j = (i + 1) % 16; j < 16; ++j) {
+          printf("   ");
+        }
+        printf("|  %s \n", ascii);
+      }
+    }
+  }
+}
+
+I repl(void) {
+  Bc chunk = {0};
+  Vm vm = {0};
+
+  vm_init(&vm);
+
+  I idx = chunk_add_constant(&chunk, NUM(10));
+  chunk_emit_byte(&chunk, OP_CONST);
+  chunk_emit_sleb128(&chunk, idx);
+  chunk_emit_byte(&chunk, OP_RETURN);
+
+  vm_run(&vm, &chunk, 0);
+
+  return 0;
+}
+
+I loadfile(const char *fname) {
+  Gc gc = {0};
+  gc_init(&gc);
+
+  mpc_result_t res;
+  if (!mpc_parse_contents(fname, Program, &res)) {
+    mpc_err_print_to(res.error, stderr);
+    mpc_err_delete(res.error);
+    gc_deinit(&gc);
+    return 1;
+  }
+
+  mpc_ast_print(res.output);
+  mpc_ast_delete(res.output);
+  gc_deinit(&gc);
+  return 0;
+}
+
+int main(int argc, const char *argv[]) {
+  parser_init();
+  atexit(parser_deinit);
+
+  switch (argc) {
+  case 1:
+    return repl();
+  case 2:
+    return loadfile(argv[1]);
+  default:
+    fprintf(stderr, "usage: growl [file]\n");
+    return 64;
+  }
+}