local tostring = tostring;
local xpcall = xpcall;
-module "timer"
+local _ENV = nil;
local _add_task = server.add_task;
---add_task = _add_task;
+local _active_timers = 0;
local h = indexedbheap.create();
local params = {};
local next_time = nil;
params[_id] = _param;
end
end
- next_time = peek;
- if peek ~= nil then
+
+ if peek ~= nil and _active_timers > 1 and peek == next_time then
+ -- Another instance of _on_timer already set next_time to the same value,
+ -- so it should be safe to not renew this timer event
+ peek = nil;
+ else
+ next_time = peek;
+ end
+
+ if peek then
+ -- peek is the time of the next event
return peek - now;
end
+ _active_timers = _active_timers - 1;
end
-function add_task(delay, callback, param)
+local function add_task(delay, callback, param)
local current_time = get_time();
local event_time = current_time + delay;
params[id] = param;
if next_time == nil or event_time < next_time then
next_time = event_time;
+ _active_timers = _active_timers + 1;
_add_task(next_time - current_time, _on_timer);
end
return id;
end
-function stop(id)
+local function stop(id)
params[id] = nil;
return h:remove(id);
end
-function reschedule(id, delay)
+local function reschedule(id, delay)
local current_time = get_time();
local event_time = current_time + delay;
h:reprioritize(id, delay);
return id;
end
-return _M;
+return {
+ add_task = add_task;
+ stop = stop;
+ reschedule = reschedule;
+};
+