X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=src%2Fbeam_stats_processes.erl;h=607376c72b42f1b0fa23f81a8d9300a7c68cbe6c;hb=e99ea129941260681c5518ac37267e1f5b4e28c3;hp=2505178132606005c0178399fd1bd36f56c63806;hpb=fa175c943c5d08ca2fdf2156abc3023ccf8b9baa;p=beam_stats.git

diff --git a/src/beam_stats_processes.erl b/src/beam_stats_processes.erl
index 2505178..607376c 100644
--- a/src/beam_stats_processes.erl
+++ b/src/beam_stats_processes.erl
@@ -8,8 +8,8 @@
     ]).
 
 -export(
-    [ collect/0
-    , collect_and_print/0
+    [ collect/1
+    , collect_and_print/1
     , print/1
     ]).
 
@@ -18,10 +18,12 @@
 -type t() ::
     ?T{}.
 
--spec collect() ->
+-spec collect(beam_stats_delta:t()) ->
     t().
-collect() ->
-    Ps = [beam_stats_process:of_pid(P) || P <- erlang:processes()],
+collect(DeltasServer) ->
+    Pids = beam_stats_source:erlang_processes(),
+    PsOpts = [beam_stats_process:of_pid(P, DeltasServer) || P <- Pids],
+    Ps = [P || {some, P} <- PsOpts],
     ?T
     { individual_stats
         = Ps
@@ -32,7 +34,7 @@ collect() ->
     , count_garbage_collecting
         = length([P || P <- Ps, P#beam_stats_process.status =:= garbage_collecting])
     , count_registered
-        = length(registered())
+        = length(beam_stats_source:erlang_registered())
     , count_runnable
         = length([P || P <- Ps, P#beam_stats_process.status =:= runnable])
     , count_running
@@ -43,8 +45,10 @@ collect() ->
         = length([P || P <- Ps, P#beam_stats_process.status =:= waiting])
     }.
 
-collect_and_print() ->
-    print(collect()).
+-spec collect_and_print(beam_stats_delta:t()) ->
+    ok.
+collect_and_print(DeltasServer) ->
+    print(collect(DeltasServer)).
 
 -spec print(t()) ->
     ok.
@@ -63,7 +67,8 @@ print(
 ) ->
     PerProcessStatsSorted = lists:sort(
         fun (#beam_stats_process{memory=A}, #beam_stats_process{memory=B}) ->
-            % From lowest to highest:
+            % From lowest to highest, so that the largest appears the end of
+            % the output and be easier to see (without scrolling back):
             A < B
         end,
         PerProcessStats