diff options
| author | Anders Svensson <anders@erlang.org> | 2014-07-21 09:12:47 +0200 |
|---|---|---|
| committer | Anders Svensson <anders@erlang.org> | 2014-07-21 10:37:30 +0200 |
| commit | 0631af51f406139302f32bae84be5788b26c25d2 (patch) | |
| tree | f855167a2a4233da422b7c0cd0acdb7838628934 | |
| parent | f3d0347a6707149cc9e016c85f54142fe99e25d1 (diff) | |
| download | erlang-0631af51f406139302f32bae84be5788b26c25d2.tar.gz | |
Add diameter_dbg:sizes/0
To return sizes of named ets tables.
| -rw-r--r-- | lib/diameter/src/info/diameter_dbg.erl | 12 |
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 |