#pragma region Copyright (c) 2014-2017 OpenRCT2 Developers
/*****************************************************************************
 * OpenRCT2, an open source clone of Roller Coaster Tycoon 2.
 *
 * OpenRCT2 is the work of many authors, a full list can be found in contributors.md
 * For more information, visit https://github.com/OpenRCT2/OpenRCT2
 *
 * OpenRCT2 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, either version 3 of the License, or
 * (at your option) any later version.
 *
 * A full copy of the GNU General Public License can be found in licence.txt
 *****************************************************************************/
#pragma endregion

#include <algorithm>
#include <vector>
#include "../core/Collections.hpp"
#include "../core/FileScanner.h"
#include "../core/Memory.hpp"
#include "../core/Path.hpp"
#include "../core/String.hpp"
#include "../core/Util.hpp"
#include "../OpenRCT2.h"
#include "TitleSequence.h"
#include "TitleSequenceManager.h"

#include "../localisation/localisation.h"
#include "../platform/platform.h"

namespace TitleSequenceManager
{
    struct PredefinedSequence
    {
        const utf8 * ConfigId;
        const utf8 * Filename;
        rct_string_id StringId;
    };

    const PredefinedSequence PredefinedSequences[] =
    {
        { "*RCT1",      "rct1.parkseq",         STR_TITLE_SEQUENCE_RCT1 },
        { "*RCT1AA",    "rct1aa.parkseq",       STR_TITLE_SEQUENCE_RCT1_AA },
        { "*RCT1AALL",  "rct1aall.parkseq",     STR_TITLE_SEQUENCE_RCT1_AA_LL },
        { "*RCT2",      "rct2.parkseq",         STR_TITLE_SEQUENCE_RCT2 },
        { "*OPENRCT2",  "openrct2.parkseq",     STR_TITLE_SEQUENCE_OPENRCT2 },
    };

    static std::vector<TitleSequenceManagerItem> _items;

    static std::string GetNewTitleSequencePath(const std::string &name, bool isZip);
    static size_t FindItemIndexByPath(const utf8 * path);
    static void Scan(const utf8 * directory);
    static void AddSequence(const utf8 * scanPath);
    static void SortSequences();
    static std::string GetNameFromSequencePath(const std::string &path);
    static void GetDataSequencesPath(utf8 * buffer, size_t bufferSize);
    static void GetUserSequencesPath(utf8 * buffer, size_t bufferSize);

    size_t GetCount()
    {
        return _items.size();
    }

    const TitleSequenceManagerItem * GetItem(size_t i)
    {
        if (i >= _items.size())
        {
            return nullptr;
        }
        return &_items[i];
    }

    static size_t FindItemIndexByPath(const utf8 * path)
    {
        size_t index = Collections::IndexOf(_items, [path](const TitleSequenceManagerItem &item) -> bool
        {
            return String::Equals(path, item.Path.c_str());
        });
        return index;
    }

    void DeleteItem(size_t i)
    {
        auto item = GetItem(i);
        if (item == nullptr)
        {
            return;
        }
        const utf8 * path = item->Path.c_str();
        if (item->IsZip)
        {
            platform_file_delete(path);
        }
        else
        {
            platform_directory_delete(path);
        }
        _items.erase(_items.begin() + i);
    }

    size_t RenameItem(size_t i, const utf8 * newName)
    {
        auto item = &_items[i];
        const utf8 * oldPath = item->Path.c_str();

        utf8 newPath[MAX_PATH];
        Path::GetDirectory(newPath, sizeof(newPath), oldPath);
        Path::Append(newPath, sizeof(newPath), newName);
        if (item->IsZip)
        {
            String::Append(newPath, sizeof(newPath), TITLE_SEQUENCE_EXTENSION);
            platform_file_move(oldPath, newPath);
        }
        else
        {
            platform_file_move(oldPath, newPath);
        }

        item->Name = std::string(newName);
        item->Path = std::string(newPath);

        SortSequences();
        size_t index = FindItemIndexByPath(newPath);
        return index;
    }

    size_t DuplicateItem(size_t i, const utf8 * name)
    {
        auto item = &_items[i];
        const utf8 * srcPath = item->Path.c_str();

        std::string dstPath = GetNewTitleSequencePath(std::string(name), item->IsZip);
        if (!platform_file_copy(srcPath, dstPath.c_str(), true))
        {
            return SIZE_MAX;
        }

        AddSequence(dstPath.c_str());
        SortSequences();
        size_t index = FindItemIndexByPath(dstPath.c_str());
        return index;
    }

    size_t CreateItem(const utf8 * name)
    {
        std::string path = GetNewTitleSequencePath(std::string(name), true);
        TitleSequence * seq = CreateTitleSequence();
        seq->Name = String::Duplicate(name);
        seq->Path = String::Duplicate(path.c_str());
        seq->IsZip = true;

        bool success = TitleSequenceSave(seq);
        FreeTitleSequence(seq);

        size_t index = SIZE_MAX;
        if (success)
        {
            AddSequence(path.c_str());
            SortSequences();
            index = FindItemIndexByPath(path.c_str());
        }
        return index;
    }

    static std::string GetNewTitleSequencePath(const std::string &name, bool isZip)
    {
        utf8 path[MAX_PATH];
        GetUserSequencesPath(path, sizeof(path));
        Path::Append(path, sizeof(path), name.c_str());
        if (isZip)
        {
            String::Append(path, sizeof(path), TITLE_SEQUENCE_EXTENSION);
        }
        return std::string(path);
    }

    static uint16 GetPredefinedIndex(const std::string &path)
    {
        const utf8 * filename = Path::GetFileName(path.c_str());
        for (uint16 i = 0; i < Util::CountOf(PredefinedSequences); i++)
        {
            if (String::Equals(filename, PredefinedSequences[i].Filename, true))
            {
                return i;
            }
        }
        return PREDEFINED_INDEX_CUSTOM;
    }

    static void SortSequences()
    {
        // Sort sequences by predefined index and then name
        std::sort(_items.begin(), _items.end(), [](const TitleSequenceManagerItem &a,
                                                   const TitleSequenceManagerItem &b) -> bool
        {
            if (a.PredefinedIndex < b.PredefinedIndex)
            {
                return true;
            }
            else if (a.PredefinedIndex > b.PredefinedIndex)
            {
                return false;
            }
            return _strcmpi(a.Name.c_str(), b.Name.c_str()) < 0;
        });
    }

    void Scan()
    {
        utf8 path[MAX_PATH];

        _items.clear();

        // Scan data path
        GetDataSequencesPath(path, sizeof(path));
        Scan(path);

        // Scan user path
        GetUserSequencesPath(path, sizeof(path));
        Scan(path);

        SortSequences();
    }

    static void Scan(const utf8 * directory)
    {
        utf8 pattern[MAX_PATH];
        String::Set(pattern, sizeof(pattern), directory);
        Path::Append(pattern, sizeof(pattern), "script.txt;*.parkseq");

        IFileScanner * fileScanner = Path::ScanDirectory(pattern, true);
        while (fileScanner->Next())
        {
            const utf8 * path = fileScanner->GetPath();
            AddSequence(path);
        }
        delete fileScanner;
    }

    static void AddSequence(const utf8 * scanPath)
    {
        TitleSequenceManagerItem item;

        std::string path;
        bool isZip = true;
        if (String::Equals(Path::GetExtension(scanPath), ".txt", true))
        {
            // If we are given a .txt file, set the path to the containing directory
            utf8 * utf8Path = Path::GetDirectory(scanPath);
            path = std::string(utf8Path);
            Memory::Free(utf8Path);
            isZip = false;
            item.Name = Path::GetFileName(path.c_str());
        }
        else
        {
            path = std::string(scanPath);
            item.Name = GetNameFromSequencePath(path);
        }

        item.PredefinedIndex = GetPredefinedIndex(path);
        item.Path = path;
        if (item.PredefinedIndex != PREDEFINED_INDEX_CUSTOM)
        {
            rct_string_id stringId = PredefinedSequences[item.PredefinedIndex].StringId;
            item.Name = language_get_string(stringId);
        }
        item.IsZip = isZip;
        _items.push_back(item);
    }

    static std::string GetNameFromSequencePath(const std::string &path)
    {
        utf8 * name = Path::GetFileNameWithoutExtension(path.c_str());
        std::string result = std::string(name);
        Memory::Free(name);
        return result;
    }

    static void GetDataSequencesPath(utf8 * buffer, size_t bufferSize)
    {
        platform_get_openrct_data_path(buffer, bufferSize);
        Path::Append(buffer, bufferSize, "title");
    }

    static void GetUserSequencesPath(utf8 * buffer, size_t bufferSize)
    {
        platform_get_user_directory(buffer, "title sequences", bufferSize);
        platform_ensure_directory_exists(buffer);
    }
}

extern "C"
{
    size_t title_sequence_manager_get_count()
    {
        return TitleSequenceManager::GetCount();
    }

    const utf8 * title_sequence_manager_get_name(size_t index)
    {
        auto item = TitleSequenceManager::GetItem(index);
        if (item == nullptr)
        {
            return nullptr;
        }
        const utf8 * name = item->Name.c_str();
        return name;
    }

    const utf8 * title_sequence_manager_get_path(size_t index)
    {
        auto item = TitleSequenceManager::GetItem(index);
        if (item == nullptr) {
            return nullptr;
        }
        const utf8 * name = item->Path.c_str();
        return name;
    }

    const utf8 * title_sequence_manager_get_config_id(size_t index)
    {
        auto item = TitleSequenceManager::GetItem(index);
        if (item == nullptr) {
            return nullptr;
        }
        const utf8 * name = item->Name.c_str();
        const utf8 * filename = Path::GetFileName(item->Path.c_str());
        for (const auto &pseq : TitleSequenceManager::PredefinedSequences)
        {
            if (String::Equals(filename, pseq.Filename, true))
            {
                return pseq.ConfigId;
            }
        }
        return name;
    }

    uint16 title_sequence_manager_get_predefined_index(size_t index)
    {
        auto item = TitleSequenceManager::GetItem(index);
        if (item == nullptr) {
            return 0;
        }
        uint16 predefinedIndex = item->PredefinedIndex;
        return predefinedIndex;
    }

    size_t title_sequence_manager_get_index_for_config_id(const utf8 * configId)
    {
        size_t count = TitleSequenceManager::GetCount();
        for (size_t i = 0; i < count; i++)
        {
            const utf8 * cid = title_sequence_manager_get_config_id(i);
            if (String::Equals(cid, configId))
            {
                return i;
            }
        }
        return SIZE_MAX;
    }

    size_t title_sequence_manager_get_index_for_name(const utf8 * name)
    {
        size_t count = TitleSequenceManager::GetCount();
        for (size_t i = 0; i < count; i++)
        {
            const utf8 * tn = title_sequence_manager_get_name(i);
            if (String::Equals(tn, name))
            {
                return i;
            }
        }
        return SIZE_MAX;
    }

    void title_sequence_manager_scan()
    {
        TitleSequenceManager::Scan();
    }

    void title_sequence_manager_delete(size_t i)
    {
        TitleSequenceManager::DeleteItem(i);
    }

    size_t title_sequence_manager_rename(size_t i, const utf8 * name)
    {
        return TitleSequenceManager::RenameItem(i, name);
    }

    size_t title_sequence_manager_duplicate(size_t i, const utf8 * name)
    {
        return TitleSequenceManager::DuplicateItem(i, name);
    }

    size_t title_sequence_manager_create(const utf8 * name)
    {
        return TitleSequenceManager::CreateItem(name);
    }
}