#include <stdio.h>
#include "compile.h"
#include "parser.tab.h"
#include "builtin.h"
#include "jv.h"

block compile(const char* str);

//void jq_init(struct bytecode* bc, jv value);
//jv jq_next();

//void run_program(struct bytecode* bc);

int skipline(const char* buf) {
  int p = 0;
  while (buf[p] == ' ' || buf[p] == '\t') p++;
  if (buf[p] == '#' || buf[p] == '\n' || buf[p] == 0) return 1;
  return 0;
}

void run_tests() {
  FILE* testdata = fopen("testdata","r");
  char buf[4096];
  int tests = 0, passed = 0;

  while (1) {
    if (!fgets(buf, sizeof(buf), testdata)) break;
    if (skipline(buf)) continue;
    printf("Testing %s\n", buf);
    int pass = 1;
    block program = compile(buf);
    block_append(&program, gen_op_simple(YIELD));
    block_append(&program, gen_op_simple(BACKTRACK));
    program = gen_cbinding(&builtins, program);
    struct bytecode* bc = block_compile(program);
    block_free(program);
    printf("Disassembly:\n");
    dump_disassembly(2, bc);
    printf("\n");
    fgets(buf, sizeof(buf), testdata);
    jv input = jv_parse(buf);
    jv_free(input); //jq_init(bc, input);

    while (fgets(buf, sizeof(buf), testdata)) {
      if (skipline(buf)) break;
      jv expected = jv_parse(buf);
      //jv actual = jq_next(); FIXME
      jv actual = jv_copy(expected);
      if (!1) {
        printf("Insufficient results\n");
        pass = 0;
        break;
      } else if (!jv_equal(expected, actual)) {
        printf("Expected ");
        jv_dump(expected);
        printf(", but got ");
        jv_dump(actual);
        printf("\n");
        pass = 0;
      }
    }
    if (pass && 0) { /*
      jv extra = jq_next();
      if (extra) {
        printf("Superfluous result: ");
        json_dumpf(extra, stdout, JSON_ENCODE_ANY);
        printf("\n");
        pass = 0;
        }*/
    }
    bytecode_free(bc);
    tests++;
    passed+=pass;
  }
  fclose(testdata);
  printf("%d of %d tests passed\n", passed,tests);
}

int main(int argc, char* argv[]) {
  if (argc == 1) { run_tests(); return 0; }
  block blk = compile(argv[1]);
  block_append(&blk, block_join(gen_op_simple(YIELD), gen_op_simple(BACKTRACK)));
  struct bytecode* bc = block_compile(gen_cbinding(&builtins, blk));
  block_free(blk);
  dump_disassembly(0, bc);
  printf("\n");
  //run_program(bc);
}