Module comm_logger

erlang_timestamp() = 
    {MegaSecs :: non_neg_integer(),
     Secs :: 0..999999,
     MicroSecs :: 0..999999}

stat_tree() = 
    gb_trees:tree(Tag :: atom(),
                  {Size :: non_neg_integer(),
                   Count :: pos_integer()})

start_link() -> {ok, pid()} | ignore | {error, any()}

log(SendRcv :: send | rcv,
    Tag :: term(),
    Size :: non_neg_integer()) ->
       ok

dump() ->
        {Received :: stat_tree(),
         Sent :: stat_tree(),
         erlang_timestamp()}

init(X1 :: list()) ->
        {ok,
         #state{start = undefined | erlang_timestamp(),
                received = undefined | stat_tree(),
                sent = undefined | stat_tree()}}

handle_call(Request :: {dump},
            From :: any(),
            State ::
                #state{start = undefined | erlang_timestamp(),
                       received = undefined | stat_tree(),
                       sent = undefined | stat_tree()}) ->
               {reply,
                {Received :: stat_tree(),
                 Sent :: stat_tree(),
                 erlang_timestamp()},
                #state{start = undefined | erlang_timestamp(),
                       received = undefined | stat_tree(),
                       sent = undefined | stat_tree()}}

handle_cast(Msg :: {log, send | rcv, atom(), non_neg_integer()},
            State ::
                #state{start = undefined | erlang_timestamp(),
                       received = undefined | stat_tree(),
                       sent = undefined | stat_tree()}) ->
               {noreply,
                #state{start = undefined | erlang_timestamp(),
                       received = undefined | stat_tree(),
                       sent = undefined | stat_tree()}}

handle_info(Info :: any(),
            State ::
                #state{start = undefined | erlang_timestamp(),
                       received = undefined | stat_tree(),
                       sent = undefined | stat_tree()}) ->
               {noreply,
                #state{start = undefined | erlang_timestamp(),
                       received = undefined | stat_tree(),
                       sent = undefined | stat_tree()}}

terminate(Reason :: any(),
          State ::
              #state{start = undefined | erlang_timestamp(),
                     received = undefined | stat_tree(),
                     sent = undefined | stat_tree()}) ->
             ok

code_change(OldVsn :: any(),
            State ::
                #state{start = undefined | erlang_timestamp(),
                       received = undefined | stat_tree(),
                       sent = undefined | stat_tree()},
            Extra :: any()) ->
               {ok,
                #state{start = undefined | erlang_timestamp(),
                       received = undefined | stat_tree(),
                       sent = undefined | stat_tree()}}