// Copyright (c) 2012- PPSSPP Project.

// This program is free software: you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation, version 2.0 or later versions.

// This program 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 2.0 for more details.

// A copy of the GPL 2.0 should have been included with the program.
// If not, see http://www.gnu.org/licenses/

// Official git repository and contact information can be found at
// https://github.com/hrydgard/ppsspp and http://www.ppsspp.org/.

#ifdef _WIN32
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#endif

#include <time.h>

#include "HLE.h"
#include "../MIPS/MIPS.h"

#include "sceKernel.h"
#include "sceKernelTime.h"

#include "../CoreTiming.h"

//////////////////////////////////////////////////////////////////////////
// Other clock stuff
//////////////////////////////////////////////////////////////////////////

struct SceKernelSysClock
{
	u32 lo;
	u32 hi;
};

void sceKernelGetSystemTime()
{
	SceKernelSysClock *clock = (SceKernelSysClock*)Memory::GetPointer(PARAM(0));
	u64 t = CoreTiming::GetTicks() / CoreTiming::GetClockFrequencyMHz();
	clock->lo = (u32)t;
	clock->hi = t >> 32;
	DEBUG_LOG(HLE,"sceKernelGetSystemTime(out:%08x%08x)",clock->hi, clock->lo);
	RETURN(0);
}

void sceKernelGetSystemTimeLow()
{
	// This clock should tick at 1 Mhz.
	u64 t = CoreTiming::GetTicks() / CoreTiming::GetClockFrequencyMHz();
	// DEBUG_LOG(HLE,"%08x=sceKernelGetSystemTimeLow()",(u32)t);
	RETURN((u32)t);
}

void sceKernelGetSystemTimeWide()
{
	u64 t = CoreTiming::GetTicks() / CoreTiming::GetClockFrequencyMHz();
	DEBUG_LOG(HLE,"%i=sceKernelGetSystemTimeWide()",(u32)t);
	RETURN((u32)t);
	currentMIPS->r[3] = t >> 32;
}

void sceKernelUSec2SysClock()
{
	u32 microseconds = PARAM(0);
	SceKernelSysClock *clock = (SceKernelSysClock*)Memory::GetPointer(PARAM(1));
	clock->lo = microseconds; //TODO: fix
	DEBUG_LOG(HLE,"sceKernelUSec2SysClock(%i, %08x )",PARAM(0), PARAM(1));
	RETURN(0);
}

void sceKernelSysClock2USec()
{
	SceKernelSysClock clock;
	Memory::ReadStruct(PARAM(0), &clock);
	DEBUG_LOG(HLE, "sceKernelSysClock2USec(clock = , lo = %08x, hi = %08x)", PARAM(1), PARAM(2));
	u64 time = clock.lo | ((u64)clock.hi << 32);
	if (Memory::IsValidAddress(PARAM(1)))
		Memory::Write_U32((u32)(time / 1000000), PARAM(1));
	if (Memory::IsValidAddress(PARAM(2)))
		Memory::Write_U32((u32)(time % 1000000), PARAM(2));
	RETURN(0);
}

void sceKernelSysClock2USecWide()
{
	u64 clock = PARAM(0) | ((u64)PARAM(1) << 32);
	DEBUG_LOG(HLE, "sceKernelSysClock2USecWide(clock = %llu, lo = %08x, hi = %08x)", clock, PARAM(2), PARAM(3));
	if (Memory::IsValidAddress(PARAM(2)))
		Memory::Write_U32((u32)(clock / 1000000), PARAM(2));
	if (Memory::IsValidAddress(PARAM(3)))
		Memory::Write_U32((u32)(clock % 1000000), PARAM(3));
	RETURN(0);
}

void sceKernelLibcClock()
{
	u32 retVal = clock()*1000;
	DEBUG_LOG(HLE,"%i = sceKernelLibcClock",retVal);
	RETURN(retVal); // TODO: fix
}

void sceKernelLibcTime()
{
	time_t *t = 0;
	if (PARAM(0))
		t = (time_t*)Memory::GetPointer(PARAM(0));
	u32 retVal = (u32)time(t);
	DEBUG_LOG(HLE,"%i = sceKernelLibcTime()",retVal);
	RETURN(retVal);
}

void sceKernelLibcGettimeofday()
{
#ifdef _WIN32
	union {
		s64 ns100; /*time since 1 Jan 1601 in 100ns units */
		FILETIME ft;
	} now;

	struct timeval
	{
		u32 tv_sec;
		u32 tv_usec;
	};

	timeval *tv = (timeval*)Memory::GetPointer(PARAM(0));
	DEBUG_LOG(HLE,"sceKernelLibcGettimeofday()");

	GetSystemTimeAsFileTime (&now.ft);
	tv->tv_usec = (long) ((now.ns100 / 10LL) % 1000000LL);
	tv->tv_sec = (long) ((now.ns100 - 116444736000000000LL) / 10000000LL);
#endif
	RETURN(0);
}
void sceRtcGetCurrentClockLocalTime()
{
	DEBUG_LOG(HLE,"0=sceRtcGetCurrentClockLocalTime()");
	RETURN(0);
}
void sceRtcGetTick()
{
	DEBUG_LOG(HLE,"0=sceRtcGetTick()");
	RETURN(0);
}

u32 sceRtcGetDayOfWeek(u32 year, u32 month, u32 day)
{
	static u32 t[] = { 0, 3, 2, 5, 0, 3, 5, 1, 4, 6, 2, 4 };
	 
    year -= month < 3;
    return ( year + year/4 - year/100 + year/400 + t[month-1] + day) % 7;
}

u32 sceRtcGetDaysInMonth(u32 year, u32 month)
{
	DEBUG_LOG(HLE,"0=sceRtcGetDaysInMonth()");
	u32 numberOfDays;

	switch (month)
	{
		case 4:
		case 6:
		case 9:
		case 11:
			numberOfDays = 30;
			break;
		case 2:
			if ((year % 4 == 0 && year % 100 != 0) || (year % 400 == 0))
				numberOfDays = 29;
			else
				numberOfDays = 28;
			break;

		default:
			numberOfDays = 31;
			break;
	}

	return numberOfDays;
}

void sceRtcGetTickResolution()
{
	DEBUG_LOG(HLE,"100=sceRtcGetTickResolution()");
	RETURN(100);
}