// Copyright (C) 2013-2015 Kasper Kristensen
// License: GPL-2

/** \file 
   \brief Defines TMB vectors 
*/


/** \brief Vector class used by TMB.

    The TMB vector class is implemented as an Eigen Array of
    dynamic length. In particular, vectorized operations are inherited
    from the Eigen library.
*/
template <class Type>
struct vector : Eigen::Array<Type,Eigen::Dynamic,1>
{
  typedef Type value_type;
  typedef Eigen::Array<Type,Eigen::Dynamic,1> Base;
  vector(void):Base() {}

  template<class T1>
  vector(T1 x):Base(x) {}

  template<class T1, class T2>
  vector(T1 x, T2 y):Base(x,y) {}
  
  
  template<class T1>
  vector & operator= (const T1 & other)
  {
    this->Base::operator=(other);
    return *this;
  }

  // /* index-vector subset */
  // template <class T>
  // Type & operator()(T ind){
  //   return this->Base::operator()(ind);
  // }
  using Base::operator();

  // kasper: would be better with references, i.e. allow x(indvec)=y;
  vector<Type> operator()(vector<int> ind){
    vector<Type> ans(ind.size());
    for(int i=0;i<ind.size();i++)ans[i]=this->operator[](ind[i]);
    return ans;
  }

  /* Convert to _other_ vector class
     Examples
     1. vector<Type> to CppAD::vector<Type>
     2. vector<int> to CppAD::vector<double>
   */
  template<class T>
  operator CppAD::vector<T>(){
    int n = this->size();
    CppAD::vector<T> x(n);
    for(int i=0; i<n; i++) x[i] = T(this->operator[](i));
    return x;
  }
  /* Convert to _this_ vector class
     Examples:
     2. CppAD::vector<Type> to vector<Type>
     3. CppAD::vector<int> to vector<double>

     FIXME:
     Which one takes care of: vector<int> to vector<double> ?
  */
  template<class T>
  vector(CppAD::vector<T> x):Base(){
    int n = x.size();
    this->resize(n);
    for(int i=0; i<n; i++) this->operator[](i) = Type(x[i]);
  }

  // std::vector
  operator std::vector<Type>(){
    int n = this->size();
    std::vector<Type> x(n);
    for(int i=0; i<n; i++) x[i] = (*this)(i);
    return x;
  }
  vector(const std::vector<Type> &x) : Base(){
    int n = x.size();
    this->resize(n);
    for(int i=0; i<n; i++) (*this)[i] = x[i];
  }

  vector<Type> vec() { return *this; }
};

/** \brief Matrix class used by TMB.

    The TMB matrix class is implemented as an Eigen Matrix of
    dynamic dimension. In particular, linear algebra methods are inherited
    from the Eigen library.
*/
template <class Type>
struct matrix : Eigen::Matrix<Type,Eigen::Dynamic,Eigen::Dynamic>
{
  typedef Eigen::Matrix<Type,Eigen::Dynamic,Eigen::Dynamic> Base;
  matrix(void):Base() {}
  template<class T1>
  matrix(T1 x):Base(x) {}
  template<class T1, class T2>
  matrix(T1 x, T2 y):Base(x,y) {}
  
  template<class T1>
  matrix & operator= (const T1 & other)
  {
    this->Base::operator=(other);
    return *this;
  }

  /**
     The vec operator stacks the matrix columns into a single vector.
  */
  vector<Type> vec(){
    Eigen::Array<Type,Eigen::Dynamic,Eigen::Dynamic> a = this->array();
    a.resize(a.size(), 1);
    return a;
  }
};
