#include <sstream>
#include <iostream>
#include <boost/lexical_cast.hpp>
#include <boost/filesystem.hpp>
#include <libxml++/libxml++.h>
#include "xml.h"
#include "exceptions.h"
#include "util.h"

using namespace std;
using namespace boost;
using namespace libdcp;

XMLNode::XMLNode ()
	: _node (0)
{

}

XMLNode::XMLNode (xmlpp::Node const * node)
	: _node (node)
{
	
}

xmlpp::Node *
XMLNode::xml_node (string name)
{
	list<xmlpp::Node*> n = xml_nodes (name);
	if (n.size() > 1) {
		throw XMLError ("duplicate XML tag " + name);
	} else if (n.empty ()) {
		throw XMLError ("missing XML tag " + name);
	}
	
	return n.front ();
}

list<xmlpp::Node*>
XMLNode::xml_nodes (string name)
{
	/* XXX: using find / get_path should work here, but I can't follow
	   how get_path works.
	*/

	xmlpp::Node::NodeList c = _node->get_children ();
	
	list<xmlpp::Node*> n;
	for (xmlpp::Node::NodeList::iterator i = c.begin (); i != c.end(); ++i) {
		if ((*i)->get_name() == name) {
			n.push_back (*i);
		}
	}
	
	_taken.push_back (name);
	return n;
}

string
XMLNode::string_node (string name)
{
	xmlpp::Node* node = xml_node (name);
	
        xmlpp::Node::NodeList c = node->get_children ();
	if (c.size() != 1) {
		throw XMLError ("unexpected content in XML node");
	}
	
        xmlpp::ContentNode const * v = dynamic_cast<xmlpp::ContentNode const *> (c.front());
	if (!v) {
		throw XMLError ("missing content in XML node");
	}
	
	return v->get_content ();
}

string
XMLNode::optional_string_node (string name)
{
	list<xmlpp::Node*> nodes = xml_nodes (name);
	if (nodes.size() > 2) {
		throw XMLError ("duplicate XML tag " + name);
	}

	if (nodes.empty ()) {
		return "";
	}

	return string_node (name);
}

ContentKind
XMLNode::kind_node (string name)
{
	return content_kind_from_string (string_node (name));
}

Fraction
XMLNode::fraction_node (string name)
{
	return Fraction (string_node (name));
}

int64_t
XMLNode::int64_node (string name)
{
	return lexical_cast<int64_t> (string_node (name));
}

void
XMLNode::ignore_node (string name)
{
	_taken.push_back (name);
}

void
XMLNode::done ()
{
	xmlpp::Node::NodeList c = _node->get_children ();
	for (xmlpp::Node::NodeList::iterator i = c.begin(); i != c.end(); ++i) {
		if (dynamic_cast<xmlpp::Element *> (*i) && find (_taken.begin(), _taken.end(), (*i)->get_name()) == _taken.end ()) {
			throw XMLError ("unexpected XML node " + (*i)->get_name());
		}
	}
}

XMLFile::XMLFile (string file, string root_name)
{
	if (!filesystem::exists (file)) {
		throw FileError ("XML file does not exist", file);
	}
	
	_parser = new xmlpp::DomParser;
	_parser->parse_file (file);
	if (!_parser) {
		throw XMLError ("could not parse XML");
	}

	_node = _parser->get_document()->get_root_node ();
	if (_node->get_name() != root_name) {
		throw XMLError ("unrecognised root node");
	}
}

XMLFile::~XMLFile ()
{
	delete _parser;
}