/* Routines for time-delayed actions.
 *
 * (C) 2003-2009 Anope Team
 * Contact us at team@anope.org
 *
 * Please read COPYING and README for further details.
 *
 * Based on the original code of Epona by Lara.
 * Based on the original code of Services by Andy Church.
 *
 * $Id$
 *
 */

#include "services.h"
#include "pseudo.h"

static Timeout *timeouts = NULL;

typedef void (*voidF)();

/*************************************************************************/

/* Check the timeout list for any pending actions. */

void check_timeouts()
{
	Timeout *to, *to2;
	time_t t = time(NULL);

	if (debug >= 2)
		alog("debug: Checking timeouts at %ld", static_cast<long>(t));

	to = timeouts;
	while (to) {
		if (t < to->timeout) {
			to = to->next;
			continue;
		}
		if (debug >= 4) {
			alog("debug: Running timeout 0x%p (code=0x%p repeat=%d)",
				 static_cast<void *>(to), reinterpret_cast<voidF>(to->code), to->repeat);
		}
		to->code(to);
		if (to->repeat) {
			to = to->next;
			continue;
		}
		to2 = to->next;
		if (to->next)
			to->next->prev = to->prev;
		if (to->prev)
			to->prev->next = to->next;
		else
			timeouts = to->next;
		delete to;
		to = to2;
	}
	if (debug >= 2)
		alog("debug: Finished timeout list");
}

/*************************************************************************/

/* Add a timeout to the list to be triggered in `delay' seconds.  If
 * `repeat' is nonzero, do not delete the timeout after it is triggered.
 * This must maintain the property that timeouts added from within a
 * timeout routine do not get checked during that run of the timeout list.
 */

Timeout *add_timeout(int delay, void (*code) (Timeout *), int repeat)
{
	Timeout *t = new Timeout;
	t->settime = time(NULL);
	t->timeout = t->settime + delay;
	t->code = code;
	t->repeat = repeat;
	t->next = timeouts;
	t->prev = NULL;
	t->data = NULL;
	if (timeouts)
		timeouts->prev = t;
	timeouts = t;
	return t;
}

/*************************************************************************/

/* Remove a timeout from the list (if it's there). */

void del_timeout(Timeout * t)
{
	Timeout *ptr;

	for (ptr = timeouts; ptr; ptr = ptr->next) {
		if (ptr == t)
			break;
	}
	if (!ptr)
		return;
	if (t->prev)
		t->prev->next = t->next;
	else
		timeouts = t->next;
	if (t->next)
		t->next->prev = t->prev;
	delete t;
}

/*************************************************************************/