cyberpresidentvanellope/CHOMPStation2
1
0
Fork 0
mirror of https://github.com/CHOMPStation2/CHOMPStation2.git synced 2025-12-10 10:12:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

Adds power net profiling verbs

Browse Source
This commit is contained in:
mwerezak
2014-07-27 19:37:42 -04:00
parent 83d54af746
commit cd1ed034a8
3 changed files with 69 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
baystation12.dme
View File

@@ -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"

1
code/modules/power/power.dm
View File

@@ -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

67
code/modules/power/profiling.dm Normal file
View File

@@ -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]]"