aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAnders Svensson <[email protected]>2014-07-21 09:12:47 +0200
committerAnders Svensson <[email protected]>2014-07-21 10:37:30 +0200
commit0631af51f406139302f32bae84be5788b26c25d2 (patch)
treef855167a2a4233da422b7c0cd0acdb7838628934
parentf3d0347a6707149cc9e016c85f54142fe99e25d1 (diff)
downloadotp-0631af51f406139302f32bae84be5788b26c25d2.tar.gz
otp-0631af51f406139302f32bae84be5788b26c25d2.tar.bz2
otp-0631af51f406139302f32bae84be5788b26c25d2.zip
Add diameter_dbg:sizes/0
To return sizes of named ets tables.
-rw-r--r--lib/diameter/src/info/diameter_dbg.erl12
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/diameter/src/info/diameter_dbg.erl b/lib/diameter/src/info/diameter_dbg.erl
index 68b3d0f973..b536e5e80b 100644
--- a/lib/diameter/src/info/diameter_dbg.erl
+++ b/lib/diameter/src/info/diameter_dbg.erl
@@ -32,7 +32,8 @@
compiled/0,
procs/0,
latest/0,
- nl/0]).
+ nl/0,
+ sizes/0]).
-export([diameter_config/0,
diameter_peer/0,
@@ -69,6 +70,15 @@
-define(VALUES(Rec), tl(tuple_to_list(Rec))).
%% ----------------------------------------------------------
+%% # sizes/0
+%%
+%% Return sizes of named tables.
+%% ----------------------------------------------------------
+
+sizes() ->
+ [{T, ets:info(T, size)} || T <- ?LOCAL, T /= diameter_peer].
+
+%% ----------------------------------------------------------
%% # table/1
%%
%% Pretty-print a diameter table. Returns the number of records