#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <time.h>
#include <assert.h>

#include <tfe_future.h>
#include <tfe_utils.h>
#include <MESA/MESA_htable.h>
#include <MESA/field_stat2.h>


const char* FP_HISTOGRAM_BINS="10,50,100,500";

struct future_promise_instance
{
	int fsid_f_num;
	long long f_num;
	MESA_htable_handle name_table;
	screen_stat_handle_t fs_handle;
};

struct _future_promise_debug
{
	int fsid_latency;
	int fsid_failed;
	long long succ_times;
	struct timespec create_time;	
};
struct future
{
	void * user;
	char symbol[TFE_SYMBOL_MAX];
	struct timeval timeout;
	future_success_cb * cb_success;
	future_failed_cb * cb_failed;
};

struct promise
{
	struct future f;
	void * ctx;
	int has_timeout;
	promise_ctx_destroy_cb * cb_ctx_destroy;
	struct _future_promise_debug debug;
};
static struct future_promise_instance g_FP_instance;
static int g_is_FP_init=0;
void future_promise_library_init(void)
{
	if(g_is_FP_init==1)
	{
		return;
	}
	
	int value=0;
	memset(&g_FP_instance,0,sizeof(g_FP_instance));
	MESA_htable_handle htable = MESA_htable_born();
	value=0;
	MESA_htable_set_opt(htable, MHO_SCREEN_PRINT_CTRL,&value,sizeof(value));
	value=1;
	MESA_htable_set_opt(htable, MHO_THREAD_SAFE, &value,sizeof(value));;
	value=16;
	MESA_htable_set_opt(htable, MHO_MUTEX_NUM, &value,sizeof(value));;
	value=1024;
	MESA_htable_set_opt(htable, MHO_HASH_SLOT_SIZE, &value,sizeof(value));;
	MESA_htable_mature(htable);
	g_FP_instance.name_table=htable;

	screen_stat_handle_t fs=NULL;
	const char* stat_path="./future.status";
	const char* app_name="FP";
	fs=FS_create_handle();
	FS_set_para(fs, APP_NAME, app_name, strlen(app_name)+1);
	value=0;
	FS_set_para(fs, FLUSH_BY_DATE, &value, sizeof(value));
	FS_set_para(fs, OUTPUT_DEVICE, stat_path, strlen(stat_path)+1);
	value=1;
	FS_set_para(fs, PRINT_MODE, &value, sizeof(value));
	value=1;
	FS_set_para(fs, CREATE_THREAD, &value, sizeof(value));
	value=2;
	FS_set_para(fs, STAT_CYCLE, &value, sizeof(value));
	FS_set_para(fs, HISTOGRAM_GLOBAL_BINS, FP_HISTOGRAM_BINS, strlen(FP_HISTOGRAM_BINS)+1);
	g_FP_instance.fsid_f_num=FS_register(fs, FS_STYLE_FIELD, FS_CALC_CURRENT, "futures");
	FS_start(fs);
	g_FP_instance.fs_handle=fs;
	g_is_FP_init=1;
	return;
}

struct promise * future_to_promise(struct future * f)
{	
	return (struct promise *) f;
}
struct field_get_set_args
{
	MESA_htable_handle htable;
	screen_stat_handle_t fs_handle;
	int fsid_latency;
	int fsid_failed;
};
static long field_get_set_cb(void * data, const uchar * key, uint size, void * user_arg)
{
	struct field_get_set_args* args=(struct field_get_set_args*)user_arg;
	int *field_id=NULL, ret=0;
	const char* fail_str="_fail";
	char buff[size+strlen(fail_str)+1];
	if(data==NULL)
	{
		field_id=(int*)malloc(sizeof(int)*2);
		field_id[0]=FS_register(args->fs_handle, FS_STYLE_HISTOGRAM, FS_CALC_SPEED, (const char * )key);
		args->fsid_failed=field_id[0];
		snprintf(buff,sizeof(buff),"%s%s",(char*)key,fail_str);
		field_id[1]=FS_register(args->fs_handle, FS_STYLE_FIELD, FS_CALC_SPEED,buff);
		args->fsid_latency=field_id[1];
		ret = MESA_htable_add(args->htable, key, size, (void*)field_id);
		assert(ret==0);		
	}
	else
	{
		field_id=(int*)data;
		args->fsid_failed=field_id[0];
		args->fsid_latency=field_id[1];
	}
	return 0;
}

struct future * future_create(const char* symbol, future_success_cb * cb_success, future_failed_cb * cb_failed, void * user)
{
	struct promise * p = ALLOC(struct promise, 1);
	p->f.user = user;
	p->f.cb_success = cb_success;
	p->f.cb_failed = cb_failed;
	strncpy(p->f.symbol,symbol,sizeof(p->f.symbol));
	
	clock_gettime(CLOCK_MONOTONIC,&p->debug.create_time);
	void * no_use = NULL;
	long cb_ret=0;
	struct field_get_set_args args{.htable = g_FP_instance.name_table, .fs_handle = g_FP_instance.fs_handle};
	no_use=MESA_htable_search_cb(g_FP_instance.name_table, (const unsigned char*)symbol, strlen(symbol), field_get_set_cb, &args, &cb_ret);
	p->debug.fsid_latency=args.fsid_latency;
	p->debug.fsid_failed=args.fsid_failed;
	FS_operate(g_FP_instance.fs_handle,g_FP_instance.fsid_f_num, 0, FS_OP_ADD, 1);
	return &p->f;
}
void future_set_timeout(struct future * f, struct timeval timeout)
{
	struct promise * p=(struct promise *) f;
	f->timeout=timeout;
	p->has_timeout=1;
	return;
}
void future_destroy(struct future * f)
{
	struct promise * p = future_to_promise(f);
	if (p->cb_ctx_destroy != NULL)
	{
		p->cb_ctx_destroy(p);
	}
	FS_operate(g_FP_instance.fs_handle,g_FP_instance.fsid_f_num, 0, FS_OP_SUB, 1);
	memset(p, 0, sizeof(struct promise));
	free(p);
}
static void fp_stat_latency(struct _future_promise_debug* debug, int is_success)
{
	struct timespec end;
	long long jiffies=0;
	clock_gettime(CLOCK_MONOTONIC,&end);
	if(is_success==1)
	{
		debug->succ_times++;
	}
	else
	{
		FS_operate(g_FP_instance.fs_handle, debug->fsid_failed, 0, FS_OP_ADD, 1);
	}
	if(debug->succ_times<=1)
	{
		jiffies=(end.tv_sec-debug->create_time.tv_sec)*1000000000+end.tv_nsec-debug->create_time.tv_nsec;
		FS_operate(g_FP_instance.fs_handle, debug->fsid_latency, 0, FS_OP_SET, jiffies);
	}
	return;
}
void promise_failed(struct promise * p, enum e_future_error error, const char * what)
{
	p->f.cb_failed(error, what, p->f.user);
	return;
}

void promise_success(struct promise * p, void * result)
{
	p->f.cb_success(result, p->f.user);
	return;
}

void promise_set_ctx(struct promise * p, void * ctx, promise_ctx_destroy_cb * cb)
{
	p->ctx = ctx;
	p->cb_ctx_destroy = cb;
	return;
}

void * promise_get_ctx(struct promise * p)
{
	return p->ctx;
}

void * promise_dettach_ctx(struct promise * p)
{
	void * ctx = p->ctx;
	p->ctx = NULL;
	p->cb_ctx_destroy = NULL;
	return ctx;
}
/**
   Get timeout from a promise which is set in future.

   @param timeout Output.
   @return 1 on a meaningful timeout, or 0 on no timeout.
*/
int promise_get_timeout(struct promise * p, struct timeval * timeout)
{
	if(p->has_timeout)
	{
		*timeout=p->f.timeout;
	}
	return p->has_timeout;
}