mirror of
https://github.com/FlightControl-Master/MOOSE.git
synced 2025-08-15 10:47:21 +00:00
296 lines
8.2 KiB
Lua
296 lines
8.2 KiB
Lua
--- **Utils** - Lua Profiler.
|
|
--
|
|
--
|
|
--
|
|
-- ===
|
|
--
|
|
-- ### Author: **TAW CougarNL**, *funkyfranky*
|
|
--
|
|
-- @module Utilities.PROFILER
|
|
-- @image MOOSE.JPG
|
|
|
|
|
|
--- PROFILER class.
|
|
-- @type PROFILER
|
|
-- @field #string ClassName Name of the class.
|
|
-- @field #table Counters Counters.
|
|
-- @field #table dInfo Info.
|
|
-- @field #table fTime Function time.
|
|
-- @field #table fTimeTotal Total function time.
|
|
-- @field #table eventhandler Event handler to get mission end event.
|
|
|
|
--- *The emperor counsels simplicity. First principles. Of each particular thing, ask: What is it in itself, in its own constitution? What is its causal nature? *
|
|
--
|
|
-- ===
|
|
--
|
|
-- 
|
|
--
|
|
-- # The PROFILER Concept
|
|
--
|
|
-- Profile your lua code.
|
|
--
|
|
-- # Prerequisites
|
|
--
|
|
-- The modules **os** and **lfs** need to be desanizied.
|
|
--
|
|
--
|
|
-- # Start
|
|
--
|
|
-- The profiler can simply be started by
|
|
--
|
|
-- PROFILER.Start()
|
|
--
|
|
-- The start can be delayed by specifying a the amount of seconds as argument, e.g. PROFILER.Start(60) to start profiling in 60 seconds.
|
|
--
|
|
-- # Stop
|
|
--
|
|
-- The profiler automatically stops when the mission ends. But it can be stopped any time by calling
|
|
--
|
|
-- PROFILER.Stop()
|
|
--
|
|
-- The stop call can be delayed by specifying the delay in seconds as optional argument, e.g. PROFILER.Stop(120) to stop it in 120 seconds.
|
|
--
|
|
-- # Output
|
|
--
|
|
-- The profiler output is written to a file in your DCS home folder
|
|
--
|
|
-- X:\User\<Your User Name>\Saved Games\DCS OpenBeta\Logs
|
|
--
|
|
-- ## Sort By
|
|
--
|
|
-- By default the output is sorted with respect to the total time a function used.
|
|
--
|
|
-- The output can also be sorted with respect to the number of times the function was called by setting
|
|
--
|
|
-- PROFILER.sortBy=1
|
|
--
|
|
-- Lua profiler.
|
|
-- @field #PROFILER
|
|
PROFILER = {
|
|
ClassName = "PROFILER",
|
|
Counters = {},
|
|
dInfo = {},
|
|
fTime = {},
|
|
fTimeTotal = {},
|
|
eventHandler = {},
|
|
startTime = nil,
|
|
endTime = nil,
|
|
runTime = nil,
|
|
sortBy = 1,
|
|
logUnknown = false,
|
|
lowCpsThres = 5,
|
|
}
|
|
|
|
PROFILER.sortBy=1 -- Sort reports by 0=Count, 1=Total time by function
|
|
PROFILER.logUnknown=false -- Log unknown functions
|
|
PROFILER.lowCpsThres=5 -- Skip results with less than X calls per second
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Start/Stop Profiler
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Start profiler.
|
|
function PROFILER.Start()
|
|
|
|
PROFILER.startTime=timer.getTime()
|
|
PROFILER.endTime=0
|
|
PROFILER.runTime=0
|
|
|
|
-- Set hook.
|
|
debug.sethook(PROFILER.hook, "cr")
|
|
|
|
-- Add event handler.
|
|
world.addEventHandler(PROFILER.eventHandler)
|
|
|
|
-- Message to screen.
|
|
local function showProfilerRunning()
|
|
timer.scheduleFunction(showProfilerRunning, nil, timer.getTime()+600)
|
|
trigger.action.outText("### Profiler running ###", 600)
|
|
end
|
|
|
|
-- Message.
|
|
showProfilerRunning()
|
|
|
|
end
|
|
|
|
--- Stop profiler.
|
|
-- @param #number delay Delay before stop in seconds.
|
|
function PROFILER.Stop(delay)
|
|
|
|
if delay and delay>0 then
|
|
|
|
BASE:ScheduleOnce(delay, PROFILER.Stop)
|
|
|
|
else
|
|
|
|
-- Remove hook.
|
|
debug.sethook()
|
|
|
|
-- Set end time.
|
|
PROFILER.endTime=timer.getTime()
|
|
|
|
-- Run time.
|
|
PROFILER.runTime=PROFILER.endTime-PROFILER.startTime
|
|
|
|
-- Show info.
|
|
PROFILER.showInfo()
|
|
|
|
end
|
|
|
|
end
|
|
|
|
--- Event handler.
|
|
function PROFILER.eventHandler:onEvent(event)
|
|
if event.id==world.event.S_EVENT_MISSION_END then
|
|
PROFILER.Stop()
|
|
end
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Hook
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Debug hook.
|
|
-- @param #table event Event.
|
|
function PROFILER.hook(event)
|
|
|
|
local f=debug.getinfo(2, "f").func
|
|
|
|
if event=='call' then
|
|
|
|
if PROFILER.Counters[f]==nil then
|
|
|
|
PROFILER.Counters[f]=1
|
|
PROFILER.dInfo[f]=debug.getinfo(2,"Sn")
|
|
|
|
if PROFILER.fTimeTotal[f]==nil then
|
|
PROFILER.fTimeTotal[f]=0
|
|
end
|
|
|
|
else
|
|
PROFILER.Counters[f]=PROFILER.Counters[f]+1
|
|
end
|
|
|
|
if PROFILER.fTime[f]==nil then
|
|
PROFILER.fTime[f]=os.clock()
|
|
end
|
|
|
|
elseif (event=='return') then
|
|
|
|
if PROFILER.fTime[f]~=nil then
|
|
PROFILER.fTimeTotal[f]=PROFILER.fTimeTotal[f]+(os.clock()-PROFILER.fTime[f])
|
|
PROFILER.fTime[f]=nil
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
-- Data
|
|
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
--- Get data.
|
|
-- @param #function func Function.
|
|
-- @param #boolean detailed Not used.
|
|
function PROFILER.getData(func, detailed)
|
|
local n=PROFILER.dInfo[func]
|
|
if n.what=="C" then
|
|
return n.name, "", "", PROFILER.fTimeTotal[func]
|
|
end
|
|
return n.name, n.short_src, n.linedefined, PROFILER.fTimeTotal[func]
|
|
end
|
|
|
|
--- Write text to log file.
|
|
-- @param #function f The file.
|
|
-- @param #string txt The text.
|
|
function PROFILER._flog(f, txt)
|
|
f:write(txt.."\r\n")
|
|
env.info("Profiler Analysis")
|
|
env.info(txt)
|
|
end
|
|
|
|
--- Show table.
|
|
-- @param #table t Data table.
|
|
-- @param #function f The file.
|
|
-- @param #boolean detailed Show detailed info.
|
|
function PROFILER.showTable(t, f, detailed)
|
|
for i=1, #t do
|
|
|
|
local cps=t[i].count/PROFILER.runTime
|
|
|
|
if (cps>=PROFILER.lowCpsThres) then
|
|
|
|
if (detailed==false) then
|
|
PROFILER._flog(f,"- Function: "..t[i].func..": "..tostring(t[i].count).." ("..string.format("%.01f",cps).."/sec) Time: "..string.format("%g",t[i].tm).." seconds")
|
|
else
|
|
PROFILER._flog(f,"- Function: "..t[i].func..": "..tostring(t[i].count).." ("..string.format("%.01f",cps).."/sec) "..tostring(t[i].src)..":"..tostring(t[i].line).." Time: "..string.format("%g",t[i].tm).." seconds")
|
|
end
|
|
|
|
end
|
|
end
|
|
end
|
|
|
|
--- Write info to output file.
|
|
function PROFILER.showInfo()
|
|
|
|
-- Output file.
|
|
local file=lfs.writedir()..[[Logs\]].."_LuaProfiler.txt"
|
|
local f=io.open(file, 'w')
|
|
|
|
-- Gather data.
|
|
local t={}
|
|
for func, count in pairs(PROFILER.Counters) do
|
|
|
|
local s,src,line,tm=PROFILER.getData(func, false)
|
|
|
|
if PROFILER.logUnknown==true then
|
|
if s==nil then s="<Unknown>" end
|
|
end
|
|
|
|
if (s~=nil) then
|
|
t[#t+1]=
|
|
{ func=s,
|
|
src=src,
|
|
line=line,
|
|
count=count,
|
|
tm=tm,
|
|
}
|
|
end
|
|
|
|
end
|
|
|
|
-- Sort result.
|
|
if PROFILER.sortBy==0 then
|
|
table.sort(t, function(a,b) return a.count>b.count end )
|
|
end
|
|
if (PROFILER.sortBy==1) then
|
|
table.sort(t, function(a,b) return a.tm>b.tm end )
|
|
end
|
|
|
|
-- Write data.
|
|
PROFILER._flog(f,"")
|
|
PROFILER._flog(f,"#### #### #### #### #### ##### #### #### #### #### ####")
|
|
PROFILER._flog(f,"#### #### #### ---- Profiler Report ---- #### #### ####")
|
|
PROFILER._flog(f,"#### Profiler Runtime: "..string.format("%.01f",PROFILER.runTime/60).." minutes")
|
|
PROFILER._flog(f,"#### #### #### #### #### ##### #### #### #### #### ####")
|
|
PROFILER._flog(f,"")
|
|
PROFILER.showTable(t, f, false)
|
|
|
|
-- Detailed data.
|
|
PROFILER._flog(f,"")
|
|
PROFILER._flog(f,"#### #### #### #### #### #### #### #### #### #### #### #### ####")
|
|
PROFILER._flog(f,"#### #### #### ---- Profiler Detailed Report ---- #### #### ####")
|
|
PROFILER._flog(f,"#### #### #### #### #### #### #### #### #### #### #### #### ####")
|
|
PROFILER._flog(f,"")
|
|
PROFILER.showTable(t, f, true)
|
|
|
|
-- Closing.
|
|
PROFILER._flog(f,"")
|
|
PROFILER._flog(f,"#### #### #### #### #### #### #### #### #### #### #### #### ####")
|
|
|
|
-- Close file.
|
|
f:close()
|
|
end
|
|
|