#ifndef RFL_BSON_WRITER_HPP_
#define RFL_BSON_WRITER_HPP_

#include <bson/bson.h>
#include <exception>
#include <map>
#include <sstream>
#include <stdexcept>
#include <string>
#include <string_view>
#include <type_traits>
#include <variant>
#include <vector>

#include "../Box.hpp"
#include "../Ref.hpp"
#include "../Result.hpp"
#include "../always_false.hpp"

namespace rfl {
  namespace bson {

    /// Please refer to https://mongoc.org/libbson/current/api.html
    class Writer {
      struct BSONType {
        bson_t val_;
      };

      struct IsArray {
        bson_array_builder_t* ptr_;
      };

      struct IsObject {
        bson_t* ptr_;
      };

      struct IsRoot {};

      using ParentType = std::variant<IsArray, IsObject, IsRoot>;

     public:
      struct BSONOutputArray {
        BSONOutputArray(bson_array_builder_t* _val, ParentType _parent)
            : parent_(_parent), val_(_val) {}
        ParentType            parent_;
        bson_array_builder_t* val_;
      };

      struct BSONOutputObject {
        BSONOutputObject(bson_t* _val, ParentType _parent)
            : parent_(_parent), val_(_val) {}
        ParentType parent_;
        bson_t*    val_;
      };

      struct BSONOutputVar {};

      using OutputArrayType  = BSONOutputArray;
      using OutputObjectType = BSONOutputObject;
      using OutputVarType    = BSONOutputVar;

      Writer(bson_t* _doc) : doc_(_doc) {}

      ~Writer() = default;

      OutputArrayType array_as_root(const size_t _size) const noexcept {
        bson_array_builder_t* val = bson_array_builder_new();
        return OutputArrayType(val, IsRoot {});
      }

      OutputObjectType object_as_root(const size_t _size) const noexcept {
        return OutputObjectType(doc_, IsRoot {});
      }

      OutputVarType null_as_root() const noexcept {
        // Appears to be unsupported by the BSON C API.
        return OutputVarType {};
      }

      template <class T>
      OutputVarType value_as_root(const T& _var) const noexcept {
        static_assert(
            rfl::always_false_v<T>,
            "BSON only allows arrays or objects as its root."
        );
        return OutputVarType {};
      }

      OutputArrayType add_array_to_array(
          const size_t     _size,
          OutputArrayType* _parent
      ) const noexcept {
        bson_array_builder_t* val;
        bson_array_builder_append_array_builder_begin(_parent->val_, &val);
        return OutputArrayType(val, IsArray {_parent->val_});
      }

      OutputArrayType add_array_to_object(
          const std::string_view& _name,
          const size_t            _size,
          OutputObjectType*       _parent
      ) const noexcept {
        bson_array_builder_t* val;
        bson_append_array_builder_begin(
            _parent->val_, _name.data(), static_cast<int>(_name.size()), &val
        );
        return OutputArrayType(val, IsObject {_parent->val_});
      }

      OutputObjectType add_object_to_array(
          const size_t     _size,
          OutputArrayType* _parent
      ) const noexcept {
        subdocs_->emplace_back(rfl::Box<BSONType>());
        bson_array_builder_append_document_begin(
            _parent->val_, &(subdocs_->back()->val_)
        );
        return OutputObjectType(
            &subdocs_->back()->val_, IsArray {_parent->val_}
        );
      }

      OutputObjectType add_object_to_object(
          const std::string_view& _name,
          const size_t            _size,
          OutputObjectType*       _parent
      ) const noexcept {
        subdocs_->emplace_back(rfl::Box<BSONType>());
        bson_append_document_begin(
            _parent->val_,
            _name.data(),
            static_cast<int>(_name.size()),
            &(subdocs_->back()->val_)
        );
        return OutputObjectType(
            &subdocs_->back()->val_, IsObject {_parent->val_}
        );
      }

      template <class T>
      OutputVarType add_value_to_array(const T& _var, OutputArrayType* _parent)
          const noexcept {
        if constexpr (std::is_same<std::remove_cvref_t<T>, std::string>()) {
          bson_array_builder_append_utf8(
              _parent->val_, _var.c_str(), static_cast<int>(_var.size())
          );
        } else if constexpr (std::is_same<std::remove_cvref_t<T>, bool>()) {
          bson_array_builder_append_bool(_parent->val_, _var);
        } else if constexpr (std::is_floating_point<std::remove_cvref_t<T>>()) {
          bson_array_builder_append_double(
              _parent->val_, static_cast<double>(_var)
          );
        } else if constexpr (std::is_integral<std::remove_cvref_t<T>>()) {
          bson_array_builder_append_int64(
              _parent->val_, static_cast<std::int64_t>(_var)
          );
        } else if constexpr (std::is_same<std::remove_cvref_t<T>, bson_oid_t>(
                             )) {
          bson_array_builder_append_oid(_parent->val_, &_var);
        } else {
          static_assert(rfl::always_false_v<T>, "Unsupported type.");
        }
        return OutputVarType {};
      }

      template <class T>
      OutputVarType add_value_to_object(
          const std::string_view& _name,
          const T&                _var,
          OutputObjectType*       _parent
      ) const noexcept {
        if constexpr (std::is_same<std::remove_cvref_t<T>, std::string>()) {
          bson_append_utf8(
              _parent->val_,
              _name.data(),
              static_cast<int>(_name.size()),
              _var.c_str(),
              static_cast<int>(_var.size())
          );
        } else if constexpr (std::is_same<std::remove_cvref_t<T>, bool>()) {
          bson_append_bool(
              _parent->val_, _name.data(), static_cast<int>(_name.size()), _var
          );
        } else if constexpr (std::is_floating_point<std::remove_cvref_t<T>>()) {
          bson_append_double(
              _parent->val_,
              _name.data(),
              static_cast<int>(_name.size()),
              static_cast<double>(_var)
          );
        } else if constexpr (std::is_integral<std::remove_cvref_t<T>>()) {
          bson_append_int64(
              _parent->val_,
              _name.data(),
              static_cast<int>(_name.size()),
              static_cast<std::int64_t>(_var)
          );
        } else if constexpr (std::is_same<std::remove_cvref_t<T>, bson_oid_t>(
                             )) {
          bson_append_oid(
              _parent->val_, _name.data(), static_cast<int>(_name.size()), &_var
          );
        } else {
          static_assert(rfl::always_false_v<T>, "Unsupported type.");
        }
        return OutputVarType {};
      }

      OutputVarType add_null_to_array(OutputArrayType* _parent) const noexcept {
        bson_array_builder_append_null(_parent->val_);
        return OutputVarType {};
      }

      OutputVarType add_null_to_object(
          const std::string_view& _name,
          OutputObjectType*       _parent
      ) const noexcept {
        bson_append_null(
            _parent->val_, _name.data(), static_cast<int>(_name.size())
        );
        return OutputVarType {};
      }

      void end_array(OutputArrayType* _arr) const noexcept {
        const auto handle = [&](const auto _parent) {
          using Type = std::remove_cvref_t<decltype(_parent)>;
          if constexpr (std::is_same<Type, IsArray>()) {
            bson_array_builder_append_array_builder_end(
                _parent.ptr_, _arr->val_
            );
          } else if constexpr (std::is_same<Type, IsObject>()) {
            bson_append_array_builder_end(_parent.ptr_, _arr->val_);
          } else if constexpr (std::is_same<Type, IsRoot>()) {
            bson_array_builder_build(_arr->val_, doc_);
          } else {
            static_assert(rfl::always_false_v<Type>, "Unsupported type.");
          }
        };
        std::visit(handle, _arr->parent_);
      }

      void end_object(OutputObjectType* _obj) const noexcept {
        const auto handle = [&](const auto _parent) {
          using Type = std::remove_cvref_t<decltype(_parent)>;
          if constexpr (std::is_same<Type, IsArray>()) {
            bson_array_builder_append_document_end(_parent.ptr_, _obj->val_);
          } else if constexpr (std::is_same<Type, IsObject>()) {
            bson_append_document_end(_parent.ptr_, _obj->val_);
          } else if constexpr (std::is_same<Type, IsRoot>()) {
          } else {
            static_assert(rfl::always_false_v<Type>, "Unsupported type.");
          }
        };
        std::visit(handle, _obj->parent_);
      }

     private:
      /// Pointer to the main document. In BSON, documents are what are usually
      /// called objects.
      bson_t* const doc_;

      /// Contain all of the subdocuments.
      const rfl::Ref<std::vector<rfl::Box<BSONType>>> subdocs_;
    };

  } // namespace bson
} // namespace rfl

#endif // BSON_PARSER_HPP_