#include "SceTypes.hpp"
#include <algorithm>
#include <array>
#include <chrono>
#include <cstdio>
#include <cstdlib>
#include <filesystem>
#include <fstream>
#include <iterator>
#include <limits>
#include <string>
#include <vector>
#ifndef _WIN32
#include <csignal>
#include <sys/resource.h>
#endif

extern "C" {
int APS5_VABI sceSaveDataInitialize3(const void*);
int APS5_VABI sceSaveDataTerminate();
int APS5_VABI sceSaveDataSetSaveDataMemory2(const SaveDataMemorySet2*);
int APS5_VABI sceSaveDataSetupSaveDataMemory2(const SaveDataMemorySetup2*, SaveDataMemorySetupResult*);
}

static void Check(bool value, int line) {
    if (!value) {
        std::fprintf(stderr, "Save-data memory check failed at line %d\n", line);
        std::abort();
    }
}
#define Require(value) Check((value), __LINE__)

static std::vector<char> Read(const std::filesystem::path& path) {
    std::ifstream file(path, std::ios::binary);
    Require(file.is_open());
    return {std::istreambuf_iterator<char>(file), std::istreambuf_iterator<char>()};
}

int main() {
    const auto previous = std::filesystem::current_path();
    const auto root = std::filesystem::temp_directory_path() /
        ("anyps5-metadata-" + std::to_string(std::chrono::steady_clock::now().time_since_epoch().count()));
    Require(std::filesystem::create_directory(root));
    std::filesystem::current_path(root);
    const auto path = std::filesystem::path("_sd_mem/u7531/slot0.param");
    const auto memoryPath = std::filesystem::path("_sd_mem/u7531/slot0.bin");
    std::filesystem::create_directories(path.parent_path());
    const std::vector<char> memoryOriginal(32, 's');
    {
        std::ofstream file(memoryPath, std::ios::binary);
        file.write(memoryOriginal.data(), static_cast<std::streamsize>(memoryOriginal.size()));
        Require(static_cast<bool>(file));
    }
    Require(sceSaveDataInitialize3(nullptr) == 0);
    Require(sceSaveDataInitialize3(nullptr) == 0);
    Require(sceSaveDataTerminate() == 0);
    SaveDataParam param{};
    SaveDataMemorySet2 set{};
    set.user_id = 7531;
    set.param = &param;
    Require(sceSaveDataSetSaveDataMemory2(&set) == 0);
    const auto original = Read(path);
    Require(original.size() == sizeof(param));
    param.user_param = 42;
    const auto temporary = path.string() + ".tmp";
    Require(std::filesystem::create_directory(temporary));
    const int status = sceSaveDataSetSaveDataMemory2(&set);
    Require(Read(path) == original);
    Require(status == static_cast<int>(0x809F000Bu));
    Require(!std::filesystem::exists(temporary));
    Require(sceSaveDataSetSaveDataMemory2(&set) == 0);
    const auto* bytes = reinterpret_cast<const char*>(&param);
    Require(Read(path) == std::vector<char>(bytes, bytes + sizeof(param)));
    set.param = nullptr;
    Require(sceSaveDataSetSaveDataMemory2(&set) == 0);
    std::array<char, 8> first{'a', '\0', 'b', 'c', 'd', 'e', 'f', 'g'};
    std::array<char, 8> second{'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o'};
    std::array<SaveDataMemoryData, 3> data{{
        {first.data(), first.size(), 4},
        {second.data(), second.size(), 24},
        {nullptr, 0, std::numeric_limits<std::size_t>::max()}
    }};
    set.data = data.data();
    set.data_num = static_cast<std::uint32_t>(data.size());
    data[1].offset = memoryOriginal.size();
    Require(sceSaveDataSetSaveDataMemory2(&set) == static_cast<int>(0x809F0000u));
    Require(Read(memoryPath) == memoryOriginal);
    data[1].offset = 24;
    const auto memoryTemporary = memoryPath.string() + ".tmp";
    Require(std::filesystem::create_directory(memoryTemporary));
    Require(sceSaveDataSetSaveDataMemory2(&set) == static_cast<int>(0x809F000Bu));
    Require(Read(memoryPath) == memoryOriginal);
    Require(!std::filesystem::exists(memoryTemporary));
#ifndef _WIN32
    rlimit previousLimit{};
    Require(getrlimit(RLIMIT_FSIZE, &previousLimit) == 0);
    auto writeLimit = previousLimit;
    writeLimit.rlim_cur = 16;
    const auto previousHandler = std::signal(SIGXFSZ, SIG_IGN);
    Require(previousHandler != SIG_ERR);
    Require(setrlimit(RLIMIT_FSIZE, &writeLimit) == 0);
    const int writeStatus = sceSaveDataSetSaveDataMemory2(&set);
    Require(setrlimit(RLIMIT_FSIZE, &previousLimit) == 0);
    Require(std::signal(SIGXFSZ, previousHandler) != SIG_ERR);
    Require(writeStatus == static_cast<int>(0x809F000Bu));
    Require(Read(memoryPath) == memoryOriginal);
    Require(!std::filesystem::exists(memoryTemporary));
#endif
    Require(sceSaveDataSetSaveDataMemory2(&set) == 0);
    auto memoryExpected = memoryOriginal;
    std::copy(first.begin(), first.end(), memoryExpected.begin() + 4);
    std::copy(second.begin(), second.end(), memoryExpected.begin() + 24);
    Require(Read(memoryPath) == memoryExpected);
    first.fill('z');
    set.data_num = 0;
    Require(sceSaveDataSetSaveDataMemory2(&set) == 0);
    std::copy(first.begin(), first.end(), memoryExpected.begin() + 4);
    Require(Read(memoryPath) == memoryExpected);
    const auto setupParamPath = std::filesystem::path("_sd_mem/u42/slot0.param");
    const auto setupBinPath = std::filesystem::path("_sd_mem/u42/slot0.bin");
    const auto setupParamTemp = setupParamPath.string() + ".tmp";
    Require(std::filesystem::create_directories(setupParamPath.parent_path()));
    Require(std::filesystem::create_directory(setupParamTemp));
    SaveDataParam setupParam{};
    setupParam.user_param = 100;
    SaveDataMemorySetup2 setup2{};
    setup2.user_id = 42;
    setup2.slot_id = 0;
    setup2.memory_size = 128;
    setup2.option = 1;
    setup2.init_param = &setupParam;
    SaveDataMemorySetupResult setupResult{};
    setupResult.existed_memory_size = 555;
    Require(sceSaveDataSetupSaveDataMemory2(&setup2, &setupResult) == static_cast<int>(0x809F000Bu));
    Require(setupResult.existed_memory_size == 555);
    Require(!std::filesystem::exists(setupBinPath));
    Require(!std::filesystem::exists(setupParamPath));
    Require(!std::filesystem::exists(setupParamTemp));
    Require(sceSaveDataSetupSaveDataMemory2(&setup2, &setupResult) == 0);
    Require(setupResult.existed_memory_size == 0);
    Require(Read(setupBinPath) == std::vector<char>(128, 0));
    const auto* setupBytes = reinterpret_cast<const char*>(&setupParam);
    Require(Read(setupParamPath) == std::vector<char>(setupBytes, setupBytes + sizeof(setupParam)));
    std::vector<char> seededBin(128);
    for (std::size_t i = 0; i < seededBin.size(); ++i) {
        seededBin[i] = static_cast<char>(static_cast<unsigned char>(i * 3 + 7));
    }
    {
        std::ofstream seededFile(setupBinPath, std::ios::binary);
        seededFile.write(seededBin.data(), static_cast<std::streamsize>(seededBin.size()));
        Require(static_cast<bool>(seededFile));
    }
    const auto growthParamTemp = setupParamPath.string() + ".tmp";
    Require(std::filesystem::create_directory(growthParamTemp));
    SaveDataParam previousParam = setupParam;
    setupParam.user_param = 200;
    setup2.memory_size = 256;
    setupResult.existed_memory_size = 999;
    Require(sceSaveDataSetupSaveDataMemory2(&setup2, &setupResult) == static_cast<int>(0x809F000Bu));
    Require(setupResult.existed_memory_size == 999);
    Require(Read(setupBinPath) == seededBin);
    const auto* previousBytes = reinterpret_cast<const char*>(&previousParam);
    Require(Read(setupParamPath) == std::vector<char>(previousBytes, previousBytes + sizeof(previousParam)));
    Require(!std::filesystem::exists(growthParamTemp));
    Require(sceSaveDataSetupSaveDataMemory2(&setup2, &setupResult) == 0);
    Require(setupResult.existed_memory_size == 128);
    std::vector<char> expectedGrownBin = seededBin;
    expectedGrownBin.resize(256, 0);
    Require(Read(setupBinPath) == expectedGrownBin);
    const auto* updatedBytes = reinterpret_cast<const char*>(&setupParam);
    Require(Read(setupParamPath) == std::vector<char>(updatedBytes, updatedBytes + sizeof(setupParam)));
    const auto growthBinTemp = setupBinPath.string() + ".tmp";
    Require(std::filesystem::create_directory(growthBinTemp));
    setupParam.user_param = 300;
    setup2.memory_size = 512;
    setupResult.existed_memory_size = 888;
    Require(sceSaveDataSetupSaveDataMemory2(&setup2, &setupResult) == static_cast<int>(0x809F000Bu));
    Require(setupResult.existed_memory_size == 888);
    Require(Read(setupBinPath) == expectedGrownBin);
    const auto* param300Bytes = reinterpret_cast<const char*>(&setupParam);
    Require(Read(setupParamPath) == std::vector<char>(param300Bytes, param300Bytes + sizeof(setupParam)));
    Require(!std::filesystem::exists(growthBinTemp));
    Require(sceSaveDataSetupSaveDataMemory2(&setup2, &setupResult) == 0);
    Require(setupResult.existed_memory_size == 256);
    std::vector<char> expectedBlob512 = expectedGrownBin;
    expectedBlob512.resize(512, 0);
    Require(Read(setupBinPath) == expectedBlob512);
    Require(Read(setupParamPath) == std::vector<char>(param300Bytes, param300Bytes + sizeof(setupParam)));
    const auto freshFailBinPath = std::filesystem::path("_sd_mem/u55/slot0.bin");
    const auto freshFailParamPath = std::filesystem::path("_sd_mem/u55/slot0.param");
    Require(std::filesystem::create_directories(freshFailBinPath.parent_path()));
    const auto freshFailBinTemp = freshFailBinPath.string() + ".tmp";
    Require(std::filesystem::create_directory(freshFailBinTemp));
    SaveDataParam freshFailParam{};
    freshFailParam.user_param = 55;
    SaveDataMemorySetup2 freshFailSetup{};
    freshFailSetup.user_id = 55;
    freshFailSetup.slot_id = 0;
    freshFailSetup.memory_size = 64;
    freshFailSetup.option = 1;
    freshFailSetup.init_param = &freshFailParam;
    SaveDataMemorySetupResult freshFailResult{};
    freshFailResult.existed_memory_size = 777;
    Require(sceSaveDataSetupSaveDataMemory2(&freshFailSetup, &freshFailResult) == static_cast<int>(0x809F000Bu));
    Require(freshFailResult.existed_memory_size == 777);
    Require(!std::filesystem::exists(freshFailBinPath));
    const auto* freshFailBytes = reinterpret_cast<const char*>(&freshFailParam);
    Require(Read(freshFailParamPath) == std::vector<char>(freshFailBytes, freshFailBytes + sizeof(freshFailParam)));
    Require(!std::filesystem::exists(freshFailBinTemp));
    Require(sceSaveDataSetupSaveDataMemory2(&freshFailSetup, &freshFailResult) == 0);
    Require(freshFailResult.existed_memory_size == 0);
    Require(Read(freshFailBinPath) == std::vector<char>(64, 0));
    Require(Read(freshFailParamPath) == std::vector<char>(freshFailBytes, freshFailBytes + sizeof(freshFailParam)));
    SaveDataParam noParam{};
    noParam.user_param = 5;
    SaveDataMemorySetup2 noParamSetup{};
    SaveDataMemorySetupResult noParamResult{};
    noParamSetup.user_id = 56;
    noParamSetup.slot_id = 0;
    noParamSetup.memory_size = 16;
    noParamSetup.option = 1;
    noParamSetup.init_param = nullptr;
    Require(sceSaveDataSetupSaveDataMemory2(&noParamSetup, &noParamResult) == 0);
    Require(Read("_sd_mem/u56/slot0.bin") == std::vector<char>(16, 0));
    Require(!std::filesystem::exists("_sd_mem/u56/slot0.param"));
    noParamSetup.user_id = 57;
    noParamSetup.option = 0;
    noParamSetup.init_param = &noParam;
    Require(sceSaveDataSetupSaveDataMemory2(&noParamSetup, &noParamResult) == 0);
    Require(Read("_sd_mem/u57/slot0.bin") == std::vector<char>(16, 0));
    Require(!std::filesystem::exists("_sd_mem/u57/slot0.param"));
    SaveDataParam userA{};
    userA.user_param = 1;
    SaveDataParam userB{};
    userB.user_param = 2;
    SaveDataMemorySetup2 isoSetup{};
    SaveDataMemorySetupResult isoResult{};
    isoSetup.user_id = 60;
    isoSetup.slot_id = 0;
    isoSetup.memory_size = 8;
    isoSetup.option = 1;
    isoSetup.init_param = &userA;
    Require(sceSaveDataSetupSaveDataMemory2(&isoSetup, &isoResult) == 0);
    isoSetup.slot_id = 1;
    isoSetup.init_param = &userB;
    Require(sceSaveDataSetupSaveDataMemory2(&isoSetup, &isoResult) == 0);
    const auto* userABytes = reinterpret_cast<const char*>(&userA);
    const auto* userBBytes = reinterpret_cast<const char*>(&userB);
    Require(Read("_sd_mem/u60/slot0.param") == std::vector<char>(userABytes, userABytes + sizeof(userA)));
    Require(Read("_sd_mem/u60/slot1.param") == std::vector<char>(userBBytes, userBBytes + sizeof(userB)));
    isoSetup.user_id = 61;
    isoSetup.slot_id = 0;
    Require(sceSaveDataSetupSaveDataMemory2(&isoSetup, &isoResult) == 0);
    Require(Read("_sd_mem/u60/slot0.param") == std::vector<char>(userABytes, userABytes + sizeof(userA)));
    Require(Read("_sd_mem/u61/slot0.param") == std::vector<char>(userBBytes, userBBytes + sizeof(userB)));
    const auto orphanParamPath = std::filesystem::path("_sd_mem/u99/slot0.param");
    const auto orphanBinPath = std::filesystem::path("_sd_mem/u99/slot0.bin");
    Require(std::filesystem::create_directories(orphanBinPath.parent_path()));
    const std::vector<char> orphanBin(64, 'k');
    {
        std::ofstream orphanFile(orphanBinPath, std::ios::binary);
        orphanFile.write(orphanBin.data(), static_cast<std::streamsize>(orphanBin.size()));
        Require(static_cast<bool>(orphanFile));
    }
    SaveDataParam orphanParam{};
    orphanParam.user_param = 42;
    SaveDataMemorySetup2 orphanSetup{};
    orphanSetup.user_id = 99;
    orphanSetup.slot_id = 0;
    orphanSetup.memory_size = 64;
    orphanSetup.option = 1;
    orphanSetup.init_param = &orphanParam;
    SaveDataMemorySetupResult orphanResult{};
    orphanResult.existed_memory_size = 333;
    Require(sceSaveDataSetupSaveDataMemory2(&orphanSetup, &orphanResult) == 0);
    Require(orphanResult.existed_memory_size == 64);
    Require(Read(orphanBinPath) == orphanBin);
    const auto* orphanBytes = reinterpret_cast<const char*>(&orphanParam);
    Require(Read(orphanParamPath) == std::vector<char>(orphanBytes, orphanBytes + sizeof(orphanParam)));
    Require(sceSaveDataTerminate() == 0);
    Require(Read(setupBinPath) == expectedBlob512);
    Require(Read(setupParamPath) == std::vector<char>(param300Bytes, param300Bytes + sizeof(setupParam)));
    Require(sceSaveDataInitialize3(nullptr) == 0);
    setupResult.existed_memory_size = 111;
    Require(sceSaveDataSetupSaveDataMemory2(&setup2, &setupResult) == 0);
    Require(setupResult.existed_memory_size == 512);
    Require(Read(setupBinPath) == expectedBlob512);
    Require(Read(setupParamPath) == std::vector<char>(param300Bytes, param300Bytes + sizeof(setupParam)));
    Require(sceSaveDataTerminate() == 0);
    std::filesystem::current_path(previous);
    std::filesystem::remove_all(root);
}