/*                                                                     -*-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__)
// AL-2015-0728: [[ Bug 15410 ]] Windows localtime_s returns an errno_t
//  so do a bit of gymnastics to make the signature correct.
inline struct tm *localtime_r(const time_t *p_time, struct tm *r_timeinfo)
{
    if (localtime_s(r_timeinfo, p_time) == 0)
        return r_timeinfo;
    
    return NULL;
}
#endif

extern "C" MC_DLLEXPORT_DEF 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_DEF 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
}

////////////////////////////////////////////////////////////////////////////////////////////////////

extern "C" bool com_livecode_date_Initialize(void)
{
    return true;
}

extern "C" void com_livecode_date_Finalize(void)
{
}

////////////////////////////////////////////////////////////////////////////////////////////////////