# include <OSUtils.h>
# include <Events.h>
# include "dgd.h"

static unsigned long timediff;

/*
 * NAME:	tminit()
 * DESCRIPTION:	initialize the time package
 */
void tminit(void)
{
    static DateTimeRec ubirth = {
	1970, 1, 1, 0, 0, 0, 0
    };

    Date2Secs(&ubirth, &timediff);
}

/*
 * NAME:	m2utime()
 * DESCRIPTION:	convert Mac time to Unix time, will only work with
 *		times up to 2040
 */
Uint m2utime(long t)
{
    return (Uint) (t - timediff);
}

/*
 * NAME:	P->time()
 * DESCRIPTION:	return the current time in seconds since midnight Jan 1, 1970
 */
Uint P_time(void)
{
    unsigned long t;

    GetDateTime(&t);
    return (Uint) (t - timediff);
}

/*
 * NAME:	P->ctime()
 * DESCRIPTION:	convert a time to a string
 */
char *P_ctime(Uint t)
{
    static char *weekday[] = {
	"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
    };
    static char *month[] = {
	"Jan", "Feb", "Mar", "Apr", "May", "Jun",
	"Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
    };
    static char buf[26];
    DateTimeRec date;
    int offset;

    for (offset = 0; t + timediff < t; t -= 1009843200L, offset += 32) ;
    Secs2Date((long) t + timediff, &date);
    if (offset != 0) {
	if (date.year + offset >= 2100 &&
	    (date.month > 2 || (date.month == 2 && date.day == 29))) {
	    t += 86400L;
	    if (t + timediff < t) {
		t -= 1009843200L;
		offset += 32;
	    }
	    Secs2Date((long) t + timediff, &date);
	}
	date.year += offset;
    }

    sprintf(buf, "%s %s %2d %02d:%02d:%02d %d\012", /* LF */
	    weekday[date.dayOfWeek - 1], month[date.month - 1], date.day,
	    date.hour, date.minute, date.second, date.year);
    return buf;
}


static long ticks;

/*
 * NAME:	P->alarm()
 * DESCRIPTION:	set the amarm
 */
void P_alarm(unsigned int sec)
{
    ticks = TickCount() + 60 * sec;
}

/*
 * NAME:	P->timeout()
 * DESCRIPTION:	return TRUE if the alarm has timed out, FALSE otherwise
 */
bool P_timeout(void)
{
    return (TickCount() - ticks >= 0);
}