Add system_stats: a small module that collects beam statistics

meeusr · Aug 26, 2012 · aa49670 · aa49670
1 parent 6b1c2f0
commit aa49670
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/system_stats.erl b/system_stats.erl
@@ -0,0 +1,14 @@
+-module(system_stats).
+-export([get_total/1,get_all/0]).
+
+get_total(Type) ->
+    List = [ element(2,lists:keyfind(Type,1,erlang:process_info(F))) || F <- erlang:processes()],
+    lists:foldl(fun(X, Sum) -> X + Sum end, 0, List).
+
+get_all() ->
+    [{context_switches,element(1,erlang:statistics(context_switches))},
+     {run_queue,erlang:statistics(run_queue)},
+     {process_count,erlang:system_info(process_count)},
+     {exact_reductions,element(1,erlang:statistics(exact_reductions))} |
+     [{Atom,get_total(Atom)} || Atom <- [heap_size,stack_size,message_queue_len,reductions]]
+    ].