2010-10-24 23:17:33 +02:00
--[====[
-- Crazy profiling madness
-- sed -i s/{/QH_RegisterTable{/g `ls | grep lua | grep -v static`
-- This is grimness so we can just apply the filter indiscriminately
local QHRT
QH_RegisterTable = function ( ... ) return QHRT ( ... ) end
local QH_RegisterTable = function ( ... ) return ... end
QHT_Types = setmetatable ( { } , { __mode = " k " } )
QHRT = function ( tab , override , tag )
if not override then --[[ assert(not QHT_Types[tab]) ]] end
QHT_Types [ tab ] = tag or string.gsub ( debugstack ( 2 , 1 , 1 ) , " \n .* " , " " )
return tab
end
function QH_CTprint ( sum )
local typ = { }
for k , v in pairs ( sum ) do
table.insert ( typ , { k = k , v = v } )
end
table.sort ( typ , function ( a , b ) return a.v < b.v end )
for _ , v in pairs ( typ ) do
if v.v > 0 then
print ( v.v , v.k )
end
end
end
function QH_CTacu ( )
local sum = { }
for k , v in pairs ( QHT_Types ) do
sum [ v ] = ( sum [ v ] or 0 ) + 1
end
return sum
end
function QH_CheckTables ( )
local before = QH_CTacu ( )
collectgarbage ( " collect " )
local after = QH_CTacu ( )
local sum = { }
for k , v in pairs ( before ) do sum [ k ] = ( before [ k ] or 0 ) - ( after [ k ] or 0 ) end
for k , v in pairs ( after ) do sum [ k ] = ( before [ k ] or 0 ) - ( after [ k ] or 0 ) end
QH_CTprint ( sum )
end
function QH_PrintTables ( )
QH_CTprint ( QH_CTacu ( ) )
end
] ==== ]
QuestHelper_File = { }
QuestHelper_Loadtime = { }
2010-11-08 14:28:59 +01:00
QuestHelper_File [ " bst_pre.lua " ] = " 4.0.1.$svnversion$ "
2010-10-24 23:17:33 +02:00
QuestHelper_Loadtime [ " bst_pre.lua " ] = GetTime ( )