#include "sdk_test_utils.h"

#include "mega/logging.h"
#include "mega/types.h"

#include <fstream>
#include <random>
#include <string_view>
#include <vector>

namespace sdk_test
{

static fs::path executableDir;

fs::path getTestDataDir()
{
    return executableDir;
}

void setTestDataDir(const fs::path& dataDir)
{
    executableDir = dataDir;
}

void copyFileFromTestData(fs::path filename, fs::path destination)
{
    fs::path source = getTestDataDir() / filename;
    if (fs::is_directory(destination))
    {
        destination = destination / filename;
    }
    if (fs::exists(destination))
    {
        if (fs::equivalent(source, destination))
        {
            return;
        }
        fs::remove(destination);
    }
    fs::copy_file(source, destination);
}

std::string hashFile(const fs::path& filePath)
{
    std::ifstream in{filePath, std::ios::binary};
    if (!in)
        throw std::runtime_error("Cannot open file for hashing: " + filePath.string());

    ::mega::HashSHA256 hasher;
    constexpr std::size_t CHUNK = 64 * 1024;
    std::vector<::mega::byte> buffer(CHUNK);
    while (in.good())
    {
        in.read(reinterpret_cast<char*>(buffer.data()),
                static_cast<std::streamsize>(buffer.size()));
        const auto n = static_cast<unsigned>(in.gcount());
        if (n > 0)
            hasher.add(buffer.data(), n);
    }

    std::string digest;
    hasher.get(&digest);
    return digest;
}

std::string hashFileHex(const fs::path& filePath)
{
    const auto bin = hashFile(filePath);
    std::ostringstream out;
    out << std::hex << std::setfill('0');
    for (const unsigned char ch: bin)
        out << std::setw(2) << static_cast<int>(ch);
    return out.str();
}

void createRandomFile(const fs::path& filePath, const std::size_t fileSizeBytes)
{
    std::ofstream out(filePath, std::ios::binary | std::ios::trunc);
    if (!out)
        throw std::runtime_error("Cannot open file: " + filePath.string());

    constexpr auto CHUNK = std::size_t{64 * 1024};
    std::vector<char> buffer;
    buffer.reserve(CHUNK);

    std::mt19937_64 rng{std::random_device{}()};
    constexpr int minReadableChar = 32;
    constexpr int maxReadableChar = 126;
    std::uniform_int_distribution<int> dist(minReadableChar, maxReadableChar);

    for (auto remaining = fileSizeBytes; remaining > 0;)
    {
        std::size_t toWrite = std::min(remaining, CHUNK);
        buffer.clear();
        for (std::size_t i = 0; i < toWrite; ++i)
            buffer.push_back(static_cast<char>(dist(rng)));
        out.write(buffer.data(), static_cast<std::streamsize>(toWrite));
        remaining -= toWrite;
    }
}

void createFile(const fs::path& filePath, const size_t fileSizeBytes)
{
    writeFileContent<std::size_t>(filePath, std::ios::binary, fileSizeBytes);
}

void createFile(const fs::path& filePath,
                const std::string_view contents,
                std::optional<fs::file_time_type> customMtime)
{
    writeFileContent<std::string_view>(filePath, std::ios::binary, contents);
    if (customMtime)
    {
        std::error_code ec;
        fs::last_write_time(filePath, *customMtime, ec);
        if (ec)
        {
            throw std::runtime_error("Failed to set mtime: " + ec.message());
        }
    }
}

void appendToFile(const fs::path& filePath, const size_t bytesToAppend)
{
    writeFileContent<std::size_t>(filePath, std::ios::binary | std::ios::app, bytesToAppend);
}

void appendToFile(const fs::path& filePath, const std::string_view contents)
{
    writeFileContent<std::string_view>(filePath, std::ios::binary | std::ios::app, contents);
}

LocalTempFile::LocalTempFile(const fs::path& _filePath, const size_t fileSizeBytes):
    mFilePath(_filePath)
{
    createRandomFile(mFilePath, fileSizeBytes);
}

LocalTempFile::LocalTempFile(const fs::path& _filePath,
                             const std::string_view contents,
                             std::optional<fs::file_time_type> customMtime):
    mFilePath(_filePath)
{
    createFile(mFilePath, contents, customMtime);
}

void LocalTempFile::appendData(const size_t bytesToAppend) const
{
    appendToFile(mFilePath, bytesToAppend);
}

void LocalTempFile::appendData(const std::string_view contentsToAppend) const
{
    appendToFile(mFilePath, contentsToAppend);
}

std::error_code LocalTempFile::move(const fs::path& newPath)
{
    std::error_code ec;
    fs::rename(mFilePath, newPath, ec);
    if (!ec)
    {
        mFilePath = newPath;
    }
    else
    {
        LOG_err << "Failed to move file from " << path_u8string(mFilePath) << " to "
                << path_u8string(newPath) << ". Error: " << ec.message();
    }
    return ec;
}

LocalTempFile::~LocalTempFile()
{
    std::error_code ec;
    fs::remove(mFilePath, ec);

    if (ec)
    {
        LOG_err << "Error removing file: ec: " << ec.value() << " msg: " << ec.message();
    }
}

FileNodeInfo::FileNodeInfo(const std::string& _name,
                           const std::optional<unsigned int>& _label,
                           const bool _fav,
                           const unsigned int _size,
                           const std::chrono::seconds _secondsSinceMod,
                           const bool _sensitive,
                           const std::string& _description,
                           const std::set<std::string>& _tags):
    NodeCommonInfo{_name, _label, _fav, _sensitive, _description, _tags},
    size(_size)
{
    using std::chrono::system_clock;
    static const int64_t refTime = system_clock::to_time_t(system_clock::now());
    if (auto nSecs = _secondsSinceMod.count(); nSecs != 0)
    {
        mtime = refTime - nSecs;
    }
}

LocalTempDir::LocalTempDir(const fs::path& _dirPath):
    mDirPath(_dirPath)
{
    if (fs::exists(mDirPath))
    {
        // We avoid creation in this case to avoid unintentional removals
        const auto msg = "Directory already exists: " + _dirPath.string();
        LOG_err << msg;
        throw std::runtime_error(msg);
    }
    fs::create_directories(mDirPath);
}

LocalTempDir::~LocalTempDir()
{
    std::error_code ec;
    fs::remove_all(mDirPath, ec);
    if (ec)
    {
        LOG_err << "Error removing directory: ec: " << ec.value() << " msg: " << ec.message();
    }
}

bool LocalTempDir::move(const fs::path& newLocation)
{
    if (std::filesystem::exists(newLocation))
    {
        LOG_err
            << "Moving " << mDirPath.string() << " to " << newLocation.string()
            << " will overwrite the target path. Romove it before proceeding with the operation.";
        return false;
    }
    try
    {
        std::filesystem::rename(mDirPath, newLocation);
    }
    catch (const std::exception& e)
    {
        LOG_err << "Error moving directory from " << mDirPath.string() << " to "
                << newLocation.string() << ". Error: " << e.what();
        return false;
    }
    mDirPath = newLocation;
    return true;
}

namespace
{

// Needed forward declaration for recursive call
void processDirChildName(const DirNodeInfo&, std::vector<std::string>&);

/**
 * @brief Put the name of the node and their children (if any) in the given vector
 */
void processNodeName(const NodeInfo& node, std::vector<std::string>& names)
{
    std::visit(
        [&names](const auto& arg)
        {
            names.push_back(arg.name);
            if constexpr (std::is_same_v<decltype(arg), const DirNodeInfo&>)
            {
                processDirChildName(arg, names);
            }
        },
        node);
}

/**
 * @brief Aux function to call inside the visitor. Puts the names of the children in names.
 */
void processDirChildName(const DirNodeInfo& dir, std::vector<std::string>& names)
{
    std::for_each(dir.childs.begin(),
                  dir.childs.end(),
                  [&names](const auto& child)
                  {
                      processNodeName(child, names);
                  });
}

}

std::vector<std::string> DirNodeInfo::getChildrenNames() const
{
    std::vector<std::string> result;
    result.reserve(childs.size());
    std::transform(std::begin(childs),
                   std::end(childs),
                   std::back_inserter(result),
                   [](const auto& child) -> std::string
                   {
                       return getNodeName(child);
                   });
    return result;
}

std::vector<std::string> getNodeNames(const NodeInfo& node)
{
    std::vector<std::string> result;
    processNodeName(node, result);
    return result;
}

std::string getNodeName(const NodeInfo& node)
{
    return std::visit(
        [](const auto& n) -> std::string
        {
            return n.name;
        },
        node);
}

std::vector<std::string>
    getLocalFirstChildrenNames_if(const std::filesystem::path& localPath,
                                  std::function<bool(const std::string&)> filter)
{
    if (!std::filesystem::is_directory(localPath))
        return {};
    std::vector<std::string> result;
    const auto pushName = [&result, &filter](const std::filesystem::path& path)
    {
        const auto name = path.filename().string();
        if (!filter || filter(name))
            result.emplace_back(std::move(name));
    };
    std::filesystem::directory_iterator children{localPath};
    std::for_each(begin(children), end(children), pushName);
    return result;
}

std::vector<ChildNameAndFingerprint>
    getLocalFirstChildrenNamesAndFingerprints_if(::mega::MegaApi* megaApi,
                                                 const std::filesystem::path& localPath,
                                                 std::function<bool(const std::string&)> filter)
{
    if (!std::filesystem::is_directory(localPath))
        return {};
    std::vector<ChildNameAndFingerprint> result;
    const auto pushNameAndFp = [&result, &filter, megaApi](const std::filesystem::path& path)
    {
        const auto name = path.filename().string();
        if (!filter || filter(name))
        {
            std::optional<std::string> fingerprint;

            std::error_code ec;
            if (std::filesystem::is_regular_file(path, ec) && !ec)
            {
                std::unique_ptr<char[]> fp{megaApi->getFingerprint(path_u8string(path).c_str())};
                fingerprint = std::string(fp.get());
            }

            result.emplace_back(std::move(name), std::move(fingerprint));
        }
    };
    std::filesystem::directory_iterator children{localPath};
    std::for_each(begin(children), end(children), pushNameAndFp);
    return result;
}
}
