/*************************************************************************/
/*  class_db.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 "class_db.h"

#include "os/mutex.h"

#ifdef NO_THREADS

#define OBJTYPE_RLOCK
#define OBJTYPE_WLOCK

#else

#define OBJTYPE_RLOCK RWLockRead _rw_lockr_(lock);
#define OBJTYPE_WLOCK RWLockWrite _rw_lockw_(lock);

#endif

#ifdef DEBUG_METHODS_ENABLED

ParamDef::ParamDef(const Variant& p_variant) { used=true; val=p_variant; }


MethodDefinition D_METHOD(const char* p_name) {

	MethodDefinition md;
	md.name=StaticCString::create(p_name);
	return md;
}

MethodDefinition D_METHOD(const char* p_name,const char *p_arg1) {

	MethodDefinition md;
	md.name=StaticCString::create(p_name);
	md.args.push_back(StaticCString::create(p_arg1));
	return md;
}

MethodDefinition D_METHOD(const char* p_name,const char *p_arg1,const char *p_arg2) {

	MethodDefinition md;
	md.name=StaticCString::create(p_name);
	md.args.resize(2);
	md.args[0]=StaticCString::create(p_arg1);
	md.args[1]=StaticCString::create(p_arg2);
	return md;
}

MethodDefinition D_METHOD(const char* p_name,const char *p_arg1,const char *p_arg2,const char *p_arg3) {

	MethodDefinition md;
	md.name=StaticCString::create(p_name);
	md.args.resize(3);
	md.args[0]=StaticCString::create(p_arg1);
	md.args[1]=StaticCString::create(p_arg2);
	md.args[2]=StaticCString::create(p_arg3);
	return md;
}

MethodDefinition D_METHOD(const char* p_name,const char *p_arg1,const char *p_arg2,const char *p_arg3,const char *p_arg4) {

	MethodDefinition md;
	md.name=StaticCString::create(p_name);
	md.args.resize(4);
	md.args[0]=StaticCString::create(p_arg1);
	md.args[1]=StaticCString::create(p_arg2);
	md.args[2]=StaticCString::create(p_arg3);
	md.args[3]=StaticCString::create(p_arg4);
	return md;
}

MethodDefinition D_METHOD(const char* p_name,const char *p_arg1,const char *p_arg2,const char *p_arg3,const char *p_arg4,const char *p_arg5) {

	MethodDefinition md;
	md.name=StaticCString::create(p_name);
	md.args.resize(5);
	md.args[0]=StaticCString::create(p_arg1);
	md.args[1]=StaticCString::create(p_arg2);
	md.args[2]=StaticCString::create(p_arg3);
	md.args[3]=StaticCString::create(p_arg4);
	md.args[4]=StaticCString::create(p_arg5);
	return md;
}


MethodDefinition D_METHOD(const char* p_name,const char *p_arg1,const char *p_arg2,const char *p_arg3,const char *p_arg4,const char *p_arg5,const char *p_arg6) {

	MethodDefinition md;
	md.name=StaticCString::create(p_name);
	md.args.resize(6);
	md.args[0]=StaticCString::create(p_arg1);
	md.args[1]=StaticCString::create(p_arg2);
	md.args[2]=StaticCString::create(p_arg3);
	md.args[3]=StaticCString::create(p_arg4);
	md.args[4]=StaticCString::create(p_arg5);
	md.args[5]=StaticCString::create(p_arg6);
	return md;
}

MethodDefinition D_METHOD(const char* p_name,const char *p_arg1,const char *p_arg2,const char *p_arg3,const char *p_arg4,const char *p_arg5,const char *p_arg6,const char *p_arg7) {

	MethodDefinition md;
	md.name=StaticCString::create(p_name);
	md.args.resize(7);
	md.args[0]=StaticCString::create(p_arg1);
	md.args[1]=StaticCString::create(p_arg2);
	md.args[2]=StaticCString::create(p_arg3);
	md.args[3]=StaticCString::create(p_arg4);
	md.args[4]=StaticCString::create(p_arg5);
	md.args[5]=StaticCString::create(p_arg6);
	md.args[6]=StaticCString::create(p_arg7);
	return md;
}

MethodDefinition D_METHOD(const char* p_name,const char *p_arg1,const char *p_arg2,const char *p_arg3,const char *p_arg4,const char *p_arg5,const char *p_arg6,const char *p_arg7,const char *p_arg8) {

	MethodDefinition md;
	md.name=StaticCString::create(p_name);
	md.args.resize(8);
	md.args[0]=StaticCString::create(p_arg1);
	md.args[1]=StaticCString::create(p_arg2);
	md.args[2]=StaticCString::create(p_arg3);
	md.args[3]=StaticCString::create(p_arg4);
	md.args[4]=StaticCString::create(p_arg5);
	md.args[5]=StaticCString::create(p_arg6);
	md.args[6]=StaticCString::create(p_arg7);
	md.args[7]=StaticCString::create(p_arg8);
	return md;
}

MethodDefinition D_METHOD(const char* p_name,const char *p_arg1,const char *p_arg2,const char *p_arg3,const char *p_arg4,const char *p_arg5,const char *p_arg6,const char *p_arg7,const char *p_arg8,const char *p_arg9) {

	MethodDefinition md;
	md.name=StaticCString::create(p_name);
	md.args.resize(9);
	md.args[0]=StaticCString::create(p_arg1);
	md.args[1]=StaticCString::create(p_arg2);
	md.args[2]=StaticCString::create(p_arg3);
	md.args[3]=StaticCString::create(p_arg4);
	md.args[4]=StaticCString::create(p_arg5);
	md.args[5]=StaticCString::create(p_arg6);
	md.args[6]=StaticCString::create(p_arg7);
	md.args[7]=StaticCString::create(p_arg8);
	md.args[8]=StaticCString::create(p_arg9);
	return md;
}

MethodDefinition D_METHOD(const char* p_name,const char *p_arg1,const char *p_arg2,const char *p_arg3,const char *p_arg4,const char *p_arg5,const char *p_arg6,const char *p_arg7,const char *p_arg8,const char *p_arg9,const char *p_arg10) {

	MethodDefinition md;
	md.name=StaticCString::create(p_name);
	md.args.resize(10);
	md.args[0]=StaticCString::create(p_arg1);
	md.args[1]=StaticCString::create(p_arg2);
	md.args[2]=StaticCString::create(p_arg3);
	md.args[3]=StaticCString::create(p_arg4);
	md.args[4]=StaticCString::create(p_arg5);
	md.args[5]=StaticCString::create(p_arg6);
	md.args[6]=StaticCString::create(p_arg7);
	md.args[7]=StaticCString::create(p_arg8);
	md.args[8]=StaticCString::create(p_arg9);
	md.args[9]=StaticCString::create(p_arg10);
	return md;
}


#endif


ClassDB::APIType ClassDB::current_api=API_CORE;

void ClassDB::set_current_api(APIType p_api) {

	current_api=p_api;
}

HashMap<StringName,ClassDB::ClassInfo,StringNameHasher> ClassDB::classes;
HashMap<StringName,StringName,StringNameHasher> ClassDB::resource_base_extensions;
HashMap<StringName,StringName,StringNameHasher> ClassDB::compat_classes;

ClassDB::ClassInfo::ClassInfo() {

	creation_func=NULL;
	inherits_ptr=NULL;
	disabled=false;
}
ClassDB::ClassInfo::~ClassInfo() {


}


bool ClassDB::is_parent_class(const StringName &p_class,const StringName& p_inherits) {

	OBJTYPE_RLOCK;

	StringName inherits=p_class;

	while (inherits.operator String().length()) {

		if (inherits==p_inherits)
			return true;
		inherits=get_parent_class(inherits);
	}

	return false;
}
void ClassDB::get_class_list( List<StringName> *p_classes) {

	OBJTYPE_RLOCK;

	const StringName *k=NULL;

	while((k=classes.next(k))) {

		p_classes->push_back(*k);
	}

	p_classes->sort();
}


void ClassDB::get_inheriters_from_class( const StringName& p_class,List<StringName> *p_classes) {

	OBJTYPE_RLOCK;

	const StringName *k=NULL;

	while((k=classes.next(k))) {

		if (*k!=p_class && is_parent_class(*k,p_class))
			p_classes->push_back(*k);
	}

}

StringName ClassDB::get_parent_class_nocheck(const StringName& p_class) {

	OBJTYPE_RLOCK;

	ClassInfo *ti = classes.getptr(p_class);
	if (!ti)
		return StringName();
	return ti->inherits;

}

StringName ClassDB::get_parent_class(const StringName& p_class) {

	OBJTYPE_RLOCK;

	ClassInfo *ti = classes.getptr(p_class);
	ERR_FAIL_COND_V(!ti,StringName());
	return ti->inherits;
}

ClassDB::APIType ClassDB::get_api_type(const StringName &p_class) {

	OBJTYPE_RLOCK;

	ClassInfo *ti = classes.getptr(p_class);

	ERR_FAIL_COND_V(!ti,API_NONE);
	return ti->api;
}

uint64_t ClassDB::get_api_hash(APIType p_api) {

	OBJTYPE_RLOCK;
#ifdef DEBUG_METHODS_ENABLED

	uint64_t hash = hash_djb2_one_64(HashMapHahserDefault::hash(VERSION_FULL_NAME));

	List<StringName> names;

	const StringName *k=NULL;

	while((k=classes.next(k))) {

		names.push_back(*k);
	}
	//must be alphabetically sorted for hash to compute
	names.sort_custom<StringName::AlphCompare>();

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

		ClassInfo *t = classes.getptr(E->get());
		ERR_FAIL_COND_V(!t,0);
		if (t->api!=p_api)
			continue;
		hash = hash_djb2_one_64(t->name.hash(),hash);
		hash = hash_djb2_one_64(t->inherits.hash(),hash);

		{ //methods

			List<StringName> snames;

			k=NULL;

			while((k=t->method_map.next(k))) {

				snames.push_back(*k);
			}

			snames.sort_custom<StringName::AlphCompare>();

			for (List<StringName>::Element *F=snames.front();F;F=F->next()) {

				MethodBind *mb = t->method_map[F->get()];
				hash = hash_djb2_one_64( mb->get_name().hash(), hash);
				hash = hash_djb2_one_64( mb->get_argument_count(), hash);
				hash = hash_djb2_one_64( mb->get_argument_type(-1), hash); //return

				for(int i=0;i<mb->get_argument_count();i++) {
					hash = hash_djb2_one_64( mb->get_argument_info(i).type, hash );
					hash = hash_djb2_one_64( mb->get_argument_info(i).name.hash(), hash );
					hash = hash_djb2_one_64( mb->get_argument_info(i).hint, hash );
					hash = hash_djb2_one_64( mb->get_argument_info(i).hint_string.hash(), hash );
				}

				hash = hash_djb2_one_64( mb->get_default_argument_count(), hash);

				for(int i=0;i<mb->get_default_argument_count();i++) {
					//hash should not change, i hope for tis
					Variant da = mb->get_default_argument(i);
					hash = hash_djb2_one_64( da.hash(), hash );
				}

				hash = hash_djb2_one_64( mb->get_hint_flags(), hash);

			}
		}


		{ //constants

			List<StringName> snames;

			k=NULL;

			while((k=t->constant_map.next(k))) {

				snames.push_back(*k);
			}

			snames.sort_custom<StringName::AlphCompare>();

			for (List<StringName>::Element *F=snames.front();F;F=F->next()) {

				hash = hash_djb2_one_64(F->get().hash(), hash);
				hash = hash_djb2_one_64( t->constant_map[F->get()], hash);
			}
		}


		{ //signals

			List<StringName> snames;

			k=NULL;

			while((k=t->signal_map.next(k))) {

				snames.push_back(*k);
			}

			snames.sort_custom<StringName::AlphCompare>();

			for (List<StringName>::Element *F=snames.front();F;F=F->next()) {

				MethodInfo &mi = t->signal_map[F->get()];
				hash = hash_djb2_one_64( F->get().hash(), hash);
				for(int i=0;i<mi.arguments.size();i++) {
					hash = hash_djb2_one_64( mi.arguments[i].type, hash);
				}
			}
		}

		{ //properties

			List<StringName> snames;

			k=NULL;

			while((k=t->property_setget.next(k))) {

				snames.push_back(*k);
			}

			snames.sort_custom<StringName::AlphCompare>();

			for (List<StringName>::Element *F=snames.front();F;F=F->next()) {

				PropertySetGet *psg=t->property_setget.getptr(F->get());

				hash = hash_djb2_one_64( F->get().hash(), hash);
				hash = hash_djb2_one_64( psg->setter.hash(), hash);
				hash = hash_djb2_one_64( psg->getter.hash(), hash);

			}
		}

		//property list
		for (List<PropertyInfo>::Element *F=t->property_list.front();F;F=F->next()) {

			hash = hash_djb2_one_64( F->get().name.hash(), hash);
			hash = hash_djb2_one_64( F->get().type, hash);
			hash = hash_djb2_one_64( F->get().hint, hash);
			hash = hash_djb2_one_64( F->get().hint_string.hash(), hash);
			hash = hash_djb2_one_64( F->get().usage, hash);
		}


	}


	return hash;
#else
	return 0;
#endif

}

bool ClassDB::class_exists(const StringName &p_class) {

	OBJTYPE_RLOCK;
	return classes.has(p_class);
}

void ClassDB::add_compatibility_class(const StringName& p_class,const StringName& p_fallback) {

	OBJTYPE_WLOCK;
	compat_classes[p_class]=p_fallback;
}

Object *ClassDB::instance(const StringName &p_class) {

	ClassInfo *ti;
	{
		OBJTYPE_RLOCK;
		ti=classes.getptr(p_class);
		if (!ti || ti->disabled || !ti->creation_func) {
			if (compat_classes.has(p_class)) {
				ti=classes.getptr(compat_classes[p_class]);
			}
		}
		ERR_FAIL_COND_V(!ti,NULL);
		ERR_FAIL_COND_V(ti->disabled,NULL);
		ERR_FAIL_COND_V(!ti->creation_func,NULL);
	}

	return ti->creation_func();
}
bool ClassDB::can_instance(const StringName &p_class) {

	OBJTYPE_RLOCK;

	ClassInfo *ti = classes.getptr(p_class);
	ERR_FAIL_COND_V(!ti,false);
	return (!ti->disabled && ti->creation_func!=NULL);
}


void ClassDB::_add_class2(const StringName& p_class, const StringName& p_inherits) {

	OBJTYPE_WLOCK;

	StringName name = p_class;

	ERR_FAIL_COND(classes.has(name));

	classes[name]=ClassInfo();
	ClassInfo &ti=classes[name];
	ti.name=name;
	ti.inherits=p_inherits;
	ti.api=current_api;

	if (ti.inherits) {

		ERR_FAIL_COND( !classes.has(ti.inherits) ); //it MUST be registered.
		ti.inherits_ptr = &classes[ti.inherits];

	} else {
		ti.inherits_ptr=NULL;
	}


}

void ClassDB::get_method_list(StringName p_class,List<MethodInfo> *p_methods,bool p_no_inheritance) {


	OBJTYPE_RLOCK;

	ClassInfo *type=classes.getptr(p_class);

	while(type) {

		if (type->disabled) {

			if (p_no_inheritance)
				break;

			type=type->inherits_ptr;
			continue;
		}

#ifdef DEBUG_METHODS_ENABLED

		for( List<MethodInfo>::Element *E=type->virtual_methods.front();E;E=E->next()) {

			p_methods->push_back(E->get());
		}

		for( List<StringName>::Element *E=type->method_order.front();E;E=E->next()) {

			MethodBind *method=type->method_map.get(E->get());
			MethodInfo minfo;
			minfo.name=E->get();
			minfo.id=method->get_method_id();

			for (int i=0;i<method->get_argument_count();i++) {

				//Variant::Type t=method->get_argument_type(i);

				minfo.arguments.push_back(method->get_argument_info(i));
			}


			if (method->get_argument_type(-1)!=Variant::NIL) {
				minfo.return_val=method->get_argument_info(-1);
			}

			minfo.flags=method->get_hint_flags();
			p_methods->push_back(minfo);
		}



#else

		const StringName *K=NULL;

		while((K=type->method_map.next(K))) {

			MethodBind*m = type->method_map[*K];
			MethodInfo mi;
			mi.name=m->get_name();
			p_methods->push_back(mi);
		}


#endif

		if (p_no_inheritance)
			break;

		type=type->inherits_ptr;
	}

}


MethodBind *ClassDB::get_method(StringName p_class, StringName p_name) {

	OBJTYPE_RLOCK;

	ClassInfo *type=classes.getptr(p_class);

	while(type) {

		MethodBind **method=type->method_map.getptr(p_name);
		if (method && *method)
			return *method;
		type=type->inherits_ptr;
	}
	return NULL;
}


void ClassDB::bind_integer_constant(const StringName& p_class, const StringName &p_name, int p_constant) {

	OBJTYPE_WLOCK;

	ClassInfo *type=classes.getptr(p_class);
	if (!type) {

		ERR_FAIL_COND(!type);
	}

	if (type->constant_map.has(p_name)) {

		ERR_FAIL();
	}

	type->constant_map[p_name]=p_constant;
#ifdef DEBUG_METHODS_ENABLED
	type->constant_order.push_back(p_name);
#endif

}

void ClassDB::get_integer_constant_list(const StringName& p_class, List<String> *p_constants, bool p_no_inheritance) {

	OBJTYPE_RLOCK;

	ClassInfo *type=classes.getptr(p_class);

	while(type) {

#ifdef DEBUG_METHODS_ENABLED
		for(List<StringName>::Element *E=type->constant_order.front();E;E=E->next())
			p_constants->push_back(E->get());
#else
		const StringName *K=NULL;

		while((K=type->constant_map.next(K))) {
			p_constants->push_back(*K);
		}

#endif
		if (p_no_inheritance)
			break;

		type=type->inherits_ptr;
	}

}


int ClassDB::get_integer_constant(const StringName& p_class, const StringName &p_name, bool *p_success) {

	OBJTYPE_RLOCK;


	ClassInfo *type=classes.getptr(p_class);

	while(type) {


		int *constant=type->constant_map.getptr(p_name);
		if (constant) {

			if (p_success)
				*p_success=true;
			return *constant;
		}

		type=type->inherits_ptr;
	}

	if (p_success)
		*p_success=false;

	return 0;
}

void ClassDB::add_signal(StringName p_class,const MethodInfo& p_signal) {

	OBJTYPE_WLOCK;

	ClassInfo *type=classes.getptr(p_class);
	ERR_FAIL_COND(!type);

	ClassInfo *check=type;
	StringName sname = p_signal.name;
#ifdef DEBUG_METHODS_ENABLED

	while(check) {
		if (check->signal_map.has(sname)) {
			ERR_EXPLAIN("Type "+String(p_class)+" already has signal: "+String(sname));
			ERR_FAIL();
		}
		check=check->inherits_ptr;
	}
#endif

	type->signal_map[sname]=p_signal;

}

void ClassDB::get_signal_list(StringName p_class,List<MethodInfo> *p_signals,bool p_no_inheritance) {

	OBJTYPE_RLOCK;

	ClassInfo *type=classes.getptr(p_class);
	ERR_FAIL_COND(!type);

	ClassInfo *check=type;

	while(check) {

		const StringName *S=NULL;
		while((S=check->signal_map.next(S))) {

			p_signals->push_back(check->signal_map[*S]);
		}

		if (p_no_inheritance)
			return;

		check=check->inherits_ptr;
	}


}

bool ClassDB::has_signal(StringName p_class,StringName p_signal) {

	OBJTYPE_RLOCK;
	ClassInfo *type=classes.getptr(p_class);
	ClassInfo *check=type;
	while(check) {
		if (check->signal_map.has(p_signal))
			return true;
		check=check->inherits_ptr;
	}

	return false;
}

bool ClassDB::get_signal(StringName p_class,StringName p_signal,MethodInfo *r_signal) {

	OBJTYPE_RLOCK;
	ClassInfo *type=classes.getptr(p_class);
	ClassInfo *check=type;
	while(check) {
		if (check->signal_map.has(p_signal)) {
			if (r_signal) {
				*r_signal=check->signal_map[p_signal];
			}
			return true;
		}
		check=check->inherits_ptr;
	}

	return false;
}


void ClassDB::add_property_group(StringName p_class,const String& p_name,const String& p_prefix) {

	OBJTYPE_WLOCK;
	ClassInfo *type=classes.getptr(p_class);
	ERR_FAIL_COND(!type);

	type->property_list.push_back(PropertyInfo(Variant::NIL,p_name,PROPERTY_HINT_NONE,p_prefix,PROPERTY_USAGE_GROUP));
}

void ClassDB::add_property(StringName p_class,const PropertyInfo& p_pinfo, const StringName& p_setter, const StringName& p_getter, int p_index) {



#ifndef NO_THREADS
	lock->read_lock();
#endif

	ClassInfo *type=classes.getptr(p_class);

#ifndef NO_THREADS
	lock->read_unlock();
#endif

	ERR_FAIL_COND(!type);

	MethodBind *mb_set=NULL;
	if (p_setter) {
		mb_set = get_method(p_class,p_setter);
#ifdef DEBUG_METHODS_ENABLED
		if (!mb_set) {
			ERR_EXPLAIN("Invalid Setter: "+p_class+"::"+p_setter+" for property: "+p_pinfo.name);
			ERR_FAIL_COND(!mb_set);
		} else {
			int exp_args=1+(p_index>=0?1:0);
			if (mb_set->get_argument_count()!=exp_args) {
				ERR_EXPLAIN("Invalid Function for Setter: "+p_class+"::"+p_setter+" for property: "+p_pinfo.name);
				ERR_FAIL();

			}
		}
#endif
	}

	MethodBind *mb_get=NULL;
	if (p_getter) {

		MethodBind *mb_get = get_method(p_class,p_getter);
#ifdef DEBUG_METHODS_ENABLED

		if (!mb_get) {
			ERR_EXPLAIN("Invalid Getter: "+p_class+"::"+p_getter+" for property: "+p_pinfo.name);
			ERR_FAIL_COND(!mb_get);
		} else {

			int exp_args=0+(p_index>=0?1:0);
			if (mb_get->get_argument_count()!=exp_args) {
				ERR_EXPLAIN("Invalid Function for Getter: "+p_class+"::"+p_getter+" for property: "+p_pinfo.name);
				ERR_FAIL();

			}

		}
#endif
	}



#ifdef DEBUG_METHODS_ENABLED

	if (type->property_setget.has(p_pinfo.name)) {
		ERR_EXPLAIN("Object already has property: "+p_class);
		ERR_FAIL();
	}
#endif

	OBJTYPE_WLOCK

	type->property_list.push_back(p_pinfo);

	PropertySetGet psg;
	psg.setter=p_setter;
	psg.getter=p_getter;
	psg._setptr=mb_set;
	psg._getptr=mb_get;
	psg.index=p_index;
	psg.type=p_pinfo.type;

	type->property_setget[p_pinfo.name]=psg;

}


void ClassDB::get_property_list(StringName p_class, List<PropertyInfo> *p_list, bool p_no_inheritance,const Object *p_validator) {

	OBJTYPE_RLOCK;

	ClassInfo *type=classes.getptr(p_class);
	ClassInfo *check=type;
	while(check) {

		for(List<PropertyInfo>::Element *E=check->property_list.front();E;E=E->next()) {


			if (p_validator) {
				PropertyInfo pi = E->get();
				p_validator->_validate_property(pi);
				p_list->push_back(pi);
			} else {
				p_list->push_back(E->get());
			}
		}

		if (p_no_inheritance)
			return ;
		check=check->inherits_ptr;
	}

}
bool ClassDB::set_property(Object* p_object,const StringName& p_property, const Variant& p_value,bool *r_valid) {



	ClassInfo *type=classes.getptr(p_object->get_class_name());
	ClassInfo *check=type;
	while(check) {
		const PropertySetGet *psg = check->property_setget.getptr(p_property);
		if (psg) {

			if (!psg->setter) {
				if (r_valid)
					*r_valid=false;
				return true; //return true but do nothing
			}

			Variant::CallError ce;

			if (psg->index>=0) {
				Variant index=psg->index;
				const Variant* arg[2]={&index,&p_value};
				//p_object->call(psg->setter,arg,2,ce);
				if (psg->_setptr) {
					psg->_setptr->call(p_object,arg,2,ce);
				} else {
					p_object->call(psg->setter,arg,2,ce);
				}


			} else {
				const Variant* arg[1]={&p_value};
				if (psg->_setptr) {
					psg->_setptr->call(p_object,arg,1,ce);
				} else {
					p_object->call(psg->setter,arg,1,ce);
				}
			}

			if (r_valid)
				*r_valid=ce.error==Variant::CallError::CALL_OK;

			return true;
		}

		check=check->inherits_ptr;
	}

	return false;
}
bool ClassDB::get_property(Object* p_object,const StringName& p_property, Variant& r_value) {

	ClassInfo *type=classes.getptr(p_object->get_class_name());
	ClassInfo *check=type;
	while(check) {
		const PropertySetGet *psg = check->property_setget.getptr(p_property);
		if (psg) {
			if (!psg->getter)
				return true; //return true but do nothing

			if (psg->index>=0) {
				Variant index=psg->index;
				const Variant* arg[1]={&index};
				Variant::CallError ce;
				r_value = p_object->call(psg->getter,arg,1,ce);

			} else {

				Variant::CallError ce;
				if (psg->_getptr) {

					r_value = psg->_getptr->call(p_object,NULL,0,ce);
				} else {
					r_value = p_object->call(psg->getter,NULL,0,ce);
				}
			}
			return true;
		}

		const int *c =check->constant_map.getptr(p_property);
		if (c) {

			r_value=*c;
			return true;
		}
		//if (check->constant_map.fin)

		check=check->inherits_ptr;
	}

	return false;
}

Variant::Type ClassDB::get_property_type(const StringName& p_class, const StringName& p_property,bool *r_is_valid) {

	ClassInfo *type=classes.getptr(p_class);
	ClassInfo *check=type;
	while(check) {
		const PropertySetGet *psg = check->property_setget.getptr(p_property);
		if (psg) {

			if (r_is_valid)
				*r_is_valid=true;

			return psg->type;
		}

		check=check->inherits_ptr;
	}
	if (r_is_valid)
		*r_is_valid=false;

	return Variant::NIL;

}

StringName ClassDB::get_property_setter(StringName p_class,const StringName p_property) {

	ClassInfo *type=classes.getptr(p_class);
	ClassInfo *check=type;
	while(check) {
		const PropertySetGet *psg = check->property_setget.getptr(p_property);
		if (psg) {

			return psg->setter;
		}

		check=check->inherits_ptr;
	}

	return StringName();
}

StringName ClassDB::get_property_getter(StringName p_class,const StringName p_property) {

	ClassInfo *type=classes.getptr(p_class);
	ClassInfo *check=type;
	while(check) {
		const PropertySetGet *psg = check->property_setget.getptr(p_property);
		if (psg) {

			return psg->getter;
		}

		check=check->inherits_ptr;
	}

	return StringName();
}

bool ClassDB::has_property(const StringName& p_class, const StringName& p_property, bool p_no_inheritance) {


	ClassInfo *type=classes.getptr(p_class);
	ClassInfo *check=type;
	while(check) {
		if (check->property_setget.has(p_property))
			return true;

		if (p_no_inheritance)
			break;
		check=check->inherits_ptr;
	}

	return false;
}

void ClassDB::set_method_flags(StringName p_class,StringName p_method,int p_flags) {

	OBJTYPE_WLOCK;
	ClassInfo *type=classes.getptr(p_class);
	ClassInfo *check=type;
	ERR_FAIL_COND(!check);
	ERR_FAIL_COND(!check->method_map.has(p_method));
	check->method_map[p_method]->set_hint_flags(p_flags);


}

bool ClassDB::has_method(StringName p_class,StringName p_method,bool p_no_inheritance) {

	ClassInfo *type=classes.getptr(p_class);
	ClassInfo *check=type;
	while(check) {
		if (check->method_map.has(p_method))
			return true;
		if (p_no_inheritance)
			return false;
		check=check->inherits_ptr;
	}

	return false;

}

bool ClassDB::get_setter_and_type_for_property(const StringName& p_class, const StringName& p_prop, StringName& r_class, StringName& r_setter) {

	ClassInfo *type=classes.getptr(p_class);
	ClassInfo *check=type;
	while(check) {

		if (check->property_setget.has(p_prop)) {
			r_class=check->name;
			r_setter=check->property_setget[p_prop].setter;
			return true;
		}

		check=check->inherits_ptr;
	}

	return false;

}

#ifdef DEBUG_METHODS_ENABLED
MethodBind* ClassDB::bind_methodfi(uint32_t p_flags, MethodBind *p_bind , const MethodDefinition &method_name, const Variant **p_defs, int p_defcount) {
	StringName mdname=method_name.name;
#else
MethodBind* ClassDB::bind_methodfi(uint32_t p_flags, MethodBind *p_bind , const char *method_name, const Variant **p_defs, int p_defcount) {
	StringName mdname=StaticCString::create(method_name);
#endif


	StringName rettype;
	if (mdname.operator String().find(":")!=-1) {
		rettype = mdname.operator String().get_slice(":",1);
		mdname = mdname.operator String().get_slice(":",0);
	}


	OBJTYPE_WLOCK;
	ERR_FAIL_COND_V(!p_bind,NULL);
	p_bind->set_name(mdname);

	String instance_type=p_bind->get_instance_class();

#ifdef DEBUG_ENABLED

	if (has_method(instance_type,mdname)) {
		ERR_EXPLAIN("Class "+String(instance_type)+" already has a method "+String(mdname));
		ERR_FAIL_V(NULL);
	}
#endif


	ClassInfo *type=classes.getptr(instance_type);
	if (!type) {
		ERR_PRINTS("Couldn't bind method '"+mdname+"' for instance: "+instance_type);
		memdelete(p_bind);
		ERR_FAIL_COND_V(!type,NULL);
	}

	if (type->method_map.has(mdname)) {
		memdelete(p_bind);
		// overloading not supported
		ERR_EXPLAIN("Method already bound: "+instance_type+"::"+mdname);
		ERR_FAIL_V(NULL);
	}
#ifdef DEBUG_METHODS_ENABLED
	p_bind->set_argument_names(method_name.args);
	p_bind->set_return_type(rettype);
	type->method_order.push_back(mdname);
#endif
	type->method_map[mdname]=p_bind;


	Vector<Variant> defvals;

	defvals.resize(p_defcount);
	for(int i=0;i<p_defcount;i++) {

		defvals[i]=*p_defs[p_defcount-i-1];
	}

	p_bind->set_default_arguments(defvals);
	p_bind->set_hint_flags(p_flags);
	return p_bind;

}

void ClassDB::add_virtual_method(const StringName& p_class, const MethodInfo& p_method , bool p_virtual) {
	ERR_FAIL_COND(!classes.has(p_class));

	OBJTYPE_WLOCK;

#ifdef DEBUG_METHODS_ENABLED
	MethodInfo mi=p_method;
	if (p_virtual)
		mi.flags|=METHOD_FLAG_VIRTUAL;
	classes[p_class].virtual_methods.push_back(mi);

#endif

}

void ClassDB::get_virtual_methods(const StringName& p_class, List<MethodInfo> * p_methods , bool p_no_inheritance) {

	ERR_FAIL_COND(!classes.has(p_class));

#ifdef DEBUG_METHODS_ENABLED

	ClassInfo *type=classes.getptr(p_class);
	ClassInfo *check=type;
	while(check) {

		for(List<MethodInfo>::Element *E=check->virtual_methods.front();E;E=E->next()) {
			p_methods->push_back(E->get());
		}

		if (p_no_inheritance)
			return;
		check=check->inherits_ptr;
	}

#endif

}

void ClassDB::set_class_enabled(StringName p_class,bool p_enable) {

	OBJTYPE_WLOCK;

	ERR_FAIL_COND(!classes.has(p_class));
	classes[p_class].disabled=!p_enable;
}

bool ClassDB::is_class_enabled(StringName p_class) {

	OBJTYPE_RLOCK;

	ClassInfo *ti=classes.getptr(p_class);
	if (!ti || !ti->creation_func) {
		if (compat_classes.has(p_class)) {
			ti=classes.getptr(compat_classes[p_class]);
		}
	}

	ERR_FAIL_COND_V(!ti,false);
	return !ti->disabled;
}

StringName ClassDB::get_category(const StringName& p_node) {

	ERR_FAIL_COND_V(!classes.has(p_node),StringName());
#ifdef DEBUG_ENABLED
	return classes[p_node].category;
#else
	return StringName();
#endif
}

void ClassDB::add_resource_base_extension(const StringName& p_extension,const StringName& p_class) {

	if (resource_base_extensions.has(p_extension))
		return;

	resource_base_extensions[p_extension]=p_class;
}

void ClassDB::get_resource_base_extensions(List<String> *p_extensions) {

	const StringName *K=NULL;

	while((K=resource_base_extensions.next(K))) {

		p_extensions->push_back(*K);
	}
}

void ClassDB::get_extensions_for_type(const StringName& p_class,List<String> *p_extensions) {

	const StringName *K=NULL;

	while((K=resource_base_extensions.next(K))) {
		StringName cmp = resource_base_extensions[*K];
		if (is_parent_class(cmp,p_class))
			p_extensions->push_back(*K);
	}
}


RWLock *ClassDB::lock=NULL;

void ClassDB::init() {

#ifndef NO_THREADS

	lock = RWLock::create();
#endif
}

void ClassDB::cleanup() {



	//OBJTYPE_LOCK; hah not here

	const StringName *k=NULL;

	while((k=classes.next(k))) {

		ClassInfo &ti=classes[*k];

		const StringName *m=NULL;
		while((m=ti.method_map.next(m))) {

			memdelete( ti.method_map[*m] );
		}
	}
	classes.clear();
	resource_base_extensions.clear();
	compat_classes.clear();

#ifndef NO_THREADS

	memdelete(lock);
#endif

}

//