能否从xpcall的消息处理器中获取error传入的level参数？

当使用xpcall搭配消息处理器时，error(msg, level)传入的level参数会被Lua内部的luaB_error函数处理后从栈中移除，导致消息处理器无法直接获取该参数。以下是几种可行的恢复方案：

方案1：自定义error包装函数 #

自己封装error函数，将错误信息和level参数打包成table抛出，让消息处理器可以直接解析：

-- 保存原始error函数
local original_error = error

-- 自定义error，打包错误信息与level参数
function error(msg, level)
    level = level or 1
    -- 抛出包含原始信息和level的table，level+1是为了让错误定位指向调用自定义error的位置
    original_error({msg = msg, level = level}, level + 1)
end

-- 消息处理器
local function err_handler(err)
    if type(err) == "table" then
        -- 获取到level参数
        local target_level = err.level
        print("错误信息:", err.msg)
        print("原始level参数:", target_level)
        
        -- 这里可以执行你需要的调试操作
        -- lua_Debug ar;
        -- lua_getstack(L, target_level, &ar);
        -- lua_getinfo(L, "nSl", &ar);
        
        -- 还原为原始错误字符串返回，不影响上层错误处理
        return err.msg
    else
        -- 兼容未使用自定义error的场景
        return err
    end
end

-- 调用示例
xpcall(doAThing, err_handler)

方案2：修改Lua源码（仅必要时使用） #

如果有权限修改Lua的C源码，可以修改luaB_error函数，将level参数附加到错误对象中。以Lua 5.3为例，修改src/lbaselib.c中的luaB_error函数：

static int luaB_error (lua_State *L) {
  int level = luaL_optint(L, 2, 1);
  lua_settop(L, 1);
  if (lua_type(L, 1) == LUA_TSTRING) {
    luaL_where(L, level);
    lua_concat(L, 2);
  }
  // 新增：将level与错误信息打包为table
  lua_pushinteger(L, level);
  lua_createtable(L, 0, 2);
  lua_pushstring(L, "msg");
  lua_pushvalue(L, 1);
  lua_settable(L, -3);
  lua_pushstring(L, "level");
  lua_pushvalue(L, 2);
  lua_settable(L, -3);
  lua_replace(L, 1); // 用table替换原始错误字符串
  return lua_error(L);
}

修改后重新编译Lua，消息处理器就能直接获取包含level的错误table，但这种方法会全局改变error函数的行为，需谨慎评估影响。

方案3：利用调试钩子捕获level参数 #

通过调试钩子在error函数被调用时记录传入的level参数，无需修改源码或封装函数：

local captured_level = nil

-- 设置调用钩子，捕获error函数的参数
debug.sethook(function(event)
    if event == "call" then
        local caller_info = debug.getinfo(2, "n")
        if caller_info and caller_info.name == "error" then
            -- 获取error的第二个参数（level）
            captured_level = debug.getlocal(2, 2) or 1
        end
    end
end, "c")

local function err_handler(err)
    if captured_level then
        print("捕获到的level参数:", captured_level)
        -- 执行调试操作
        -- lua_Debug ar;
        -- lua_getstack(L, captured_level, &ar);
        -- lua_getinfo(L, "nSl", &ar);
        captured_level = nil -- 重置，避免干扰后续调用
    end
    return err
end

xpcall(doAThing, err_handler)

注意：调试钩子会带来一定性能开销，且在多线程Lua环境中需注意变量竞争问题（单线程环境无此顾虑）。

内容的提问来源于stack exchange，提问作者RobertAtOT