Lua 和序列化闭包

我正在尝试序列化和反序列化 Lua 闭包

我的基本理解是下面的工厂应该生成闭包（并且Lua在函数和闭包之间没有太多区别——即没有类型“闭包”）

> function ffactory(x) return function() return x end end
> f1 = ffactory(5)
> print(f1())
5                        <-- so far so good
> s = string.dump(f1)
> f2 = load(s)
> print(f2())
table: 00000000002F7BA0  <-- expected the integer 5
> print(f2()==_ENV)
true                     <-- definitely didn't expect this!

我预计整数 5 会被序列化f1。或者如果string.dump无法处理关闭，我预计会出现错误。

通过轻微的改变，我得到了完全不同的结果（但更多的是我的预期）。看起来像f2确实是一个闭包，但 string.dump 在序列化时并未尝试序列化 x 的值。

The docs http://www.lua.org/manual/5.2/manual.html#pdf-string.dump对我帮助不大。 （“……具有新的上值”是什么意思？）

> function ffactory(x) return function() return x+1 end end
> f1 = ffactory(5)
> print(f1())
6                        <-- good
> s = string.dump(f1)
> f2 = load(s)
> print(f2())
stdin:1: attempt to perform arithmetic on upvalue 'x' (a table value)
stack traceback:
        stdin:1: in function 'f2'
        stdin:1: in main chunk
        [C]: in ?

您可以执行类似的操作来保存/恢复这些上值（请注意，它不处理不同函数之间共享的上值）：

local function capture(func)
  local vars = {}
  local i = 1
  while true do
    local name, value = debug.getupvalue(func, i)
    if not name then break end
    vars[i] = value
    i = i + 1
  end
  return vars
end

local function restore(func, vars)
  for i, value in ipairs(vars) do
    debug.setupvalue(func, i, value)
  end
end  

function ffactory(x) return function() return x end end
local f1 = ffactory(5)
local f2 = (loadstring or load)(string.dump(f1))
restore(f2, capture(f1)) --<-- this restored upvalues from f1 for f2

print(f1(), f2())

这在 Lua 5.1 和 Lua 5.2 下都有效。

如果您进行更改，请注意一个有趣的结果ffactory稍微（添加math.abs(0);任何以任何方式使用全局表的东西都可以）：

function ffactory(x) return function() math.abs(0) return x end end

现在，如果你恢复 upvalues，你会得到相同的结果，但如果你不恢复 upvalues，你会在 Lua 5.2 下得到一个运行时错误：

lua.exe: upvalues.lua:19: attempt to index upvalue '_ENV' (a nil value)
stack traceback:
upvalues.lua:19: in function 'f2'
upvalues.lua:24: in main chunk
[C]: in ?