/*
 * alarm: a public domain alarm for MiNT (by ers)
 */

#include <errno.h>
#include <mintbind.h>

extern int __mint;

unsigned int
alarm(secs)
	unsigned secs;
{
	long r;

	if (__mint == 0)
		r = -EINVAL;
	else
		r = Talarm((long)secs);

	if (r < 0) {
		errno = - (int)r;
		r = -1;
	}
	return (unsigned int) r;
}