#include <platform.h>
#include <kernel/config.h>
#include <kernel/faction.h>
#include <kernel/race.h>
#include <util/language_struct.h>
#include <util/unicode.h>
#include <util/log.h>
#include <util/base36.h>
#include <util/log.h>
#include <quicklist.h>
#include <sqlite3.h>
#include <md5.h>
#include <assert.h>
#include <string.h>
#include <stdlib.h>

faction *get_faction_by_id(int uid)
{
  faction *f;
  for (f = factions; f; f = f->next) {
    if (f->subscription == uid) {
      return f;
    }
  }
  return NULL;
}

/*
typedef struct stmt_cache {
  sqlite3 *db;
  sqlite3_stmt *stmt;
  const char *sql;
  int inuse;
} stmt_cache;

#define MAX_STMT_CACHE 64
static stmt_cache cache[MAX_STMT_CACHE];
static int cache_insert;

static sqlite3_stmt *stmt_cache_get(sqlite3 * db, const char *sql)
{
  int i;
  sqlite3_stmt *stmt;

  for (i = 0; i != MAX_STMT_CACHE && cache[i].db; ++i) {
    if (cache[i].sql == sql && cache[i].db == db) {
      cache[i].inuse = 1;
      stmt = cache[i].stmt;
      sqlite3_reset(stmt);
      sqlite3_clear_bindings(stmt);
      return stmt;
    }
  }
  if (i == MAX_STMT_CACHE) {
    while (cache[cache_insert].inuse) {
      cache[cache_insert].inuse = 0;
      cache_insert = (cache_insert + 1) & (MAX_STMT_CACHE - 1);
    }
    i = cache_insert;
    stmt = cache[i].stmt;
    sqlite3_finalize(stmt);
  }
  cache[i].inuse = 1;
  cache[i].db = db;
  cache[i].sql = sql;
  sqlite3_prepare_v2(db, sql, -1, &cache[i].stmt, NULL);
  return cache[i].stmt;
}
*/
typedef struct db_faction {
  int uid;
  int no;
  char *email;
  char *name;
} db_faction;

static struct quicklist *
read_factions(sqlite3 * db, int game_id) {
  int res;
  quicklist *result = 0;
  const char * sql =
    "SELECT f.id, fd.code, fd.name, fd.email FROM faction f"
    " LEFT OUTER JOIN faction_data fd"
    " WHERE f.id=fd.faction_id AND f.game_id=? AND"
    " fd.turn=(SELECT MAX(turn) FROM faction_data fx WHERE fx.faction_id=f.id)"
    " ORDER BY f.id";
  sqlite3_stmt *stmt = 0;
  sqlite3_prepare_v2(db, sql, -1, &stmt, 0);
  sqlite3_bind_int(stmt, 1, game_id);

  res = sqlite3_step(stmt);
  while (res == SQLITE_ROW) {
    const char * text;
    db_faction * dbf = (db_faction*)calloc(1, sizeof(db_faction));
    dbf->uid = (int)sqlite3_column_int64(stmt, 0);
    text = (const char *)sqlite3_column_text(stmt, 1);
    if (text) dbf->no = atoi36(text);
    text = (const char *)sqlite3_column_text(stmt, 2);
    if (text) dbf->name = _strdup(text);
    text = (const char *)sqlite3_column_text(stmt, 3);
    if (text) dbf->email = _strdup(text);
    ql_push(&result, dbf);
    res = sqlite3_step(stmt);
  }
  sqlite3_finalize(stmt);
  return result;
}

static int insert_faction(sqlite3 *db, int game_id, faction *f) {
  const char *sql = "INSERT INTO faction (game_id, race) VALUES (?, ?)";
  sqlite3_stmt *stmt = 0;
  sqlite3_prepare_v2(db, sql, -1, &stmt, 0);
  sqlite3_bind_int(stmt, 1, game_id);
  sqlite3_bind_text(stmt, 2, f->race->_name[0], -1, SQLITE_STATIC);
  sqlite3_step(stmt);
  sqlite3_finalize(stmt);
  return sqlite3_last_insert_rowid(db);
}

static void update_faction(sqlite3 *db, const faction *f) {
  char code[5];
  const char *sql =
    "INSERT INTO faction_data (faction_id, code, name, email, lang, turn)"
    " VALUES (?, ?, ?, ?, ?, ?)";
  sqlite3_stmt *stmt = 0;
  sqlite3_prepare_v2(db, sql, -1, &stmt, 0);
  sqlite3_bind_int(stmt, 1, f->subscription);
  strcpy(code, itoa36(f->no));
  sqlite3_bind_text(stmt, 2, code, -1, SQLITE_STATIC);
  sqlite3_bind_text(stmt, 3, f->name, -1, SQLITE_STATIC);
  sqlite3_bind_text(stmt, 4, f->email, -1, SQLITE_STATIC);
  sqlite3_bind_text(stmt, 5, f->locale->name, -1, SQLITE_STATIC);
  sqlite3_bind_int(stmt, 6, turn);
  sqlite3_step(stmt);
  sqlite3_finalize(stmt);
}

int db_update_factions(sqlite3 * db, bool force, int game_id) {
  quicklist *ql = read_factions(db, game_id);
  faction *f;
  sqlite3_exec(db, "BEGIN", 0, 0, 0);
  for (f=factions;f;f=f->next) {
    bool update = force;
    db_faction *dbf = 0;
    ql_iter it = qli_init(&ql);
    while (qli_more(it)) {
      db_faction *df = (db_faction*)qli_next(&it);
      if (f->no==df->no || strcmp(f->email,df->email)==0 || strcmp(f->name,df->name)==0) {
        dbf = df;
      }
      if (f->subscription==df->uid) {
        dbf = df;
        break;
      }
    }
    if (dbf) {
      if (dbf->uid != f->subscription) {
        log_warning("faction %s(%d) not found in database, but matches %d\n", itoa36(f->no), f->subscription, dbf->uid);
        f->subscription = dbf->uid;
      }
      update = (dbf->no!=f->no) || (strcmp(f->email, dbf->email)!=0) || (strcmp(f->name, dbf->name)!=0);
    } else {
      f->subscription = insert_faction(db, game_id, f);
      log_warning("faction %s not found in database, created as %d\n", itoa36(f->no), f->subscription);
      update = true;
    }
    if (update) {
      update_faction(db, f);
      log_debug("faction %s updated\n", itoa36(f->no));
    }
  }
  sqlite3_exec(db, "COMMIT", 0, 0, 0);
  return SQLITE_OK;
}

int db_update_scores(sqlite3 * db, bool force)
{
  /*
  const char *sql_ins =
    "INSERT OR FAIL INTO score (value,faction_id,turn) VALUES (?,?,?)";
  sqlite3_stmt *stmt_ins = stmt_cache_get(db, sql_ins);
  const char *sql_upd =
    "UPDATE score set value=? WHERE faction_id=? AND turn=?";
  sqlite3_stmt *stmt_upd = stmt_cache_get(db, sql_upd);
  faction *f;
  sqlite3_exec(db, "BEGIN", 0, 0, 0);
  for (f = factions; f; f = f->next) {
    int res;
    sqlite3_bind_int(stmt_ins, 1, f->score);
    sqlite3_bind_int64(stmt_ins, 2, f->subscription);
    sqlite3_bind_int(stmt_ins, 3, turn);
    res = sqlite3_step(stmt_ins);
    if (res == SQLITE_CONSTRAINT) {
      sqlite3_bind_int(stmt_upd, 1, f->score);
      sqlite3_bind_int64(stmt_upd, 2, f->subscription);
      sqlite3_bind_int(stmt_upd, 3, turn);
      res = sqlite3_step(stmt_upd);
      sqlite3_reset(stmt_upd);
    }
    sqlite3_reset(stmt_ins);
  }
  sqlite3_exec(db, "COMMIT", 0, 0, 0);
  */
  return SQLITE_OK;
}