/*                                                                     -*-c++-*-
Copyright (C) 2015 Runtime Revolution Ltd.

This file is part of LiveCode.

LiveCode is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License v3 as published by the Free
Software Foundation.

LiveCode 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 LiveCode.  If not see <http://www.gnu.org/licenses/>.  */

#include <foundation.h>
#include <foundation-auto.h>

#include <time.h>

#ifndef _WINDOWS
#  include <sys/time.h>
#else
#  include <windows.h>
#endif

/* Windows doesn't have localtime_r(), but it does have an equivalent
 * function with the arguments in the opposite order! */
#if defined(__WINDOWS__)
#  define localtime_r(s,t) (localtime_s(t,s))
#endif

extern "C" MC_DLLEXPORT void
MCDateExecGetLocalDate (MCProperListRef & r_datetime)
{
	struct tm t_timeinfo;
	time_t t_now;

	time (&t_now);
	if (NULL == localtime_r (&t_now, &t_timeinfo))
		return;

	MCAutoNumberRef t_year, t_month, t_day, t_hour, t_minute, t_second;
	if (!(MCNumberCreateWithInteger (t_timeinfo.tm_year, &t_year) &&
	      MCNumberCreateWithInteger (t_timeinfo.tm_mon, &t_month) &&
	      MCNumberCreateWithInteger (t_timeinfo.tm_mday, &t_day) &&
	      MCNumberCreateWithInteger (t_timeinfo.tm_hour, &t_hour) &&
	      MCNumberCreateWithInteger (t_timeinfo.tm_min, &t_minute) &&
	      MCNumberCreateWithInteger (t_timeinfo.tm_sec, &t_second)))
		return;

	const MCValueRef t_elements[] = {*t_year, *t_month, *t_day,
	                                 *t_hour, *t_minute, *t_second};

	if (!MCProperListCreate (t_elements, 6, r_datetime))
        return;
}

extern "C" MC_DLLEXPORT void
MCDateExecGetUniversalTime (double& r_time)
{
#ifndef _WINDOWS
    struct timeval tv;
    
    gettimeofday(&tv, NULL);
    r_time = tv.tv_sec + (double)tv.tv_usec / 1000000.0;
#else
	SYSTEMTIME t_localtime;
	FILETIME t_filetime;
	GetLocalTime(&t_localtime);
	SystemTimeToFileTime(&t_localtime, &t_filetime);

	// The Win32 filetime counts 100ns intervals since 1st Jan 1601
	uint64_t t_time_win32;
	double t_time_unix;
	t_time_win32 = (uint64_t(t_filetime.dwHighDateTime) << 32) | t_filetime.dwLowDateTime;
	t_time_unix = (double(t_time_win32) / 10000000.0) - 11644473600.0;

	r_time = t_time_unix;
#endif
}