/* Copyright (C) 2014 InfiniDB, Inc.

   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; version 2 of
   the License.

   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. */

/******************************************************************************************
* $Id$
*
******************************************************************************************/
#include "config.h"

#include <string>
#include <boost/algorithm/string.hpp>
#include <stdexcept>
#include <libxml/xmlmemory.h>
#include <libxml/parser.h>
#include <vector>
using namespace std;

#include "xmlparser.h"

namespace config
{

const string XMLParser::getConfig(const xmlDocPtr doc, const string& section, const string& name) const
{
	string res;
	xmlNodePtr cur1 = xmlDocGetRootElement(doc);
	if (cur1 == NULL)
		throw runtime_error("XMLParser::getConfig: error accessing XML root");

	cur1 = cur1->xmlChildrenNode;
	while (cur1 != NULL)
	{
		string cur1name = (const char*)cur1->name;
		if ((boost::iequals(cur1name, section)))
		{
			xmlNodePtr cur2 = cur1->xmlChildrenNode;
			while (cur2 != NULL)
			{
				string cur2name = (const char*)cur2->name;
				if ((boost::iequals(cur2name, name)))
				{
						xmlNodePtr cur3 = cur2->xmlChildrenNode;
						if (cur3)
							res = (const char*)cur3->content;
						return expand(res);
				}
				cur2 = cur2->next;
			}
		}
		cur1 = cur1->next;
	}
	// maybe nullstr if not found
	return expand(res);
}

void XMLParser::getConfig(const xmlDocPtr doc, const string& section, const string& name, vector<string>& values) const
{
	string res;

	xmlNodePtr cur1 = xmlDocGetRootElement(doc);
	if (cur1 == NULL)
		throw runtime_error("XMLParser::getConfig: error accessing XML root");

	cur1 = cur1->xmlChildrenNode;
	while (cur1 != NULL)
	{
		string cur1name = (const char*)cur1->name;
		if ((boost::iequals(cur1name, section)))
		{
			xmlNodePtr cur2 = cur1->xmlChildrenNode;
			while (cur2 != NULL)
			{
				string cur2name = (const char*)cur2->name;
				if ((boost::iequals(cur2name, name)))
				{
						res.clear();
						xmlNodePtr cur3 = cur2->xmlChildrenNode;
						if (cur3)
							res = (const char*)cur3->content;
						values.push_back(expand(res));
				}
				cur2 = cur2->next;
			}
		}
		cur1 = cur1->next;
	}
}

void XMLParser::setConfig(xmlDocPtr doc, const string& section, const string& name, const string& value)
{
	xmlNodePtr cur1 = xmlDocGetRootElement(doc);
	if (cur1 == NULL)
		throw runtime_error("XMLParser::setConfig: error accessing XML root");

	xmlNodePtr cur2;

	cur1 = cur1->xmlChildrenNode;
	while (cur1 != NULL)
	{
		string cur1name = (const char*)cur1->name;
		if (boost::iequals(cur1name, section))
		{
			cur2 = cur1->xmlChildrenNode;
			while (cur2 != NULL)
			{
				string cur2name = (const char*)cur2->name;
				if (boost::iequals(cur2name, name))
				{
						xmlNodePtr cur3 = cur2->xmlChildrenNode;
						if (cur3 == NULL)
						{
							xmlAddChild(cur2, xmlNewText((const xmlChar*)"\t"));
							cur3 = cur2->xmlChildrenNode;
						}
						else
						{
							xmlFree(cur3->content);
						}
						cur3->content = xmlStrdup((const xmlChar*)value.c_str());
						return;
				}
				cur2 = cur2->next;
			}
			// We found the section, but not the name, so we need to add a new node here
			xmlAddChild(cur1, xmlNewText((const xmlChar*)"\t"));
			xmlNewTextChild(cur1, NULL, (const xmlChar*)name.c_str(), (const xmlChar*)value.c_str());
			xmlAddChild(cur1, xmlNewText((const xmlChar*)"\n\t"));
			return;
		}
		cur1 = cur1->next;
	}

	// We did not find the section, so we need to add it and the name here
	cur1 = xmlDocGetRootElement(doc);
	xmlAddChild(cur1, xmlNewText((const xmlChar*)"\t"));
	cur2 = xmlNewChild(cur1, NULL, (const xmlChar*)section.c_str(), NULL);
	xmlAddChild(cur2, xmlNewText((const xmlChar*)"\n\t\t"));
	xmlNewTextChild(cur2, NULL, (const xmlChar*)name.c_str(), (const xmlChar*)value.c_str());
	xmlAddChild(cur2, xmlNewText((const xmlChar*)"\n\t"));
	xmlAddChild(cur1, xmlNewText((const xmlChar*)"\n"));

	return;
}

void XMLParser::delConfig(xmlDocPtr doc, const string& section, const string& name)
{
	string res;

	xmlNodePtr cur1 = xmlDocGetRootElement(doc);
	if (cur1 == NULL)
		throw runtime_error("XMLParser::delConfig: error accessing XML root");

	cur1 = cur1->xmlChildrenNode;
	while (cur1 != NULL)
	{
		string cur1name = (const char*)cur1->name;
		if ((boost::iequals(cur1name, section)))
		{
			xmlNodePtr cur2 = cur1->xmlChildrenNode;
			while (cur2 != NULL)
			{
				xmlNodePtr tmp = cur2;
				cur2 = cur2->next;
				string tmpname = (const char*)tmp->name;
				if ((boost::iequals(tmpname, name)))
				{
					xmlUnlinkNode(tmp);
					xmlFreeNode(tmp);
				}
			}
		}
		cur1 = cur1->next;
	}

	return;
}

const string XMLParser::expand(const std::string& in) const
{
	string out(in);
	string::size_type pos;
	const string::size_type len=11;

	pos = out.find("$INSTALLDIR");
	while (pos != string::npos)
	{
		out.replace(pos, len, fInstallDir);
		pos = out.find("$INSTALLDIR");
	}

	return out;
}

const vector<string> XMLParser::enumConfig(const xmlDocPtr doc) const
{
	vector<string> resv;
	string res;

	xmlNodePtr cur1 = xmlDocGetRootElement(doc);
	if (cur1 == NULL)
		throw runtime_error("XMLParser::getConfig: error accessing XML root");

	cur1 = cur1->xmlChildrenNode;
	while (cur1 != NULL)
	{
		res = reinterpret_cast<const char*>(cur1->name);
		if (res != "text" && res != "comment")
			resv.push_back(res);
		cur1 = cur1->next;
	}
	return resv;
}

const vector<string> XMLParser::enumSection(const xmlDocPtr doc, const string& section) const
{
	vector<string> resv;
	string res;

	xmlNodePtr cur1 = xmlDocGetRootElement(doc);
	if (cur1 == NULL)
		throw runtime_error("XMLParser::getConfig: error accessing XML root");

	cur1 = cur1->xmlChildrenNode;
	while (cur1 != NULL)
	{
		if ((!xmlStrcmp(cur1->name, (const xmlChar *)section.c_str())))
		{
			xmlNodePtr cur2 = cur1->xmlChildrenNode;
			while (cur2 != NULL)
			{
				res = reinterpret_cast<const char*>(cur2->name);
				if (res != "text" && res != "comment")
					resv.push_back(expand(res));
				cur2 = cur2->next;
			}
		}
		cur1 = cur1->next;
	}
	return resv;
}

} //namespace
// vim:ts=4 sw=4: