#include <Core/Core.h>

using namespace Upp;

void ValueArrayXmlize(XmlIO xml, Value& v)
{
	if(xml.IsStoring())
	{
		const ValueArray& va = v;
		XmlizeStore(xml, va.Get());
	}
	if(xml.IsLoading())
	{
		Vector<Value> vv;
		::Xmlize(xml, vv);
		v = ValueArray(vv);
	}
}
INITBLOCK { RegisterValueXmlize(GetValueTypeNo<ValueArray>(), &ValueArrayXmlize, "ValueArray"); }


CONSOLE_APP_MAIN
{
	Vector<Value> vv;
	vv << 123;
	vv << "Hallo";

	ValueArray va(vv); //picks vv, ValueArray::Data contains the Vector, ValueArray ref count references the VA::Data
	Value v = va; //the Value now additionally references the ValueArray::Data

	RLOG(v);

	ValueArray va_ = v; //now another ValueArray references the same ValueArray::Data
	const Vector<Value>& vv_ = va_.Get();
	DUMPC(vv_);
	
	StoreAsXMLFile(v); //the pure Value is xmlized with the ValueArray::Data as Void derived content, not as RichValue
	StoreToFile(v); //the pure Value is serialized with the ValueArray::Data as Void derived content, not as RichValue

	Value v2;
	LoadFromXMLFile(v2); //the Value is dexmlized, with help of ValueArray to only create the ::Void derived Container
	RLOG(v2);

	//some checks
	ASSERT(IsValueArray(v2)); //is OK
	const ValueArray& va2 = v2;
	const Vector<Value>& vv2 = va2.Get();
	ASSERT(va2.GetCount() == va.GetCount());
	for(int i = 0; i < vv2.GetCount(); i++)
		ASSERT(vv2[i] == va[i]);

	Value v3;
	LoadFromFile(v3); //is deserilized as RichValue, with ValueArray as content, wich has ValueArray::Data as its content
	RLOG(v3); //works fine anyway

	ASSERT(IsValueArray(v3)); //still no problem, though not consistent.
	const ValueArray& va3 = v3; //CRASH, here comes the inconsistancy
	const Vector<Value>& vv3 = va3.Get();
	ASSERT(va3.GetCount() == va.GetCount());
	for(int i = 0; i < vv3.GetCount(); i++)
		ASSERT(vv3[i] == va[i]);
}