#include "ks_dht.h"
#include "ks_dht-int.h"

KS_DECLARE(ks_status_t) ks_dht_message_create(ks_dht_message_t **message,
											  ks_pool_t *pool,
											  ks_dht_endpoint_t *endpoint,
											  const ks_sockaddr_t *raddr,
											  ks_bool_t alloc_data)
{
	ks_dht_message_t *m;
	ks_status_t ret = KS_STATUS_SUCCESS;

	ks_assert(message);
	ks_assert(pool);

	*message = m = ks_pool_alloc(pool, sizeof(ks_dht_message_t));
	ks_assert(m);

	m->pool = pool;
	m->endpoint = endpoint;
	m->raddr = *raddr;
	if (alloc_data) {
		m->data = ben_dict();
		ks_assert(m->data);
	}

	// done:
	if (ret != KS_STATUS_SUCCESS) {
		ks_dht_message_destroy(message);
	}
	return ret;
}

KS_DECLARE(void) ks_dht_message_destroy(ks_dht_message_t **message)
{
	ks_dht_message_t *m;

	ks_assert(message);
	ks_assert(*message);

	m = *message;

    if (m->data) {
		ben_free(m->data);
		m->data = NULL;
	}

	ks_pool_free(m->pool, message);
}


KS_DECLARE(ks_status_t) ks_dht_message_parse(ks_dht_message_t *message, const uint8_t *buffer, ks_size_t buffer_length)
{
	struct bencode *t;
	struct bencode *y;
	const char *tv;
	const char *yv;
	ks_size_t tv_len;
	ks_size_t yv_len;

	ks_assert(message);
	ks_assert(message->pool);
	ks_assert(buffer);
	ks_assert(!message->data);

    message->data = ben_decode((const void *)buffer, buffer_length);
	if (!message->data) {
		ks_log(KS_LOG_DEBUG, "Message cannot be decoded\n");
		return KS_STATUS_FAIL;
	}

	ks_log(KS_LOG_DEBUG, "Message decoded\n");
	ks_log(KS_LOG_DEBUG, "%s\n", ben_print(message->data));
	
    t = ben_dict_get_by_str(message->data, "t");
	if (!t) {
		ks_log(KS_LOG_DEBUG, "Message missing required key 't'\n");
		return KS_STATUS_FAIL;
	}

	tv = ben_str_val(t);
	tv_len = ben_str_len(t);
	if (tv_len > KS_DHT_MESSAGE_TRANSACTIONID_MAX_SIZE) {
		ks_log(KS_LOG_DEBUG, "Message 't' value has an unexpectedly large size of %d\n", tv_len);
		return KS_STATUS_FAIL;
	}

	memcpy(message->transactionid, tv, tv_len);
	message->transactionid_length = tv_len;
	// @todo hex output of transactionid
	//ks_log(KS_LOG_DEBUG, "Message transaction id is %d\n", message->transactionid);

    y = ben_dict_get_by_str(message->data, "y");
	if (!y) {
		ks_log(KS_LOG_DEBUG, "Message missing required key 'y'\n");
		return KS_STATUS_FAIL;
	}

	yv = ben_str_val(y);
	yv_len = ben_str_len(y);
	if (yv_len >= KS_DHT_MESSAGE_TYPE_MAX_SIZE) {
		ks_log(KS_LOG_DEBUG, "Message 'y' value has an unexpectedly large size of %d\n", yv_len);
		return KS_STATUS_FAIL;
	}

	memcpy(message->type, yv, yv_len);
	message->type[yv_len] = '\0';
	//ks_log(KS_LOG_DEBUG, "Message type is '%s'\n", message->type);

	return KS_STATUS_SUCCESS;
}

/* For Emacs:
 * Local Variables:
 * mode:c
 * indent-tabs-mode:t
 * tab-width:4
 * c-basic-offset:4
 * End:
 * For VIM:
 * vim:set softtabstop=4 shiftwidth=4 tabstop=4 noet:
 */