/* Copyright (c) 2008, 2009
 *      Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de)
 *      Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de)
 *      Micah Cowan (micah@cowan.name)
 *      Sadrul Habib Chowdhury (sadrul@users.sourceforge.net)
 * Copyright (c) 1993-2002, 2003, 2005, 2006, 2007
 *      Juergen Weigert (jnweiger@immd4.informatik.uni-erlangen.de)
 *      Michael Schroeder (mlschroe@immd4.informatik.uni-erlangen.de)
 * Copyright (c) 1987 Oliver Laumann
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program (see the file COPYING); if not, see
 * http://www.gnu.org/licenses/, or contact Free Software Foundation, Inc.,
 * 51 Franklin Street, Fifth Floor, Boston, MA  02111-1301  USA
 *
 ****************************************************************
 */

#include "config.h"

#include "sched.h"

#include <stdint.h>
#include <sys/types.h>
#include <time.h>
#include <sys/time.h>

#include "screen.h"

static Event *evs;
static Event *tevs;
static Event *nextev;
static int calctimeout;

static Event *calctimo(void);

void evenq(Event *ev)
{
	Event *evp, **evpp;
	if (ev->queued)
		return;
	evpp = &evs;
	if (ev->type == EV_TIMEOUT) {
		calctimeout = 1;
		evpp = &tevs;
	}
	for (; (evp = *evpp); evpp = &evp->next)
		if (ev->priority > evp->priority)
			break;
	ev->next = evp;
	*evpp = ev;
	ev->queued = true;
}

void evdeq(Event *ev)
{
	Event *evp, **evpp;
	if (!ev || !ev->queued)
		return;
	evpp = &evs;
	if (ev->type == EV_TIMEOUT) {
		calctimeout = 1;
		evpp = &tevs;
	}
	for (; (evp = *evpp); evpp = &evp->next)
		if (evp == ev)
			break;
	*evpp = ev->next;
	ev->queued = false;
	if (ev == nextev)
		nextev = nextev->next;
}

static Event *calctimo()
{
	Event *ev, *min;
	long mins;

	if ((min = tevs) == 0)
		return 0;
	mins = min->timeout.tv_sec;
	for (ev = tevs->next; ev; ev = ev->next) {
		if (mins < ev->timeout.tv_sec)
			continue;
		if (mins > ev->timeout.tv_sec || min->timeout.tv_usec > ev->timeout.tv_usec) {
			min = ev;
			mins = ev->timeout.tv_sec;
		}
	}
	return min;
}

void sched()
{
	Event *ev;
	fd_set r, w, *set;
	Event *timeoutev = 0;
	struct timeval timeout;
	int nsel;

	for (;;) {
		if (calctimeout)
			timeoutev = calctimo();
		if (timeoutev) {
			gettimeofday(&timeout, NULL);
			/* tp - timeout */
			timeout.tv_sec = timeoutev->timeout.tv_sec - timeout.tv_sec;
			timeout.tv_usec = timeoutev->timeout.tv_usec - timeout.tv_usec;
			if (timeout.tv_usec < 0) {
				timeout.tv_usec += 1000000;
				timeout.tv_sec--;
			}
			if (timeout.tv_sec < 0) {
				timeout.tv_usec = 0;
				timeout.tv_sec = 0;
			}
		}

		FD_ZERO(&r);
		FD_ZERO(&w);
		for (ev = evs; ev; ev = ev->next) {
			if (ev->condpos && *ev->condpos <= (ev->condneg ? *ev->condneg : 0)) {
				continue;
			}
			if (ev->type == EV_READ)
				FD_SET(ev->fd, &r);
			else if (ev->type == EV_WRITE)
				FD_SET(ev->fd, &w);
		}

		nsel = select(FD_SETSIZE, &r, &w, (fd_set *) 0, timeoutev ? &timeout : (struct timeval *)0);
		if (nsel < 0) {
			if (errno != EINTR) {
				Panic(errno, "select");
			}
			nsel = 0;
		} else if (nsel == 0) {	/* timeout */
			if (timeoutev) {
				evdeq(timeoutev);
				timeoutev->handler(timeoutev, timeoutev->data);
			}
		}

		for (ev = evs; ev; ev = nextev) {
			nextev = ev->next;
			if (ev->type != EV_ALWAYS) {
				set = ev->type == EV_READ ? &r : &w;
				if (nsel == 0 || !FD_ISSET(ev->fd, set))
					continue;
				nsel--;
			}
			if (ev->condpos && *ev->condpos <= (ev->condneg ? *ev->condneg : 0))
				continue;
			ev->handler(ev, ev->data);
		}
	}
}

void SetTimeout(Event *ev, int timo)
{
	gettimeofday(&ev->timeout, NULL);
	ev->timeout.tv_sec += timo / 1000;
	ev->timeout.tv_usec += (timo % 1000) * 1000;
	if (ev->timeout.tv_usec > 1000000) {
		ev->timeout.tv_usec -= 1000000;
		ev->timeout.tv_sec++;
	}
	if (ev->queued)
		calctimeout = 1;
}