#include "apiImpl.h"
#include "uptr.h"

#include <sql/getServices.sql.h>
#include <buffer.h>
#include <compileTimeFormatter.h>

#include <libxml/xpath.h>
#include <libxml/xpathInternals.h>
#include <libxml/HTMLparser.h>
#include <libxml/HTMLtree.h>
#include <curl/curl.h>

#define CESSO(curl, opt, expr) \
	BOOST_VERIFY_MSG(CURLE_OK == curl_easy_setopt(curl.get(), opt, expr), "Failed setting option " #opt);

namespace MirrorSearch {
	SearchImpl::SearchImpl(IceTray::DatabasePoolPtr db) :
		IceTray::AbstractDatabaseClient(db),
		log(LOGMANAGER()->getLogger<SearchImpl>())
	{
	}

	SearchServices SearchImpl::getServices(const ::Ice::Current&)
	{
		return fetch<SearchServices>(sql::getServices);
	}

	template<typename Fmt, typename ... P>
	void
	libxmlErrorHandler(const std::string & fn, const P & ... p)
	{
		throw XmlError(Fmt::get(fn, xmlGetLastError()->message, p...));
	}
	template<typename Fmt, typename ... P>
	auto lEHB(const P & ... p)
	{
		return std::bind(&libxmlErrorHandler<Fmt, P...>, std::placeholders::_1, p...);
	}

	template<typename Fmt, typename ... P>
	void
	curlErrorHandler(const std::string & fn, const char * errbuf, const P & ... p)
	{
		throw XmlError(Fmt::get(fn, errbuf, p...));
	}
	template<typename Fmt, typename ... P>
	auto cEHB(const char * errbuf, const P & ... p)
	{
		return std::bind(&curlErrorHandler<Fmt, P...>, std::placeholders::_1, errbuf, p...);
	}

	typedef UPtr<xmlDoc> xmlDocSPtr;
	typedef UPtr<xmlXPathContext> xmlXPathContextSPtr;
	typedef UPtr<xmlXPathObject> xmlXPathObjectSPtr;
	typedef UPtr<xmlParserCtxt> xmlParserCtxtSPtr;

	typedef std::function<size_t(const char *, size_t)> CurlWriteCallback;

	static size_t write_callback(char * ptr, size_t size, size_t nmemb, void * userdata)
	{
		return (*(MirrorSearch::CurlWriteCallback *)(userdata))(ptr, size * nmemb);
	}

	AdHocFormatter(Read, "Failed to read in %? (%?) [%?]");
	UPtr<xmlDoc> getDoc(const SearchServicePtr & ss, const std::string & fn) {
		auto fmt = AdHoc::Buffer::getFormat(ss->baseurl);
		auto url = (*fmt % fn).str();
		char errbuf[CURL_ERROR_SIZE] = "";

		xmlParserCtxtSPtr ctx { nullptr, nullptr };

		auto curl = make_unique(curl_easy_init, curl_easy_cleanup, cEHB<Read>(errbuf, url));
		BOOST_ASSERT(curl);
		CESSO(curl, CURLOPT_URL, url.c_str());
		CESSO(curl, CURLOPT_WRITEFUNCTION, write_callback);
		CurlWriteCallback cb = [&ctx, &url, &ss](auto data, auto size) {
			if (!ctx) {
				ctx = make_unique(htmlCreatePushParserCtxt, htmlFreeParserCtxt, lEHB<Read>(url),
						(xmlSAXHandlerPtr)NULL, (void*)NULL, data, size, url.c_str(), XML_CHAR_ENCODING_NONE);
				htmlCtxtUseOptions(ctx.get(), ss->parserflags);
			}
			else {
				htmlParseChunk(ctx.get(), data, size, 0);
			}
			return size;
		};
		CESSO(curl, CURLOPT_WRITEDATA, &cb);
		if (curl_easy_perform(curl.get()) != CURLE_OK) {
			curlErrorHandler<Read>(failingFunction((void*)&curl_easy_perform), errbuf, url);
		}
		BOOST_VERIFY_MSG(ctx, "No ctx and no previous error should never happen.");
		htmlParseChunk(ctx.get(), "", 0, 1);

		UPtr<xmlDoc> doc = { ctx->myDoc, xmlFreeDoc };
		return doc;
	}

	AdHocFormatter(XPathCtx, "Failed to create xpath context in %? (%?)");
	static auto getXPathCxt(const xmlDocSPtr & doc)
	{
		return make_unique(xmlXPathNewContext, xmlXPathFreeContext, lEHB<XPathCtx>(), doc.get());
	}

	AdHocFormatter(XPathEval, "Failed to evaluate xpath in %? (%?) [%?]");
	static auto getXPathObj(const ::std::string & xpath, const xmlXPathContextSPtr & ctx, xmlXPathObjectType type)
	{
		auto xpathObj = make_unique(xmlXPathEvalExpression, xmlXPathFreeObject, lEHB<XPathEval>(xpath), BAD_CAST xpath.c_str(), ctx.get());
		if (xpathObj->type != type) {
			throw XmlError("Xpath evaluates to wrong type " + xpath);
		}
		return xpathObj;
	}

	void SearchImpl::callService(const ::std::string & fn, const SearchServicePtr & s, SearchHits & sh) const
	{
		auto doc = getDoc(s, fn);
		auto xpathCtx = getXPathCxt(doc);
		auto xpathObj = getXPathObj(s->listxpath, xpathCtx, xmlXPathObjectType::XPATH_NODESET);
		log->messagebf(LOG::INFO, "%d nodes matched %s", xpathObj->nodesetval->nodeNr, s->listxpath);
		for (int row = 0; row < xpathObj->nodesetval->nodeNr; row += 1) {
			xpathCtx->node = xpathObj->nodesetval->nodeTab[row];
			auto xpathObjI = getXPathObj(s->urlxpath, xpathCtx, xmlXPathObjectType::XPATH_STRING);
			if (xpathObjI->stringval && *xpathObjI->stringval) {
				sh.push_back(new SearchHit(0, s->id, (const char *) xpathObjI->stringval));
			}
		}
	}

	SearchHits SearchImpl::getMatches(const ::std::string & fn, const ::Ice::Current & c)
	{
		SearchHits sh;
		for (const auto & s : getServices(c)) {
			callService(fn, s, sh);
		}
		return sh;
	}

	::IceUtil::Optional<::std::string> SearchImpl::feelingLucky(const ::std::string & fn, const ::Ice::Current & c)
	{
		const auto ms = getMatches(fn, c);
		if (ms.empty())
			return IceUtil::None;
		return ms.front()->url;
	}
}