-module(gTimer).

-include("gTimer.hrl").

-export([
   start/0
   , stop/0
   , startWork/1
   , setTimer/2
   , getTimer/1
   , delTimer/1
]).



timerName(Idx) ->
   binary_to_atom(<<"$gtWSork_", (integer_to_binary(Idx))/binary>>).

startWork(Cnt) when Cnt > 0 ->
   case ?gTimerCfg:getV(?workCnt) of
      0 ->
         NameList = [{Idx, timerName(Idx)} || Idx <- lists:seq(1, Cnt)],
         [supervisor:start_child(gTimer_sup, [WorkName]) || {_Idx, WorkName} <- NameList],
         CfgList = [{?workCnt, Cnt} | NameList],
         gtKvsToBeam:load(?gTimerCfg, CfgList),
         ok1;
      _Cnt ->
         {error, started}
   end.

start() ->
   application:ensure_all_started(gTimer).

stop() ->
   gtKvsToBeam:load(?gTimerCfg, [{?workCnt, 0}]),
   application:stop(gTimer).

setTimer(Time, Msg) ->
   Cnt = ?gTimerCfg:getV(?workCnt),
   Idx = erlang:phash2(self(), Cnt) + 1,
   erlang:start_timer(Time, ?gTimerCfg:getV(Idx), Msg).

getTimer(TimerRef) ->
   erlang:read_timer(TimerRef).

delTimer(TimerRef) ->
   erlang:cancel_timer(TimerRef).