为什么在lua中运行'setfallback'会出错

Question

我是Lua Programming的新手并且正在阅读本文档：https://www.lua.org/spe.html。有人可以告诉我为什么在运行以下代码片段时出现以下错误？：

  n=0                            -- counter of temporary variables
  T={}                           -- table of temporary variables

  function arithfb(a,b,op)
   local i=op .. "(" .. a.name .. "," .. b.name .. ")"
   if T[i]==nil then             -- expression not seen yet
     n=n+1
     T[i]=create("t"..n)         -- save result in cache
     print(T[i].name ..'='..i)
   end
   return T[i]
  end

  setfallback("arith",arithfb)   -- set arithmetic fallback

  function create(v)             -- create symbolic variable
   local t={name=v}
   setglobal(v,t)
   return t
  end

  create("a") create("b") create("c") create("z")

  while 1 do                     -- read expressions
   local s=read()
   if (s==nil) then exit() end
   dostring("E="..s)             -- execute fake assignment
   print(s.."="..E.name.."\n")
  end

lua：parser.lua：14：尝试调用一个nil值（全局'setfallback'）堆栈追溯：parser.lua：14：在主块[C]：in？

Answer 1

您已经设法找到一个非常旧的Lua规范，可能是Lua 2.在介绍metatable之前，您必须为特定操作分配全局回退函数，但现在metatables允许您为执行的操作定义本地回退在混凝土桌上，通过元表。

如果您不确定正在使用的解释器版本，您应该阅读Lua 5.3的当前文档或检查_VERSION的值。

Answer 2

该代码适用于Lua 2.1，如该文件中所述。它使用后备，后来被metatables取代。

这是在Lua 5.1+中运行的代码的化身：

local MT={}
local V={}
local N=0

local function var(name)
 local t={name=name}
 V[name]=t
 _G[name]=t
 return setmetatable(t,MT)
end

local function S(a)
 if type(a)=="table" then return a.name else return a or 0 end
end

local function arithfb(a,b,op)
 local i=op .. "(" .. S(a) .. "," .. S(b) .. ")"
 if V[i]==nil then N=N+1; V[i]=var("t"..N,N); print(V[i].name ..'='..i) end
 return V[i]
end

local t={"add", "sub", "mul", "div", "unm", "pow"}
for i,v in next,t do
 MT["__"..v]=function (a,b) return arithfb(a,b,v) end
end

local function vars(s)
 for x in string.gmatch(s,"(%w+)") do var(x) end
end

vars"a,b,c"
return (a*a+b*b)*(a*a-b*b)/(a*a+b*b+c)+(a*(b*b)*c)