#include <platform.h>
#include <util/log.h>

#include <eressea.h>
#include <gmtool.h>
#include <kernel/config.h>
#include <kernel/save.h>
#include <iniparser/iniparser.h>
#include "races/races.h"

#include <assert.h>
#include <locale.h>
#include <wctype.h>

#include <tests.h>

static const char * luafile = "setup.lua";
static const char * entry_point = NULL;
static const char * inifile = "eressea.ini";
static int memdebug = 0;

static void parse_config(const char * filename)
{
  dictionary * d = iniparser_new(filename);
  if (d) {
    load_inifile(d);

    memdebug = iniparser_getint(d, "eressea:memcheck", memdebug);
    entry_point = iniparser_getstring(d, "eressea:run", entry_point);
    luafile = iniparser_getstring(d, "eressea:load", luafile);

    /* only one value in the [editor] section */
    force_color = iniparser_getint(d, "editor:color", force_color);

    /* excerpt from [config] (the rest is used in bindings.c) */
    game_name = iniparser_getstring(d, "config:game", game_name);
  }
  global.inifile = d;
}

static int
usage(const char * prog, const char * arg)
{
  if (arg) {
    fprintf(stderr, "unknown argument: %s\n\n", arg);
  }
  fprintf(stderr, "Usage: %s [options]\n"
    "-t <turn>        : read this datafile, not the most current one\n"
    "-q               : be quite (same as -v 0)\n"
    "-v <level>       : verbosity level\n"
    "-C               : run in interactive mode\n"
    "--color          : force curses to use colors even when not detected\n"
    "--tests          : run testsuite\n"
    "--help           : help\n", prog);
  return -1;
}

static int
parse_args(int argc, char **argv, int *exitcode)
{
  int i;
  int run_tests = 0;

  for (i=1;i!=argc;++i) {
    if (argv[i][0]!='-') {
      return usage(argv[0], argv[i]);
    } else if (argv[i][1]=='-') { /* long format */
      if (strcmp(argv[i]+2, "version")==0) {
        printf("\n%s PBEM host\n"
          "Copyright (C) 1996-2005 C. Schlittchen, K. Zedel, E. Rehling, H. Peters.\n\n"
          "Compilation: " __DATE__ " at " __TIME__ "\nVersion: %f\n\n", global.gamename, version());
      }
      else if (strcmp(argv[i]+2, "color")==0) {
        /* force the editor to have colors */
        force_color = 1;
      }
      else if (strcmp(argv[i]+2, "tests")==0) {
        /* force the editor to have colors */
        run_tests = 1;
      }
      else if (strcmp(argv[i]+2, "help")==0) {
        return usage(argv[0], NULL);
      }
      else {
        return usage(argv[0], argv[i]);
      }
    } else switch(argv[i][1]) {
      case 'C':
        entry_point = NULL;
        break;
      case 'e':
        entry_point = argv[++i];
        break;
      case 't':
        turn = atoi(argv[++i]);
        break;
      case 'q':
        verbosity = 0;
        break;
      case 'v':
        verbosity = atoi(argv[++i]);
        break;
      case 'h':
        usage(argv[0], NULL);
        return 1;
      default:
        *exitcode = -1;
        usage(argv[0], argv[i]);
        return 1;
    }
  }

  if (run_tests) {
    init_resources();
    *exitcode = RunAllTests();
    return 1;
  }

  return 0;
}

#if defined(HAVE_SIGACTION) && defined(HAVE_EXECINFO)
#include <execinfo.h>
#include <signal.h>

static void
report_segfault(int signo, siginfo_t * sinf, void * arg)
{
  void * btrace[50];
  size_t size;
  int fd = fileno(stderr);

  fflush(stdout);
  fputs("\n\nProgram received SIGSEGV, backtrace follows.\n", stderr);
  size = backtrace(btrace, 50);
  backtrace_symbols_fd(btrace, size, fd);
  abort();
}

static int
setup_signal_handler(void)
{
  struct sigaction act;

  act.sa_flags = SA_ONESHOT | SA_SIGINFO;
  act.sa_sigaction = report_segfault;
  sigfillset(&act.sa_mask);
  return sigaction(SIGSEGV, &act, NULL);
}
#else
static int
setup_signal_handler(void)
{
  return 0;
}
#endif

#undef CRTDBG
#ifdef CRTDBG
#include <crtdbg.h>
void
init_crtdbg(void)
{
#if (defined(_MSC_VER))
  int flags = _CrtSetDbgFlag(_CRTDBG_REPORT_FLAG);
  if (memdebug==1) {
    flags |= _CRTDBG_CHECK_ALWAYS_DF; /* expensive */
  } else if (memdebug==2) {
    flags = (flags&0x0000FFFF) | _CRTDBG_CHECK_EVERY_16_DF;
  } else if (memdebug==3) {
    flags = (flags&0x0000FFFF) | _CRTDBG_CHECK_EVERY_128_DF;
  } else if (memdebug==4) {
    flags = (flags&0x0000FFFF) | _CRTDBG_CHECK_EVERY_1024_DF;
  }
  _CrtSetDbgFlag(flags);
#endif
}
#endif


static void
write_spells(void)
{
  struct locale * loc = find_locale("de");
  FILE * F = fopen("spells.csv", "w");
  spell_list * spl = spells;
  for (;spl;spl=spl->next) {
    const spell * sp = spl->data;
    spell_component * spc = sp->components;
    char components[128];
    components[0]=0;
    for (;spc->type;++spc) {
      strcat(components, LOC(loc, spc->type->_name[0]));
      strcat(components, ",");
    }
    fprintf(F, "%s;%d;%s;%s\n", LOC(loc, mkname("spell", sp->sname)), sp->level, LOC(loc, mkname("school", magic_school[sp->magietyp])), components);
  }
  fclose(F);
}

static void
write_skills(void)
{
  struct locale * loc = find_locale("de");
  FILE * F = fopen("skills.csv", "w");
  race * rc;
  skill_t sk;
  fputs("\"Rasse\",", F);
  for (rc=races;rc;rc = rc->next) {
    if (playerrace(rc)) {
      fprintf(F, "\"%s\",", LOC(loc, mkname("race", rc->_name[0])));
    }
  }
  fputc('\n', F);

  for (sk=0;sk!=MAXSKILLS;++sk) {
    const char * str = skillname(sk, loc);
    if (str) {
      fprintf(F, "\"%s\",", str);
      for (rc=races;rc;rc = rc->next) {
        if (playerrace(rc)) {
          if (rc->bonus[sk]) fprintf(F, "%d,", rc->bonus[sk]);
          else fputc(',', F);
        }
      }
      fputc('\n', F);
    }
  }
  fclose(F);
}

void locale_init(void)
{
  setlocale(LC_CTYPE, "");
  setlocale(LC_NUMERIC, "C");
  if (towlower(0xC4)!=0xE4) { /* &Auml; => &auml; */
    log_error(("Umlaut conversion is not working properly. Wrong locale? LANG=%s\n", getenv("LANG")));
  }
}

extern void bind_eressea(struct lua_State * L);

int main(int argc, char ** argv)
{
  static int write_csv = 0;
  int err, result = 0;

  setup_signal_handler();

  log_open("eressea.log");
  locale_init();
  parse_config(inifile);

  err = parse_args(argc, argv, &result);
  if (err) {
    return result;
  }

#ifdef CRTDBG
  init_crtdbg();
#endif

  err = eressea_init();
  if (err) {
    log_error(("initialization failed with code %d\n", err));
    return err;
  }
  register_races();
  register_curses();
  register_spells();
  bind_eressea((struct lua_State *)global.vm_state);

  if (write_csv) {
    write_skills();
    write_spells();
  }

  err = eressea_run(luafile, entry_point);
  if (err) {
    log_error(("server execution failed with code %d\n", err));
    return err;
  }

#ifdef MSPACES
  malloc_stats();
#endif

  eressea_done();
  log_close();
  if (global.inifile) iniparser_free(global.inifile);
  return 0;
}