#ifndef PYTHONIC_INCLUDE_NUMPY_TRANSPOSE_HPP
#define PYTHONIC_INCLUDE_NUMPY_TRANSPOSE_HPP

#include "pythonic/include/utils/functor.hpp"
#include "pythonic/include/utils/numpy_conversion.hpp"
#include "pythonic/include/utils/nested_container.hpp"
#include "pythonic/include/types/ndarray.hpp"
#include "pythonic/include/types/numpy_expr.hpp"

PYTHONIC_NS_BEGIN

namespace numpy
{
  template <class E>
  E transpose(types::numpy_texpr<E> const &arr)
  {
    return arr.arg;
  }

  template <class E>
  typename std::enable_if<E::value == 2, types::numpy_texpr<E>>::type
  transpose(E const &arr)
  {
    return {arr};
  }

  template <class E>
  typename std::enable_if<E::value == 1, E>::type transpose(E const &arr)
  {
    return arr;
  }

  template <class T, class pS>
  typename std::enable_if<
      (std::tuple_size<pS>::value > 2),
      types::ndarray<T, types::array<long, std::tuple_size<pS>::value>>>::type
  transpose(types::ndarray<T, pS> const &a);

  template <class T, class pS, size_t M>
  types::ndarray<T, types::array<long, std::tuple_size<pS>::value>>
  transpose(types::ndarray<T, pS> const &a, types::array<long, M> const &t);

  template <class T, class pS, class... Args>
  types::ndarray<T, types::array<long, 1 + sizeof...(Args)>>
  transpose(types::ndarray<T, pS> const &a, long index, Args const &... indices)
  {
    return transpose(
        a, types::array<long, 1 + sizeof...(Args)>{{index, (long)indices...}});
  }

  template <class Op, class... Args, size_t... Is>
  auto _transpose(types::numpy_expr<Op, Args...> const &expr,
                  utils::index_sequence<Is...>)
      -> decltype(Op{}(transpose(std::get<Is>(expr.args)...)))
  {
    return Op{}(transpose(std::get<Is>(expr.args)...));
  }

  template <class Op, class... Args>
  auto transpose(types::numpy_expr<Op, Args...> const &expr)
      -> decltype(_transpose(expr,
                             utils::make_index_sequence<sizeof...(Args)>()))
  {
    return _transpose(expr, utils::make_index_sequence<sizeof...(Args)>());
  }

  template <class E>
  auto transpose(E const &expr) -> typename std::enable_if<
      (E::value > 2),
      decltype(transpose(types::ndarray<typename E::dtype, typename E::shape_t>{
          expr}))>::type
  {
    return transpose(
        types::ndarray<typename E::dtype, typename E::shape_t>{expr});
  }

  DEFINE_FUNCTOR(pythonic::numpy, transpose);
}
PYTHONIC_NS_END

#endif