EQStream abstraction layer

libs/luabind/src/pcall.cpp

@@ -0,0 +1,65 @@
+// Copyright (c) 2003 Daniel Wallin and Arvid Norberg
+
+// 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.
+
+#define LUABIND_BUILDING
+
+#include <luabind/detail/pcall.hpp>
+#include <luabind/error.hpp>
+#include <luabind/lua_include.hpp>
+
+namespace luabind { namespace detail
+{
+	int pcall(lua_State *L, int nargs, int nresults)
+	{
+		pcall_callback_fun e = get_pcall_callback();
+		int en = 0;
+		if ( e )
+		{
+			int base = lua_gettop(L) - nargs;
+			lua_pushcfunction(L, e);
+			lua_insert(L, base);  // push pcall_callback under chunk and args
+			en = base;
+  		}
+		int result = lua_pcall(L, nargs, nresults, en);
+		if ( en )
+			lua_remove(L, en);  // remove pcall_callback
+		return result;
+	}
+
+	int resume_impl(lua_State *L, int nargs, int)
+	{
+#if LUA_VERSION_NUM >= 502
+    int res = lua_resume(L, NULL, nargs);
+#else
+    int res = lua_resume(L, nargs);
+#endif
+
+#if LUA_VERSION_NUM >= 501
+		// Lua 5.1 added  LUA_YIELD as a possible return value,
+		// this was causing crashes, because the caller expects 0 on success.
+		return (res == LUA_YIELD) ? 0 : res;
+#else
+		return res;
+#endif
+	}
+
+}}