LuPPC/src/lua/core/debug.lua

26 lines
705 B
Lua
Raw Normal View History

2016-02-10 03:40:51 +11:00
local d = {}
local function getCallerInfo()
local caller = debug.getinfo(3)
return caller.short_src .. ":".. caller.currentline
end
function d.hook()
local sb = modules.sandbox
local otb = sb.debug.traceback
function sb.debug.traceback(m, l, ...)
local s = otb(m, l and (type(l) == "number" and (l + 1) or l) or 2, ...)
native.log("Native traceback requested for:")
native.log(s)
return s --TODO: check if there actually is only one return value
end
local oload = sb.load
function sb.load(ld, source, mode, env)
native.log("load from " .. getCallerInfo() .. ", loading \"" .. (source or type(ld)) .. "\"")
return oload(ld, source, mode, env)
end
end
return d