/**
 * @file libimp/result.h
 * @author mutouyun (orz@orzz.org)
 * @brief Define the return value type with a status code
 * @date 2022-04-17
 */
#pragma once

#include <type_traits>
#include <cstdint>

#include "fmt/format.h"

#include "libimp/def.h"
#include "libimp/detect_plat.h"
#include "libimp/export.h"

LIBIMP_NAMESPACE_BEG_

/**
 * @brief Use the least significant (in Little-Endian) of 
 * a 64-bit unsigned integer to indicate success or failure,
 * so the data significant bit cannot exceed 63 bits.
 */
class LIBIMP_EXPORT result_code {
  std::uint64_t status_;

public:
  result_code() noexcept;
  result_code(bool ok, std::uint64_t value = {}) noexcept;

  std::uint64_t value() const noexcept;
  bool ok() const noexcept;

  std::uint64_t operator*() const noexcept {
    return value();
  }
  explicit operator bool() const noexcept {
    return ok();
  }

  friend bool operator==(result_code const &lhs, result_code const &rhs) noexcept;
  friend bool operator!=(result_code const &lhs, result_code const &rhs) noexcept;
};

namespace detail_result {

template <typename T, typename = void>
struct default_traits;

} // namespace detail_result

template <typename T, 
          typename DefTraits = detail_result::default_traits<T>, 
          typename = void>
class result;

namespace detail_result {

template <typename T>
struct default_traits<T, std::enable_if_t<std::is_integral<T>::value>> {
  constexpr static T value() noexcept { return 0; }

  static std::uint64_t cast_to_code(T value) noexcept {
    return static_cast<std::uint64_t>(value);
  }
  static T cast_from_code(std::uint64_t code) noexcept {
    return static_cast<T>(code);
  }
  template <typename Out>
  static auto format(result<T> const &r, Out &&out) noexcept {
    return format_to(out, "{}", *r);
  }
};

template <typename T>
struct default_traits<T, std::enable_if_t<std::is_pointer<T>::value>> {
  constexpr static T value() noexcept { return nullptr; }

  static std::uint64_t cast_to_code(T value) noexcept {
    return reinterpret_cast<std::uint64_t>(value);
  }
  static T cast_from_code(std::uint64_t code) noexcept {
    return reinterpret_cast<T>(code);
  }
  template <typename Out>
  static auto format(result<T> const &r, Out &&out) noexcept {
    if LIBIMP_LIKELY(r) {
      return format_to(out, "{}", static_cast<void *>(*r));
    }
    return format_to(out, "{}, code = {}", static_cast<void *>(*r), r.code());
  }
};

} // namespace detail_result

template <typename T, typename DefTraits>
class result<T, DefTraits, std::enable_if_t<std::is_integral<T>::value>> {

  result_code code_;

public:
  using default_traits_t = DefTraits;

  result() noexcept = default;
  result(bool ok, T value = default_traits_t::value()) noexcept
    : code_(ok, default_traits_t::cast_to_code(value)) {}

  T value() const noexcept { return default_traits_t::cast_from_code(code_.value()); }
  bool ok() const noexcept { return code_.ok(); }

  T operator*() const noexcept {
    return value();
  }
  explicit operator bool() const noexcept {
    return ok();
  }

  friend bool operator==(result const &lhs, result const &rhs) noexcept { return lhs.code_ == rhs.code_; }
  friend bool operator!=(result const &lhs, result const &rhs) noexcept { return lhs.code_ != rhs.code_; }
};

template <typename T, typename DefTraits>
class result<T, DefTraits, std::enable_if_t<std::is_pointer<T>::value>> {

  result_code code_;

public:
  using default_traits_t = DefTraits;

  result(T value = default_traits_t::value()) noexcept
    : code_(default_traits_t::value() != value, 
            default_traits_t::cast_to_code(value)) {}

  result(std::nullptr_t, std::uint64_t code) noexcept
    : code_(false, code) {}

  T value() const noexcept { return code_.ok() ? default_traits_t::cast_from_code(code_.value()) : nullptr; }
  bool ok() const noexcept { return code_.ok(); }
  std::uint64_t code() const noexcept { return code_.value(); }

  T operator*() const noexcept {
    return value();
  }
  explicit operator bool() const noexcept {
    return ok();
  }

  friend bool operator==(result const &lhs, result const &rhs) noexcept { return lhs.code_ == rhs.code_; }
  friend bool operator!=(result const &lhs, result const &rhs) noexcept { return lhs.code_ != rhs.code_; }
};

LIBIMP_NAMESPACE_END_

template <typename T, typename D>
struct fmt::formatter<::LIBIMP_::result<T, D>> {
  constexpr auto parse(format_parse_context& ctx) {
    return ctx.end();
  }

  template <typename FormatContext>
  auto format(::LIBIMP_::result<T, D> r, FormatContext &ctx) {
    return format_to(::LIBIMP_::result<T, D>::default_traits_t::format(r, 
           format_to(ctx.out(), "[{}, value = ", r ? "succ" : "fail")), "]");
  }
};

template <>
struct fmt::formatter<::LIBIMP_::result_code>
          : formatter<::LIBIMP_::result<std::uint64_t>> {
  template <typename FormatContext>
  auto format(::LIBIMP_::result_code r, FormatContext &ctx) {
    return format_to(ctx.out(), "[{}, value = {}]", (r ? "succ" : "fail"), *r);
  }
};