lua_pcall详解

用法

lua_pcall(lua_State *L,int nargs,int nresults,int errfunc)

• nargs 参数个数
• nresults 返回值个数
• errFunc 错误处理函数，0表示无，表示错误处理函数在栈中的索引

--test.lua
function test(x,y)
    return x + y
end
lua_loadfile(L,"test.lua");

--调用
lua_pushnumber(L,10);   --x 值入栈
lua_pushnumber(L,20);   --y 值入栈
lua_pcall(L,2,1,0);

如果没有错误此时栈顶的值为30

如果运行出错，lua_pcall会返回一个非零的结果,如果指定了错误处理函数会先调用错误处理函数，然后再将错误信息入栈，在将返回结果和错误信息入栈之前会先将函数和参数从栈中移除。错误处理函数必须在被调用函数和其他参数之前入栈

错误处理示例

int oldTop = lua_gettop(L) - nargs - 1;     --函数调用之前的栈顶索引
lua_rawgeti(L,LUA_REGISTRYINDEX,errfunc);   --获取错误堆栈处理函数
lua_insert(L,oldTop + 1);                   --设置错误函数栈索引,错误处理函数必须在被调用函数和其他参数之前入栈
if(lua_pcall(L,nargs,nresults,oldTop + 1) == 0)    -- 运行无误，函数和参数从栈中移除
{
    lua_remove(L,oldTop + 1);               --errorFunc 出栈
}
else                                        --运行出错,先调用错误处理函数，然后再将错误处理信息入栈
{
    lua_remove(L,oldTop + 1);               --errorFunc 出栈
    lua_pop(L,1);                           --抛出异常
}

//设置错误堆栈处理函数
lua_pushstdcallcfunction(L,errorFunc_traceback);
errorfunc = luaL_ref(L,LUA_REGISTRYINDEX)

public int errorFunc_traceback(lua_State *L)
{
    if(!lua_isstring(L,1))                      --错误信息不是string类型
        return 1;                               -- 不做处理
    lua_getfield(L,LUA_GLOBALSINDEX,"debug")    --获取debug函数，压入栈中
    if(lua_istable(L,-1))
    {
        lua_pop(L,1);
        return 1;
    }
    lua_getfield(L,-1,"traceback");             --获取debug.tracenack函数,压入栈中
    if(lua_isfunction(L,-1))
    {
        lua_pop(L,2);
        return 1;
    }
    lua_pushvalue(L,1);                         -- 传递错误信息
    lua_pushinteger(L,2);                       -- skip this function and traceback
    lua_call(L,2,1);                            -- 调用debug.traceback
    return 1;
}