#include <getopt.h>

#include "util.h"
#include "parser.h"
#include "search.h"
#include "eval.h"
#include "lib.h"

recipe ** cookbook;

static struct opts {
  int json;
  int html;
  int rcp;
  char query[2048];
  char add_val[100][2048];
  char includes[100][2048];
  int includes_n;
  int title;
  int eval;
  int add;
  int add_n;
  int list;
  int hash;
  int search;
  int search_strict;
  int help;
} opt = {
  .json = 0,
  .html = 0,
  .rcp = 0,
  .query = "",
  .add_val = {""},
  .includes = {""},
  .includes_n = 0,
  .eval = 1,
  .add = 0,
  .add_n = 0,
  .title = 0,
  .list = 0,
  .hash = 0,
  .search = 0,
  .search_strict = 0,
  .help = 0,
};

void
print_help(char * argv0) {
  printf("%s [OPTION] FILE ...\n", argv0);
  printf("OPTIONS:\n");
  printf("--format json,html,rcp\n");
  printf("--to-{json,html,rcp}\n");
  printf("-j json\n");
  printf("-w html\n");
  printf("-r rcp\n");
  printf("-l, --list-ingredients\n");
  printf("-s TERMS, --search TERMS\n");
  printf("-S TERMS, --strict TERMS\n");
  printf("-n, --no-eval\n");
}

int
main(int argc, char * argv[])
{
  fdebug("--- Debug mode is on ---\n");

  int c;

  while (1) {
    static struct option long_options[] =
      {
        /* <span class="roman">These options set a flag.</span> */
        //        {"verbose", no_argument,       &verbose_flag, 1},
        //        {"brief",   no_argument,       &verbose_flag, 0},
        {"help",              no_argument,       0, 'h'},
        {"no-eval",           no_argument,       0, 'n'},
        {"to-json",           no_argument,       0, 'j'},
        {"to-html",           no_argument,       0, 'w'},
        {"to-rcp",            no_argument,       0, 'r'},
        {"add-item",          required_argument, 0, 'a'},
        //{"add-step",          required_argument, 0, 'o'},
        {"format",            required_argument, 0, 'f'},
        {"include",           required_argument, 0, 'I'},
        {"search",            required_argument, 0, 's'},
        {"title",             required_argument, 0, 't'},
        {"strict",            required_argument, 0, 'S'},
        {"hash",              required_argument, 0, 'H'},
        {"list-ingredients",  no_argument,       0, 'l'},
        //          {"to-rcp",  required_argument, 0, 'r'},
        {0, 0, 0, 0}
      };

    int option_index = 0;

    c = getopt_long (argc, argv, "jnlhrwf:s:S:t:H:I:a:",
                     long_options, &option_index);

    if (c == -1)
      break;

    switch (c) {
    case 0:
      if (long_options[option_index].flag != 0)
        break;
      printf ("option %s", long_options[option_index].name);
      if (optarg)
        printf (" with arg %s", optarg);
      printf ("\n");
      break;
    case 'f':
      if (!strcmp(optarg, "json"))
        opt.json = 1;
      else if (!strcmp(optarg, "rcp"))
        opt.rcp = 1;
      else if (!strcmp(optarg, "html"))
        opt.html = 1;
      else
        fprintf(stderr, "invalid format: %s\n", optarg);
      break;
    case 'I':
      strcpy(opt.includes[opt.includes_n++], optarg);
      break;
    case 't':
      opt.title = 1;
      strcpy(opt.query, optarg);
      break;
    case 's':
      opt.search = 1;
      strcpy(opt.query, optarg);
      break;
    case 'S':
      opt.search = 1;
      opt.search_strict = 1;
      strcpy(opt.query, optarg);
      break;
    case 'H':
      opt.hash = 1;
      strcpy(opt.query, optarg);
      break;
    case 'j':
      opt.json = 1;
      break;
    case 'w':
      opt.html = 1;
      break;
    case 'r':
      opt.rcp = 1;
      break;
    case 'l':
      opt.list = 1;
      break;
    case 'h':
      opt.help = 1;
      break;
    case 'n':
      opt.eval = 0;
      break;
    case 'a':
      opt.add = 1;
      strcpy(opt.add_val[opt.add_n++], optarg);
      break;
    case '?':
      return -1;
      break;
    default:
      abort ();
    }
  }

  if (opt.help) {
    print_help(argv[0]);
    return 0;
  }

  char ** lib = NULL;
  int n = collect_library(&lib,
                          argv, argc, optind,
                          opt.includes, opt.includes_n);

  for (int i = 0; i < n; i++) {
    recipe * r = parse(lib[i], NULL);
    if (!r) {
      fprintf(stderr, "Couldn't parse recipe: %s\n", lib[i]);
      continue;
    }

    if (opt.eval) {
      recipe * r_eval = eval(r);
      free_recipe(r);
      r = r_eval;
    }
    if (opt.hash) {
      if (!check_hash(r, opt.query)) {
        free_recipe(r);
        continue;
      }
    }
    if (opt.title) {
      if (strcmp(r->title, opt.query)) {
        free_recipe(r);
        continue;
      }
    }
    if (opt.search) {
      int c;
      if (!(c = query_for_items_pbn(r, opt.query, opt.search_strict))) {
        free_recipe(r);
        continue;
      }
      if (c < 0)
        exit(1);
    }
    if (opt.add) {
      for (int j = 0; j < opt.add_n; j++) {
        char err[1000];
        if (parse_item(opt.add_val[j], r, (pt *)NULL, err))
          fprintf(stderr, "Error: %s\n", err);
      }
    }
    if (opt.list) {
      pprint_items(r);
    }
    else {
      if (opt.json) tojson(r);
      else if (opt.html) tohtml(r);
      else if (opt.rcp) torcp(r);
      else {
        listing(r);
      }
    }
    free_recipe(r);
  }

  free_library(lib, n);

  return 0;
}