#include <boost/foreach.hpp>
#include <boost/lexical_cast.hpp>

#include "SerializedTypes.h"
#include "SerializedObject.h"
#include "TransactionFormats.h"
#include "NewcoinAddress.h"
#include "utils.h"

std::string SerializedType::getFullText() const
{
	std::string ret;
	if (getSType() != STI_NOTPRESENT)
	{
		if(name != NULL)
		{
			ret = name;
			ret += " = ";
		}
		ret += getText();
	}
	return ret;
}

STUInt8* STUInt8::construct(SerializerIterator& u, const char *name)
{
	return new STUInt8(name, u.get8());
}

std::string STUInt8::getText() const
{
	return boost::lexical_cast<std::string>(value);
}

bool STUInt8::isEquivalent(const SerializedType& t) const
{
	const STUInt8* v = dynamic_cast<const STUInt8*>(&t);
	return v && (value == v->value);
}

STUInt16* STUInt16::construct(SerializerIterator& u, const char *name)
{
	return new STUInt16(name, u.get16());
}

std::string STUInt16::getText() const
{
	return boost::lexical_cast<std::string>(value);
}

bool STUInt16::isEquivalent(const SerializedType& t) const
{
	const STUInt16* v = dynamic_cast<const STUInt16*>(&t);
	return v && (value == v->value);
}

STUInt32* STUInt32::construct(SerializerIterator& u, const char *name)
 {
	return new STUInt32(name, u.get32());
}

std::string STUInt32::getText() const
{
	return boost::lexical_cast<std::string>(value);
}

bool STUInt32::isEquivalent(const SerializedType& t) const
{
	const STUInt32* v = dynamic_cast<const STUInt32*>(&t);
	return v && (value == v->value);
}

STUInt64* STUInt64::construct(SerializerIterator& u, const char *name)
{
	return new STUInt64(name, u.get64());
}

std::string STUInt64::getText() const
{
	return boost::lexical_cast<std::string>(value);
}

bool STUInt64::isEquivalent(const SerializedType& t) const
{
	const STUInt64* v = dynamic_cast<const STUInt64*>(&t);
	return v && (value == v->value);
}

STHash128* STHash128::construct(SerializerIterator& u, const char *name)
{
	return new STHash128(name, u.get128());
}

std::string STHash128::getText() const
{
	return value.GetHex();
}

bool STHash128::isEquivalent(const SerializedType& t) const
{
	const STHash128* v = dynamic_cast<const STHash128*>(&t);
	return v && (value == v->value);
}

STHash160* STHash160::construct(SerializerIterator& u, const char *name)
{
	return new STHash160(name, u.get160());
}

std::string STHash160::getText() const
{
	return value.GetHex();
}

bool STHash160::isEquivalent(const SerializedType& t) const
{
	const STHash160* v = dynamic_cast<const STHash160*>(&t);
	return v && (value == v->value);
}

STHash256* STHash256::construct(SerializerIterator& u, const char *name)
{
	return new STHash256(name, u.get256());
}

std::string STHash256::getText() const
{
	return value.GetHex();
}

bool STHash256::isEquivalent(const SerializedType& t) const
{
	const STHash256* v = dynamic_cast<const STHash256*>(&t);
	return v && (value == v->value);
}

STVariableLength::STVariableLength(SerializerIterator& st, const char *name) : SerializedType(name)
{
	value = st.getVL();
}

std::string STVariableLength::getText() const
{
	return strHex(value);
}

STVariableLength* STVariableLength::construct(SerializerIterator& u, const char *name)
{
	return new STVariableLength(name, u.getVL());
}

int STVariableLength::getLength() const
{
	return Serializer::encodeLengthLength(value.size()) + value.size();
}

bool STVariableLength::isEquivalent(const SerializedType& t) const
{
	const STVariableLength* v = dynamic_cast<const STVariableLength*>(&t);
	return v && (value == v->value);
}

std::string STAccount::getText() const
{
	uint160 u;
	NewcoinAddress a;

	if (!getValueH160(u))
		return STVariableLength::getText();
	a.setAccountID(u);
	return a.humanAccountID();
}

STAccount* STAccount::construct(SerializerIterator& u, const char *name)
{
	return new STAccount(name, u.getVL());
}

//
// STVector256
//

// Return a new object from a SerializerIterator.
STVector256* STVector256::construct(SerializerIterator& u, const char *name)
{
	std::vector<unsigned char> data = u.getVL();
	std::vector<uint256> value;

	int count = data.size() / (256 / 8);
	value.reserve(count);

	unsigned int	uStart	= 0;
	for (unsigned int i = 0; i != count; i++)
	{
		unsigned int	uEnd	= uStart+(256/8);

		value.push_back(uint256(std::vector<unsigned char>(&data[uStart], &data[uEnd])));

		uStart	= uEnd;
	}

	return new STVector256(name, value);
}

void STVector256::add(Serializer& s) const
{
	s.addVL(mValue.empty() ? NULL : mValue[0].begin(), mValue.size() * (256 / 8));
}

//
// STAccount
//

bool STAccount::isValueH160() const
{
	return peekValue().size() == (160/8);
}

void STAccount::setValueH160(const uint160& v)
{
	peekValue().clear();
	peekValue().insert(peekValue().end(), v.begin(), v.end());
	assert(peekValue().size() == (160/8));
}

bool STAccount::getValueH160(uint160& v) const
{
	if (!isValueH160()) return false;
	memcpy(v.begin(), &(peekValue().front()), (160/8));
	return true;
}

NewcoinAddress STAccount::getValueNCA() const
{
	NewcoinAddress a;
	uint160 v;
	if (getValueH160(v))
		a.setAccountID(v);
	return a;
}

void STAccount::setValueNCA(const NewcoinAddress& nca)
{
	setValueH160(nca.getAccountID());
}

std::string STTaggedList::getText() const
{
	std::string ret;
	for (std::vector<TaggedListItem>::const_iterator it=value.begin(); it!=value.end(); ++it)
	{
		ret += boost::lexical_cast<std::string>(it->first);
		ret += ",";
		ret += strHex(it->second);
	}
	return ret;
}

Json::Value STTaggedList::getJson(int) const
{
	Json::Value ret(Json::arrayValue);
	for (std::vector<TaggedListItem>::const_iterator it=value.begin(); it!=value.end(); ++it)
	{
		Json::Value elem(Json::arrayValue);
		elem.append(it->first);
		elem.append(strHex(it->second));
		ret.append(elem);
	}
	return ret;
}

STTaggedList* STTaggedList::construct(SerializerIterator& u, const char *name)
{
	return new STTaggedList(name, u.getTaggedList());
}

int STTaggedList::getLength() const
{
	int ret = Serializer::getTaggedListLength(value);
	if (ret<0) throw std::overflow_error("bad TL length");
	return ret;
}

bool STTaggedList::isEquivalent(const SerializedType& t) const
{
	const STTaggedList* v = dynamic_cast<const STTaggedList*>(&t);
	return v && (value == v->value);
}

STPathSet* STPathSet::construct(SerializerIterator& s, const char *name)
{
	std::vector<STPath> paths;
	std::vector<STPathElement> path;
	do
	{
		switch(s.get8())
		{
			case STPathElement::typeEnd:
				if(path.empty())
				{
					if (!paths.empty())
						throw std::runtime_error("empty last path");
				}
				else paths.push_back(path);
				return new STPathSet(name, paths);

			case STPathElement::typeBoundary:
				if (path.empty())
					throw std::runtime_error("empty path");
				paths.push_back(path);
				path.clear();

			case STPathElement::typeAccount:
				path.push_back(STPathElement(STPathElement::typeAccount, s.get160()));
				break;

			case STPathElement::typeOffer:
				path.push_back(STPathElement(STPathElement::typeOffer, s.get160()));
				break;

			default: throw std::runtime_error("Unknown path element");
		}
	} while(1);
}

int STPathSet::getLength() const
{
	int ret = 0;
	for (std::vector<STPath>::const_iterator it = value.begin(), end = value.end(); it != end; ++it)
		ret += it->getSerializeSize();
	return (ret != 0) ? ret : (ret + 1);
}

Json::Value STPath::getJson(int) const
{
	Json::Value ret(Json::arrayValue);
	for (std::vector<STPathElement>::const_iterator it = mPath.begin(), end = mPath.end(); it != end; ++it)
	{
		switch (it->getNodeType())
		{
			case STPathElement::typeAccount:
			{
				Json::Value elem(Json::objectValue);
				NewcoinAddress account;
				account.setAccountID(it->getNode());
				elem["account"] = account.humanAccountID();
				ret.append(elem);
				break;
			}

			case STPathElement::typeOffer:
			{
				Json::Value elem(Json::objectValue);
				elem["offer"] = it->getNode().GetHex();
				ret.append(elem);
				break;
			}

			default: throw std::runtime_error("Unknown path element");
		}
	}
	return ret;
}

Json::Value STPathSet::getJson(int options) const
{
	Json::Value ret(Json::arrayValue);
	for (std::vector<STPath>::const_iterator it = value.begin(), end = value.end(); it!=end; ++it)
		ret.append(it->getJson(options));
	return ret;
}

std::string STPath::getText() const
{
	std::string ret("[");
	bool first = true;
	for (std::vector<STPathElement>::const_iterator it = mPath.begin(), end = mPath.end(); it != end; ++it)
	{
		if (!first) ret += ", ";
		switch (it->getNodeType())
		{
			case STPathElement::typeAccount:
			{
				NewcoinAddress account;
				account.setAccountID(it->getNode());
				ret += account.humanAccountID();
				break;
			}
			case STPathElement::typeOffer:
			{
				ret += "Offer(";
				ret += it->getNode().GetHex();
				ret += ")";
				break;
			}

			default: throw std::runtime_error("Unknown path element");
		}
		first = false;
	}
	return ret + "]";
}

std::string STPathSet::getText() const
{
	std::string ret("{");
	bool firstPath = true;
	for (std::vector<STPath>::const_iterator it = value.begin(), end = value.end(); it != end; ++it)
	{
		if (!firstPath)
		{
			ret += ", ";
			firstPath = false;
		}
		ret += it->getText();
	}
	return ret + "}";
}

void STPathSet::add(Serializer& s) const
{
	bool firstPath = true;
	for (std::vector<STPath>::const_iterator pit = value.begin(), pend = value.end(); pit != pend; ++pit)
	{
		if (!firstPath)
		{
			s.add8(STPathElement::typeBoundary);
			firstPath = false;
		}
		for (std::vector<STPathElement>::const_iterator eit = pit->begin(), eend = pit->end(); eit != eend; ++eit)
		{
			s.add8(eit->getNodeType());
			s.add160(eit->getNode());
		}
	}
	s.add8(STPathElement::typeEnd);
}
// vim:ts=4