#include "lib/core/globals.h"
#include "lib/core/utils.h"
#include "lib/core/bytes.h"
#include "lib/core/logger.h"
#include <iomanip>
#include <fstream>
#include <sys/time.h>
#include <stdarg.h>

bool emergencyStop = false;

static std::string WHITESPACE(" \t\n\r\f\v\0", 7);
static const char* SEPARATORS = "/\\";

void ErrorException::print() const
{
    std::cerr << message << '\n';
}

std::string join(
    const std::vector<std::string>& values, const std::string& separator)
{
    switch (values.size())
    {
        case 0:
            return "";

        case 1:
            return values[0];

        default:
            std::stringstream ss;
            ss << values[0];
            for (int i = 1; i < values.size(); i++)
                ss << separator << values[i];
            return ss.str();
    }
}

std::vector<std::string> split(const std::string& string, char separator)
{
    std::vector<std::string> result;
    std::stringstream ss(string);
    std::string item;

    while (std::getline(ss, item, separator))
    {
        result.push_back(item);
    }

    return result;
}

bool beginsWith(const std::string& value, const std::string& ending)
{
    if (ending.size() > value.size())
        return false;
    return std::equal(ending.begin(), ending.end(), value.begin());
}

// Case-insensitive for endings within ASCII.
bool endsWith(const std::string& value, const std::string& ending)
{
    if (ending.size() > value.size())
        return false;

    std::string lowercase(ending.size(), 0);
    std::transform(value.rbegin(),
        value.rbegin() + ending.size(),
        lowercase.begin(),
        [](unsigned char c)
        {
            return std::tolower(c);
        });

    return std::equal(ending.rbegin(), ending.rend(), value.rbegin()) ||
           std::equal(ending.rbegin(), ending.rend(), lowercase.begin());
}

std::string toUpper(const std::string& value)
{
    std::string s = value;
    for (char& c : s)
        c = toupper(c);
    return s;
}

std::string leftTrimWhitespace(std::string value)
{
    value.erase(0, value.find_first_not_of(WHITESPACE));
    return value;
}

std::string rightTrimWhitespace(std::string value)
{
    value.erase(value.find_last_not_of(WHITESPACE) + 1);
    return value;
}

std::string trimWhitespace(const std::string& value)
{
    return leftTrimWhitespace(rightTrimWhitespace(value));
}

std::string getLeafname(const std::string& value)
{
    constexpr char sep = '/';

    size_t i = value.find_last_of(SEPARATORS);
    if (i != std::string::npos)
    {
        return value.substr(i + 1, value.length() - i);
    }

    return value;
}

void testForEmergencyStop()
{
    if (emergencyStop)
        throw EmergencyStopException();
}

std::string toIso8601(time_t t)
{
    auto* tm = std::gmtime(&t);

    std::stringstream ss;
    ss << std::put_time(tm, "%FT%T%z");
    return ss.str();
}

std::string quote(const std::string& s)
{
    bool spaces = s.find(' ') != std::string::npos;
    if (!spaces && (s.find('\\') == std::string::npos) &&
        (s.find('\'') == std::string::npos) &&
        (s.find('"') == std::string::npos))
        return s;

    std::stringstream ss;
    if (spaces)
        ss << '"';

    for (char c : s)
    {
        if ((c == '\\') || (c == '\"') || (c == '!'))
            ss << '\\';
        ss << (char)c;
    }

    if (spaces)
        ss << '"';
    return ss.str();
}

std::string unhex(const std::string& s)
{
    std::stringstream sin(s);
    std::stringstream sout;

    for (;;)
    {
        int c = sin.get();
        if (c == -1)
            break;
        if (c == '%')
        {
            char buf[3];
            buf[0] = sin.get();
            buf[1] = sin.get();
            buf[2] = 0;

            c = std::stoul(buf, nullptr, 16);
        }
        sout << (char)c;
    }

    return sout.str();
}

std::string tohex(const std::string& s)
{
    std::stringstream ss;

    for (uint8_t b : s)
    {
        if ((b >= 32) && (b <= 126))
            ss << (char)b;
        else
            ss << fmt::format("%{:02x}", b);
    }

    return ss.str();
}

bool doesFileExist(const std::string& filename)
{
    std::ifstream f(filename);
    return f.good();
}

int countSetBits(uint32_t word)
{
    int b = 0;
    while (word)
    {
        b += word & 1;
        word >>= 1;
    }
    return b;
}

uint32_t unbcd(uint32_t bcd)
{
    uint32_t dec = 0;

    for (int i = 0; i < 8; i++)
    {
        dec = dec * 10 + (bcd >> 28);
        bcd <<= 4;
    }

    return dec;
}

int findLowestSetBit(uint64_t value)
{
    if (!value)
        return 0;
    int bit = 1;
    while (!(value & 1))
    {
        value >>= 1;
        bit++;
    }
    return bit;
}

double getCurrentTime(void)
{
    struct timeval tv;
    gettimeofday(&tv, NULL);

    return double(tv.tv_sec) + tv.tv_usec / 1000000.0;
}

void warning(const std::string msg)
{
    log(msg);
}