2 -- Copyright (C) 2008-2010 Matthew Wild
3 -- Copyright (C) 2008-2010 Waqas Hussain
5 -- This project is MIT/X11 licensed. Please see the
6 -- COPYING file in the source package for more information.
10 local ns_addtimer = require "net.server".addtimer;
11 local event = require "net.server".event;
12 local event_base = require "net.server".event_base;
14 local math_min = math.min
15 local math_huge = math.huge
16 local get_time = require "socket".gettime;
17 local t_insert = table.insert;
18 local t_remove = table.remove;
19 local ipairs, pairs = ipairs, pairs;
29 function _add_task(delay, func)
30 local current_time = get_time();
31 delay = delay + current_time;
32 if delay >= current_time then
33 t_insert(new_data, {delay, func});
39 ns_addtimer(function()
40 local current_time = get_time();
42 for _, d in pairs(new_data) do
48 local next_time = math_huge;
49 for i, d in pairs(data) do
50 local t, func = d[1], d[2];
51 if t <= current_time then
53 local r = func(current_time);
54 if type(r) == "number" then
56 next_time = math_min(next_time, r);
59 next_time = math_min(next_time, t - current_time);
65 local EVENT_LEAVE = (event.core and event.core.LEAVE) or -1;
66 function _add_task(delay, func)
68 event_handle = event_base:addevent(nil, 0, function ()
72 elseif event_handle then