namespace Luax
{

	// 针对普通类和单例类有不同的注册过程，通过LuaxState的两个工厂方法Register_实现

	// 注册工厂，分为注册interface table和class table，以type name为键设置在名称空间上。在注册阶段不会设置元表，等到New方法调用的时候才会。

	template<typename T>
	void LuaxState::RegisterFactory()
	{
		lua_State* L = mState;
		LuaxState& state = *this;

		int top = lua_gettop(L); // namespace table

		assert(lua_istable(L, top));

		const char* type = T::GetLuaxFactoryName();

		// interface table
		lua_newtable(L);

		// interface table[__index] = interface table
		lua_pushvalue(L, -1);
		lua_setfield(L, -2, "__index");

		LuaxClass<T>::RegisterLuaxInterface(state);
		T::RegisterLuaxInterface(state);

		LuaxClass<T>::SetInterfaceTableRef(state, -1);

		lua_settop(L, top);

		// class table
		lua_newtable(L);

		LuaxClass<T>::RegisterLuaxClass(state);
		LuaxClass<T>::RegisterLuaxFactoryClass(state);
		T::RegisterLuaxClass(state);

		// 检测T里面是否没有注册必须的方法
#define _assertmethod(I, NAME) \
	GetField(I, NAME); \
	assert(IsType(-1, LUA_TFUNCTION)); \
	Pop();

		// New方法可以没有，如果没有的话表示这是一个抽象类
		//_assertmethod(-1, "New");

#undef _assertmethod

		// .Extend()
		lua_pushvalue(state, -1); // class table
		LuaxClass<T>::PushInterfaceTable(state); // interface table
		lua_pushcclosure(state, LuaxClass<T>::l_ExtendFactory, 2);
		lua_setfield(state, -2, "Extend");

		// .GetInterfaceTable()
		LuaxClass<T>::PushInterfaceTable(state); // interface table
		lua_pushcclosure(state, LuaxClass<T>::l_GetInterfaceTable, 1);
		lua_setfield(state, -2, "GetInterfaceTable");

		LuaxClass<T>::SetClassTableRef(state, -1);

		SetField(top, type);

		// reset top
		lua_settop(L, top);

		// 后处理
		T::RegisterLuaxPostprocess(state);
	}

	// 注册单例
	template<typename T>
	void LuaxState::RegisterSingleton()
	{
		lua_State* L = mState;
		LuaxState& state = *this;

		int top = lua_gettop(L); // namespace table
		assert(lua_istable(L, top));

		const char* type = T::GetLuaxSingletonName();

		// class table.
		lua_newtable(L);

		LuaxClass<T>::RegisterLuaxClass(state);
		LuaxClass<T>::RegisterLuaxFactoryClass(state);
		T::RegisterLuaxClass(state);

		SetField(top, type);

		// reset top
		lua_settop(L, top);
	}

	template<typename T>
	void LuaxState::SetField(int idx, cc8* key, T value)
	{
		if (IsTableOrUserdata(idx))
		{
			idx = AbsIndex(idx);
			this->Push(value);
			lua_setfield(mState, idx, key);
		}
	}

	template<typename T>
	T LuaxState::GetField(int idx, cc8* key, T value)
	{
		GetField(idx, key);
		T result = GetValue < T >(-1, value);
		this->Pop();

		return result;
	}

	template<typename T>
	T LuaxState::GetField(int idx, int key, T value)
	{
		GetField(idx, key);
		T result = GetValue < T >(-1, value);
		Pop();

		return result;
	}

	template<typename T>
	T* LuaxState::GetLuaUserdata(int idx)
	{
		void* p = nullptr;

		if (IsType(idx, LUA_TUSERDATA))
		{
			p = *(void**)lua_touserdata(mState, idx);
		}

		return static_cast<T*>(p);
	}

}