statman

-module(statman_decorators).
-include_lib("eunit/include/eunit.hrl").
-compile([{parse_transform, decorators}]).

-export([runtime/3, reductions/3, memory/3, call_rate/3]).

%%
%% DECORATORS
%%

runtime(Fun, Args, Options) ->
    Key = proplists:get_value(key, Options, name(Fun)),
    Start = os:timestamp(),
    Result = erlang:apply(Fun, Args),
    statman_histogram:record_value(Key, Start),
    Result.

reductions(Fun, Args, Options) ->
    process_info_decorator(Fun, Args, Options, reductions).

memory(Fun, Args, Options) ->
    process_info_decorator(Fun, Args, Options, memory).

call_rate(Fun, Args, Options) ->
    Key = proplists:get_value(key, Options, name(Fun)),
    statman_counter:incr(Key),
    apply(Fun, Args).


%%
%% INTERNAL
%%

process_info_decorator(Fun, Args, Options, InfoKey) ->
    Key = proplists:get_value(key, Options, name(Fun)),
    {InfoKey, Start} = process_info(self(), InfoKey),
    Result = erlang:apply(Fun, Args),
    {InfoKey, End} = process_info(self(), InfoKey),
    statman_histogram:record_value(Key, (End - Start)),
    Result.

name(Fun) ->
    {name, Name} = erlang:fun_info(Fun, name),
    Name.



-ifdef(TEST).
-decorate({statman_decorators, runtime, [{key, runtime_key}]}).
-decorate({statman_decorators, memory, [{key, memory_key}]}).
-decorate({statman_decorators, reductions, [{key, reductions_key}]}).
-decorate({statman_decorators, call_rate, [{key, rate_key}]}).
decorated_function(A, B) ->
    A + B.

-decorate({statman_decorators, call_rate}).
no_key(A, B) ->
    A + B.

decorators_test() ->
    ok = delete_tables(), %% remove leftovers from other tests
    ok = create_tables(),
    3 = decorated_function(1, 2),
    ?assertEqual(1, statman_counter:get(rate_key)),
    ?assertEqual([memory_key, reductions_key, runtime_key],
                 lists:sort(statman_histogram:keys())),
    ok = delete_tables().

no_key_test() ->
    ok = delete_tables(),
    ok = create_tables(),
    3 = no_key(1, 2),
    ?assertEqual([{'-no_key_decorator1___/2-fun-0-',1}],
                 statman_counter:get_all()),
    ok = delete_tables().


create_tables() ->
    ok = statman_histogram:init(),
    ok = statman_counter:init().

delete_tables() ->
    (catch ets:delete(statman_histograms)),
    (catch ets:delete(statman_counters)),
    ok.
-endif.