add game&rawdata

gamedata/scripts/profiler.script

@@ -0,0 +1,218 @@
+local function printf				(fmt,...)
+	log								(string.format(fmt,...))
+end
+
+local								Counters = {}
+local								Names = {}
+local								timer = profile_timer()
+local								old_hook_func, old_hook_mask, old_hook_count
+local								started = false
+
+local function getname				(func)
+    local							n = Names[func]
+    local							loc = string.format("[%s]:%s", n.short_src, n.linedefined)
+    if "" ~= n.namewhat then
+        return						(string.format("%s (%s)", loc, n.name))
+    else
+        return						(string.format("%s", loc))
+    end
+end
+
+local function hook					(context,line_number)
+--	if nil ~= old_hook_func then
+--		if old_hook_func ~= hook then
+--			old_hook_func			(context,line_number)
+--		end
+--	end
+	
+	assert							("line" ~= context)
+
+	local							f = debug.getinfo(2, "f").func
+	local							caller = debug.getinfo(3, "f")
+	local							g = nil
+	if caller ~= nil then
+		g							= caller.func;
+	end
+
+--[[
+	local							f_name = nil
+	local							g_name = nil
+	local							old_g = Names[g]
+
+	if (Names[f] == nil) then
+		Names[f]					= debug.getinfo(2,"Sn")
+		f_name						= getname(f)
+		Names[f]					= nil
+	else
+		f_name						= getname(f)
+	end
+
+	if (g == nil) then
+		g_name						= ""
+	else
+		if (Names[g] == nil) then
+			Names[g]				= debug.getinfo(3,"Sn")
+			g_name					= "from [" .. getname(g) .. "]"
+			Names[g]				= nil
+		else
+			g_name					= "from [" .. getname(g) .. "]"
+		end
+	end
+
+	printf							("%6s : [%s]%s",context,f_name,g_name)
+]]
+	
+	if ("return" == context) then
+		local						object = Counters[f]
+		if (object ~= nil) then
+			object.timer:stop		()
+			object.child_timer:stop	()
+			if (g ~= nil) then
+				local				object = Counters[g]
+				if (object ~= nil) then
+					object.timer:start	()
+				end
+			end
+		end
+		
+		return
+	end
+
+	if ("tail return" == context) then
+		if (g ~= nil) then
+			local					object = Counters[g]
+			if (object ~= nil) then
+				object.timer:start	()
+			end
+		end
+		
+		return
+	end
+
+	assert							("call" == context)
+
+	if g ~= nil then
+		local						object = Counters[g]
+		if (object ~= nil) then
+			object.timer:stop		()
+		end
+	end
+	
+	if (Counters[f] == nil) then
+		Counters[f]					= {count=1,timer=profile_timer(),child_timer=profile_timer()}
+		local						object = Counters[f]
+		object.child_timer:start	()
+		object.timer:start			()
+		Names[f]					= debug.getinfo(2,"Sn")
+	else
+		local						object = Counters[f]
+		object.count				= object.count + 1
+		object.child_timer:start	()
+		object.timer:start			()
+	end
+end
+
+function setup_hook					(do_not_print_message)
+	if started == true then
+		return
+	end
+	
+	timer:start						()
+
+	old_hook_func, 
+	old_hook_mask, 
+	old_hook_count					= debug.gethook();
+	
+    debug.sethook					()
+	debug.sethook					(hook, "cr")
+    
+   	started							= true
+   	
+   	if (do_not_print_message ~= true) then
+   		printf						("profiler is activated")
+   	end
+end
+
+function clear_hook					()	
+   	if started == false then		
+		printf						("profiler hook wasn't setup!")
+   		return;
+   	end
+--	debug.sethook					(old_hook_func,old_hook_mask,old_hook_count)
+	debug.sethook					()
+	timer:stop						()
+	
+	started							= false
+end
+
+function stats						()
+	if started == false then
+		printf						("profiler hook wasn't setup!")
+		return
+	end
+
+	clear_hook						()
+	
+	printf							("profiler statistics")
+	
+	local							sort_stats = {}
+    for func, count in pairs(Counters) do
+		local						n = getname(func)
+		if (nil == sort_stats[n]) then
+			sort_stats[n]			= count
+		else 
+			sort_stats[n].count		= sort_stats[n].count		+ count.count
+			sort_stats[n].timer		= sort_stats[n].timer		+ count.timer
+			sort_stats[n].child_timer	= sort_stats[n].child_timer + count.child_timer
+		end
+    end
+
+    local								script = profile_timer()
+    local								count = 0
+    
+	local								out_stats = {}
+    for i,j in pairs(sort_stats) do
+		local							k = i
+		if k == "[[C]]:-1" then
+			k							= "#uncrecognized C/C++ stuff"
+		end
+		
+		table.insert					(out_stats,{name=k,count=j})
+		
+		script							= script + j.timer
+		count							= count + j.count
+    end
+
+	table.sort							(
+		out_stats,
+		function (a,b)
+			return						(a.count.timer < b.count.timer)
+		end
+	)
+	
+	printf								("total_time (pecent)  child_time [total_call_count][average_call_time]")
+    for n,c in pairs(out_stats) do
+		printf							("%9.2fms (%5.2f%%) %9.2fms [%8d][%9.2fmks] : %s",c.count.timer:time()/1000,c.count.timer:time()*100/script:time(),c.count.child_timer:time()/1000,c.count.count, c.count.timer:time()/(c.count.count),c.name)
+    end
+    
+	printf								("")
+	printf								(" pure time :   %%%%   :  children  :   count  : function name")
+	printf								("")
+	printf								("profile time : %8.2fms",timer:time()/1000)
+	printf								("script time  : %8.2fms (%5.2f%%)",script:time()/1000,script:time()*100/timer:time())
+	printf								("call count   : %8d",count)
+
+	setup_hook							(true)
+end
+
+function clear							()
+	if started == true then
+		clear_hook						()
+	end
+
+	Counters							= {}
+	Names								= {}
+	timer								= profile_timer()
+	
+	setup_hook							(true)
+end