#include "postgres_connection.hpp"
#include "postgres_error.hpp"
#include "postgres_result_reader.hpp"

#include "matador/sql/record.hpp"

#include <iostream>

namespace matador::backends::postgres {

postgres_connection::postgres_connection(const sql::connection_info &info)
: connection_impl(info) {}

void postgres_connection::open()
{
  if (is_open()) {
    return;
  }

  std::string connection("user=" + info().user + " password=" + info().password + " host=" + info().hostname + " dbname=" + info().database + " port=" + std::to_string(info().port));

  conn_ = PQconnectdb(connection.c_str());
  if (PQstatus(conn_) == CONNECTION_BAD) {
    const auto msg = PQerrorMessage(conn_);
    PQfinish(conn_);
    throw_postgres_error(msg, "postgres");
  }
}

void postgres_connection::close()
{
  if (conn_) {
    PQfinish(conn_);
    conn_ = nullptr;
  }
}

bool postgres_connection::is_open()
{
  return conn_ != nullptr;
}

std::unique_ptr<sql::query_result_impl> postgres_connection::fetch(const std::string &stmt)
{
  PGresult *res = PQexec(conn_, stmt.c_str());

  throw_postgres_error(res, conn_, "postgres", stmt);

  sql::record prototype;
  auto ncol = PQnfields(res);
  for (int i = 0; i < ncol; ++i) {
    const char *col_name = PQfname(res, i);
    auto type = PQftype(res, i);
    auto size = PQfmod(res, i);
    std::cout << "column " << col_name << ", type " << type << " (size: " << size << ")\n";
    prototype.append({col_name});
  }
  return std::move(std::make_unique<sql::query_result_impl>(std::make_unique<postgres_result_reader>(res), std::move(prototype)));
}

void postgres_connection::prepare(const std::string &stmt)
{

}

size_t postgres_connection::execute(const std::string &stmt)
{
  PGresult *res = PQexec(conn_, stmt.c_str());

  throw_postgres_error(res, conn_, "postgres", stmt);

  return sql::to_long_long(PQcmdTuples(res));
}

sql::data_type_t string2type(const char *type)
{
  if (strcmp(type, "int2") == 0) {
    return sql::data_type_t::type_short;
  } else if (strcmp(type, "int4") == 0) {
    return sql::data_type_t::type_int;
  } else if (strcmp(type, "int8") == 0) {
    return sql::data_type_t::type_long_long;
  } else if (strncmp(type, "int8", 6) == 0) {
    return sql::data_type_t::type_long_long;
  } else if (strcmp(type, "date") == 0) {
    return sql::data_type_t::type_date;
  } else if (strncmp(type, "timestamp", 8) == 0) {
    return sql::data_type_t::type_time;
  } else if (strcmp(type, "float4") == 0) {
    return sql::data_type_t::type_float;
  } else if (strcmp(type, "float8") == 0) {
    return sql::data_type_t::type_double;
  } else if (strncmp(type, "varchar", 7) == 0) {
    return sql::data_type_t::type_varchar;
  } else if (strncmp(type, "character varying", 7) == 0) {
    return sql::data_type_t::type_varchar;
  } else if (strncmp(type, "text", 0) == 0) {
    return sql::data_type_t::type_text;
  } else {
    return sql::data_type_t::type_unknown;
  }
}

sql::record postgres_connection::describe(const std::string &table)
{
  std::string stmt(
    "SELECT ordinal_position, column_name, udt_name, data_type, is_nullable, column_default FROM information_schema.columns WHERE table_schema='public' AND table_name='" + table + "'");

  PGresult *res = PQexec(conn_, stmt.c_str());

  throw_postgres_error(res, conn_, "postgres", stmt);

  postgres_result_reader reader(res);
  sql::record prototype;
  while (reader.fetch()) {
    char *end = nullptr;
    // Todo: Handle error
    auto index = strtoul(reader.column(0), &end, 10);
    std::string name = reader.column(1);

    // Todo: extract size
    auto type = (string2type(reader.column(2)));
    end = nullptr;
    utils::constraints options{};
    if (strtoul(reader.column(4), &end, 10) == 0) {
      options = utils::constraints::NOT_NULL;
    }
    // f.default_value(res->column(4));
    prototype.append({name, type, {options}});
  }

  return std::move(prototype);
}

bool postgres_connection::exists(const std::string &table_name)
{
  std::string stmt("SELECT 1 FROM information_schema.tables WHERE table_schema = 'public' AND table_name = '" + table_name + "'");

  PGresult *res = PQexec(conn_, stmt.c_str());

  throw_postgres_error(res, conn_, "postgres", stmt);

  return sql::to_long_long(PQcmdTuples(res)) == 1;
}

}

extern "C"
{
MATADOR_POSTGRES_API matador::sql::connection_impl *create_database(const matador::sql::connection_info &info)
{
  return new matador::backends::postgres::postgres_connection(info);
}

MATADOR_POSTGRES_API void destroy_database(matador::sql::connection_impl *db)
{
  delete db;
}
}