Add coroutine support (WIP)

include/Nazara/Lua/LuaCoroutine.hpp

@@ -0,0 +1,44 @@
+// Copyright (C) 2017 Jérôme Leclercq
+// This file is part of the "Nazara Engine - Lua scripting module"
+// For conditions of distribution and use, see copyright notice in Config.hpp
+
+#pragma once
+
+#ifndef NAZARA_LUACOROUTINE_HPP
+#define NAZARA_LUACOROUTINE_HPP
+
+#include <Nazara/Prerequesites.hpp>
+#include <Nazara/Lua/LuaState.hpp>
+#include <cstddef>
+#include <functional>
+
+namespace Nz
+{
+	class NAZARA_LUA_API LuaCoroutine : public LuaState
+	{
+		friend class LuaState;
+
+		public:
+			LuaCoroutine(const LuaCoroutine&) = delete;
+			inline LuaCoroutine(LuaCoroutine&& instance);
+			~LuaCoroutine();
+
+			bool CanResume() const;
+
+			Ternary Resume(unsigned int argCount = 0);
+
+			LuaCoroutine& operator=(const LuaCoroutine&) = delete;
+			inline LuaCoroutine& operator=(LuaCoroutine&& instance);
+
+		private:
+			LuaCoroutine(lua_State* internalState, int refIndex);
+
+			bool Run(int argCount, int resultCount) override;
+
+			int m_ref;
+	};
+}
+
+#include <Nazara/Lua/LuaInstance.inl>
+
+#endif // NAZARA_LUACOROUTINE_HPP

include/Nazara/Lua/LuaCoroutine.inl

@@ -0,0 +1,25 @@
+// Copyright (C) 2017 Jérôme Leclercq
+// This file is part of the "Nazara Engine - Lua scripting module"
+// For conditions of distribution and use, see copyright notice in Config.hpp
+
+#include <Nazara/Lua/LuaCoroutine.hpp>
+
+namespace Nz
+{
+	inline LuaCoroutine::LuaCoroutine(LuaCoroutine&& instance) :
+	LuaState(std::move(instance)),
+	m_ref(instance.m_ref)
+	{
+		instance.m_ref = -1;
+	}
+
+	inline LuaCoroutine& LuaCoroutine::operator=(LuaCoroutine&& instance)
+	{
+		LuaState::operator=(std::move(instance));
+
+		m_ref = instance.m_ref;
+		instance.m_ref = -1;
+
+		return *this;
+	}
+}

include/Nazara/Lua/LuaInstance.hpp

@@ -16,6 +16,7 @@ namespace Nz
 {
 	class NAZARA_LUA_API LuaInstance : public LuaState
 	{
+		friend class LuaCoroutine;
 		friend class LuaState;
 
 		public:

include/Nazara/Lua/LuaState.hpp

@@ -21,6 +21,7 @@ struct lua_State;
 
 namespace Nz
 {
+	class LuaCoroutine;
 	class LuaInstance;
 	class LuaState;
 
@@ -115,6 +116,7 @@ namespace Nz
 
 			void MoveTo(LuaState* instance, int n) const;
 
+			LuaCoroutine NewCoroutine();
 			bool NewMetatable(const char* str);
 			bool NewMetatable(const String& str);
 			bool Next(int index = -2) const;
@@ -158,10 +160,8 @@ namespace Nz
 			void SetMetatable(const char* tname) const;
 			void SetMetatable(const String& tname) const;
 			void SetMetatable(int index) const;
-			void SetMemoryLimit(std::size_t memoryLimit);
 			void SetTable(int index = -3) const;
 			void SetTableRaw(int index = -3) const;
-			void SetTimeLimit(UInt32 timeLimit);
 
 			bool ToBoolean(int index) const;
 			long long ToInteger(int index, bool* succeeded = nullptr) const;
@@ -176,18 +176,18 @@ namespace Nz
 			LuaState& operator=(LuaState&& instance) noexcept;
 
 			static int GetIndexOfUpValue(int upValue);
-			static LuaState GetState(lua_State* internalState);
+			static LuaInstance& GetInstance(lua_State* internalState);
+			static inline LuaState GetState(lua_State* internalState);
 
 		protected:
-			LuaState(LuaInstance* instance, lua_State* internalState);
+			LuaState(lua_State* internalState);
 
 			template<typename T> T CheckBounds(int index, long long value) const;
-			bool Run(int argCount, int resultCount);
+			virtual bool Run(int argCount, int resultCount);
 
 			static int ProxyFunc(lua_State* internalState);
 
 			String m_lastError;
-			LuaInstance* m_instance;
 			lua_State* m_state;
 	};
 }

include/Nazara/Lua/LuaState.inl

@@ -15,8 +15,7 @@
 
 namespace Nz
 {
-	inline LuaState::LuaState(LuaInstance* instance, lua_State* internalState) :
-	m_instance(instance),
+	inline LuaState::LuaState(lua_State* internalState) :
 	m_state(internalState)
 	{
 	}
@@ -785,4 +784,9 @@ namespace Nz
 
 		return static_cast<T>(value);
 	}
+
+	inline LuaState LuaState::GetState(lua_State* internalState)
+	{
+		return LuaState(internalState);
+	}
 }