shithub: femtolisp

ref: f13f110f2d09c959fee5abe27d3cee3c7dfeddef
dir: /timefuncs.c/

#include "platform.h"

#if defined(__plan9__)
double
floattime(void)
{
	return (double)nsec() / 1.0e9;
}
#else
double
tv2float(struct timeval *tv)
{
	return (double)tv->tv_sec + (double)tv->tv_usec/1.0e6;
}

double
diff_time(struct timeval *tv1, struct timeval *tv2)
{
	return tv2float(tv1) - tv2float(tv2);
}
#endif

// return as many bits of system randomness as we can get our hands on
uint64_t
i64time(void)
{
	uint64_t a;
#if defined(__plan9__)
	a = nsec();
#else
	struct timeval now;
	gettimeofday(&now, nil);
	a = (((uint64_t)now.tv_sec)<<32) + (uint64_t)now.tv_usec;
#endif

	return a;
}

double
clock_now(void)
{
#if defined(__plan9__)
	return floattime();
#else
	struct timeval now;
	gettimeofday(&now, nil);
	return tv2float(&now);
#endif
}

void
timestring(double seconds, char *buffer, size_t len)
{
#if defined(__plan9__)
	Tm tm;
	snprint(buffer, len, "%τ", tmfmt(tmtime(&tm, seconds, tzload("local")), nil));
#else
	time_t tme = (time_t)seconds;

	char *fmt = "%c"; /* needed to suppress GCC warning */
	struct tm tm;

	localtime_r(&tme, &tm);
	strftime(buffer, len, fmt, &tm);
#endif
}

#if defined(__plan9__)
double
parsetime(const char *str)
{
	Tm tm;
	if(tmparse(&tm, "?WWW, ?MM ?DD hh:mm:ss ?Z YYYY", str, tzload("local"), nil) == nil)
		return -1;
	return tmnorm(&tm);
}
#else
double
parsetime(const char *str)
{
	char *fmt = "%c"; /* needed to suppress GCC warning */
	char *res;
	time_t t;
	struct tm tm;

	res = strptime(str, fmt, &tm);
	if(res != nil){
		/* Not set by strptime(); tells mktime() to determine 
		 * whether daylight saving time is in effect
		 */
		tm.tm_isdst = -1;
		t = mktime(&tm);
		if(t == (time_t)-1)
			return -1;
		return (double)t;
	}
	return -1;
}
#endif

void
sleep_ms(int ms)
{
	if(ms == 0)
		return;

#if defined(__plan9__)
	sleep(ms);
#else
	struct timeval timeout;

	timeout.tv_sec = ms/1000;
	timeout.tv_usec = (ms % 1000) * 1000;
	select(0, nil, nil, nil, &timeout);
#endif
}