[beam_stats.git] / src / beam_stats_ets_table.erl

-module(beam_stats_ets_table).

-include("include/beam_stats_ets_table.hrl").

-export_type(
    [ t/0
    , id/0
    ]).

-export(
    [ of_id/1
    , id_to_bin/1
    ]).

-type id() ::
      atom()
    | ets:tid()
    % integer() is just a workaround, to let us mock ets:tid(), which is
    % opaque, but represented as an integer, without Dialyzer complaining.
    | integer()
    .

-type t() ::
    #?MODULE{}.

-spec of_id(id()) ->
    t().
of_id(ID) ->
    WordSize      = erlang:system_info(wordsize),
    NumberOfWords = ets:info(ID, memory),
    NumberOfBytes = NumberOfWords * WordSize,
    #?MODULE
    { id     = ID
    , name   = ets:info(ID, name)
    , size   = ets:info(ID, size)
    , memory = NumberOfBytes
    }.

-spec id_to_bin(atom() | ets:tid()) ->
    binary().
id_to_bin(ID) when is_atom(ID) ->
    atom_to_binary(ID, latin1);
id_to_bin(ID) when is_integer(ID) ->
    integer_to_binary(ID).
Commit	Line	Data
	1	-module(beam_stats_ets_table).
	2
	3	-include("include/beam_stats_ets_table.hrl").
	4
	5	-export_type(
	6	[ t/0
	7	, id/0
	8	]).
	9
	10	-export(
	11	[ of_id/1
	12	, id_to_bin/1
	13	]).
	14
	15	-type id() ::
	16	atom()
	17	\| ets:tid()
	18	% integer() is just a workaround, to let us mock ets:tid(), which is
	19	% opaque, but represented as an integer, without Dialyzer complaining.
	20	\| integer()
	21	.
	22
	23	-type t() ::
	24	#?MODULE{}.
	25
	26	-spec of_id(id()) ->
	27	t().
	28	of_id(ID) ->
	29	WordSize = erlang:system_info(wordsize),
	30	NumberOfWords = ets:info(ID, memory),
	31	NumberOfBytes = NumberOfWords * WordSize,
	32	#?MODULE
	33	{ id = ID
	34	, name = ets:info(ID, name)
	35	, size = ets:info(ID, size)
	36	, memory = NumberOfBytes
	37	}.
	38
	39	-spec id_to_bin(atom() \| ets:tid()) ->
	40	binary().
	41	id_to_bin(ID) when is_atom(ID) ->
	42	atom_to_binary(ID, latin1);
	43	id_to_bin(ID) when is_integer(ID) ->
	44	integer_to_binary(ID).