/*
BlockPlanet
Copyright (C) 2012 MiJyn, Joel Leclerc <mijyn@mail.com>
Licensed under GPLv3


Based on:
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 "settings.h"
#include "common_irrlicht.h"
#include <string>
#include <jthread.h>
#include <jmutex.h>
#include <jmutexautolock.h>
#include "strfnd.h"
#include <iostream>
#include <fstream>
#include <sstream>
#include "debug.h"
#include "utility.h"
#include "log.h"

void Settings::writeLines(std::ostream &os)
{
	JMutexAutoLock lock(m_mutex);

	for(core::map<std::string, std::string>::Iterator
			i = m_settings.getIterator();
			i.atEnd() == false; i++)
	{
		std::string name = i.getNode()->getKey();
		std::string value = i.getNode()->getValue();
		os<<name<<" = "<<value<<"\n";
	}
}

bool Settings::parseConfigLine(const std::string &line)
{
	JMutexAutoLock lock(m_mutex);

	std::string trimmedline = trim(line);
	
	// Ignore empty lines and comments
	if(trimmedline.size() == 0 || trimmedline[0] == '#')
	{
		return true;
	}
	//infostream<<"trimmedline=\""<<trimmedline<<"\""<<std::endl;
	Strfnd sf(trim(line));
	std::string name = sf.next("=");
	name = trim(name);
	if(name == "")
	{
		return true;
	}
	
	std::string value = sf.next("\n");
	value = trim(value);
	/*infostream<<"Config name=\""<<name<<"\" value=\""
		<<value<<"\""<<std::endl;*/
	
	m_settings[name] = value;
	
	return true;
}

void Settings::parseConfigLines(std::istream &is, const std::string &endstring)
{
	for(;;)
	{
		if(is.eof())
		{
			break;
		}
		std::string line;
		std::getline(is, line);
		std::string trimmedline = trim(line);
		if(endstring != "")
		{
			if(trimmedline == endstring)
			{
				break;
			}
		}
		parseConfigLine(line);
	}
}

/*
	Description: Parses a configuration object
	Returns: False on EOF
*/
bool Settings::parseConfigObject(std::istream &is)
{
	if(is.eof())
	{
		return false;
	}
	
	/*
		NOTE: This function might be expanded to allow multi-line
		      settings.
	*/
	std::string line;
	std::getline(is, line);
	//infostream<<"got line: \""<<line<<"\""<<std::endl;

	return parseConfigLine(line);
}

/*
	Description: Reads a configuration file
	Returns: True on success
*/
bool Settings::readConfigFile(const char *filename)
{
	std::ifstream is(filename);
	if(is.good() == false)
	{
		return false;
	}

	infostream << "Parsing configuration file: \"" <<filename << "\"" << std::endl;

	while(parseConfigObject(is));

	return true;
}

/*
	Description: Reads a configuration object from stream (usually a single line)
		and adds it to dst.
	
	Notes: Preserves comments and empty lines.
		Settings that were added to dst are also added to updated.
		key of updated is setting name, value of updated is dummy.

	Returns: False on EOF
*/
bool Settings::getUpdatedConfigObject(std::istream &is,
		core::list<std::string> &dst,
		core::map<std::string, bool> &updated,
		bool &value_changed)
{
	JMutexAutoLock lock(m_mutex);
	
	if(is.eof())
	{
		return false;
	}
	
	// NOTE: This function will be expanded to allow multi-line settings
	std::string line;
	std::getline(is, line);

	std::string trimmedline = trim(line);
	std::string line_end = "";

	if(is.eof() == false)
	{
		line_end = "\n";
	}
	
	// Ignore empty lines and comments
	if(trimmedline.size() == 0 || trimmedline[0] == '#')
	{
		dst.push_back(line+line_end);
		return true;
	}

	Strfnd sf(trim(line));

	std::string name = sf.next("=");
	name = trim(name);

	if(name == "")
	{
		dst.push_back(line+line_end);
		return true;
	}
	
	std::string value = sf.next("\n");
	value = trim(value);
	
	if(m_settings.find(name))
	{
		std::string newvalue = m_settings[name];
		
		if(newvalue != value)
		{
			infostream<<"Changing value of \""<<name<<"\" = \""
					<<value<<"\" -> \""<<newvalue<<"\""
					<<std::endl;
			value_changed = true;
		}

		dst.push_back(name + " = " + newvalue + line_end);

		updated[name] = true;
	}
	
	return true;
}

/*
	Description: Updates configuration file

	Returns: True on success
*/
bool Settings::updateConfigFile(const char *filename)
{
	infostream<<"Updating configuration file: \""
			<<filename<<"\""<<std::endl;

	core::list<std::string> objects;
	core::map<std::string, bool> updated;
	bool something_actually_changed = false;

	// Read and modify stuff
	{
		std::ifstream is(filename);
		if(is.good() == false)
		{
			infostream<<"updateConfigFile():"
					" Error opening configuration file"
					" for reading: \""
					<<filename<<"\""<<std::endl;
		}
		else
		{
			while(getUpdatedConfigObject(is, objects, updated,
					something_actually_changed));
		}
	}
	
	JMutexAutoLock lock(m_mutex);
	
	// If something not yet determined to have been changed, check if
	// any new stuff was added
	if(!something_actually_changed)
	{
		for(core::map<std::string, std::string>::Iterator
				i = m_settings.getIterator();
				i.atEnd() == false; i++)
		{
			if(updated.find(i.getNode()->getKey()))
			{
				continue;
			}
			something_actually_changed = true;
			break;
		}
	}
	
	// If nothing was actually changed, skip writing the file
	if(!something_actually_changed)
	{
		infostream<<"Skipping writing of "<<filename
				<<" because content wouldn't be modified"<<std::endl;
		return true;
	}
	
	// Write stuff back
	{
		std::ofstream os(filename);
		if(os.good() == false)
		{
			errorstream<<"Error opening configuration file"
					" for writing: \""
					<<filename<<"\""<<std::endl;
			return false;
		}
		
		/*
			Write updated stuff
		*/
		for(core::list<std::string>::Iterator
				i = objects.begin();
				i != objects.end(); i++)
		{
			os<<(*i);
		}

		/*
			Write stuff that was not already in the file
		*/
		for(core::map<std::string, std::string>::Iterator
				i = m_settings.getIterator();
				i.atEnd() == false; i++)
		{
			if(updated.find(i.getNode()->getKey()))
			{
				continue;
			}
			std::string name = i.getNode()->getKey();
			std::string value = i.getNode()->getValue();
			infostream<<"Adding \""<<name<<"\" = \""<<value<<"\""
					<<std::endl;
			os<<name<<" = "<<value<<"\n";
		}
	}
	
	return true;
}

/*
	Note: Types of allowed_options are ignored

	Returns: True on success
*/
bool Settings::parseCommandLine(int argc, char *argv[],
		core::map<std::string, ValueSpec> &allowed_options)
{
	int nonopt_index = 0;
	int i=1;
	for(;;)
	{
		if(i >= argc)
		{
			break;
		}
		std::string argname = argv[i];
		if(argname.substr(0, 2) != "--")
		{
			// If option doesn't start with -, read it in as nonoptX
			if(argname[0] != '-')
			{
				std::string name = "nonopt";
				name += itos(nonopt_index);
				set(name, argname);
				nonopt_index++;
				i++;
				continue;
			}
			errorstream<<"Invalid command-line parameter \""
					<<argname<<"\": --<option> expected."<<std::endl;
			return false;
		}
		i++;

		std::string name = argname.substr(2);

		core::map<std::string, ValueSpec>::Node *n;
		n = allowed_options.find(name);
		if(n == NULL)
		{
			errorstream<<"Unknown command-line parameter \""
					<<argname<<"\""<<std::endl;
			return false;
		}

		ValueType type = n->getValue().type;

		std::string value = "";
		
		if(type == VALUETYPE_FLAG)
		{
			value = "true";
		}
		else
		{
			if(i >= argc)
			{
				errorstream<<"Invalid command-line parameter \""
						<<name<<"\": missing value"<<std::endl;
				return false;
			}
			value = argv[i];
			i++;
		}
		

		infostream<<"Valid command-line parameter: \""
				<<name<<"\" = \""<<value<<"\""
				<<std::endl;
		set(name, value);
	}

	return true;
}

void Settings::set(std::string name, std::string value)
{
	JMutexAutoLock lock(m_mutex);

	m_settings[name] = value;
}

void Settings::set(std::string name, const char *value)
{
	JMutexAutoLock lock(m_mutex);

	m_settings[name] = value;
}

void Settings::setDefault(std::string name, std::string value)
{
	JMutexAutoLock lock(m_mutex);

	m_defaults[name] = value;
}

bool Settings::exists(std::string name)
{
	JMutexAutoLock lock(m_mutex);

	return (m_settings.find(name) || m_defaults.find(name));
}

std::string Settings::get(std::string name)
{
	JMutexAutoLock lock(m_mutex);
	
	core::map<std::string, std::string>::Node *n;
	n = m_settings.find(name);
	if(n == NULL)
	{
		n = m_defaults.find(name);
		if(n == NULL)
		{
			throw SettingNotFoundException("Setting not found");
		}
	}

	return n->getValue();
}

bool Settings::getBool(std::string name)
{
	return is_yes(get(name));
}
	
bool Settings::getFlag(std::string name)
{
	try
	{
		return getBool(name);
	}
	catch(SettingNotFoundException &e)
	{
		return false;
	}
}

// Asks if empty
bool Settings::getBoolAsk(std::string name, std::string question, bool def)
{
	// If it is in settings
	if(exists(name))
	{
		return getBool(name);
	}

	std::string s;
	char templine[10];
	std::cout<<question<<" [y/N]: ";
	std::cin.getline(templine, 10);
	s = templine;

	if(s == "")
	{
		return def;
	}

	return is_yes(s);
}

float Settings::getFloat(std::string name)
{
	return stof(get(name));
}

u16 Settings::getU16(std::string name)
{
	return stoi(get(name), 0, 65535);
}

u16 Settings::getU16Ask(std::string name, std::string question, u16 def)
{
	// If it is in settings
	if(exists(name))
	{
		return getU16(name);
	}
	
	std::string s;
	char templine[10];
	std::cout<<question<<" ["<<def<<"]: ";
	std::cin.getline(templine, 10);
	s = templine;

	if(s == "")
	{
		return def;
	}

	return stoi(s, 0, 65535);
}

s16 Settings::getS16(std::string name)
{
	return stoi(get(name), -32768, 32767);
}

s32 Settings::getS32(std::string name)
{
	return stoi(get(name));
}

v3f Settings::getV3F(std::string name)
{
	v3f value;
	Strfnd f(get(name));
	f.next("(");
	value.X = stof(f.next(","));
	value.Y = stof(f.next(","));
	value.Z = stof(f.next(")"));
	return value;
}

v2f Settings::getV2F(std::string name)
{
	v2f value;
	Strfnd f(get(name));
	f.next("(");
	value.X = stof(f.next(","));
	value.Y = stof(f.next(")"));
	return value;
}

u64 Settings::getU64(std::string name)
{
	u64 value = 0;
	std::string s = get(name);
	std::istringstream ss(s);
	ss>>value;
	return value;
}


void Settings::setBool(std::string name, bool value)
{
	if(value)
	{
		set(name, "true");
	}
	else
	{
		set(name, "false");
	}
}

void Settings::setS32(std::string name, s32 value)
{
	set(name, itos(value));
}

void Settings::setFloat(std::string name, float value)
{
	set(name, ftos(value));
}

void Settings::setV3F(std::string name, v3f value)
{
	std::ostringstream os;
	os<<"("<<value.X<<","<<value.Y<<","<<value.Z<<")";
	set(name, os.str());
}

void Settings::setV2F(std::string name, v2f value)
{
	std::ostringstream os;
	os<<"("<<value.X<<","<<value.Y<<")";
	set(name, os.str());
}

void Settings::setU64(std::string name, u64 value)
{
	std::ostringstream os;
	os<<value;
	set(name, os.str());
}


void Settings::clear()
{
	JMutexAutoLock lock(m_mutex);

	m_settings.clear();
	m_defaults.clear();
}

void Settings::updateValue(Settings &other, const std::string &name)
{
	JMutexAutoLock lock(m_mutex);

	if(&other == this)
	{
		return;
	}

	try
	{
		std::string val = other.get(name);
		m_settings[name] = val;
	}
	catch(SettingNotFoundException &e)
	{
		// Do nothing
	}

	return;
}

void Settings::update(Settings &other)
{
	JMutexAutoLock lock(m_mutex);
	JMutexAutoLock lock2(other.m_mutex);

	if(&other == this)
	{
		return;
	}

	for(core::map<std::string, std::string>::Iterator
			i = other.m_settings.getIterator();
			i.atEnd() == false; i++)
	{
		m_settings[i.getNode()->getKey()] = i.getNode()->getValue();
	}

	for(core::map<std::string, std::string>::Iterator
			i = other.m_defaults.getIterator();
			i.atEnd() == false; i++)
	{
		m_defaults[i.getNode()->getKey()] = i.getNode()->getValue();
	}

	return;
}

Settings & Settings::operator+=(Settings &other)
{
	JMutexAutoLock lock(m_mutex);
	JMutexAutoLock lock2(other.m_mutex);

	if(&other == this)
	{
		return *this;
	}

	for(core::map<std::string, std::string>::Iterator
			i = other.m_settings.getIterator();
			i.atEnd() == false; i++)
	{
		m_settings.insert(i.getNode()->getKey(),
			i.getNode()->getValue());
	}

	for(core::map<std::string, std::string>::Iterator
			i = other.m_defaults.getIterator();
			i.atEnd() == false; i++)
	{
		m_defaults.insert(i.getNode()->getKey(),
				i.getNode()->getValue());
	}

	return *this;
}

Settings & Settings::operator=(Settings &other)
{
	JMutexAutoLock lock(m_mutex);
	JMutexAutoLock lock2(other.m_mutex);

	if(&other == this)
	{
		return *this;
	}

	clear();
	(*this) += other;

	return *this;
}