%%% Copyright (c) 2017, NORDUnet A/S.
%%% See LICENSE for licensing information.

-module(bench).

-export([timingpoint/3]).

timingpoint(Service, Target, Tag) ->
    Thispoint = plop_compat:monotonic_time(millisecond),
    Seq = plop_compat:unique_integer([monotonic]),
    case get(bench_lastpoint) of
        undefined ->
            statusreport:bench(Service, Target, Tag, Seq, Thispoint + plop_compat:time_offset(millisecond), null);
        Lastpoint ->
            statusreport:bench(Service, Target, Tag, Seq, Lastpoint + plop_compat:time_offset(millisecond), Thispoint - Lastpoint)
    end,
    put(bench_lastpoint, Thispoint),
    ok.