#include <ruby.h>

#include <tox/tox.h>

#define TOX_IS_COMPATIBLE TOX_VERSION_IS_API_COMPATIBLE
TOX_VERSION_REQUIRE(0, 0, 0);

void Init_tox();

#define IP_LENGTH_MAX 15

typedef char IP[IP_LENGTH_MAX + 1];
typedef char Key[(TOX_PUBLIC_KEY_SIZE * 2) + 1];

typedef struct Node {
  IP ip;
  int port;
  Key key;
} Node;

typedef uint8_t KeyBin[TOX_PUBLIC_KEY_SIZE];

static void Key_to_KeyBin(const char *key, uint8_t *key_bin);

typedef struct cTox_ {
  Tox *tox;
} cTox_;

static VALUE cTox;
static VALUE cTox_alloc(VALUE klass);
static void  cTox_free(void *ptr);
static VALUE cTox_initialize_with(VALUE self, VALUE options);
static VALUE cTox_savedata(VALUE self);
static VALUE cTox_id(VALUE self);
static VALUE cTox_bootstrap(VALUE self, VALUE options);
static VALUE cTox_kill(VALUE self);

typedef struct Tox_Options cTox_cOptions_;

static VALUE cTox_cOptions;
static VALUE cTox_cOptions_alloc(VALUE klass);
static void  cTox_cOptions_free(void *ptr);
static VALUE cTox_cOptions_initialize(VALUE self);
static VALUE cTox_cOptions_data_EQUALS(VALUE self, VALUE data);

void Init_tox()
{
  if (!TOX_VERSION_IS_ABI_COMPATIBLE())
    rb_raise(rb_eLoadError, "incompatible Tox ABI version");

  cTox = rb_define_class("Tox", rb_cObject);
  rb_define_alloc_func(cTox, cTox_alloc);
  rb_define_method(cTox, "initialize_with", cTox_initialize_with, 1);
  rb_define_method(cTox, "savedata", cTox_savedata, 0);
  rb_define_method(cTox, "id", cTox_id, 0);
  rb_define_method(cTox, "bootstrap", cTox_bootstrap, 1);
  rb_define_method(cTox, "kill", cTox_kill, 0);

  cTox_cOptions = rb_define_class_under(cTox, "Options", rb_cObject);
  rb_define_alloc_func(cTox_cOptions, cTox_cOptions_alloc);
  rb_define_method(cTox_cOptions, "initialize", cTox_cOptions_initialize, 0);
  rb_define_method(cTox_cOptions, "data=", cTox_cOptions_data_EQUALS, 1);
}

/******************************************************************************
 * KeyBin
 ******************************************************************************/

void Key_to_KeyBin(const char *const key, uint8_t *const key_bin)
{
  long i;

  for (i = 0; i < TOX_PUBLIC_KEY_SIZE; ++i)
    sscanf(&key[i * 2], "%2hhx", &key_bin[i]);
}


/******************************************************************************
 * Tox
 ******************************************************************************/

VALUE cTox_alloc(const VALUE klass)
{
  cTox_ *tox;

  tox = ALLOC(cTox_);

  return Data_Wrap_Struct(klass, NULL, cTox_free, tox);
}

void cTox_free(void *const ptr)
{
  free(ptr);
}

VALUE cTox_initialize_with(const VALUE self, const VALUE options)
{
  cTox_ *tox;
  cTox_cOptions_ *tox_options;

  TOX_ERR_NEW error;

  // check if `options` is instance of `Tox::Options`
  if (Qfalse == rb_funcall(options, rb_intern("is_a?"), 1, cTox_cOptions))
    rb_raise(rb_eTypeError, "argument 1 should be Tox::Options");

  Data_Get_Struct(self, cTox_, tox);
  Data_Get_Struct(options, cTox_cOptions_, tox_options);

  tox->tox = tox_new(tox_options, &error);

  if (error != TOX_ERR_NEW_OK)
    rb_raise(rb_eRuntimeError, "tox_new() failed");

  return self;
}

VALUE cTox_savedata(const VALUE self)
{
  cTox_ *tox;

  size_t data_size;
  char *data;

  Data_Get_Struct(self, cTox_, tox);

  data_size = tox_get_savedata_size(tox->tox);
  data = ALLOC_N(char, data_size);

  tox_get_savedata(tox->tox, (uint8_t*)data);

  return rb_str_new(data, data_size);
}

VALUE cTox_id(const VALUE self)
{
  cTox_ *tox;

  char address[TOX_ADDRESS_SIZE];
  char id[2 * TOX_ADDRESS_SIZE];

  unsigned long i;

  Data_Get_Struct(self, cTox_, tox);

  tox_self_get_address(tox->tox, (uint8_t*)address);

  for (i = 0; i < TOX_ADDRESS_SIZE; ++i)
    sprintf(&id[2 * i], "%02X", address[i] & 0xFF);

  return rb_str_new(id, 2 * TOX_ADDRESS_SIZE);
}

VALUE cTox_bootstrap(const VALUE self, const VALUE options)
{
  cTox_ *tox;

  VALUE ip;
  VALUE port;
  VALUE key;

  Node node;
  KeyBin key_bin;

  TOX_ERR_BOOTSTRAP error;

  Check_Type(options, T_HASH);

  ip   = rb_hash_aref(options, ID2SYM(rb_intern("ip")));
  port = rb_hash_aref(options, ID2SYM(rb_intern("port")));
  key  = rb_hash_aref(options, ID2SYM(rb_intern("key")));

  if (ip == Qnil)   rb_raise(rb_eRuntimeError, "option \"ip\" is required");
  if (port == Qnil) rb_raise(rb_eRuntimeError, "option \"port\" is required");
  if (key == Qnil)  rb_raise(rb_eRuntimeError, "option \"key\" is required");

  Data_Get_Struct(self, cTox_, tox);

  memcpy(node.ip, RSTRING_PTR(ip), RSTRING_LEN(ip) + 1);
  node.port = NUM2INT(port);
  memcpy(node.key, RSTRING_PTR(key), RSTRING_LEN(key) + 1);

  Key_to_KeyBin(node.key, key_bin);

  tox_bootstrap(tox->tox, node.ip, node.port, key_bin, &error);

  if (error == TOX_ERR_BOOTSTRAP_OK)
    return Qtrue;
  else
    return Qfalse;
}

VALUE cTox_kill(const VALUE self)
{
  cTox_ *tox;

  Data_Get_Struct(self, cTox_, tox);

  tox_kill(tox->tox);

  return self;
}

/******************************************************************************
 * Tox::Options
 ******************************************************************************/

VALUE cTox_cOptions_alloc(const VALUE klass)
{
  cTox_cOptions_ *tox_options;

  tox_options = ALLOC(cTox_cOptions_);

  return Data_Wrap_Struct(klass, NULL, cTox_cOptions_free, tox_options);
}

void cTox_cOptions_free(void *const ptr)
{
  free(ptr);
}

VALUE cTox_cOptions_initialize(const VALUE self)
{
  cTox_cOptions_ *tox_options;

  Data_Get_Struct(self, cTox_cOptions_, tox_options);

  tox_options_default(tox_options);

  return self;
}

VALUE cTox_cOptions_data_EQUALS(const VALUE self, const VALUE savedata)
{
  cTox_cOptions_ *tox_options;

  Check_Type(savedata, T_STRING);

  Data_Get_Struct(self, cTox_cOptions_, tox_options);

  tox_options->savedata_type = TOX_SAVEDATA_TYPE_TOX_SAVE;
  tox_options->savedata_data = (uint8_t*)RSTRING_PTR(savedata);
  tox_options->savedata_length = RSTRING_LEN(savedata);

  return savedata;
}