/******************************************************************************
 *                       ____    _    _____                                   *
 *                      / ___|  / \  |  ___|    C++                           *
 *                     | |     / _ \ | |_       Actor                         *
 *                     | |___ / ___ \|  _|      Framework                     *
 *                      \____/_/   \_|_|                                      *
 *                                                                            *
 * Copyright 2011-2018 Dominik Charousset                                     *
 *                                                                            *
 * Distributed under the terms and conditions of the BSD 3-Clause License or  *
 * (at your option) under the terms and conditions of the Boost Software      *
 * License 1.0. See accompanying files LICENSE and LICENSE_ALTERNATIVE.       *
 *                                                                            *
 * If you did not receive a copy of the license files, see                    *
 * http://opensource.org/licenses/BSD-3-Clause and                            *
 * http://www.boost.org/LICENSE_1_0.txt.                                      *
 ******************************************************************************/

#pragma once

#include <tuple>

#include "caf/detail/apply_args.hpp"
#include "caf/detail/core_export.hpp"
#include "caf/detail/spawn_fwd.hpp"
#include "caf/detail/unique_function.hpp"
#include "caf/fwd.hpp"

namespace caf::detail {

class CAF_CORE_EXPORT init_fun_factory_helper_base
  : public unique_function<behavior(local_actor*)>::wrapper {
public:
  // -- member types -----------------------------------------------------------

  using super = unique_function<behavior(local_actor*)>::wrapper;

  using hook_fun_type = unique_function<void(local_actor*)>;

  // -- constructors, destructors, and assignment operators --------------------

  using super::super;

  // -- properties -------------------------------------------------------------

  template <class T>
  void hook(T&& x) {
    hook_ = hook_fun_type{std::forward<T>(x)};
  }

protected:
  // -- member variables -------------------------------------------------------

  hook_fun_type hook_;
};

/// Wraps a user-defined function and gives it a uniform signature.
template <class Base, class F, class Tuple, bool ReturnsBehavior,
          bool HasSelfPtr>
class init_fun_factory_helper final : public init_fun_factory_helper_base {
public:
  using args_pointer = std::shared_ptr<Tuple>;

  static constexpr bool args_empty = std::tuple_size<Tuple>::value == 0;

  init_fun_factory_helper(F fun, args_pointer args)
    : fun_(std::move(fun)), args_(std::move(args)) {
    // nop
  }

  init_fun_factory_helper(init_fun_factory_helper&&) = default;

  init_fun_factory_helper& operator=(init_fun_factory_helper&&) = default;

  behavior operator()(local_actor* self) final {
    if (hook_ != nullptr)
      hook_(self);
    [[maybe_unused]] auto dptr = static_cast<Base*>(self);
    if constexpr (ReturnsBehavior) {
      auto unbox = [](auto x) -> behavior { return std::move(x.unbox()); };
      if constexpr (args_empty) {
        if constexpr (HasSelfPtr) {
          // behavior (pointer)
          return unbox(fun_(dptr));
        } else {
          // behavior ()
          return unbox(fun_());
        }
      } else {
        if constexpr (HasSelfPtr) {
          // behavior (pointer, args...)
          auto res = apply_moved_args_prefixed(fun_, get_indices(*args_),
                                               *args_, dptr);
          return unbox(std::move(res));
        } else {
          // behavior (args...)
          return unbox(apply_args(fun_, get_indices(*args_), *args_));
        }
      }
    } else {
      if constexpr (args_empty) {
        if constexpr (HasSelfPtr) {
          // void (pointer)
          fun_(dptr);
        } else {
          // void ()
          fun_();
        }
      } else {
        if constexpr (HasSelfPtr) {
          // void (pointer, args...)
          apply_moved_args_prefixed(fun_, get_indices(*args_), *args_, dptr);
        } else {
          // void (args...)
          apply_args(fun_, get_indices(*args_), *args_);
        }
      }
      return {};
    }
  }

  F fun_;
  args_pointer args_;
};

template <class Base, class F>
class init_fun_factory {
public:
  using ptr_type = std::unique_ptr<init_fun_factory_helper_base>;

  using fun = unique_function<behavior(local_actor*)>;

  template <class... Ts>
  ptr_type make(F f, Ts&&... xs) {
    static_assert(std::is_base_of<local_actor, Base>::value,
                  "Given Base does not extend local_actor");
    using trait = typename detail::get_callable_trait<F>::type;
    using arg_types = typename trait::arg_types;
    using res_type = typename trait::result_type;
    using first_arg = typename detail::tl_head<arg_types>::type;
    constexpr bool selfptr = std::is_pointer<first_arg>::value;
    constexpr bool rets = std::is_convertible<res_type, behavior>::value;
    using tuple_type = decltype(std::make_tuple(detail::spawn_fwd<Ts>(xs)...));
    using helper = init_fun_factory_helper<Base, F, tuple_type, rets, selfptr>;
    return ptr_type{new helper{std::move(f), sizeof...(Ts) > 0
                                               ? std::make_shared<tuple_type>(
                                                 detail::spawn_fwd<Ts>(xs)...)
                                               : nullptr}};
  }

  template <class... Ts>
  fun operator()(F f, Ts&&... xs) {
    return fun{make(std::move(f), std::forward<Ts>(xs)...).release()};
  }
};

} // namespace caf::detail
