#include <stdio.h>
#include <string.h>

#include "CSettings.h"
#include "settings/CGameStatistics.h"
#include "newtitles.h"

#define NEW_SECONDS (24 * 60 * 60)
#define GAMETITLES  "GameTimestamps.txt"

NewTitles *NewTitles::instance = NULL;

NewTitles::NewTitles()
{
	firstTitle = lastTitle = NULL;
	isDirty = isNewFile = false;
	Reload();
}

NewTitles::~NewTitles()
{
	Save();
	Clean();
}

void NewTitles::Clean(void)
{
	Title *t = firstTitle;
	while (t != NULL)
	{
		Title *temp = t->next;
		delete t;
		t = temp;
	}
	firstTitle = lastTitle = NULL;
	isDirty = isNewFile = false;
}

void NewTitles::Reload(void)
{
	Save();
	Clean();

	// Read the text file
	char path[255];
	snprintf(path, sizeof(path), "%s/%s", Settings.titlestxt_path, GAMETITLES);

	char line[50];
	FILE *fp = fopen(path, "rb");
	if (!fp)
	{
		isNewFile = true;
		return;
	}

	time_t currenttime = time(0);

	while (fgets(line, sizeof(line), fp))
	{
		// This is one line
		if (line[0] == '#' || line[0] == ';')
			continue;

		Title *title = new Title;
		memset(title, 0, sizeof(Title));

		char *delimeter = strchr(line, ':');
		if(!delimeter || ((delimeter-line) > 6)) // check for valid delimiter
			continue;

		*delimeter = '\0';

		snprintf(title->titleId, sizeof(title->titleId), "%s", line);
		title->timestamp = strtoul(delimeter+1, 0, 10);
		title->isNew = ((currenttime - title->timestamp) < NEW_SECONDS);
		title->next = NULL;

		if (firstTitle == NULL)
		{
			firstTitle = title;
			lastTitle = title;
		}
		else
		{
			lastTitle->next = title;
			lastTitle = title;
		}
	}

	fclose(fp);
}

void NewTitles::CheckGame(const u8 *titleid)
{
	if (titleid == NULL || strlen((char *) titleid) == 0)
		return;

	Title *t = firstTitle;
	while (t != NULL)
	{
		// Loop all titles, search for the correct titleid
		if (strncmp((char*)titleid, t->titleId, 6) == 0)
			return; // Game found, which is excellent

		t = t->next;
	}

	// Not found, add it
	t = new Title;
	memset(t, 0, sizeof(Title));

	snprintf(t->titleId, sizeof(t->titleId), "%s", (char *) titleid);
	t->timestamp = time(0);
	t->next = NULL;

	if (isNewFile)
	{
		t->isNew = false;
		t->timestamp -= (NEW_SECONDS + 1); // Mark all games as not new if this is a new file
	}
	else
	{
		GameStatus *Status = GameStatistics.GetGameStatus(titleid);
		t->isNew = (Status == NULL || Status->PlayCount == 0);
	}

	if (firstTitle == NULL)
	{
		firstTitle = t;
		lastTitle = t;
	}
	else
	{
		lastTitle->next = t;
		lastTitle = t;
	}
	isDirty = true;
}

bool NewTitles::IsNew(const u8 *titleid) const
{
	if (!titleid) return false;

	Title *t = firstTitle;

	while(t != NULL)
	{
		// Loop all titles, search for the correct titleid
		if (strncmp((char*)titleid, t->titleId, 6) == 0)
			return t->isNew;

		t = t->next;
	}

	return false;
}

void NewTitles::Remove(const u8 *titleid)
{
	if (titleid == NULL) return;

	Title *t = firstTitle, *prev = NULL;
	while (t != NULL)
	{
		if (strncmp((char*)titleid, t->titleId, 6) == 0)
		{
			if (prev == NULL)
				firstTitle = t->next;
			else
				prev->next = t->next;

			delete t;
			isDirty = true;
			return;
		}
		prev = t;
		t = t->next;
	}
}

void NewTitles::Save(void)
{
	if (!isDirty) return;

	char path[255];
	snprintf(path, sizeof(path), "%s/%s", Settings.titlestxt_path, GAMETITLES);

	FILE *fp = fopen(path, "wb");
	if (fp == NULL)
		return;

	Title *t = firstTitle;
	while (t != NULL && strlen(t->titleId) > 0)
	{
		fprintf(fp, "%.6s:%lu\n", t->titleId, t->timestamp);
		t = t->next;
	}
	fclose(fp);
}