#include <nall/string.hpp>
using namespace nall;

FILE *fp;

string data, output_op;
lstring line, part, subpart;

struct OpList {
  string name;
  lstring arg;
} op_list[64];

int32_t op_count, line_num;

void clear_op_list() {
  op_count = 0;
  for(unsigned i = 0; i < 64; i++) {
    strcpy(op_list[i].name, "");
    for(unsigned l = 0; l < 8; l++) {
      strcpy(op_list[i].arg[l], "");
    }
  }
}

void gen_begin() {
  int i = line_num;
  clear_op_list();

  while(true) {
    int z = op_count++;
    string temp = line[i];
    rtrim(temp, "),");
    rtrim(temp, ") {");
    split(subpart, "(", temp);
    strcpy(op_list[z].name, subpart[0]);
    split(part, ", ", subpart[1]);
    for(unsigned l = 0; l < count(part); l++) {
      strcpy(op_list[z].arg[l], part[l]);
    }
    if(strend(line[i], " {") == true) break;
    i++;
  }

  strcpy(output_op, "//$$\r\ncase $0: {\r\n");
  line_num = i + 1;
}

void update_line(int i) {
  replace(line[i], "end;", "break;");
}

void gen_op() {
  int i = line_num, n, c;
  char t[4096];
  while(true) {
    if(!strcmp(line[i], "}"))break;

    //remove cycle number
    n = strdec((const char*)line[i]);
    sprintf(t, "%d:", n);
    ltrim(line[i], t);
    //sprintf(t, "//%d:\r\n", n);
    //strcat(output_op, t);

    update_line(i);
    if(strcmp(line[i], "")) {
      strcat(output_op, "  ");
      strcat(output_op, line[i]);
      strcat(output_op, "\r\n");
    }

    i++;
    while(true) {
      if(line[i][1] == ':' || line[i][2] == ':' || line[i] == "}") break;

      update_line(i);
      strcat(output_op, line[i]);
      strcat(output_op, "\r\n");

      i++;
    }
  }

  strcat(output_op, "} break;");
  line_num = i + 1;
}

void gen_end() {
  string t;
  for(unsigned i = 0; i < op_count; i++) {
    t = output_op;
    replace(t, "$$", op_list[i].name);
    replace(t, "$0", op_list[i].arg[0]);
    replace(t, "$1", op_list[i].arg[1]);
    replace(t, "$2", op_list[i].arg[2]);
    replace(t, "$3", op_list[i].arg[3]);
    replace(t, "$4", op_list[i].arg[4]);
    replace(t, "$5", op_list[i].arg[5]);
    replace(t, "$6", op_list[i].arg[6]);
    replace(t, "$7", op_list[i].arg[7]);
    fprintf(fp, "%s\r\n\r\n", (const char*)t);
  }
}

void generate(const char *dest, const char *src) {
  fread(data, src);
  replace(data, "\r\n", "\n");
  split(line, "\n", data);

  fp = fopen(dest, "wb");
  string header = CLASS_NAME;
  fprintf(fp, "#ifdef %s_CPP\n\n", (const char*)strupper(header));  //inclusion guard

  line_num = 0;
  while(line_num < count(line)) {
    while(line_num < count(line) && !strcmp(line[line_num], "")) line_num++;
    if(line_num >= count(line)) break;

    gen_begin();
    gen_op();
    gen_end();
  }

  fprintf(fp, "#endif\n");
  fclose(fp);
}