main.c

#include <stdio.h>
#include <stdlib.h>
#include <pwd.h>
#include <unistd.h>
#include <sys/types.h>
#include "vm.h"
#include "str.h"
#include "builtin.h"

static void
repl(struct VM *vm, int pos, FILE* stream) {
  int ref = pos++;
  for (int i=0; ; i++) {
    if (stream == stdin) {
      printf("%d #> ", i);
    }

    struct SexpReader r = {.pkgMapping = Nil};
    int errCode = 0;
    Obj exp = sexpRead(vm, pos, &r, stream, &errCode);
    if (errCode != 0) {
      break;
    }

    /* printf("before macro expand =="); */
    /* sexpWrite(stdout, exp); */

    vmSet(vm, ref, exp);
    exp = macroExpand(vm, pos, ref);

    /* printf("after macro expand =="); */
    /* sexpWrite(stdout, exp); */
    /* printf("\n"); */

    vmSet(vm, ref, exp);
    Obj res = eval(vm, pos, ref);

    if (stream == stdin) {
      sexpWrite(stdout, res);
      printf("\n");
    }
  }
}


int main(int argc, char *argv[]) {
  struct VM* vm = newVM();
  int pos = 0;

  // CORA PATH
  strBuf tmp = getCoraPath();
  strBuf tmp1 = strDup(toStr(tmp));
  loadByteCode(vm, pos, toStr(strCat(tmp, cstr("cora/init.bc"))));
  loadByteCode(vm, pos, toStr(strCat(tmp1, cstr("cora/compile.bc"))));
  repl(vm, pos, stdin);
}

/* static void */
/* replBytecode(struct VM *vm, FILE* stream) { */
/*   for (int i=0; ; i++) { */
/*     printf("%d #> ", i); */

/*     int err = 0; */
/*     struct SexpReader r = {.pkgMapping = Nil}; */
/*     int errCode; */
/*     Obj exp = sexpRead(&r, stdin, &errCode); */
/*     if (err != 0) { */
/*       break; */
/*     } */

/*     char *exec = bytecodeToExec(exp); */
/*     Obj res = run(&vm, exec); */

/*     sexpWrite(stdout, res); */
/*     printf("\n"); */
/*   } */
/* } */