/*
  Copyright <2018-2026> <scott.e.graves@protonmail.com>

  Permission is hereby granted, free of charge, to any person obtaining a copy
  of this software and associated documentation files (the "Software"), to deal
  in the Software without restriction, including without limitation the rights
  to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  copies of the Software, and to permit persons to whom the Software is
  furnished to do so, subject to the following conditions:

  The above copyright notice and this permission notice shall be included in all
  copies or substantial portions of the Software.

  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  SOFTWARE.
*/
#include "utils/string.hpp"

namespace fifthgrid::utils::string {
auto from_bool(bool val) -> std::string {
  return std::to_string(static_cast<int>(val));
}

#if defined(PROJECT_ENABLE_BOOST)
auto from_dynamic_bitset(const boost::dynamic_bitset<> &bitset) -> std::string {
  std::stringstream stream;
  boost::archive::text_oarchive archive(stream);
  archive << bitset;
  return stream.str();
}
#endif // defined(PROJECT_ENABLE_BOOST)

auto from_utf8(std::string_view str) -> std::wstring {
  if (str.empty()) {
    return L"";
  }

  std::wstring out;

  const auto *str_ptr = reinterpret_cast<const std::uint8_t *>(str.data());
  std::int32_t idx{};
  auto len{static_cast<std::int32_t>(str.size())};

#if WCHAR_MAX <= 0xFFFF
  out.reserve((str.size() + 1U) / 2U);
  while (idx < len) {
    UChar32 uni_ch{};
    U8_NEXT(str_ptr, idx, len, uni_ch);
    if (uni_ch < 0 || not U_IS_UNICODE_CHAR(uni_ch)) {
      throw std::runtime_error("from_utf8: invalid UTF-8 sequence");
    }
    std::array<UChar, 2U> units{};
    std::int32_t off{};
    auto err{false};
    U16_APPEND(units.data(), off, 2, uni_ch, err);
    if (err || off <= 0) {
      throw std::runtime_error("from_utf8: U16_APPEND failed");
    }
    out.push_back(static_cast<wchar_t>(units[0U]));
    if (off == 2) {
      out.push_back(static_cast<wchar_t>(units[1U]));
    }
  }
#else  // WCHAR_MAX > 0xFFFF
  out.reserve(str.size());
  while (idx < len) {
    UChar32 uni_ch{};
    U8_NEXT(str_ptr, idx, len, uni_ch);
    if (uni_ch < 0 || not U_IS_UNICODE_CHAR(uni_ch)) {
      throw std::runtime_error("from_utf8: invalid UTF-8 sequence");
    }
    out.push_back(static_cast<wchar_t>(uni_ch));
  }
#endif // WCHAR_MAX <= 0xFFFF

  return out;
}

#if defined(PROJECT_ENABLE_SFML)
auto replace_sf(sf::String &src, const sf::String &find, const sf::String &with,
                std::size_t start_pos) -> sf::String & {
  if (not src.isEmpty() && (start_pos < src.getSize())) {
    while ((start_pos = src.find(find, start_pos)) != std::string::npos) {
      src.replace(start_pos, find.getSize(), with);
      start_pos += with.getSize();
    }
  }

  return src;
}

auto split_sf(sf::String str, wchar_t delim, bool should_trim)
    -> std::vector<sf::String> {
  auto result = std::views::split(str.toWideString(), delim);

  std::vector<sf::String> ret{};
  for (auto &&word : result) {
    auto val = std::wstring{word.begin(), word.end()};
    if (should_trim) {
      trim(val);
    }
    ret.emplace_back(val);
  }

  return ret;
}
#endif // defined(PROJECT_ENABLE_SFML)

auto to_bool(std::string val) -> bool {
  auto ret = false;

  trim(val);
  if (is_numeric(val)) {
    if (contains(val, ".")) {
      ret = (to_double(val) != 0.0);
    } else {
      std::istringstream(val) >> ret;
    }
  } else {
    std::istringstream(to_lower(val)) >> std::boolalpha >> ret;
  }

  return ret;
}

auto to_double(const std::string &str) -> double { return std::stod(str); }

#if defined(PROJECT_ENABLE_BOOST)
auto to_dynamic_bitset(const std::string &val) -> boost::dynamic_bitset<> {
  std::stringstream stream(val);
  boost::dynamic_bitset<> bitset;
  boost::archive::text_iarchive archive(stream);
  archive >> bitset;
  return bitset;
}
#endif // defined(PROJECT_ENABLE_BOOST)

auto to_int32(const std::string &val) -> std::int32_t { return std::stoi(val); }

auto to_int64(const std::string &val) -> std::int64_t {
  return std::stoll(val);
}

auto to_size_t(const std::string &val) -> std::size_t {
  return static_cast<std::size_t>(std::stoull(val));
}

auto to_uint8(const std::string &val) -> std::uint8_t {
  return static_cast<std::uint8_t>(std::stoul(val));
}

auto to_uint16(const std::string &val) -> std::uint16_t {
  return static_cast<std::uint16_t>(std::stoul(val));
}

auto to_uint32(const std::string &val) -> std::uint32_t {
  return static_cast<std::uint32_t>(std::stoul(val));
}

auto to_uint64(const std::string &val) -> std::uint64_t {
  return std::stoull(val);
}

auto to_utf8(std::string_view str) -> std::string { return std::string{str}; }

auto to_utf8(std::wstring_view str) -> std::string {
  if (str.empty()) {
    return "";
  }

  std::string out;
  out.reserve(static_cast<size_t>(str.size()) * 4);

#if WCHAR_MAX <= 0xFFFF
  const auto *u16 = reinterpret_cast<const UChar *>(str.data());
  std::int32_t idx{};
  auto len{static_cast<int32_t>(str.size())};
  while (idx < len) {
    UChar32 uni_ch{};
    U16_NEXT(u16, idx, len, uni_ch);
    if (uni_ch < 0 || not U_IS_UNICODE_CHAR(uni_ch)) {
      throw std::runtime_error("to_utf8: invalid UTF-16 sequence");
    }
    std::array<std::uint8_t, U8_MAX_LENGTH> buf{};
    std::int32_t off{0};
    auto err{false};
    U8_APPEND(buf, off, U8_MAX_LENGTH, uni_ch, err);
    if (err || off <= 0) {
      throw std::runtime_error("to_utf8: U8_APPEND failed");
    }
    out.append(reinterpret_cast<const char *>(buf.data()),
               static_cast<std::size_t>(off));
  }
#else  // WCHAR_MAX > 0xFFFF
  for (const auto &cur_ch : str) {
    auto uni_char{static_cast<UChar32>(cur_ch)};
    if (not U_IS_UNICODE_CHAR(uni_char)) {
      throw std::runtime_error("to_utf8: invalid Unicode scalar value");
    }
    std::array<std::uint8_t, U8_MAX_LENGTH> buf{};
    std::int32_t off{0};
    auto err{false};
    U8_APPEND(buf, off, U8_MAX_LENGTH, uni_char, err);
    if (err || off <= 0) {
      throw std::runtime_error("to_utf8: U8_APPEND failed");
    }
    out.append(reinterpret_cast<const char *>(buf.data()),
               static_cast<std::size_t>(off));
  }
#endif // WCHAR_MAX <= 0xFFFF

  return out;
}
} // namespace fifthgrid::utils::string
