tszz-server/meta/userapi/lua/sys/profiler.lua

local reports = {}

local LuaProfiler = {}

 function LuaProfiler.formatFuncInfo(funcinfo)
    local name = funcinfo.name or 'unknown'
    local line = funcinfo.linedefined or 0
    local source = funcinfo.short_src or 'unknown'
    local key = string.format("%s|%s|%s", name, source, line)
    local result = {
        name= name,
        line= line,
        source= source,
        key= key
    }
    return result
end

function LuaProfiler.tracingCall(funcinfo)
    local info = LuaProfiler.formatFuncInfo(funcinfo)
    local key = info.key
    if not reports[key] then
        reports[key] = {
            callcount = 0,
            totaltime = 0,
        }
    end
    local report = reports[key]
    report.calltime    = os.clock()
    report.callcount   = report.callcount + 1
    report.name = info.name
    report.source = info.source
    report.line = info.line
end

function LuaProfiler.tracingReturn(funcinfo)
    local info = LuaProfiler.formatFuncInfo(funcinfo)
    local key = info.key
    local stoptime = os.clock()
    local report = reports[key]
    if report and report.calltime and report.calltime > 0 then
        report.totaltime = report.totaltime + (stoptime-report.calltime)
        report.calltime = 0
    end
end

function LuaProfiler.tracingHandler(hooktype)
    local funcinfo = debug.getinfo(2, 'nS')
    if hooktype == "call" then
        LuaProfiler.tracingCall(funcinfo)
    elseif hooktype == "return" then
        LuaProfiler.tracingReturn(funcinfo)
    end
end


function luaprofilercollect()
    if table.isNullOrEmpty(reports) then
        return nil
    end
    local result = table.values(reports)
    --被获取后清空
    reports = {}
    return result
end


function luainit()
    local isDebug = getenv("debug")
    if isDebug then
        debug.sethook(LuaProfiler.tracingHandler, 'cr', 0)
    end
end