#include <GearSrc/Core.h>

#include <GearSrc/Version.h>
#include <GearSrc/Log.h>
#include <GearSrc/Client.h>
#include <GearSrc/Server.h>
#include <GearSrc/Resource.h>
#include <GearSrc/String.h>
#include <GearSrc/Net.h>

#include <stb_ds.h>

void GSInit(void) {
	GSVersion version;

	GSVersionGet(&version);

	GSLog(NULL, GSLogInfo, "GearSrc Engine %s", version.string);
}

GSBool GSEngineRegisterResource(GSEngine engine, const char* name, const char* path) {
	GSResource resource;
	if((resource = GSResourceOpen(engine, path)) != NULL) {
		shput(engine->resource, name, resource);

		GSLog(engine, GSLogInfo, "Registered resource %s as %s", path, name);

		return GSTrue;
	}

	return GSFalse;
}

void GSEngineUnregisterResource(GSEngine engine, const char* name) {
	int ind = shgeti(engine->resource, name);

	if(ind != -1) {
		GSResourceClose(engine->resource[ind].value);

		GSLog(engine, GSLogInfo, "Unregistered resource %s", name);

		shdel(engine->resource, name);
	}
}

GSEngine GSEngineCreate(GSEngineParam* param) {
	GSEngine engine = malloc(sizeof(*engine));

	memset(engine, 0, sizeof(*engine));

	engine->param = malloc(sizeof(*engine->param));
	memcpy(engine->param, param, sizeof(*param));

	engine->width	 = 800;
	engine->height	 = 600;
	engine->shutdown = 0;

	if(param->ready != NULL && param->client) {
		param->ready(engine->width, engine->height);
	}

	gload_init();

	sh_new_strdup(engine->resource);

	GSEngineRegisterResource(engine, "base", "base.gsp");
	GSEngineRegisterResource(engine, "game", "game.gsp");

	if(engine != NULL && param->client && (engine->client = GSClientCreate(engine)) == NULL) {
		GSLog(engine, GSLogError, "Failed to create client");
		GSEngineDestroy(engine);

		return NULL;
	}

	if(engine != NULL && param->server && (engine->server = GSServerCreate(engine)) == NULL) {
		GSLog(engine, GSLogError, "Failed to create server");
		GSEngineDestroy(engine);

		return NULL;
	}

	if(param->client) engine->shutdown++;
	if(param->server) engine->shutdown++;

	engine->client->net = GSNetClientOpen(engine->client, "localhost", GSNetDefaultPort);

	return engine;
}

void GSEngineDestroy(GSEngine engine) {
	int i;
	for(i = 0; i < shlen(engine->resource); i++) {
		GSResourceClose(engine->resource[i].value);
	}
	shfree(engine->resource);

	if(engine->server != NULL) GSServerDestroy(engine->server);
	if(engine->client != NULL) GSClientDestroy(engine->client);
	if(engine->param != NULL) free(engine->param);

	free(engine);
}

void GSEngineParamInit(GSEngineParam* param) {
	memset(param, 0, sizeof(*param));

	param->server	     = 0;
	param->client	     = 1;
	param->port	     = GSNetDefaultPort;
	param->gl_swapbuffer = NULL;
	param->ready	     = NULL;
	param->sleep	     = NULL;
	param->get_tick	     = NULL;
}

void GSEngineLoop(GSEngine engine) {
	long	 t	       = 0;
	int	 wait_actually = 0;
	GSNumber tps	       = 50;
	GSNumber tick	       = 1;
	int	 f	       = 5;
	long	 wait	       = 1000 / tps;

	if(engine->param->sleep == NULL || engine->param->get_tick == NULL) {
		GSLog(engine, GSLogWarn, "sleep and/or get_tick parameter are missing!");
		GSLog(engine, GSLogWarn, "This will result game to be crazy fast!!!");
	} else {
		t = engine->param->get_tick();

		wait_actually = 1;
	}

	engine->tps	    = tps;
	engine->tps_sampled = tps;

	while(engine->shutdown > 0) {
		if(engine->client != NULL) GSClientStep(engine->client);
		if(engine->server != NULL) GSServerStep(engine->server);

		if(engine->param->tick != NULL) engine->param->tick();

		if(wait_actually) {
			if(!engine->param->client) {
				int diff = (engine->param->get_tick() - t);

				if(wait > diff)
					engine->param->sleep(wait - diff);
			}

			engine->tps = 1000.0 / (engine->param->get_tick() - t);

			if(f > 0) {
				engine->tps_sampled = engine->tps;

				f--;
			}

			tick += 1.0 / engine->tps;
			if(tick >= 1) {
				engine->tps_sampled = engine->tps;

				tick = tick - 1;
			}

			t = engine->param->get_tick();
		}
	}
}

GSClient GSEngineGetClient(GSEngine engine) {
	return engine->client;
}

GSServer GSEngineGetServer(GSEngine engine) {
	return engine->server;
}

GSNumber GSEngineGetTPS(GSEngine engine) {
	return engine->tps;
}

void GSEngineShutdown(GSEngine engine) {
	GSLog(engine, GSLogInfo, "Engine shutdown started");

	/* TODO: proper shutdown */
	engine->shutdown -= 2;
}