/*
Minetest-c55
Copyright (C) 2010-2011 celeron55, Perttu Ahola <celeron55@gmail.com>

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License along
with this program; if not, write to the Free Software Foundation, Inc.,
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
*/

#include "serverobject.h"
#include <fstream>
#include "environment.h"

ServerActiveObject::ServerActiveObject(ServerEnvironment *env, u16 id, v3f pos):
	ActiveObject(id),
	m_known_by_count(0),
	m_removed(false),
	m_env(env),
	m_base_position(pos)
{
}

ServerActiveObject::~ServerActiveObject()
{
}

/*
	TestSAO
*/

TestSAO::TestSAO(ServerEnvironment *env, u16 id, v3f pos):
	ServerActiveObject(env, id, pos),
	m_timer1(0),
	m_age(0)
{
}

void TestSAO::step(float dtime, Queue<ActiveObjectMessage> &messages)
{
	m_age += dtime;
	if(m_age > 10)
	{
		m_removed = true;
		return;
	}

	m_base_position.Y += dtime * BS * 2;
	if(m_base_position.Y > 8*BS)
		m_base_position.Y = 2*BS;

	m_timer1 -= dtime;
	if(m_timer1 < 0.0)
	{
		m_timer1 += 0.125;
		//dstream<<"TestSAO: id="<<getId()<<" sending data"<<std::endl;

		std::string data;

		data += itos(0); // 0 = position
		data += " ";
		data += itos(m_base_position.X);
		data += " ";
		data += itos(m_base_position.Y);
		data += " ";
		data += itos(m_base_position.Z);

		ActiveObjectMessage aom(getId(), false, data);
		messages.push_back(aom);
	}
}

/*
	LuaSAO
*/

extern "C"{
#include "lstring.h"
}

/*
	Callbacks in script:
	
	on_step(self, dtime)
	on_get_client_init_data(self)
	on_get_server_init_data(self)
	on_initialize(self, data)
*/

/*
	object_set_base_position(self, {X=,Y=,Z=})
*/
static int lf_object_set_base_position(lua_State *L)
{
	// 2: position
	assert(lua_istable(L, -1));
	lua_pushstring(L, "X");
	lua_gettable(L, -2);
	lua_Number x = lua_tonumber(L, -1);
	lua_pop(L, 1);
	lua_pushstring(L, "Y");
	lua_gettable(L, -2);
	lua_Number y = lua_tonumber(L, -1);
	lua_pop(L, 1);
	lua_pushstring(L, "Z");
	lua_gettable(L, -2);
	lua_Number z = lua_tonumber(L, -1);
	lua_pop(L, 1);
	lua_pop(L, 1);
	// 1: self
	LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
	lua_pop(L, 1);
	
	assert(self);
	
	self->setBasePosition(v3f(x*BS,y*BS,z*BS));
	
	return 0; // Number of return values
}

/*
	{X=,Y=,Z=} object_get_base_position(self)
*/
static int lf_object_get_base_position(lua_State *L)
{
	// 1: self
	LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
	lua_pop(L, 1);
	
	assert(self);
	
	v3f pos = self->getBasePosition();

	lua_newtable(L);

	lua_pushstring(L, "X");
	lua_pushnumber(L, pos.X/BS);
	lua_settable(L, -3);

	lua_pushstring(L, "Y");
	lua_pushnumber(L, pos.Y/BS);
	lua_settable(L, -3);

	lua_pushstring(L, "Z");
	lua_pushnumber(L, pos.Z/BS);
	lua_settable(L, -3);

	return 1; // Number of return values
}

/*
	object_add_message(self, string data)
	lf = luafunc
*/
static int lf_object_add_message(lua_State *L)
{
	// 2: data
	size_t datalen = 0;
	const char *data_c = lua_tolstring(L, -1, &datalen);
	lua_pop(L, 1);
	// 1: self
	LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
	lua_pop(L, 1);
	
	assert(self);
	assert(data_c);
	
	std::string data(data_c, datalen);
	//dstream<<"object_add_message: data="<<data<<std::endl;
	
	// Create message and add to queue
	ActiveObjectMessage aom(self->getId());
	aom.reliable = true;
	aom.datastring = data;
	self->m_message_queue.push_back(aom);

	return 0; // Number of return values
}

/*
	object_get_node(self, {X=,Y=,Z=})
*/
static int lf_object_get_node(lua_State *L)
{
	// 2: position
	assert(lua_istable(L, -1));
	lua_pushstring(L, "X");
	lua_gettable(L, -2);
	lua_Number x = lua_tonumber(L, -1);
	lua_pop(L, 1);
	lua_pushstring(L, "Y");
	lua_gettable(L, -2);
	lua_Number y = lua_tonumber(L, -1);
	lua_pop(L, 1);
	lua_pushstring(L, "Z");
	lua_gettable(L, -2);
	lua_Number z = lua_tonumber(L, -1);
	lua_pop(L, 1);
	lua_pop(L, 1);
	// 1: self
	LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
	lua_pop(L, 1);
	
	assert(self);

	v3s16 pos = floatToInt(v3f(x,y,z), 1.0);

	/*dstream<<"Checking node from pos=("<<pos.X<<","<<pos.Y<<","<<pos.Z
			<<")"<<std::endl;*/
	
	// Get the node
	MapNode n(CONTENT_IGNORE);
	n = self->getEnv()->getMap().getNodeNoEx(pos);

	// Create a table with some data about the node
	lua_newtable(L);
	lua_pushstring(L, "content");
	lua_pushinteger(L, n.d);
	lua_settable(L, -3);
	lua_pushstring(L, "param1");
	lua_pushinteger(L, n.param);
	lua_settable(L, -3);
	lua_pushstring(L, "param2");
	lua_pushinteger(L, n.param2);
	lua_settable(L, -3);
	
	// Return the table
	return 1;
}

#if 0
/*
	get_node_features(node)
	node = {content=,param1=,param2=}
*/
static int lf_get_node_features(lua_State *L)
{
	MapNode n;
	
	// 1: node
	assert(lua_istable(L, -1));
	lua_pushstring(L, "content");
	lua_gettable(L, -2);
	n.d = lua_tointeger(L, -1);
	lua_pop(L, 1);
	lua_pushstring(L, "param1");
	lua_gettable(L, -2);
	n.param = lua_tointeger(L, -1);
	lua_pop(L, 1);
	lua_pushstring(L, "param2");
	lua_gettable(L, -2);
	n.param2 = lua_tointeger(L, -1);
	lua_pop(L, 1);
	lua_pop(L, 1);

	ContentFeatures &f = content_features(n.d);

}
#endif

/*
	get_content_features(content)
*/
static int lf_get_content_features(lua_State *L)
{
	MapNode n;
	
	// 1: content
	n.d = lua_tointeger(L, -1);
	lua_pop(L, 1);
	
	// Get and return information
	ContentFeatures &f = content_features(n.d);
	
	lua_newtable(L);
	lua_pushstring(L, "walkable");
	lua_pushboolean(L, f.walkable);
	lua_settable(L, -3);
	lua_pushstring(L, "diggable");
	lua_pushboolean(L, f.diggable);
	lua_settable(L, -3);
	lua_pushstring(L, "buildable_to");
	lua_pushboolean(L, f.buildable_to);
	lua_settable(L, -3);
	
	return 1;
}

/*
	bool object_dig_node(self, {X=,Y=,Z=})
	Return true on success
*/
static int lf_object_dig_node(lua_State *L)
{
	// 2: position
	assert(lua_istable(L, -1));
	lua_pushstring(L, "X");
	lua_gettable(L, -2);
	lua_Number x = lua_tonumber(L, -1);
	lua_pop(L, 1);
	lua_pushstring(L, "Y");
	lua_gettable(L, -2);
	lua_Number y = lua_tonumber(L, -1);
	lua_pop(L, 1);
	lua_pushstring(L, "Z");
	lua_gettable(L, -2);
	lua_Number z = lua_tonumber(L, -1);
	lua_pop(L, 1);
	lua_pop(L, 1);
	// 1: self
	LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
	lua_pop(L, 1);
	
	assert(self);

	v3s16 pos = floatToInt(v3f(x,y,z), 1.0);
	
	/*
		Do stuff.
		This gets sent to the server by the map through the edit
		event system.
	*/
	bool succeeded = self->getEnv()->getMap().removeNodeWithEvent(pos);
	
	lua_pushboolean(L, succeeded);
	return 1;
}

/*
	bool object_place_node(self, {X=,Y=,Z=}, node)
	node={content=,param1=,param2=}
	param1 and param2 are optional
	Return true on success
*/
static int lf_object_place_node(lua_State *L)
{
	// 3: node
	MapNode n(CONTENT_STONE);
	assert(lua_istable(L, -1));
	{
		lua_pushstring(L, "content");
		lua_gettable(L, -2);
		if(lua_isnumber(L, -1))
			n.d = lua_tonumber(L, -1);
		lua_pop(L, 1);
		lua_pushstring(L, "param1");
		lua_gettable(L, -2);
		if(lua_isnumber(L, -1))
			n.param = lua_tonumber(L, -1);
		lua_pop(L, 1);
		lua_pushstring(L, "param2");
		lua_gettable(L, -2);
		if(lua_isnumber(L, -1))
			n.param2 = lua_tonumber(L, -1);
		lua_pop(L, 1);
	}
	lua_pop(L, 1);
	// 2: position
	assert(lua_istable(L, -1));
	lua_pushstring(L, "X");
	lua_gettable(L, -2);
	lua_Number x = lua_tonumber(L, -1);
	lua_pop(L, 1);
	lua_pushstring(L, "Y");
	lua_gettable(L, -2);
	lua_Number y = lua_tonumber(L, -1);
	lua_pop(L, 1);
	lua_pushstring(L, "Z");
	lua_gettable(L, -2);
	lua_Number z = lua_tonumber(L, -1);
	lua_pop(L, 1);
	lua_pop(L, 1);
	// 1: self
	LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
	lua_pop(L, 1);
	
	assert(self);

	v3s16 pos = floatToInt(v3f(x,y,z), 1.0);
	
	/*
		Do stuff.
		This gets sent to the server by the map through the edit
		event system.
	*/
	bool succeeded = self->getEnv()->getMap().addNodeWithEvent(pos, n);

	lua_pushboolean(L, succeeded);
	return 1;
}

/*
	object_remove(x,y,z)
*/
static int lf_object_remove(lua_State *L)
{
	// 1: self
	LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
	lua_pop(L, 1);
	
	assert(self);

	self->m_removed = true;

	return 0;
}

/*
	{X=,Y=,Z=} object_get_nearest_player_position(self)
*/
/*static int lf_object_get_nearest_player_position(lua_State *L)
{
	// 1: self
	LuaSAO *self = (LuaSAO*)lua_touserdata(L, -1);
	lua_pop(L, 1);
	
	assert(self);
	
	ServerEnvironment *env = self->getEnv();
	env->
	v3f pos = ;

	lua_newtable(L);

	lua_pushstring(L, "X");
	lua_pushnumber(L, pos.X/BS);
	lua_settable(L, -3);

	lua_pushstring(L, "Y");
	lua_pushnumber(L, pos.Y/BS);
	lua_settable(L, -3);

	lua_pushstring(L, "Z");
	lua_pushnumber(L, pos.Z/BS);
	lua_settable(L, -3);

	return 1; // Number of return values
}*/

LuaSAO::LuaSAO(ServerEnvironment *env, u16 id, v3f pos):
	ServerActiveObject(env, id, pos),
	L(NULL)
{
	dstream<<"LuaSAO::LuaSAO(): id="<<id<<std::endl;
	L = lua_open();
	assert(L);
	
	// Load libraries
	luaopen_base(L);
	luaopen_table(L);
	luaopen_string(L);
	luaopen_math(L);
	
	// Add globals
	//lua_pushlightuserdata(L, this);
	//lua_setglobal(L, "self");
	
	// Register functions
	lua_register(L, "object_set_base_position", lf_object_set_base_position);
	lua_register(L, "object_get_base_position", lf_object_get_base_position);
	lua_register(L, "object_add_message", lf_object_add_message);
	lua_register(L, "object_get_node", lf_object_get_node);
	lua_register(L, "get_content_features", lf_get_content_features);
	lua_register(L, "object_dig_node", lf_object_dig_node);
	lua_register(L, "object_place_node", lf_object_place_node);
	lua_register(L, "object_remove", lf_object_remove);
}

LuaSAO::~LuaSAO()
{
	lua_close(L);
}

std::string LuaSAO::getClientInitializationData()
{
	/*
		Read client-side script from file
	*/
	
	std::string relative_path;
	relative_path += "luaobjects/";
	relative_path += m_script_name;
	relative_path += "/client.lua";
	std::string full_path = porting::getDataPath(relative_path.c_str());
	std::string script;
	std::ifstream file(full_path.c_str(), std::ios::binary | std::ios::ate);
	int size = file.tellg();
	SharedBuffer<char> buf(size);
	file.seekg(0, std::ios::beg);
	file.read(&buf[0], size);
	file.close();
	
	/*
		Create data string
	*/
	std::string data;

	// Append script
	std::string script_string(&buf[0], buf.getSize());
	data += serializeLongString(script_string);

	/*
		Get data from server-side script for inclusion
	*/
	std::string other_data;
	
	do{

		const char *funcname = "on_get_client_init_data";
		lua_getglobal(L, funcname);
		if(!lua_isfunction(L,-1))
		{
			lua_pop(L,1);
			dstream<<"WARNING: LuaSAO: Function not found: "
					<<funcname<<std::endl;
			break;
		}
		
		// Parameters:
		// 1: self
		lua_pushlightuserdata(L, this);
		
		// Call (1 parameters, 1 result)
		if(lua_pcall(L, 1, 1, 0))
		{
			dstream<<"WARNING: LuaSAO: Error running function "
					<<funcname<<": "
					<<lua_tostring(L,-1)<<std::endl;
			break;
		}

		// Retrieve result
		if(!lua_isstring(L,-1))
		{
			dstream<<"WARNING: LuaSAO: Function "<<funcname
					<<" didn't return a string"<<std::endl;
			break;
		}
		
		size_t cs_len = 0;
		const char *cs = lua_tolstring(L, -1, &cs_len);
		lua_pop(L,1);

		other_data = std::string(cs, cs_len);

	}while(0);
	
	data += serializeLongString(other_data);

	return data;
}

std::string LuaSAO::getServerInitializationData()
{
	std::string data;
	
	// Script name
	data.append(serializeString(m_script_name));

	/*
		Get data from server-side script for inclusion
	*/
	std::string other_data;
	
	do{

		const char *funcname = "on_get_server_init_data";
		lua_getglobal(L, funcname);
		if(!lua_isfunction(L,-1))
		{
			lua_pop(L,1);
			dstream<<"WARNING: LuaSAO: Function not found: "
					<<funcname<<std::endl;
			break;
		}
		
		// Parameters:
		// 1: self
		lua_pushlightuserdata(L, this);
		
		// Call (1 parameters, 1 result)
		if(lua_pcall(L, 1, 1, 0))
		{
			dstream<<"WARNING: LuaSAO: Error running function "
					<<funcname<<": "
					<<lua_tostring(L,-1)<<std::endl;
			break;
		}

		// Retrieve result
		if(!lua_isstring(L,-1))
		{
			dstream<<"WARNING: LuaSAO: Function "<<funcname
					<<" didn't return a string"<<std::endl;
			break;
		}
		
		size_t cs_len = 0;
		const char *cs = lua_tolstring(L, -1, &cs_len);
		lua_pop(L,1);

		other_data = std::string(cs, cs_len);

	}while(0);
	
	data += serializeLongString(other_data);

	return data;
}

void LuaSAO::initializeFromNothing(const std::string &script_name)
{
	loadScripts(script_name);

	/*
		Call on_initialize(self, data) in the script
	*/
	
	const char *funcname = "on_initialize";
	lua_getglobal(L, funcname);
	if(!lua_isfunction(L,-1))
	{
		lua_pop(L,1);
		dstream<<"WARNING: LuaSAO: Function not found: "
				<<funcname<<std::endl;
		return;
	}
	
	// Parameters:
	// 1: self
	lua_pushlightuserdata(L, this);
	// 2: data (other)
	lua_pushstring(L, "");
	
	// Call (2 parameters, 0 result)
	if(lua_pcall(L, 2, 0, 0))
	{
		dstream<<"WARNING: LuaSAO: Error running function "
				<<funcname<<": "
				<<lua_tostring(L,-1)<<std::endl;
		return;
	}
}

void LuaSAO::initializeFromSave(const std::string &data)
{
	std::istringstream is(data, std::ios::binary);
	std::string script_name = deSerializeString(is);
	std::string other = deSerializeLongString(is);

	loadScripts(script_name);

	/*
		Call on_initialize(self, data) in the script
	*/
	
	const char *funcname = "on_initialize";
	lua_getglobal(L, funcname);
	if(!lua_isfunction(L,-1))
	{
		lua_pop(L,1);
		dstream<<"WARNING: LuaSAO: Function not found: "
				<<funcname<<std::endl;
		return;
	}
	
	// Parameters:
	// 1: self
	lua_pushlightuserdata(L, this);
	// 2: data (other)
	lua_pushlstring(L, other.c_str(), other.size());
	
	// Call (2 parameters, 0 result)
	if(lua_pcall(L, 2, 0, 0))
	{
		dstream<<"WARNING: LuaSAO: Error running function "
				<<funcname<<": "
				<<lua_tostring(L,-1)<<std::endl;
		return;
	}
}

void LuaSAO::loadScripts(const std::string &script_name)
{
	m_script_name = script_name;
	
	std::string relative_path;
	relative_path += "luaobjects/";
	relative_path += script_name;
	std::string server_file = relative_path + "/server.lua";
	std::string server_path = porting::getDataPath(server_file.c_str());

	// Load the file
	int ret;
	ret = luaL_loadfile(L, server_path.c_str());
	if(ret)
	{
		const char *message = lua_tostring(L, -1);
		lua_pop(L, 1);
		dstream<<"LuaSAO::loadScript(): lua_loadfile failed: "
				<<message<<std::endl;
		assert(0);
		return;
	}
	ret = lua_pcall(L, 0, 0, 0);
	if(ret)
	{
		const char *message = lua_tostring(L, -1);
		lua_pop(L, 1);
		dstream<<"LuaSAO::loadScript(): lua_pcall failed: "
				<<message<<std::endl;
		assert(0);
		return;
	}
}

void LuaSAO::step(float dtime, Queue<ActiveObjectMessage> &messages)
{
	const char *funcname = "on_step";
	lua_getglobal(L, funcname);
	if(!lua_isfunction(L,-1))
	{
		lua_pop(L,1);
		dstream<<"WARNING: LuaSAO::step(): Function not found: "
				<<funcname<<std::endl;
		return;
	}
	
	// Parameters:
	// 1: self
	lua_pushlightuserdata(L, this);
	// 2: dtime
	lua_pushnumber(L, dtime);
	
	// Call (2 parameters, 0 result)
	if(lua_pcall(L, 2, 0, 0))
	{
		dstream<<"WARNING: LuaSAO::step(): Error running function "
				<<funcname<<": "
				<<lua_tostring(L,-1)<<std::endl;
		return;
	}

	// Move messages
	while(m_message_queue.size() != 0)
	{
		messages.push_back(m_message_queue.pop_front());
	}
}