From cd1ed034a8617a789cc9c1be9f77f44287b57123 Mon Sep 17 00:00:00 2001
From: mwerezak <mwerezak@gmail.com>
Date: Sun, 27 Jul 2014 19:37:42 -0400
Subject: [PATCH] Adds power net profiling verbs

---
 baystation12.dme                |  1 +
 code/modules/power/power.dm     |  1 +
 code/modules/power/profiling.dm | 67 +++++++++++++++++++++++++++++++++
 3 files changed, 69 insertions(+)
 create mode 100644 code/modules/power/profiling.dm

diff --git a/baystation12.dme b/baystation12.dme
index ca926ca7d9..480af03551 100644
--- a/baystation12.dme
+++ b/baystation12.dme
@@ -1125,6 +1125,7 @@
 #include "code\modules\power\lighting.dm"
 #include "code\modules\power\port_gen.dm"
 #include "code\modules\power\power.dm"
+#include "code\modules\power\profiling.dm"
 #include "code\modules\power\smes.dm"
 #include "code\modules\power\solar.dm"
 #include "code\modules\power\switch.dm"
diff --git a/code/modules/power/power.dm b/code/modules/power/power.dm
index 5512f1ae36..61e09a000d 100644
--- a/code/modules/power/power.dm
+++ b/code/modules/power/power.dm
@@ -64,6 +64,7 @@
 		chan = power_channel
 	A.master.use_power(amount, chan)
 	if(!autocalled)
+		log_power_update_request(A.master, src)
 		A.master.powerupdate = 2	// Decremented by 2 each GC tick, since it's not auto power change we're going to update power twice.
 
 /obj/machinery/proc/power_change()		// called whenever the power settings of the containing area change
diff --git a/code/modules/power/profiling.dm b/code/modules/power/profiling.dm
new file mode 100644
index 0000000000..fb8df27169
--- /dev/null
+++ b/code/modules/power/profiling.dm
@@ -0,0 +1,67 @@
+datum
+
+var/global/enable_power_update_profiling = 0
+
+var/global/power_profiled_time = 0
+var/global/power_last_profile_time = 0
+var/global/list/power_update_requests_by_machine = list()
+var/global/list/power_update_requests_by_area = list()
+
+/proc/log_power_update_request(area/A, obj/machinery/M)
+	if (!enable_power_update_profiling)
+		return
+
+	var/machine_type = "[M.type]"
+	if (machine_type in power_update_requests_by_machine)
+		power_update_requests_by_machine[machine_type] += 1
+	else
+		power_update_requests_by_machine[machine_type] = 1
+	
+	if (A.name in power_update_requests_by_area)
+		power_update_requests_by_area[A.name] += 1
+	else
+		power_update_requests_by_area[A.name] = 1
+	
+	power_profiled_time += (world.time - power_last_profile_time)
+	power_last_profile_time = world.time
+
+/client/verb/toggle_power_update_profiling()
+	set name = "Toggle Area Power Update Profiling"
+	set desc = "Toggles the recording of area power update requests."
+	set category = "Debug"
+	if(!check_rights(R_DEBUG))	return
+
+	if(enable_power_update_profiling)
+		enable_power_update_profiling = 0
+		
+		usr << "Area power update profiling disabled."
+		message_admins("[key_name(src)] toggled area power update profiling off.")
+		log_admin("[key_name(src)] toggled area power update profiling off.")
+	else
+		enable_power_update_profiling = 1
+		power_last_profile_time = world.time
+		
+		usr << "Area power update profiling enabled."
+		message_admins("[key_name(src)] toggled area power update profiling on.")
+		log_admin("[key_name(src)] toggled area power update profiling on.")
+	
+	feedback_add_details("admin_verb","APUP") //If you are copy-pasting this, ensure the 2nd parameter is unique to the new proc!
+
+/client/verb/view_power_update_stats_machines()
+	set name = "View Area Power Update Statistics By Machines"
+	set desc = "See which types of machines are triggering area power updates."
+	set category = "Debug"
+	
+	usr << "Total profiling time: [power_profiled_time] ticks"
+	for (var/M in power_update_requests_by_machine)
+		usr << "[M] = [power_update_requests_by_machine[M]]"
+
+/client/verb/view_power_update_stats_area()
+	set name = "View Area Power Update Statistics By Area"
+	set desc = "See which areas are having area power updates."
+	set category = "Debug"
+	
+	usr << "Total profiling time: [power_profiled_time] ticks"
+	usr << "Total profiling time: [power_profiled_time] ticks"
+	for (var/A in power_update_requests_by_area)
+		usr << "[A] = [power_update_requests_by_area[A]]"
\ No newline at end of file