From 0631af51f406139302f32bae84be5788b26c25d2 Mon Sep 17 00:00:00 2001
From: Anders Svensson <anders@erlang.org>
Date: Mon, 21 Jul 2014 09:12:47 +0200
Subject: Add diameter_dbg:sizes/0

To return sizes of named ets tables.
---
 lib/diameter/src/info/diameter_dbg.erl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'lib/diameter/src')

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,
@@ -68,6 +69,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
 %%
-- 
cgit v1.2.3