// Represent
//
// Douglas Thrift
//
// $Id$

#include "Hexadecimal.hpp"
#include "DataType.hpp"
#include "InputType.hpp"

#ifdef _WIN32
#pragma warning(disable:4267 4288)
#endif

#include <menes-app/simple.hpp>
#include <menes-xml/document.hpp>
#include <menes-xml/nodeset.hpp>
#include <menes-xml/parse.hpp>

struct Environment
{
	ext::String get(const ext::String& name) { try { return api::TheEnvironment.Get(name); } catch (ext::Exception) { return ext::String(); } }
} env;

struct Item
{
	DataType type;
	ext::String data;
	InputType input;
	Item(const DataType& type, const ext::String& data, const InputType& input_) : type(type), data(data), input(input_) {}
};

int Main(const app::Options& options)
{
	Represent represent;

	return 0;
}

Represent::Represent()
{
	api::Cout << "Content-Type: text/html; charset=UTF-8\r\n\r\n" << ios::Flush;

	xml::TextWriter xhtml(api::Cout);

	parse();

	_H<xml::Document> document(xml::Parse("represent.xml"));
	_H<xml::Node> node(*document/"represent");
	ext::String before(*node/"before"), after(*node/"after");

	api::Cout << ios::NewLine << before << ios::Flush;

	{
		xml::ScopeElement table(xhtml, "table");

		headings(xhtml);
		form(xhtml);
		output(xhtml);
	}

	api::Cout << after << ios::Flush;
}

void Represent::parse()
{
	ext::String query(env.get("QUERY_STRING"));

	if (env.get("REQUEST_METHOD") == "POST")
	{
		ext::Buffer content(lexical_cast<size_t>(env.get("CONTENT_LENGTH")));

		api::Cin.ReadFully(content.Begin(), content.GetSize());

		query = content;
	}

//	api::Cout << query << ios::NewLine;

	ext::Vector<ext::String> pairs(query.Split('&'));

	_foreach (ext::Vector<ext::String>, pair, pairs)
	{
		ext::String::ConstIterator equal(pair->FindFirst('='));
		ext::String name(pair->Begin(), equal), value(equal != pair->End() ? equal + 1 : equal, pair->End());

		// XXX: clean up %20, etc.

		cgi.insert(std::pair<std::string, std::string>(name, value));
	}
}

void Represent::headings(xml::TextWriter& xhtml)
{
	xml::ScopeElement tr(xhtml, "tr");
	ext::String headings[] = { "Data Type", "Data Representation", "Input Type", "Storage" };

	_foru (index, 0, sizeof (headings) / sizeof (ext::String))
	{
		xml::ScopeElement th(xhtml, "th");

		xhtml.OutputText(headings[index]);
	}
}

void Represent::form(xml::TextWriter& xhtml)
{
	xml::ScopeElement tr(xhtml, "tr");

	{
		xml::ScopeElement td(xhtml, "td"), select(xhtml, "select");

		xhtml.SetAttribute("name", "type");

		DataType type(cgi.find("type") != cgi.end() ? cgi.find("type")->second : std::string());

		_foreach (ext::Vector<DataType>, type_, DataType::enumerate())
		{
			xml::ScopeElement option(xhtml, "option");

			if (*type_ == type) xhtml.SetAttribute("selected", "selected");

			xhtml.OutputText(*type_);
		}
	}

	{
		xml::ScopeElement td(xhtml, "td"), input(xhtml, "input");

		xhtml.SetAttribute("name", "data");
		xhtml.SetAttribute("size", "64");
		xhtml.SetAttribute("type", "text");

		ext::String data(cgi.find("data") != cgi.end() ? cgi.find("data")->second : std::string());

		xhtml.SetAttribute("value", data);
	}

	{
		xml::ScopeElement td(xhtml, "td"), select(xhtml, "select");

		xhtml.SetAttribute("name", "input");

		InputType input(cgi.find("input") != cgi.end() ? cgi.find("input")->second : std::string());

		_foreach (ext::Vector<InputType>, input_, InputType::enumerate())
		{
			xml::ScopeElement option(xhtml, "option");

			if (*input_ == input) xhtml.SetAttribute("selected", "selected");

			xhtml.OutputText(*input_);
		}
	}

	xml::ScopeElement td(xhtml, "td"), input(xhtml, "input");

	xhtml.SetAttribute("type", "submit");
	xhtml.SetAttribute("value", "Store");
}

void Represent::output(xml::TextWriter& xhtml)
{
	typedef std::multimap<std::string, std::string>::size_type MultiMapSize;

	std::set<MultiMapSize, std::greater<MultiMapSize> > count;
	ext::String names[] = { "type", "data", "input" };

	_foru (index, 0, sizeof (names) / sizeof (ext::String)) count.insert(cgi.count(names[index]));

	typedef std::multimap<std::string, std::string>::const_iterator MultiMapConstIterator;

	MultiMapConstIterator type(cgi.lower_bound("type")), type_(cgi.upper_bound("type")), data(cgi.lower_bound("data")), data_(cgi.upper_bound("data")), input(cgi.lower_bound("input")), input_(cgi.upper_bound("input"));
	ext::Vector<Item> items;

	_foru (index, 0, *count.begin())
	{
		Item item(DataType(type != type_ ? type->second : std::string()), data != data_ ? data->second : std::string(), InputType(input != input_ ? input->second : std::string()));

		items.InsertLast(item);

		if (type != type_) ++type;
		if (data != data_) ++data;
		if (input != input_) ++input;
	}

	_rfor (MultiMapConstIterator, delete_, cgi.lower_bound("delete"), cgi.upper_bound("delete")) items.RemoveAt(lexical_cast<size_t>(delete_->second));

	size_t index(0);

	_foreach (ext::Vector<Item>, item, items) switch (item->type)
	{
	case DataType::TYPE_bool:
		output<bool>(xhtml, *item, ++index);
		break;
	case DataType::TYPE_char:
		output<char>(xhtml, *item, ++index);
		break;
	case DataType::TYPE_short:
		output<short>(xhtml, *item, ++index);
		break;
	case DataType::TYPE_unsigned_short:
		output<unsigned short>(xhtml, *item, ++index);
		break;
	case DataType::TYPE_int:
		output<int>(xhtml, *item, ++index);
		break;
	case DataType::TYPE_unsigned_int:
		output<unsigned int>(xhtml, *item, ++index);
		break;
	case DataType::TYPE_long:
		output<long>(xhtml, *item, ++index);
		break;
	case DataType::TYPE_unsigned_long:
		output<unsigned long>(xhtml, *item, ++index);
		break;
	case DataType::TYPE_float:
		output<float>(xhtml, *item, ++index);
		break;
	case DataType::TYPE_double:
		output<double>(xhtml, *item, ++index);
		break;
	case DataType::TYPE_std_string:
		output<std::string>(xhtml, *item, ++index);
		break;
	case DataType::TYPE_ext_String:
		output<ext::String>(xhtml, *item, ++index);
	}
}

template <typename Type>
void Represent::output(xml::TextWriter& xhtml, const Item& item, size_t index)
{
	xhtml.OpenElement("tr");

	{
		xml::ScopeElement td(xhtml, "td");

		xhtml.SetAttribute("rowspan", "3");
		xhtml.OutputText(item.type);

		ext::String names[] = { "type", "data", "input" }, values[] = { item.type, item.data, item.input };

		_foru (index, 0, sizeof (names) / sizeof (ext::String))
		{
			xml::ScopeElement input(xhtml, "input");

			xhtml.SetAttribute("name", names[index]);
			xhtml.SetAttribute("type", "hidden");
			xhtml.SetAttribute("value", values[index]);
		}
	}

	Type type(input<Type>(item));

	{
		xml::ScopeElement td(xhtml, "td");

		normal(xhtml, type);
	}

	{
		xml::ScopeElement th(xhtml, "th");

		xhtml.OutputText("Normal");
	}

	{
		xml::ScopeElement td(xhtml, "td");

		xhtml.SetAttribute("rowspan", "3");

		{
			xml::ScopeElement input(xhtml, "input");

			xhtml.SetAttribute("name", "delete");
			xhtml.SetAttribute("type", "checkbox");
			xhtml.SetAttribute("value", lexical_cast<ext::String>(index));
		}

		xhtml.OutputText("Delete");
	}

	xhtml.CloseElement();
	xhtml.OpenElement("tr");

	{
		xml::ScopeElement td(xhtml, "td");

		binary(xhtml, type);
	}

	{
		xml::ScopeElement th(xhtml, "th");

		xhtml.OutputText("Binary");
	}

	xhtml.CloseElement();
	xhtml.OpenElement("tr");

	{
		xml::ScopeElement td(xhtml, "td");
	
		hexadecimal(xhtml, type);
	}

	{
		xml::ScopeElement th(xhtml, "th");

		xhtml.OutputText("Hexadecimal");
	}

	xhtml.CloseElement();
}

template <typename Type>
Type Represent::input(const Item& item)
{
	bool signed_(etl::Limits<Type>::IsSigned);

	switch (item.input)
	{
	default:
		try { return lexical_cast<Type>(item.data); } catch (ext::Exception) { return 0; }
	case InputType::INPUT_Binary:
		return Binary(item.data, signed_).convert<Type>(signed_);
	case InputType::INPUT_Hexadecimal:
		return Hexadecimal(item.data, signed_).convert<Type>(signed_);
	}
}

template <>
char Represent::input(const Item& item)
{
	switch (item.input)
	{
	default:
		return item.data.First();
	case InputType::INPUT_Binary:
		return Binary(item.data, false).convert<char>(false);
	case InputType::INPUT_Hexadecimal:
		return Hexadecimal(item.data, false).convert<char>(false);
	}
}

// XXX: constructing a string from Binary or Hexadecimal seems too dangerous
template <>
std::string Represent::input(const Item& item)
{
	return item.data;
}

// XXX: constructing a string from Binary or Hexadecimal seems too dangerous
template <>
ext::String Represent::input(const Item& item)
{
	return item.data;
}

template <typename Type>
void Represent::normal(xml::TextWriter& xhtml, const Type& type)
{
	xhtml.OutputText(lexical_cast<ext::String>(type));
}

template <>
void Represent::normal(xml::TextWriter& xhtml, const char& char_)
{
	xhtml.OutputText(ext::CodePoint(char_));
}

template <>
void Represent::normal(xml::TextWriter& xhtml, const std::string& string)
{
	xhtml.OutputText(string);
}

template <>
void Represent::normal(xml::TextWriter& xhtml, const ext::String& string)
{
	xhtml.OutputText(string);
}

template <typename Type>
void Represent::binary(xml::TextWriter& xhtml, const Type& type)
{
	xhtml.OutputText(Binary(type));
}

template <>
void Represent::binary(xml::TextWriter& xhtml, const std::string& string)
{
	xhtml.OutputText(Binary(string));

	xml::ScopeElement(xhtml, "br");

	_sforeach (std::string, atom, string)
	{
		xml::ScopeElement(xhtml, "br");

		xhtml.OutputText(Binary(*atom));
	}
}

template <>
void Represent::binary(xml::TextWriter& xhtml, const ext::String& string)
{
	xhtml.OutputText(Binary(string));

	xml::ScopeElement(xhtml, "br");

	_foreach (ext::String, atom, string)
	{
		xml::ScopeElement(xhtml, "br");

		xhtml.OutputText(Binary(*atom));
	}
}

template <typename Type>
void Represent::hexadecimal(xml::TextWriter& xhtml, const Type& type)
{
	xhtml.OutputText(Hexadecimal(type));
}

template <>
void Represent::hexadecimal(xml::TextWriter& xhtml, const std::string& string)
{
	xhtml.OutputText(Hexadecimal(string));

	xml::ScopeElement(xhtml, "br");

	_sforeach (std::string, atom, string)
	{
		xml::ScopeElement(xhtml, "br");

		xhtml.OutputText(Hexadecimal(string));
	}
}

template <>
void Represent::hexadecimal(xml::TextWriter& xhtml, const ext::String& string)
{
	xhtml.OutputText(Hexadecimal(string));

	xml::ScopeElement(xhtml, "br");

	_foreach (ext::String, atom, string)
	{
		xml::ScopeElement(xhtml, "br");

		xhtml.OutputText(Hexadecimal(string));
	}
}