c – 从C API调用的Lua脚本的执行时间限制

int lua_sethook (lua_State *L,lua_Hook f,int mask,int count);

这也可以从Lua使用：

debug.sethook(function() print("That's enough for today"); os.exit(0); end,"",10000)
for i=1,10000 do end

如果您使用http://lua-users.org/wiki/SandBoxes中的技术,那么您可以使用sethook()和完全从Lua完成的朋友设置安全的执行环境,然后在执行用户脚本时切换到沙箱模式.我在这里尝试过,只是为了开始：

-- set an execution quota 
local function set_quota(secs)
 local st=os.clock()
 function check() 
  if os.clock()-st > secs then 
    debug.sethook() -- disable hooks
    error("quota exceeded")
  end
 end
 debug.sethook(check,100000);
end

-- these are the global objects,the user can use:
local env = {print=print}

-- The user code is allowed to run for 5 seconds.
set_quota(5)

-- run code under environment:
local function run(untrusted_code)
  local untrusted_function,message = loadstring(untrusted_code)
  if not untrusted_function then return nil,message end
  setfenv(untrusted_function,env)
  return pcall(untrusted_function)
end

-- here is the user code:
local userscript=[[
function fib(n) 
 if n<2 then return n
 else return fib(n-2)+fib(n-1)
 end
end
for n=1,42 do print(n,fib(n)) end
]]
-- call it:
local r,m=run(userscript)
print(r,m)

这应该打印fib()的值5秒,然后显示错误.