File

util/timer.lua @ 1936:a6ca0dcc7b83

s2smanager: Make s2s-stream-features a per-host event
author Matthew Wild <mwild1@gmail.com>
date Thu, 08 Oct 2009 23:40:54 +0100
parent 1871:838d1317bca4
child 2095:3256c5d00901
child 2923:b7049746bd29
line wrap: on
line source

-- Prosody IM
-- Copyright (C) 2008-2009 Matthew Wild
-- Copyright (C) 2008-2009 Waqas Hussain
-- 
-- This project is MIT/X11 licensed. Please see the
-- COPYING file in the source package for more information.
--


local ns_addtimer = require "net.server".addtimer;
local get_time = os.time;
local t_insert = table.insert;
local t_remove = table.remove;
local ipairs, pairs = ipairs, pairs;
local type = type;

local data = {};
local new_data = {};

module "timer"

local function _add_task(delay, func)
	local current_time = get_time();
	delay = delay + current_time;
	if delay >= current_time then
		t_insert(new_data, {delay, func});
	else func(); end
end

add_task = _add_task;

ns_addtimer(function()
	local current_time = get_time();
	if #new_data > 0 then
		for _, d in pairs(new_data) do
			t_insert(data, d);
		end
		new_data = {};
	end
	
	for i, d in pairs(data) do
		local t, func = d[1], d[2];
		if t <= current_time then
			data[i] = nil;
			local r = func(current_time);
			if type(r) == "number" then _add_task(r, func); end
		end
	end
end);

return _M;