/*************************************************************************/
/*  variant.cpp                                                          */
/*************************************************************************/
/*                       This file is part of:                           */
/*                           GODOT ENGINE                                */
/*                    http://www.godotengine.org                         */
/*************************************************************************/
/* Copyright (c) 2007-2017 Juan Linietsky, Ariel Manzur.                 */
/*                                                                       */
/* Permission is hereby granted, free of charge, to any person obtaining */
/* a copy of this software and associated documentation files (the       */
/* "Software"), to deal in the Software without restriction, including   */
/* without limitation the rights to use, copy, modify, merge, publish,   */
/* distribute, sublicense, and/or sell copies of the Software, and to    */
/* permit persons to whom the Software is furnished to do so, subject to */
/* the following conditions:                                             */
/*                                                                       */
/* The above copyright notice and this permission notice shall be        */
/* included in all copies or substantial portions of the Software.       */
/*                                                                       */
/* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,       */
/* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF    */
/* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.*/
/* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY  */
/* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,  */
/* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE     */
/* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.                */
/*************************************************************************/
#include "variant.h"

#include "math_funcs.h"
#include "resource.h"
#include "print_string.h"
#include "scene/main/node.h"
#include "scene/gui/control.h"
#include "io/marshalls.h"
#include "core_string_names.h"
#include "variant_parser.h"


String Variant::get_type_name(Variant::Type p_type) {

	switch( p_type ) {
		case NIL: {

			return "Nil";
		} break;

			// atomic types
		case BOOL: {

			return "bool";
		} break;
		case INT: {

			return "int";

		} break;
		case REAL: {

			return "float";

		} break;
		case STRING: {

			return "String";
		} break;

			// math types

		case VECTOR2: {

			return "Vector2";
		} break;
		case RECT2: {

			return "Rect2";
		} break;
		case TRANSFORM2D: {

			return "Transform2D";
		} break;
		case VECTOR3: {

			return "Vector3";
		} break;
		case PLANE: {

			return "Plane";

		} break;
	/*
			case QUAT: {


			} break;*/
		case RECT3: {

			return "Rect3";
		} break;
		case QUAT: {

			return "Quat";

		} break;
		case BASIS: {

			return "Basis";

		} break;
		case TRANSFORM: {

			return "Transform";

		} break;

			// misc types
		case COLOR: {

			return "Color";

		} break;
		case IMAGE: {

			return "Image";

		} break;
		case _RID: {

			return "RID";
		} break;
		case OBJECT: {

			return "Object";
		} break;
		case NODE_PATH: {

			return "NodePath";

		} break;
		case INPUT_EVENT: {

			return "InputEvent";

		} break;
		case DICTIONARY: {

			return "Dictionary";

		} break;
		case ARRAY: {

			return "Array";

		} break;

			// arrays
		case POOL_BYTE_ARRAY: {

			return "PoolByteArray";

		} break;
		case POOL_INT_ARRAY: {

			return "PoolIntArray";

		} break;
		case POOL_REAL_ARRAY: {

			return "PoolFloatArray";

		} break;
		case POOL_STRING_ARRAY: {

			return "PoolStringArray";
		} break;
		case POOL_VECTOR2_ARRAY: {

			return "PoolVector2Array";

		} break;
		case POOL_VECTOR3_ARRAY: {

			return "PoolVector3Array";

		} break;
		case POOL_COLOR_ARRAY: {

			return "PoolColorArray";

		} break;
		default: {}
		}

	return "";
}


bool Variant::can_convert(Variant::Type p_type_from,Variant::Type p_type_to) {

	if (p_type_from==p_type_to)
		return true;
	if (p_type_to==NIL && p_type_from!=NIL) //nil can convert to anything
		return true;

	if (p_type_from == NIL) {
		return (p_type_to == OBJECT);
	};

	const Type *valid_types=NULL;
	const Type *invalid_types=NULL;

	switch(p_type_to) {
		case BOOL: {

			static const Type valid[]={
				INT,
				REAL,
				STRING,
				NIL,
			};

			valid_types=valid;
		} break;
		case INT: {

			static const Type valid[]={
				BOOL,
				REAL,
				STRING,
				NIL,
			};

			valid_types=valid;

		} break;
		case REAL: {

			static const Type valid[]={
				BOOL,
				INT,
				STRING,
				NIL,
			};

			valid_types=valid;

		} break;
		case STRING: {


			static const Type invalid[]={
				OBJECT,
				IMAGE,
				NIL
			};

			invalid_types=invalid;
		} break;
		case TRANSFORM2D: {


			static const Type valid[]={
				TRANSFORM,
				NIL
			};

			valid_types=valid;
		} break;
		case QUAT: {

			static const Type valid[]={
				BASIS,
				NIL
			};

			valid_types=valid;

		} break;
		case BASIS: {

			static const Type valid[]={
				QUAT,
				NIL
			};

			valid_types=valid;


		} break;
		case TRANSFORM: {

			static const Type valid[]={
				TRANSFORM2D,
				QUAT,
				BASIS,
				NIL
			};

			valid_types=valid;

		} break;

		case COLOR: {

			static const Type valid[] = {
				STRING,
				INT,
				NIL,
			};

			valid_types = valid;

		} break;

		case _RID: {

			static const Type valid[]={
				OBJECT,
				NIL
			};

			valid_types=valid;
		} break;
		case OBJECT: {

			static const Type valid[]={
				NIL
			};

			valid_types=valid;
		} break;
		case NODE_PATH: {

			static const Type valid[]={
				STRING,
				NIL
			};

			valid_types=valid;
		} break;
		case ARRAY: {


			static const Type valid[]={
				POOL_BYTE_ARRAY,
				POOL_INT_ARRAY,
				POOL_STRING_ARRAY,
				POOL_REAL_ARRAY,
				POOL_COLOR_ARRAY,
				POOL_VECTOR2_ARRAY,
				POOL_VECTOR3_ARRAY,
				NIL
			};

			valid_types=valid;
		} break;
			// arrays
		case POOL_BYTE_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};

			valid_types=valid;
		} break;
		case POOL_INT_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};
			valid_types=valid;
		} break;
		case POOL_REAL_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};

			valid_types=valid;
		} break;
		case POOL_STRING_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};
			valid_types=valid;
		} break;
		case POOL_VECTOR2_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};
			valid_types=valid;

		} break;
		case POOL_VECTOR3_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};
			valid_types=valid;

		} break;
		case POOL_COLOR_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};

			valid_types=valid;

		} break;
		default: {}
	}


	if (valid_types) {

		int i=0;
		while(valid_types[i]!=NIL) {

			if (p_type_from==valid_types[i])
				return true;
			i++;
		}

	} else if (invalid_types) {


		int i=0;
		while(invalid_types[i]!=NIL) {

			if (p_type_from==invalid_types[i])
				return false;
			i++;
		}

		return true;
	}

	return false;

}

bool Variant::can_convert_strict(Variant::Type p_type_from,Variant::Type p_type_to) {

	if (p_type_from==p_type_to)
		return true;
	if (p_type_to==NIL && p_type_from!=NIL) //nil can convert to anything
		return true;

	if (p_type_from == NIL) {
		return (p_type_to == OBJECT);
	};

	const Type *valid_types=NULL;

	switch(p_type_to) {
		case BOOL: {

			static const Type valid[]={
				INT,
				REAL,
				//STRING,
				NIL,
			};

			valid_types=valid;
		} break;
		case INT: {

			static const Type valid[]={
				BOOL,
				REAL,
				//STRING,
				NIL,
			};

			valid_types=valid;

		} break;
		case REAL: {

			static const Type valid[]={
				BOOL,
				INT,
				//STRING,
				NIL,
			};

			valid_types=valid;

		} break;
		case STRING: {


			static const Type valid[]={
				NODE_PATH,
				NIL
			};

			valid_types=valid;
		} break;
		case TRANSFORM2D: {


			static const Type valid[]={
				TRANSFORM,
				NIL
			};

			valid_types=valid;
		} break;
		case QUAT: {

			static const Type valid[]={
				BASIS,
				NIL
			};

			valid_types=valid;

		} break;
		case BASIS: {

			static const Type valid[]={
				QUAT,
				NIL
			};

			valid_types=valid;


		} break;
		case TRANSFORM: {

			static const Type valid[]={
				TRANSFORM2D,
				QUAT,
				BASIS,
				NIL
			};

			valid_types=valid;

		} break;

		case COLOR: {

			static const Type valid[] = {
				STRING,
				INT,
				NIL,
			};

			valid_types = valid;

		} break;

		case _RID: {

			static const Type valid[]={
				OBJECT,
				NIL
			};

			valid_types=valid;
		} break;
		case OBJECT: {

			static const Type valid[]={
				NIL
			};

			valid_types=valid;
		} break;
		case NODE_PATH: {

			static const Type valid[]={
				STRING,
				NIL
			};

			valid_types=valid;
		} break;
		case ARRAY: {


			static const Type valid[]={
				POOL_BYTE_ARRAY,
				POOL_INT_ARRAY,
				POOL_STRING_ARRAY,
				POOL_REAL_ARRAY,
				POOL_COLOR_ARRAY,
				POOL_VECTOR2_ARRAY,
				POOL_VECTOR3_ARRAY,
				NIL
			};

			valid_types=valid;
		} break;
			// arrays
		case POOL_BYTE_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};

			valid_types=valid;
		} break;
		case POOL_INT_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};
			valid_types=valid;
		} break;
		case POOL_REAL_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};

			valid_types=valid;
		} break;
		case POOL_STRING_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};
			valid_types=valid;
		} break;
		case POOL_VECTOR2_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};
			valid_types=valid;

		} break;
		case POOL_VECTOR3_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};
			valid_types=valid;

		} break;
		case POOL_COLOR_ARRAY: {

			static const Type valid[]={
				ARRAY,
				NIL
			};

			valid_types=valid;

		} break;
		default: {}
	}


	if (valid_types) {

		int i=0;
		while(valid_types[i]!=NIL) {

			if (p_type_from==valid_types[i])
				return true;
			i++;
		}
	}

	return false;

}

bool Variant::operator==(const Variant& p_variant) const {

	if (type!=p_variant.type) //evaluation of operator== needs to be more strict
		return false;
	bool v;
	Variant r;
	evaluate(OP_EQUAL,*this,p_variant,r,v);
	return r;

}

bool Variant::operator!=(const Variant& p_variant) const {

	if (type!=p_variant.type) //evaluation of operator== needs to be more strict
		return true;
	bool v;
	Variant r;
	evaluate(OP_NOT_EQUAL,*this,p_variant,r,v);
	return r;

}

bool Variant::operator<(const Variant& p_variant) const {
	if (type!=p_variant.type) //if types differ, then order by type first
		return type<p_variant.type;
	bool v;
	Variant r;
	evaluate(OP_LESS,*this,p_variant,r,v);
	return r;
}

bool Variant::is_zero() const {

	switch( type ) {
		case NIL: {

			return true;
		} break;

		// atomic types
		case BOOL: {

			return _data._bool==false;
		} break;
		case INT: {

			return _data._int==0;

		} break;
		case REAL: {

			return _data._real==0;

		} break;
		case STRING: {

			return *reinterpret_cast<const String*>(_data._mem)==String();

		} break;

		// math types

		case VECTOR2: {

			return *reinterpret_cast<const Vector2*>(_data._mem)==Vector2();

		} break;
		case RECT2: {

			return *reinterpret_cast<const Rect2*>(_data._mem)==Rect2();

		} break;
		case TRANSFORM2D: {

			return *_data._transform2d==Transform2D();

		} break;
		case VECTOR3: {

			return *reinterpret_cast<const Vector3*>(_data._mem)==Vector3();

		} break;
		case PLANE: {

			return *reinterpret_cast<const Plane*>(_data._mem)==Plane();

		} break;
/*
		case QUAT: {


		} break;*/
		case RECT3: {

			return *_data._rect3==Rect3();
		} break;
		case QUAT: {

			return *reinterpret_cast<const Quat*>(_data._mem)==Quat();

		} break;
		case BASIS: {

			return *_data._basis==Basis();

		} break;
		case TRANSFORM: {

			return *_data._transform == Transform();

		} break;

		// misc types
		case COLOR: {

			return *reinterpret_cast<const Color*>(_data._mem)==Color();

		} break;
		case IMAGE: {

			return _data._image->empty();

		} break;
		case _RID: {

			return *reinterpret_cast<const RID*>(_data._mem)==RID();
		} break;
		case OBJECT: {

			return _get_obj().obj==NULL;
		} break;
		case NODE_PATH: {

			return reinterpret_cast<const NodePath*>(_data._mem)->is_empty();

		} break;
		case INPUT_EVENT: {

			return _data._input_event->type==InputEvent::NONE;

		} break;
		case DICTIONARY: {

			return reinterpret_cast<const Dictionary*>(_data._mem)->empty();

		} break;
		case ARRAY: {

			return reinterpret_cast<const Array*>(_data._mem)->empty();

		} break;

		// arrays
		case POOL_BYTE_ARRAY: {

			return reinterpret_cast<const PoolVector<uint8_t>*>(_data._mem)->size()==0;

		} break;
		case POOL_INT_ARRAY: {

			return reinterpret_cast<const PoolVector<int>*>(_data._mem)->size()==0;

		} break;
		case POOL_REAL_ARRAY: {

			return reinterpret_cast<const PoolVector<real_t>*>(_data._mem)->size()==0;

		} break;
		case POOL_STRING_ARRAY: {

			return reinterpret_cast<const PoolVector<String>*>(_data._mem)->size()==0;

		} break;
		case POOL_VECTOR2_ARRAY: {

			return reinterpret_cast<const PoolVector<Vector2>*>(_data._mem)->size()==0;

		} break;
		case POOL_VECTOR3_ARRAY: {

			return reinterpret_cast<const PoolVector<Vector3>*>(_data._mem)->size()==0;

		} break;
		case POOL_COLOR_ARRAY: {

			return reinterpret_cast<const PoolVector<Color>*>(_data._mem)->size()==0;

		} break;
		default: {}
	}

	return false;
}


bool Variant::is_one() const {

	switch( type ) {
		case NIL: {

			return true;
		} break;

		// atomic types
		case BOOL: {

			return _data._bool==true;
		} break;
		case INT: {

			return _data._int==1;

		} break;
		case REAL: {

			return _data._real==1;

		} break;
		case VECTOR2: {

			return *reinterpret_cast<const Vector2*>(_data._mem)==Vector2(1,1);

		} break;
		case RECT2: {

			return *reinterpret_cast<const Rect2*>(_data._mem)==Rect2(1,1,1,1);

		} break;
		case VECTOR3: {

			return *reinterpret_cast<const Vector3*>(_data._mem)==Vector3(1,1,1);

		} break;
		case PLANE: {

			return *reinterpret_cast<const Plane*>(_data._mem)==Plane(1,1,1,1);

		} break;
		case COLOR: {

			return *reinterpret_cast<const Color*>(_data._mem)==Color(1,1,1,1);

		} break;

		default: { return !is_zero(); }
	}

	return false;
}


void Variant::reference(const Variant& p_variant) {


	if (this == &p_variant)
		return;

	clear();

	type=p_variant.type;

	switch( p_variant.type ) {
		case NIL: {

			// none
		} break;

		// atomic types
		case BOOL: {

			_data._bool=p_variant._data._bool;
		} break;
		case INT: {

			_data._int=p_variant._data._int;

		} break;
		case REAL: {

			_data._real=p_variant._data._real;

		} break;
		case STRING: {

			memnew_placement( _data._mem, String( *reinterpret_cast<const String*>(p_variant._data._mem) ) );

		} break;

		// math types

		case VECTOR2: {

			memnew_placement( _data._mem, Vector2( *reinterpret_cast<const Vector2*>(p_variant._data._mem) ) );

		} break;
		case RECT2: {

			memnew_placement( _data._mem, Rect2( *reinterpret_cast<const Rect2*>(p_variant._data._mem) ) );

		} break;
		case TRANSFORM2D: {

			_data._transform2d = memnew( Transform2D( *p_variant._data._transform2d ) );

		} break;
		case VECTOR3: {

			memnew_placement( _data._mem, Vector3( *reinterpret_cast<const Vector3*>(p_variant._data._mem) ) );

		} break;
		case PLANE: {

			memnew_placement( _data._mem, Plane( *reinterpret_cast<const Plane*>(p_variant._data._mem) ) );

		} break;
/*
		case QUAT: {


		} break;*/
		case RECT3: {

			_data._rect3 = memnew( Rect3( *p_variant._data._rect3 ) );
		} break;
		case QUAT: {

			memnew_placement( _data._mem, Quat( *reinterpret_cast<const Quat*>(p_variant._data._mem) ) );

		} break;
		case BASIS: {

			_data._basis = memnew( Basis( *p_variant._data._basis ) );

		} break;
		case TRANSFORM: {

			_data._transform = memnew( Transform( *p_variant._data._transform ) );

		} break;

		// misc types
		case COLOR: {

			memnew_placement( _data._mem, Color( *reinterpret_cast<const Color*>(p_variant._data._mem) ) );

		} break;
		case IMAGE: {

			_data._image = memnew( Image( *p_variant._data._image ) );

		} break;
		case _RID: {

			memnew_placement( _data._mem, RID( *reinterpret_cast<const RID*>(p_variant._data._mem) ) );
		} break;
		case OBJECT: {

			memnew_placement( _data._mem, ObjData( p_variant._get_obj() ) );
		} break;
		case NODE_PATH: {

			memnew_placement( _data._mem, NodePath( *reinterpret_cast<const NodePath*>(p_variant._data._mem) ) );

		} break;
		case INPUT_EVENT: {

			_data._input_event= memnew( InputEvent( *p_variant._data._input_event ) );

		} break;
		case DICTIONARY: {

			memnew_placement( _data._mem, Dictionary( *reinterpret_cast<const Dictionary*>(p_variant._data._mem) ) );

		} break;
		case ARRAY: {

			memnew_placement( _data._mem, Array ( *reinterpret_cast<const Array*>(p_variant._data._mem) ) );

		} break;

		// arrays
		case POOL_BYTE_ARRAY: {

			memnew_placement( _data._mem, PoolVector<uint8_t> ( *reinterpret_cast<const PoolVector<uint8_t>*>(p_variant._data._mem) ) );

		} break;
		case POOL_INT_ARRAY: {

			memnew_placement( _data._mem, PoolVector<int> ( *reinterpret_cast<const PoolVector<int>*>(p_variant._data._mem) ) );

		} break;
		case POOL_REAL_ARRAY: {

			memnew_placement( _data._mem, PoolVector<real_t> ( *reinterpret_cast<const PoolVector<real_t>*>(p_variant._data._mem) ) );

		} break;
		case POOL_STRING_ARRAY: {

			memnew_placement( _data._mem, PoolVector<String> ( *reinterpret_cast<const PoolVector<String>*>(p_variant._data._mem) ) );

		} break;
		case POOL_VECTOR2_ARRAY: {

			memnew_placement( _data._mem, PoolVector<Vector2> ( *reinterpret_cast<const PoolVector<Vector2>*>(p_variant._data._mem) ) );

		} break;
		case POOL_VECTOR3_ARRAY: {

			memnew_placement( _data._mem, PoolVector<Vector3> ( *reinterpret_cast<const PoolVector<Vector3>*>(p_variant._data._mem) ) );

		} break;
		case POOL_COLOR_ARRAY: {

			memnew_placement( _data._mem, PoolVector<Color> ( *reinterpret_cast<const PoolVector<Color>*>(p_variant._data._mem) ) );

		} break;
		default: {}
	}


}
void Variant::zero() {
	switch(type) {
		case NIL: break;
		case BOOL: this->_data._bool = false; break;
		case INT: this->_data._int = 0; break;
		case REAL: this->_data._real = 0; break;
		case VECTOR2: *reinterpret_cast<Vector2*>(this->_data._mem) = Vector2(); break;
		case RECT2: *reinterpret_cast<Rect2*>(this->_data._mem) = Rect2(); break;
		case VECTOR3: *reinterpret_cast<Vector3*>(this->_data._mem) = Vector3(); break;
		case PLANE: *reinterpret_cast<Plane*>(this->_data._mem) = Plane(); break;
		case QUAT: *reinterpret_cast<Quat*>(this->_data._mem) = Quat(); break;
		case COLOR: *reinterpret_cast<Color*>(this->_data._mem) = Color(); break;
		default: this->clear(); break;
	}
}
void Variant::clear() {

	switch(type) {
		case STRING: {

			reinterpret_cast<String*>(_data._mem)->~String();
		} break;
	/*
		// no point, they don't allocate memory
		VECTOR3,
		PLANE,
		QUAT,
		COLOR,
		VECTOR2,
		RECT2
	*/
		case TRANSFORM2D: {

			memdelete( _data._transform2d );

		} break;
		case RECT3: {

			memdelete( _data._rect3 );

		} break;
		case BASIS: {

			memdelete( _data._basis );
		} break;
		case TRANSFORM: {

			memdelete( _data._transform );

		} break;

		// misc types
		case IMAGE: {

			memdelete( _data._image );

		} break;
		case NODE_PATH: {

			reinterpret_cast<NodePath*>(_data._mem)->~NodePath();

		} break;
		case OBJECT: {

			_get_obj().obj=NULL;
			_get_obj().ref.unref();
		} break;
		case _RID: {
			// not much need probably
			reinterpret_cast<RID*>(_data._mem)->~RID();
		} break;
		case DICTIONARY: {

			reinterpret_cast<Dictionary*>(_data._mem)->~Dictionary();

		} break;
		case ARRAY: {

			reinterpret_cast<Array*>(_data._mem)->~Array();

		} break;
		case INPUT_EVENT: {

			memdelete( _data._input_event );

		} break;

		// arrays
		case POOL_BYTE_ARRAY: {

			reinterpret_cast< PoolVector<uint8_t>* >(_data._mem)->~PoolVector<uint8_t>();

		} break;
		case POOL_INT_ARRAY: {

			reinterpret_cast< PoolVector<int>* >(_data._mem)->~PoolVector<int>();

		} break;
		case POOL_REAL_ARRAY: {

			reinterpret_cast< PoolVector<real_t>* >(_data._mem)->~PoolVector<real_t>();

		} break;
		case POOL_STRING_ARRAY: {

			reinterpret_cast< PoolVector<String>* >(_data._mem)->~PoolVector<String>();

		} break;
		case POOL_VECTOR2_ARRAY: {

			reinterpret_cast< PoolVector<Vector2>* >(_data._mem)->~PoolVector<Vector2>();

		} break;
		case POOL_VECTOR3_ARRAY: {

			reinterpret_cast< PoolVector<Vector3>* >(_data._mem)->~PoolVector<Vector3>();

		} break;
		case POOL_COLOR_ARRAY: {

			reinterpret_cast< PoolVector<Color>* >(_data._mem)->~PoolVector<Color>();

		} break;
		default: {} /* not needed */
	}

	type=NIL;

}


Variant::operator signed int() const {

	switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1 : 0;
		case INT: return _data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_int();
		default: {

			return 0;
		}
	}

	return 0;
}
Variant::operator unsigned int() const {

		switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1 : 0;
		case INT: return _data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_int();
		default: {

			return 0;
		}
	}

	return 0;
}

Variant::operator int64_t() const {

	switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1 : 0;
		case INT: return _data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_int();
		default: {

			return 0;
		}
	}

	return 0;
}

/*
Variant::operator long unsigned int() const {

	switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1 : 0;
		case INT: return _data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_int();
		default: {

			return 0;
		}
	}

	return 0;
};
*/

Variant::operator uint64_t() const {

	switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1 : 0;
		case INT: return _data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_int();
		default: {

			return 0;
		}
	}

	return 0;
}

#ifdef NEED_LONG_INT
Variant::operator signed long() const {

	switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1 : 0;
		case INT: return _data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_int();
		default: {

			return 0;
		}
	}

	return 0;
};

Variant::operator unsigned long() const {

	switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1 : 0;
		case INT: return _data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_int();
		default: {

			return 0;
		}
	}

	return 0;
};
#endif


Variant::operator signed short() const {

	switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1 : 0;
		case INT: return _data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_int();
		default: {

			return 0;
		}
	}

	return 0;
}
Variant::operator unsigned short() const {

	switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1 : 0;
		case INT: return _data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_int();
		default: {

			return 0;
		}
	}

	return 0;
}
Variant::operator signed char() const {

	switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1 : 0;
		case INT: return _data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_int();
		default: {

			return 0;
		}
	}

	return 0;
}
Variant::operator unsigned char() const {

	switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1 : 0;
		case INT: return _data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_int();
		default: {

			return 0;
		}
	}

	return 0;
}

Variant::operator CharType() const {

	return operator unsigned int();
}


Variant::operator float() const {

	switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1.0 : 0.0;
		case INT: return (float)_data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_double();
		default: {

			return 0;
		}
	}

	return 0;
}
Variant::operator double() const {

	switch( type ) {

		case NIL: return 0;
		case BOOL: return _data._bool ? 1.0 : 0.0;
		case INT: return (double)_data._int;
		case REAL: return _data._real;
		case STRING: return operator String().to_double();
		default: {

			return 0;
		}
	}

	return true;
}

Variant::operator StringName() const {

	if (type==NODE_PATH) {
		return reinterpret_cast<const NodePath*>(_data._mem)->get_sname();
	}
	return StringName(operator String());
}

struct _VariantStrPair {

	String key;
	String value;

	bool operator<(const _VariantStrPair& p) const {

		return key < p.key;
	}
};

Variant::operator String() const {

	switch( type ) {

		case NIL: return "Null";
		case BOOL: return _data._bool ? "True" : "False";
		case INT: return itos(_data._int);
		case REAL: return rtos(_data._real);
		case STRING: return *reinterpret_cast<const String*>(_data._mem);
		case VECTOR2: return "("+operator Vector2()+")";
		case RECT2: return "("+operator Rect2()+")";
		case TRANSFORM2D: {

			Transform2D mat32 = operator Transform2D();
			return "("+Variant(mat32.elements[0]).operator String()+", "+Variant(mat32.elements[1]).operator String()+", "+Variant(mat32.elements[2]).operator String()+")";
		} break;
		case VECTOR3: return "("+operator Vector3()+")";
		case PLANE: return operator Plane();
		//case QUAT:
		case RECT3: return operator Rect3();
		case QUAT: return "("+operator Quat()+")";
		case BASIS: {

			Basis mat3 = operator Basis();

			String mtx("(");
			for (int i=0;i<3;i++) {

				if (i!=0)
					mtx+=", ";

				mtx+="(";

				for (int j=0;j<3;j++) {

					if (j!=0)
						mtx+=", ";

					mtx+=Variant( mat3.elements[i][j] ).operator String();
				}

				mtx+=")";
			}

			return mtx+")";
		} break;
		case TRANSFORM: return operator Transform();
		case NODE_PATH: return operator NodePath();
		case INPUT_EVENT: return operator InputEvent();
		case COLOR: return String::num( operator Color().r)+","+String::num( operator Color().g)+","+String::num( operator Color().b)+","+String::num( operator Color().a) ;
		case DICTIONARY: {

			const Dictionary &d =*reinterpret_cast<const Dictionary*>(_data._mem);
			//const String *K=NULL;
			String str;
			List<Variant> keys;
			d.get_key_list(&keys);

			Vector<_VariantStrPair> pairs;

			for(List<Variant>::Element *E=keys.front();E;E=E->next()) {

				_VariantStrPair sp;
				sp.key=String(E->get());
				sp.value=d[E->get()];
				pairs.push_back(sp);
			}

			pairs.sort();

			for(int i=0;i<pairs.size();i++) {
				if (i>0)
					str+=", ";
				str+="("+pairs[i].key+":"+pairs[i].value+")";
			}

			return str;
		} break;
		case POOL_VECTOR2_ARRAY: {

			PoolVector<Vector2> vec = operator PoolVector<Vector2>();
			String str("[");
			for(int i=0;i<vec.size();i++) {

				if (i>0)
					str+=", ";
				str=str+Variant( vec[i] );
			}
			str += "]";
			return str;
		} break;
		case POOL_VECTOR3_ARRAY: {

			PoolVector<Vector3> vec = operator PoolVector<Vector3>();
			String str("[");
			for(int i=0;i<vec.size();i++) {

				if (i>0)
					str+=", ";
				str=str+Variant( vec[i] );
			}
			str += "]";
			return str;
		} break;
		case POOL_STRING_ARRAY: {

			PoolVector<String> vec = operator PoolVector<String>();
			String str("[");
			for(int i=0;i<vec.size();i++) {

				if (i>0)
					str+=", ";
				str=str+vec[i];
			}
			str += "]";
			return str;
		} break;
		case POOL_INT_ARRAY: {

			PoolVector<int> vec = operator PoolVector<int>();
			String str("[");
			for(int i=0;i<vec.size();i++) {

				if (i>0)
					str+=", ";
				str=str+itos(vec[i]);
			}
			str += "]";
			return str;
		} break;
		case POOL_REAL_ARRAY: {

			PoolVector<real_t> vec = operator PoolVector<real_t>();
			String str("[");
			for(int i=0;i<vec.size();i++) {

				if (i>0)
					str+=", ";
				str=str+rtos(vec[i]);
			}
			str += "]";
			return str;
		} break;
		case ARRAY: {

			Array arr = operator Array();
			String str("[");
			for (int i=0; i<arr.size(); i++) {
				if (i)
					str+=", ";
				str += String(arr[i]);
			};
			str += "]";
			return str;

		} break;
		case OBJECT: {

			if (_get_obj().obj) {
				#ifdef DEBUG_ENABLED
					if (ScriptDebugger::get_singleton() && _get_obj().ref.is_null()) {
						//only if debugging!
						if (!ObjectDB::instance_validate(_get_obj().obj)) {
							return "[Deleted Object]";
						};
					};
				#endif
				return "["+_get_obj().obj->get_class()+":"+itos(_get_obj().obj->get_instance_ID())+"]";
			} else
				return "[Object:null]";

		} break;
		default: {
			return "["+get_type_name(type)+"]";
		}
	}

	return "";
}

Variant::operator Vector2() const {

	if (type==VECTOR2)
		return *reinterpret_cast<const Vector2*>(_data._mem);
	else if (type==VECTOR3)
		return Vector2(reinterpret_cast<const Vector3*>(_data._mem)->x,reinterpret_cast<const Vector3*>(_data._mem)->y);
	else
		return Vector2();

}
Variant::operator Rect2() const {

	if (type==RECT2)
		return *reinterpret_cast<const Rect2*>(_data._mem);
	else
		return Rect2();

}

Variant::operator Vector3() const {

	if (type==VECTOR3)
		return *reinterpret_cast<const Vector3*>(_data._mem);
	else
		return Vector3();

}
Variant::operator Plane() const {

	if (type==PLANE)
		return *reinterpret_cast<const Plane*>(_data._mem);
	else
		return Plane();

}
Variant::operator Rect3() const {

	if (type==RECT3)
		return *_data._rect3;
	else
		return Rect3();
}

Variant::operator Basis() const {

	if (type==BASIS)
		return *_data._basis;
	else if (type==QUAT)
		return *reinterpret_cast<const Quat*>(_data._mem);
	else if (type==TRANSFORM)
		return _data._transform->basis;
	else
		return Basis();
}

Variant::operator Quat() const {

	if (type==QUAT)
		return *reinterpret_cast<const Quat*>(_data._mem);
	else if (type==BASIS)
		return 	*_data._basis;
	else if (type==TRANSFORM)
		return 	_data._transform->basis;
	else
		return Quat();
}



Variant::operator Transform() const {

	if (type==TRANSFORM)
		return *_data._transform;
	else if (type==BASIS)
		return Transform(*_data._basis,Vector3());
	else if (type==QUAT)
		return Transform(Basis(*reinterpret_cast<const Quat*>(_data._mem)),Vector3());
	else
		return Transform();
}

 Variant::operator Transform2D() const {

	 if (type==TRANSFORM2D) {
		 return *_data._transform2d;
	 } else if (type==TRANSFORM) {
		 const Transform& t = *_data._transform;
		 Transform2D m;
		 m.elements[0][0]=t.basis.elements[0][0];
		 m.elements[0][1]=t.basis.elements[1][0];
		 m.elements[1][0]=t.basis.elements[0][1];
		 m.elements[1][1]=t.basis.elements[1][1];
		 m.elements[2][0]=t.origin[0];
		 m.elements[2][1]=t.origin[1];
		 return m;
	 } else
		 return Transform2D();
}


Variant::operator Color() const {

	if (type==COLOR)
		return *reinterpret_cast<const Color*>(_data._mem);
	else if (type==STRING)
		return Color::html( operator String() );
	else if (type==INT)
		return Color::hex( operator int() );
	else
		return Color();
}
Variant::operator Image() const {

	if (type==IMAGE)
		return *_data._image;
	else
		return Image();
}

Variant::operator NodePath() const {

	if (type==NODE_PATH)
		return *reinterpret_cast<const NodePath*>(_data._mem);
	else if (type==STRING)
		return NodePath(operator String());
	else
		return NodePath();
}


Variant::operator RefPtr() const {

	if (type==OBJECT)
		return _get_obj().ref;
	else
		return RefPtr();
}

Variant::operator RID() const {

	if (type==_RID)
		return *reinterpret_cast<const RID*>(_data._mem);
	else if (type==OBJECT && !_get_obj().ref.is_null()) {
		return _get_obj().ref.get_rid();
	} else if (type==OBJECT && _get_obj().obj) {
		Variant::CallError ce;
		Variant ret = _get_obj().obj->call(CoreStringNames::get_singleton()->get_rid,NULL,0,ce);
		if (ce.error==Variant::CallError::CALL_OK && ret.get_type()==Variant::_RID) {
			return ret;
		}
		return RID();
	} else {
		return RID();
	}
}

Variant::operator Object*() const {

	if (type==OBJECT)
		return _get_obj().obj;
	else
		return NULL;
}
Variant::operator Node*() const {

	if (type==OBJECT)
		return _get_obj().obj?_get_obj().obj->cast_to<Node>():NULL;
	else
		return NULL;
}
Variant::operator Control*() const {

	if (type==OBJECT)
		return _get_obj().obj?_get_obj().obj->cast_to<Control>():NULL;
	else
		return NULL;
}

Variant::operator InputEvent() const {

	if (type==INPUT_EVENT)
		return *reinterpret_cast<const InputEvent*>(_data._input_event);
	else
		return InputEvent();
}

Variant::operator Dictionary() const {

	if (type==DICTIONARY)
		return *reinterpret_cast<const Dictionary*>(_data._mem);
	else
		return Dictionary();
}

template<class DA,class SA>
inline DA _convert_array(const SA& p_array) {

	DA da;
	da.resize(p_array.size());

	for(int i=0;i<p_array.size();i++) {

		da.set( i, Variant(p_array.get(i)) );
	}

	return da;
}

template<class DA>
inline DA _convert_array_from_variant(const Variant& p_variant) {

	switch(p_variant.get_type()) {


		case Variant::ARRAY: { return _convert_array<DA,Array >( p_variant.operator Array () ); }
		case Variant::POOL_BYTE_ARRAY: { return _convert_array<DA,PoolVector<uint8_t> >( p_variant.operator PoolVector<uint8_t> () ); }
		case Variant::POOL_INT_ARRAY: { return _convert_array<DA,PoolVector<int> >( p_variant.operator PoolVector<int> () ); }
		case Variant::POOL_REAL_ARRAY: { return _convert_array<DA,PoolVector<real_t> >( p_variant.operator PoolVector<real_t> () ); }
		case Variant::POOL_STRING_ARRAY: { return _convert_array<DA,PoolVector<String> >( p_variant.operator PoolVector<String> () ); }
		case Variant::POOL_VECTOR2_ARRAY: { return _convert_array<DA,PoolVector<Vector2> >( p_variant.operator PoolVector<Vector2> () ); }
		case Variant::POOL_VECTOR3_ARRAY: { return _convert_array<DA,PoolVector<Vector3> >( p_variant.operator PoolVector<Vector3> () ); }
		case Variant::POOL_COLOR_ARRAY: { return _convert_array<DA,PoolVector<Color> >( p_variant.operator PoolVector<Color>() ); }
		default: { return DA(); }
	}

	return DA();
}

Variant::operator Array() const {

	if (type==ARRAY)
		return *reinterpret_cast<const Array*>(_data._mem);
	else
		return _convert_array_from_variant<Array >(*this);
}

Variant::operator PoolVector<uint8_t>() const {

	if (type==POOL_BYTE_ARRAY)
		return *reinterpret_cast<const PoolVector<uint8_t>* >(_data._mem);
	else
		return _convert_array_from_variant<PoolVector<uint8_t> >(*this);
}
Variant::operator PoolVector<int>() const {

	if (type==POOL_INT_ARRAY)
		return *reinterpret_cast<const PoolVector<int>* >(_data._mem);
	else
		return _convert_array_from_variant<PoolVector<int> >(*this);

}
Variant::operator PoolVector<real_t>() const {

	if (type==POOL_REAL_ARRAY)
		return *reinterpret_cast<const PoolVector<real_t>* >(_data._mem);
	else
		return _convert_array_from_variant<PoolVector<real_t> >(*this);

}

Variant::operator PoolVector<String>() const {

	if (type==POOL_STRING_ARRAY)
		return *reinterpret_cast<const PoolVector<String>* >(_data._mem);
	else
		return _convert_array_from_variant<PoolVector<String> >(*this);


}
Variant::operator PoolVector<Vector3>() const {

	if (type==POOL_VECTOR3_ARRAY)
		return *reinterpret_cast<const PoolVector<Vector3>* >(_data._mem);
	else
		return _convert_array_from_variant<PoolVector<Vector3> >(*this);


}
Variant::operator PoolVector<Vector2>() const {

	if (type==POOL_VECTOR2_ARRAY)
		return *reinterpret_cast<const PoolVector<Vector2>* >(_data._mem);
	else
		return _convert_array_from_variant<PoolVector<Vector2> >(*this);


}

Variant::operator PoolVector<Color>() const {

	if (type==POOL_COLOR_ARRAY)
		return *reinterpret_cast<const  PoolVector<Color>* >(_data._mem);
	else
		return _convert_array_from_variant<PoolVector<Color> >(*this);

}

/* helpers */


Variant::operator Vector<RID>() const {

	Array va= operator Array();
	Vector<RID> rids;
	rids.resize(va.size());
	for(int i=0;i<rids.size();i++)
		rids[i]=va[i];
	return rids;
}

Variant::operator Vector<Vector2>() const {

	PoolVector<Vector2> from=operator PoolVector<Vector2>();
	Vector<Vector2> to;
	int len=from.size();
	if (len==0)
		return Vector<Vector2>();
	to.resize(len);
	PoolVector<Vector2>::Read r = from.read();
	Vector2 *w = &to[0];
	for (int i=0;i<len;i++) {

		w[i]=r[i];
	}
	return to;
}

Variant::operator PoolVector<Plane>() const {

	Array va= operator Array();
	PoolVector<Plane> planes;
	int va_size=va.size();
	if (va_size==0)
		return planes;

	planes.resize(va_size);
	PoolVector<Plane>::Write w = planes.write();

	for(int i=0;i<va_size;i++)
		w[i]=va[i];

	return planes;
}

Variant::operator PoolVector<Face3>() const {

	PoolVector<Vector3> va= operator PoolVector<Vector3>();
	PoolVector<Face3> faces;
	int va_size=va.size();
	if (va_size==0)
		return faces;

	faces.resize(va_size/3);
	PoolVector<Face3>::Write w = faces.write();
	PoolVector<Vector3>::Read r = va.read();

	for(int i=0;i<va_size;i++)
		w[i/3].vertex[i%3]=r[i];

	return faces;
}

Variant::operator Vector<Plane>() const {

	Array va= operator Array();
	Vector<Plane> planes;
	int va_size=va.size();
	if (va_size==0)
		return planes;

	planes.resize(va_size);

	for(int i=0;i<va_size;i++)
		planes[i]=va[i];

	return planes;
}

Variant::operator Vector<Variant>() const {

	Array from=operator Array();
	Vector<Variant> to;
	int len=from.size();
	to.resize(len);
	for (int i=0;i<len;i++) {

		to[i]=from[i];
	}
	return to;

}

Variant::operator Vector<uint8_t>() const {

	PoolVector<uint8_t> from=operator PoolVector<uint8_t>();
	Vector<uint8_t> to;
	int len=from.size();
	to.resize(len);
	for (int i=0;i<len;i++) {

		to[i]=from[i];
	}
	return to;
}
Variant::operator Vector<int>() const {

	PoolVector<int> from=operator PoolVector<int>();
	Vector<int> to;
	int len=from.size();
	to.resize(len);
	for (int i=0;i<len;i++) {

		to[i]=from[i];
	}
	return to;
}
Variant::operator Vector<real_t>() const {

	PoolVector<real_t> from=operator PoolVector<real_t>();
	Vector<real_t> to;
	int len=from.size();
	to.resize(len);
	for (int i=0;i<len;i++) {

		to[i]=from[i];
	}
	return to;
}

Variant::operator Vector<String>() const {

	PoolVector<String> from=operator PoolVector<String>();
	Vector<String> to;
	int len=from.size();
	to.resize(len);
	for (int i=0;i<len;i++) {

		to[i]=from[i];
	}
	return to;

}
Variant::operator Vector<Vector3>() const {

	PoolVector<Vector3> from=operator PoolVector<Vector3>();
	Vector<Vector3> to;
	int len=from.size();
	if (len==0)
		return Vector<Vector3>();
	to.resize(len);
	PoolVector<Vector3>::Read r = from.read();
	Vector3 *w = &to[0];
	for (int i=0;i<len;i++) {

		w[i]=r[i];
	}
	return to;

}
Variant::operator Vector<Color>() const {

	PoolVector<Color> from=operator PoolVector<Color>();
	Vector<Color> to;
	int len=from.size();
	if (len==0)
		return Vector<Color>();
	to.resize(len);
	PoolVector<Color>::Read r = from.read();
	Color *w = &to[0];
	for (int i=0;i<len;i++) {

		w[i]=r[i];
	}
	return to;
}

Variant::operator Margin() const {

	return (Margin)operator int();
}
Variant::operator Orientation() const {

	return (Orientation)operator int();
}

Variant::operator IP_Address() const {

	if (type==POOL_REAL_ARRAY || type==POOL_INT_ARRAY || type==POOL_BYTE_ARRAY) {

		PoolVector<int> addr=operator PoolVector<int>();
		if (addr.size()==4) {
			return IP_Address(addr.get(0),addr.get(1),addr.get(2),addr.get(3));
		}
	}

	return IP_Address( operator String() );
}

Variant::Variant(bool p_bool) {

	type=BOOL;
	_data._bool=p_bool;
}

/*
Variant::Variant(long unsigned int p_long) {

	type=INT;
	_data._int=p_long;
};
*/

Variant::Variant(signed int p_int) {

	type=INT;
	_data._int=p_int;

}
Variant::Variant(unsigned int p_int) {

	type=INT;
	_data._int=p_int;

}

#ifdef NEED_LONG_INT

Variant::Variant(signed long p_int) {

	type=INT;
	_data._int=p_int;

}
Variant::Variant(unsigned long p_int) {

	type=INT;
	_data._int=p_int;

}
#endif

Variant::Variant(int64_t p_int) {

	type=INT;
	_data._int=p_int;

}

Variant::Variant(uint64_t p_int) {

	type=INT;
	_data._int=p_int;

}

Variant::Variant(signed short p_short) {

	type=INT;
	_data._int=p_short;

}
Variant::Variant(unsigned short p_short) {

	type=INT;
	_data._int=p_short;

}
Variant::Variant(signed char p_char) {

	type=INT;
	_data._int=p_char;

}
Variant::Variant(unsigned char p_char) {

	type=INT;
	_data._int=p_char;

}
Variant::Variant(float p_float) {

	type=REAL;
	_data._real=p_float;

}
Variant::Variant(double p_double) {

	type=REAL;
	_data._real=p_double;
}

Variant::Variant(const StringName& p_string) {

	type=STRING;
	memnew_placement( _data._mem, String( p_string.operator String() ) );

}
Variant::Variant(const String& p_string) {

	type=STRING;
	memnew_placement( _data._mem, String( p_string ) );

}

Variant::Variant(const char * const p_cstring) {

	type=STRING;
	memnew_placement( _data._mem, String( (const char*)p_cstring ) );

}

Variant::Variant(const CharType * p_wstring) {

	type=STRING;
	memnew_placement( _data._mem, String( p_wstring ) );

}
Variant::Variant(const Vector3& p_vector3) {

	type=VECTOR3;
	memnew_placement( _data._mem, Vector3( p_vector3 ) );

}
Variant::Variant(const Vector2& p_vector2) {

	type=VECTOR2;
	memnew_placement( _data._mem, Vector2( p_vector2 ) );

}
Variant::Variant(const Rect2& p_rect2) {

	type=RECT2;
	memnew_placement( _data._mem, Rect2( p_rect2 ) );

}

Variant::Variant(const Plane& p_plane) {

	type=PLANE;
	memnew_placement( _data._mem, Plane( p_plane ) );

}
Variant::Variant(const Rect3& p_aabb) {

	type=RECT3;
	_data._rect3 = memnew( Rect3( p_aabb ) );
}

Variant::Variant(const Basis& p_matrix) {

	type=BASIS;
	_data._basis= memnew( Basis( p_matrix ) );

}

Variant::Variant(const Quat& p_quat) {

	type=QUAT;
	memnew_placement( _data._mem, Quat( p_quat ) );

}
Variant::Variant(const Transform& p_transform) {

	type=TRANSFORM;
	_data._transform = memnew( Transform( p_transform ) );

}

Variant::Variant(const Transform2D& p_transform) {

	type=TRANSFORM2D;
	_data._transform2d = memnew( Transform2D( p_transform ) );

}
Variant::Variant(const Color& p_color) {

	type=COLOR;
	memnew_placement( _data._mem, Color(p_color) );

}
Variant::Variant(const Image& p_image) {

	type=IMAGE;
	_data._image=memnew( Image(p_image) );

}

Variant::Variant(const NodePath& p_node_path) {

	type=NODE_PATH;
	memnew_placement( _data._mem, NodePath(p_node_path) );

}

Variant::Variant(const InputEvent& p_input_event) {

	type=INPUT_EVENT;
	_data._input_event = memnew( InputEvent(p_input_event) );

}

Variant::Variant(const RefPtr& p_resource) {

	type=OBJECT;
	memnew_placement( _data._mem, ObjData );
	REF ref = p_resource;
	_get_obj().obj=ref.ptr();
	_get_obj().ref=p_resource;

}

Variant::Variant(const RID& p_rid) {

	type=_RID;
	memnew_placement( _data._mem, RID(p_rid) );

}

Variant::Variant(const Object* p_object) {

	type=OBJECT;

	memnew_placement( _data._mem, ObjData );
	_get_obj().obj=const_cast<Object*>(p_object);
}

Variant::Variant(const Dictionary& p_dictionary) {

	type=DICTIONARY;
	memnew_placement( _data._mem, (Dictionary)( p_dictionary) );

}

Variant::Variant(const Array& p_array) {

	type=ARRAY;
	memnew_placement( _data._mem, Array(p_array) );

}

Variant::Variant(const PoolVector<Plane>& p_array) {


	type=ARRAY;

	Array *plane_array=memnew_placement( _data._mem, Array );

	plane_array->resize( p_array.size() );

	for (int i=0;i<p_array.size();i++) {

		plane_array->operator [](i)=Variant(p_array[i]);
	}
}

Variant::Variant(const Vector<Plane>& p_array) {


	type=ARRAY;

	Array *plane_array=memnew_placement( _data._mem, Array );

	plane_array->resize( p_array.size() );

	for (int i=0;i<p_array.size();i++) {

		plane_array->operator [](i)=Variant(p_array[i]);
	}
}

Variant::Variant(const Vector<RID>& p_array) {


	type=ARRAY;

	Array *rid_array=memnew_placement( _data._mem, Array );

	rid_array->resize( p_array.size() );

	for (int i=0;i<p_array.size();i++) {

		rid_array->set(i,Variant(p_array[i]));
	}
}

Variant::Variant(const Vector<Vector2>& p_array) {


	type=NIL;
	PoolVector<Vector2> v;
	int len=p_array.size();
	if (len>0) {
		v.resize(len);
		PoolVector<Vector2>::Write w = v.write();
		const Vector2 *r = p_array.ptr();

		for (int i=0;i<len;i++)
			w[i]=r[i];
	}
	*this=v;
}


Variant::Variant(const PoolVector<uint8_t>& p_raw_array) {

	type=POOL_BYTE_ARRAY;
	memnew_placement( _data._mem, PoolVector<uint8_t>(p_raw_array) );

}
Variant::Variant(const PoolVector<int>& p_int_array) {

	type=POOL_INT_ARRAY;
	memnew_placement( _data._mem, PoolVector<int>(p_int_array) );

}
Variant::Variant(const PoolVector<real_t>& p_real_array) {

	type=POOL_REAL_ARRAY;
	memnew_placement( _data._mem, PoolVector<real_t>(p_real_array) );

}
Variant::Variant(const PoolVector<String>& p_string_array) {

	type=POOL_STRING_ARRAY;
	memnew_placement( _data._mem, PoolVector<String>(p_string_array) );

}
Variant::Variant(const PoolVector<Vector3>& p_vector3_array) {

	type=POOL_VECTOR3_ARRAY;
	memnew_placement( _data._mem, PoolVector<Vector3>(p_vector3_array) );

}

Variant::Variant(const PoolVector<Vector2>& p_vector2_array) {

	type=POOL_VECTOR2_ARRAY;
	memnew_placement( _data._mem, PoolVector<Vector2>(p_vector2_array) );

}
Variant::Variant(const PoolVector<Color>& p_color_array) {

	type=POOL_COLOR_ARRAY;
	memnew_placement( _data._mem, PoolVector<Color>(p_color_array) );
}

Variant::Variant(const PoolVector<Face3>& p_face_array) {


	PoolVector<Vector3> vertices;
	int face_count=p_face_array.size();
	vertices.resize(face_count*3);

	if (face_count) {
		PoolVector<Face3>::Read r = p_face_array.read();
		PoolVector<Vector3>::Write w = vertices.write();

		for(int i=0;i<face_count;i++) {

			for(int j=0;j<3;j++)
				w[i*3+j]=r[i].vertex[j];
		}

		r=PoolVector<Face3>::Read();
		w=PoolVector<Vector3>::Write();

	}

	type = NIL;

	*this = vertices;
}

/* helpers */

Variant::Variant(const Vector<Variant>& p_array) {

	type=NIL;
	Array v;
	int len=p_array.size();
	v.resize(len);
	for (int i=0;i<len;i++)
		v.set(i,p_array[i]);
	*this=v;
}

Variant::Variant(const Vector<uint8_t>& p_array) {

	type=NIL;
	PoolVector<uint8_t> v;
	int len=p_array.size();
	v.resize(len);
	for (int i=0;i<len;i++)
		v.set(i,p_array[i]);
	*this=v;
}

Variant::Variant(const Vector<int>& p_array) {

	type=NIL;
	PoolVector<int> v;
	int len=p_array.size();
	v.resize(len);
	for (int i=0;i<len;i++)
		v.set(i,p_array[i]);
	*this=v;
}

Variant::Variant(const Vector<real_t>& p_array) {

	type=NIL;
	PoolVector<real_t> v;
	int len=p_array.size();
	v.resize(len);
	for (int i=0;i<len;i++)
		v.set(i,p_array[i]);
	*this=v;
}

Variant::Variant(const Vector<String>& p_array) {

	type=NIL;
	PoolVector<String> v;
	int len=p_array.size();
	v.resize(len);
	for (int i=0;i<len;i++)
		v.set(i,p_array[i]);
	*this=v;
}

Variant::Variant(const Vector<Vector3>& p_array) {

	type=NIL;
	PoolVector<Vector3> v;
	int len=p_array.size();
	if (len>0) {
		v.resize(len);
		PoolVector<Vector3>::Write w = v.write();
		const Vector3 *r = p_array.ptr();

		for (int i=0;i<len;i++)
			w[i]=r[i];
	}
	*this=v;
}

Variant::Variant(const Vector<Color>& p_array) {

	type=NIL;
	PoolVector<Color> v;
	int len=p_array.size();
	v.resize(len);
	for (int i=0;i<len;i++)
		v.set(i,p_array[i]);
	*this=v;
}

void Variant::operator=(const Variant& p_variant) {

	reference(p_variant);
}

Variant::Variant(const IP_Address& p_address) {

	type=STRING;
	memnew_placement( _data._mem, String( p_address ) );
}

Variant::Variant(const Variant& p_variant) {

	type=NIL;
	reference(p_variant);
}


/*
Variant::~Variant() {

	clear();
}*/

uint32_t Variant::hash() const {

	switch( type ) {
		case NIL: {

			return 0;
		} break;
		case BOOL: {

			return _data._bool?1:0;
		} break;
		case INT: {

			return _data._int;
		} break;
		case REAL: {

			return hash_djb2_one_float(_data._real);
		} break;
		case STRING: {

			return reinterpret_cast<const String*>(_data._mem)->hash();
		} break;
			// math types

		case VECTOR2: {

			uint32_t hash = hash_djb2_one_float(reinterpret_cast<const Vector2*>(_data._mem)->x);
			return hash_djb2_one_float(reinterpret_cast<const Vector2*>(_data._mem)->y,hash);
		} break;
		case RECT2: {

			uint32_t hash = hash_djb2_one_float(reinterpret_cast<const Rect2*>(_data._mem)->pos.x);
			hash = hash_djb2_one_float(reinterpret_cast<const Rect2*>(_data._mem)->pos.y,hash);
			hash = hash_djb2_one_float(reinterpret_cast<const Rect2*>(_data._mem)->size.x,hash);
			return hash_djb2_one_float(reinterpret_cast<const Rect2*>(_data._mem)->size.y,hash);
		} break;
		case TRANSFORM2D: {

			uint32_t hash = 5831;
			for(int i=0;i<3;i++) {

				for(int j=0;j<2;j++) {
					hash = hash_djb2_one_float(_data._transform2d->elements[i][j],hash);
				}
			}

			return hash;
		} break;
		case VECTOR3: {

			uint32_t hash = hash_djb2_one_float(reinterpret_cast<const Vector3*>(_data._mem)->x);
			hash = hash_djb2_one_float(reinterpret_cast<const Vector3*>(_data._mem)->y,hash);
			return hash_djb2_one_float(reinterpret_cast<const Vector3*>(_data._mem)->z,hash);
		} break;
		case PLANE: {

			uint32_t hash = hash_djb2_one_float(reinterpret_cast<const Plane*>(_data._mem)->normal.x);
			hash = hash_djb2_one_float(reinterpret_cast<const Plane*>(_data._mem)->normal.y,hash);
			hash = hash_djb2_one_float(reinterpret_cast<const Plane*>(_data._mem)->normal.z,hash);
			return hash_djb2_one_float(reinterpret_cast<const Plane*>(_data._mem)->d,hash);

		} break;
	/*
			case QUAT: {


			} break;*/
		case RECT3: {

			uint32_t hash = 5831;
			for(int i=0;i<3;i++) {

				hash = hash_djb2_one_float(_data._rect3->pos[i],hash);
				hash = hash_djb2_one_float(_data._rect3->size[i],hash);
			}


			return hash;

		} break;
		case QUAT: {

			uint32_t hash = hash_djb2_one_float(reinterpret_cast<const Quat*>(_data._mem)->x);
			hash = hash_djb2_one_float(reinterpret_cast<const Quat*>(_data._mem)->y,hash);
			hash = hash_djb2_one_float(reinterpret_cast<const Quat*>(_data._mem)->z,hash);
			return hash_djb2_one_float(reinterpret_cast<const Quat*>(_data._mem)->w,hash);

		} break;
		case BASIS: {

			uint32_t hash = 5831;
			for(int i=0;i<3;i++) {

				for(int j=0;j<3;j++) {
					hash = hash_djb2_one_float(_data._basis->elements[i][j],hash);
				}
			}

			return hash;

		} break;
		case TRANSFORM: {

			uint32_t hash = 5831;
			for(int i=0;i<3;i++) {

				for(int j=0;j<3;j++) {
					hash = hash_djb2_one_float(_data._transform->basis.elements[i][j],hash);
				}
				hash = hash_djb2_one_float(_data._transform->origin[i],hash);
			}


			return hash;

		} break;

			// misc types
		case COLOR: {

			uint32_t hash = hash_djb2_one_float(reinterpret_cast<const Color*>(_data._mem)->r);
			hash = hash_djb2_one_float(reinterpret_cast<const Color*>(_data._mem)->g,hash);
			hash = hash_djb2_one_float(reinterpret_cast<const Color*>(_data._mem)->b,hash);
			return hash_djb2_one_float(reinterpret_cast<const Color*>(_data._mem)->a,hash);

		} break;
		case IMAGE: {

			return 0;

		} break;
		case _RID: {

			return hash_djb2_one_64(reinterpret_cast<const RID*>(_data._mem)->get_id());
		} break;
		case OBJECT: {

			return hash_djb2_one_64(make_uint64_t(_get_obj().obj));
		} break;
		case NODE_PATH: {

			return reinterpret_cast<const NodePath*>(_data._mem)->hash();
		} break;
		case INPUT_EVENT: {

			return hash_djb2_buffer((uint8_t*)_data._input_event,sizeof(InputEvent));

		} break;
		case DICTIONARY: {

				return reinterpret_cast<const Dictionary*>(_data._mem)->hash();


		} break;
		case ARRAY: {

			const Array& arr = *reinterpret_cast<const Array* >(_data._mem);
			return arr.hash();

		} break;
		case POOL_BYTE_ARRAY: {

			const PoolVector<uint8_t>& arr = *reinterpret_cast<const PoolVector<uint8_t>* >(_data._mem);
			int len = arr.size();
			PoolVector<uint8_t>::Read r = arr.read();

			return hash_djb2_buffer((uint8_t*)&r[0],len);

		} break;
		case POOL_INT_ARRAY: {

			const PoolVector<int>& arr = *reinterpret_cast<const PoolVector<int>* >(_data._mem);
			int len = arr.size();
			PoolVector<int>::Read r = arr.read();

			return hash_djb2_buffer((uint8_t*)&r[0],len*sizeof(int));

		} break;
		case POOL_REAL_ARRAY: {

			const PoolVector<real_t>& arr = *reinterpret_cast<const PoolVector<real_t>* >(_data._mem);
			int len = arr.size();
			PoolVector<real_t>::Read r = arr.read();

			return hash_djb2_buffer((uint8_t*)&r[0],len*sizeof(real_t));

		} break;
		case POOL_STRING_ARRAY: {

			uint32_t hash=5831;
			const PoolVector<String>& arr = *reinterpret_cast<const PoolVector<String>* >(_data._mem);
			int len = arr.size();
			PoolVector<String>::Read r = arr.read();

			for(int i=0;i<len;i++) {
				hash = hash_djb2_one_32(r[i].hash(),hash);
			}

			return hash;
		} break;
		case POOL_VECTOR2_ARRAY: {

			uint32_t hash=5831;
			const PoolVector<Vector2>& arr = *reinterpret_cast<const PoolVector<Vector2>* >(_data._mem);
			int len = arr.size();
			PoolVector<Vector2>::Read r = arr.read();

			for(int i=0;i<len;i++) {
				hash = hash_djb2_one_float(r[i].x,hash);
				hash = hash_djb2_one_float(r[i].y,hash);
			}

			return hash;

		} break;
		case POOL_VECTOR3_ARRAY: {

			uint32_t hash=5831;
			const PoolVector<Vector3>& arr = *reinterpret_cast<const PoolVector<Vector3>* >(_data._mem);
			int len = arr.size();
			PoolVector<Vector3>::Read r = arr.read();

			for(int i=0;i<len;i++) {
				hash = hash_djb2_one_float(r[i].x,hash);
				hash = hash_djb2_one_float(r[i].y,hash);
				hash = hash_djb2_one_float(r[i].z,hash);
			}

			return hash;

		} break;
		case POOL_COLOR_ARRAY: {

			uint32_t hash=5831;
			const PoolVector<Color>& arr = *reinterpret_cast<const PoolVector<Color>* >(_data._mem);
			int len = arr.size();
			PoolVector<Color>::Read r = arr.read();

			for(int i=0;i<len;i++) {
				hash = hash_djb2_one_float(r[i].r,hash);
				hash = hash_djb2_one_float(r[i].g,hash);
				hash = hash_djb2_one_float(r[i].b,hash);
				hash = hash_djb2_one_float(r[i].a,hash);
			}

			return hash;

		} break;
		default: {}

		}

	return 0;

}

#define hash_compare_scalar(p_lhs, p_rhs)\
	((p_lhs) == (p_rhs)) || (Math::is_nan(p_lhs) == Math::is_nan(p_rhs))

#define hash_compare_vector2(p_lhs, p_rhs)\
	(hash_compare_scalar((p_lhs).x, (p_rhs).x)) && \
	(hash_compare_scalar((p_lhs).y, (p_rhs).y))

#define hash_compare_vector3(p_lhs, p_rhs)\
	(hash_compare_scalar((p_lhs).x, (p_rhs).x)) && \
	(hash_compare_scalar((p_lhs).y, (p_rhs).y)) && \
	(hash_compare_scalar((p_lhs).z, (p_rhs).z))

#define hash_compare_quat(p_lhs, p_rhs)\
	(hash_compare_scalar((p_lhs).x, (p_rhs).x)) && \
	(hash_compare_scalar((p_lhs).y, (p_rhs).y)) && \
	(hash_compare_scalar((p_lhs).z, (p_rhs).z)) && \
	(hash_compare_scalar((p_lhs).w, (p_rhs).w))

#define hash_compare_color(p_lhs, p_rhs)\
	(hash_compare_scalar((p_lhs).r, (p_rhs).r)) && \
	(hash_compare_scalar((p_lhs).g, (p_rhs).g)) && \
	(hash_compare_scalar((p_lhs).b, (p_rhs).b)) && \
	(hash_compare_scalar((p_lhs).a, (p_rhs).a))

#define hash_compare_pool_array(p_lhs, p_rhs, p_type, p_compare_func)\
		const PoolVector<p_type>& l = *reinterpret_cast<const PoolVector<p_type>*>(p_lhs);\
		const PoolVector<p_type>& r = *reinterpret_cast<const PoolVector<p_type>*>(p_rhs);\
		\
		if(l.size() != r.size()) \
			return false; \
		\
		PoolVector<p_type>::Read lr = l.read(); \
		PoolVector<p_type>::Read rr = r.read(); \
		\
		for(int i = 0; i < l.size(); ++i) { \
			if(! p_compare_func((lr[0]), (rr[0]))) \
				return false; \
		}\
		\
		return true

bool Variant::hash_compare(const Variant& p_variant) const {
	if (type != p_variant.type)
		return false;

	switch( type ) {
		case REAL: {
			return hash_compare_scalar(_data._real, p_variant._data._real);
		} break;

		case VECTOR2: {
			const Vector2* l = reinterpret_cast<const Vector2*>(_data._mem);
			const Vector2* r = reinterpret_cast<const Vector2*>(p_variant._data._mem);

			return hash_compare_vector2(*l, *r);
		} break;

		case RECT2: {
			const Rect2* l = reinterpret_cast<const Rect2*>(_data._mem);
			const Rect2* r = reinterpret_cast<const Rect2*>(p_variant._data._mem);

			return (hash_compare_vector2(l->pos, r->pos)) &&
					(hash_compare_vector2(l->size, r->size));
		} break;

		case TRANSFORM2D: {
			Transform2D* l = _data._transform2d;
			Transform2D* r = p_variant._data._transform2d;

			for(int i=0;i<3;i++) {
				if (! (hash_compare_vector2(l->elements[i], r->elements[i])))
					return false;
			}

			return true;
		} break;

		case VECTOR3: {
			const Vector3* l = reinterpret_cast<const Vector3*>(_data._mem);
			const Vector3* r = reinterpret_cast<const Vector3*>(p_variant._data._mem);

			return hash_compare_vector3(*l, *r);
		} break;

		case PLANE: {
			const Plane* l = reinterpret_cast<const Plane*>(_data._mem);
			const Plane* r = reinterpret_cast<const Plane*>(p_variant._data._mem);

			return (hash_compare_vector3(l->normal, r->normal)) &&
					(hash_compare_scalar(l->d, r->d));
		} break;

		case RECT3: {
			const Rect3* l = _data._rect3;
			const Rect3* r = p_variant._data._rect3;

			return (hash_compare_vector3(l->pos, r->pos) &&
					(hash_compare_vector3(l->size, r->size)));

		} break;

		case QUAT: {
			const Quat* l = reinterpret_cast<const Quat*>(_data._mem);
			const Quat* r = reinterpret_cast<const Quat*>(p_variant._data._mem);

			return hash_compare_quat(*l, *r);
		} break;

		case BASIS: {
			const Basis* l = _data._basis;
			const Basis* r = p_variant._data._basis;

			for(int i=0;i<3;i++) {
				if (! (hash_compare_vector3(l->elements[i], r->elements[i])))
					return false;
			}

			return true;
		} break;

		case TRANSFORM: {
			const Transform* l = _data._transform;
			const Transform* r = p_variant._data._transform;

			for(int i=0;i<3;i++) {
				if (! (hash_compare_vector3(l->basis.elements[i], r->basis.elements[i])))
					return false;
			}

			return hash_compare_vector3(l->origin, r->origin);
		} break;

		case COLOR: {
			const Color* l = reinterpret_cast<const Color*>(_data._mem);
			const Color* r = reinterpret_cast<const Color*>(p_variant._data._mem);

			return hash_compare_color(*l, *r);
		} break;

		case ARRAY: {
			const Array& l = *(reinterpret_cast<const Array*>(_data._mem));
			const Array& r = *(reinterpret_cast<const Array*>(p_variant._data._mem));

			if(l.size() != r.size())
				return false;

			for(int i = 0; i < l.size(); ++i) {
				if(! l[0].hash_compare(r[0]))
					return false;
			}

			return true;
		} break;

		case POOL_REAL_ARRAY: {
			hash_compare_pool_array(_data._mem, p_variant._data._mem, real_t, hash_compare_scalar);
		} break;

		case POOL_VECTOR2_ARRAY: {
			hash_compare_pool_array(_data._mem, p_variant._data._mem, Vector2, hash_compare_vector2);
		} break;

		case POOL_VECTOR3_ARRAY: {
			hash_compare_pool_array(_data._mem, p_variant._data._mem, Vector3, hash_compare_vector3);
		} break;

		case POOL_COLOR_ARRAY: {
			hash_compare_pool_array(_data._mem, p_variant._data._mem, Color, hash_compare_color);
		} break;

		default:
			bool v;
			Variant r;
			evaluate(OP_EQUAL,*this,p_variant,r,v);
			return r;
		}

	return false;
}


bool Variant::is_ref() const {

	return type==OBJECT && !_get_obj().ref.is_null();
}


Vector<Variant> varray() {

	return Vector<Variant>();
}

Vector<Variant> varray(const Variant& p_arg1) {

	Vector<Variant> v;
	v.push_back(p_arg1);
	return v;
}
Vector<Variant> varray(const Variant& p_arg1,const Variant& p_arg2) {

	Vector<Variant> v;
	v.push_back(p_arg1);
	v.push_back(p_arg2);
	return v;
}
Vector<Variant> varray(const Variant& p_arg1,const Variant& p_arg2,const Variant& p_arg3) {

	Vector<Variant> v;
	v.push_back(p_arg1);
	v.push_back(p_arg2);
	v.push_back(p_arg3);
	return v;
}
Vector<Variant> varray(const Variant& p_arg1,const Variant& p_arg2,const Variant& p_arg3,const Variant& p_arg4) {

	Vector<Variant> v;
	v.push_back(p_arg1);
	v.push_back(p_arg2);
	v.push_back(p_arg3);
	v.push_back(p_arg4);
	return v;
}

Vector<Variant> varray(const Variant& p_arg1,const Variant& p_arg2,const Variant& p_arg3,const Variant& p_arg4,const Variant& p_arg5) {

	Vector<Variant> v;
	v.push_back(p_arg1);
	v.push_back(p_arg2);
	v.push_back(p_arg3);
	v.push_back(p_arg4);
	v.push_back(p_arg5);
	return v;

}

void Variant::static_assign(const Variant& p_variant) {


}

bool Variant::is_shared() const {

    switch(type) {

        case OBJECT: return true;
	case ARRAY:	return true;
	case DICTIONARY: return true;
        default: {}

    }

    return false;
}

Variant Variant::call(const StringName& p_method,VARIANT_ARG_DECLARE) {
	VARIANT_ARGPTRS;
	int argc=0;
	for(int i=0;i<VARIANT_ARG_MAX;i++) {
		if (argptr[i]->get_type()==Variant::NIL)
			break;
		argc++;
	}

	CallError error;

	Variant ret = call(p_method,argptr,argc,error);

	switch(error.error) {

		case CallError::CALL_ERROR_INVALID_ARGUMENT: {

			String err = "Invalid type for argument #"+itos(error.argument)+", expected '"+Variant::get_type_name(error.expected)+"'.";
			ERR_PRINT(err.utf8().get_data());

		} break;
		case CallError::CALL_ERROR_INVALID_METHOD: {

			String err = "Invalid method '"+p_method+"' for type '"+Variant::get_type_name(type)+"'.";
			ERR_PRINT(err.utf8().get_data());
		} break;
		case CallError::CALL_ERROR_TOO_MANY_ARGUMENTS: {

			String err = "Too many arguments for method '"+p_method+"'";
			ERR_PRINT(err.utf8().get_data());
		} break;
		default: {}
	}

	return ret;
}

void Variant::construct_from_string(const String& p_string,Variant& r_value,ObjectConstruct p_obj_construct,void *p_construct_ud) {

	r_value=Variant();
}


String Variant::get_construct_string() const {

	String vars;
	VariantWriter::write_to_string(*this,vars);

	return vars;

}

String Variant::get_call_error_text(Object* p_base, const StringName& p_method,const Variant** p_argptrs,int p_argcount,const Variant::CallError &ce) {


	String err_text;

	if (ce.error==Variant::CallError::CALL_ERROR_INVALID_ARGUMENT) {
		int errorarg=ce.argument;
		err_text="Cannot convert argument "+itos(errorarg+1)+" from "+Variant::get_type_name(p_argptrs[errorarg]->get_type())+" to "+Variant::get_type_name(ce.expected)+".";
	} else if (ce.error==Variant::CallError::CALL_ERROR_TOO_MANY_ARGUMENTS) {
		err_text="Method expected "+itos(ce.argument)+" arguments, but called with "+itos(p_argcount)+".";
	} else if (ce.error==Variant::CallError::CALL_ERROR_TOO_FEW_ARGUMENTS) {
		err_text="Method expected "+itos(ce.argument)+" arguments, but called with "+itos(p_argcount)+".";
	} else if (ce.error==Variant::CallError::CALL_ERROR_INVALID_METHOD) {
		err_text="Method not found.";
	} else if (ce.error==Variant::CallError::CALL_ERROR_INSTANCE_IS_NULL) {
		err_text="Instance is null";
	} else if (ce.error==Variant::CallError::CALL_OK){
		return "Call OK";
	}

	String class_name = p_base->get_class();
	Ref<Script> script = p_base->get_script();
	if (script.is_valid() && script->get_path().is_resource_file()) {

		class_name+="("+script->get_path().get_file()+")";
	}
	return "'"+class_name+"::"+String(p_method)+"': "+err_text;
}


String vformat(const String& p_text, const Variant& p1,const Variant& p2,const Variant& p3,const Variant& p4,const Variant& p5) {

	Array args;
	if (p1.get_type()!=Variant::NIL) {

		args.push_back(p1);

		if (p2.get_type()!=Variant::NIL) {

			args.push_back(p2);

			if (p3.get_type()!=Variant::NIL) {

				args.push_back(p3);

				if (p4.get_type()!=Variant::NIL) {

					args.push_back(p4);

					if (p5.get_type()!=Variant::NIL) {

						args.push_back(p5);

					}

				}


			}

		}

	}

	bool error=false;
	String fmt = p_text.sprintf(args,&error);

	ERR_FAIL_COND_V(error,String());

	return fmt;

}