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

#include "CSettings.h"
#include "newtitles.h"

#define NEW_SECONDS 24 * 60 * 60
#define GAMETITLES  "gametitles.txt"

NewTitles *NewTitles::instance = NULL;

NewTitles* NewTitles::Instance()
{
    if ( instance == NULL )
    {
        instance = new NewTitles();
    }
    return instance;
}

void NewTitles::DestroyInstance()
{
    if ( instance != NULL )
    {
        delete instance;
        instance = NULL;
    }
}

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

    // Read the text file
    char path[255];
    strcpy( path, Settings.titlestxt_path );
    path[strlen( Settings.titlestxt_path ) - 1] = '/';
    strcat( path, GAMETITLES );

    char line[20];
    FILE *fp = fopen( path, "r" );
    if ( fp != NULL )
    {
        while ( fgets( line, sizeof( line ), fp ) )
        {
            // This is one line
            if ( line[0] != '#' || line[0] != ';' )
            {
                Title *title = new Title();
                if ( sscanf( line, "%6c:%ld", ( u8 * ) &title->titleId, &title->timestamp ) == 2 )
                {
                    if ( firstTitle == NULL )
                    {
                        firstTitle = title;
                        lastTitle = title;
                    }
                    else
                    {
                        lastTitle->next = title;
                        lastTitle = title;
                    }
                }
                else
                {
                    delete title; // Invalid title entry, ignore
                }
            }
        }

        fclose( fp );
    }
    else
    {
        isNewFile = true;
    }
}

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

    Title *t = firstTitle;
    while ( t != NULL )
    {
        Title *temp = ( Title * ) t->next;
        delete t;
        t = temp;
    }
    firstTitle = lastTitle = NULL;
}

void NewTitles::CheckGame( 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 ( strcmp( ( const char * ) titleid, ( const char * ) t->titleId ) == 0 )
        {
            return; // Game found, which is excellent
        }
        t = ( Title * ) t->next;
    }

    // Not found, add it
    t = new Title();
    strncpy( ( char * ) t->titleId, ( char * ) titleid, 6 );
    t->timestamp = time( NULL );
    if ( isNewFile )
    {
        t->timestamp -= ( NEW_SECONDS + 1 ); // Mark all games as not new if this is a new file
    }

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

bool NewTitles::IsNew( u8 *titleid )
{
    if ( titleid == NULL || strlen( ( char * ) titleid ) == 0 )
        return false;

    Title *t = firstTitle;

    while ( t != NULL )
    {
        // Loop all titles, search for the correct titleid
        if ( strcmp( ( const char * ) titleid, ( const char * ) t->titleId ) == 0 )
        {
            // This title is less than 24 hours old
            if ( ( time( NULL ) - t->timestamp ) < NEW_SECONDS )
            {
                // Only count the game as new when it's never been played through GX
                Game_NUM *gnum = CFG_get_game_num( titleid );
                return gnum == NULL || gnum->count == 0;
            }
            return false;
        }
        t = ( Title * ) t->next;
    }
    // We should never get here, since all files should be added by now!
    CheckGame( titleid );

    return !isNewFile; // If this is a new file, return false
}

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

    Title *t = firstTitle, *prev = NULL;
    while ( t != NULL )
    {
        if ( strcmp( ( const char * ) titleid, ( const char * ) t->titleId ) == 0 )
        {
            if ( prev == NULL )
            {
                firstTitle = ( Title * ) t->next;
            }
            else
            {
                prev->next = t->next;
            }
            delete t;
            isDirty = true;

            return;
        }
        prev = t;
        t = ( Title * ) t->next;
    }
}

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

    char path[255];
    strcpy( path, Settings.titlestxt_path );
    path[strlen( Settings.titlestxt_path ) - 1] = '/';
    strcat( path, GAMETITLES );

    FILE *fp = fopen( path, "w" );
    if ( fp != NULL )
    {
        Title *t = firstTitle;
        while ( t != NULL && strlen( ( char * ) t->titleId ) > 0 )
        {
            fprintf( fp, "%s:%ld\n", t->titleId, t->timestamp );
            t = ( Title * ) t->next;
        }
        fclose( fp );
    }
}