mirror of
https://github.com/EQEmu/Server.git
synced 2025-12-14 03:11:28 +00:00
66 lines
2.1 KiB
C++
66 lines
2.1 KiB
C++
// 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
|
|
}
|
|
|
|
}}
|