Teuchos_Tuple.hpp

// @HEADER
// ***********************************************************************
// 
//                    Teuchos: Common Tools Package
//                 Copyright (2004) Sandia Corporation
// 
// Under terms of Contract DE-AC04-94AL85000, there is a non-exclusive
// license for use of this work by or on behalf of the U.S. Government.
// 
// This library is free software; you can redistribute it and/or modify
// it under the terms of the GNU Lesser General Public License as
// published by the Free Software Foundation; either version 2.1 of the
// License, or (at your option) any later version.
//  
// This library is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Lesser General Public License for more details.
//  
// You should have received a copy of the GNU Lesser General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
// USA
// Questions? Contact Michael A. Heroux (maherou@sandia.gov) 
// 
// ***********************************************************************
// @HEADER

#ifndef TEUCHOS_TUPLE_HPP
#define TEUCHOS_TUPLE_HPP


#include "Teuchos_ArrayView.hpp"


namespace Teuchos {


template<typename T, int N>
class Tuple : public ArrayView<T> {
public:
  
  inline Tuple();
  
  Tuple( const Tuple<T,N> &t );
  
  Tuple<T,N>& operator=( const Tuple<T,N> &t );

private:

  T array_[N];

};


template<typename T> inline
Tuple<T,1> tuple(const T& a);

                      
template<typename T> inline
Tuple<T,2> tuple(const T& a, const T& b);


template<typename T> inline
Tuple<T,3> tuple(const T& a, const T& b, const T& c);


template<typename T> inline
Tuple<T,4> tuple(const T& a, const T& b, const T& c, const T& d);


template<typename T> inline
Tuple<T,5> tuple(const T& a, const T& b, const T& c, const T& d, const T& e);


template<typename T> inline
Tuple<T,6> tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f);


template<typename T> inline
Tuple<T,7> tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g);


template<typename T> inline
Tuple<T,8> tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h);


template<typename T> inline
Tuple<T,9> tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i);


template<typename T> inline
Tuple<T,10> tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i, const T& j);


template<typename T> inline
Tuple<T,11> tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i, const T& j, const T& k);


template<typename T> inline
Tuple<T,12> tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i, const T& j, const T& k,
  const T& l);


template<typename T> inline
Tuple<T,13> tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i, const T& j, const T& k,
  const T& l, const T& m);


template<typename T> inline
Tuple<T,14> tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i, const T& j, const T& k,
  const T& l, const T& m, const T& n);


template<typename T> inline
Tuple<T,15> tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i, const T& j, const T& k,
  const T& l, const T& m, const T& n, const T& o);


//
// Implementations
//


template<typename T, int N> inline
Tuple<T,N>::Tuple()
:ArrayView<T>() // To get rid of warnings!
{
  ArrayView<T>::operator=(ArrayView<T>(&array_[0],N));
}


template<typename T, int N>
Tuple<T,N>::Tuple( const Tuple<T,N> &t )
:ArrayView<T>() // To get rid of warnings!
{
  for( int i = 0; i < N; ++i )
    array_[i] = t[i];
  // Above, this loop with static N should allow the compiler to unroll this
  // entire loop!
  ArrayView<T>::operator=(ArrayView<T>(&array_[0],N));
}


template<typename T, int N>
Tuple<T,N>& Tuple<T,N>::operator=( const Tuple<T,N> &t )
{
  for( int i = 0; i < N; ++i )
    array_[i] = t[i];
  // Above, this loop with static N should allow the compiler to unroll this
  // entire loop!
  return *this;
}


} // end namespace Teuchos


//
// Nonmember function implementations
//


template<typename T> inline
Teuchos::Tuple<T,1>
Teuchos::tuple(const T& a)
{
  Tuple<T,1> rtn;
  rtn[0] = a;
  return rtn;
}


template<typename T> inline
Teuchos::Tuple<T,2>
Teuchos::tuple(const T& a, const T& b)
{
  Tuple<T,2> rtn;
  rtn[0] = a;
  rtn[1] = b;
  return rtn;
}


template<typename T> inline
Teuchos::Tuple<T,3>
Teuchos::tuple(const T& a, const T& b, const T& c)
{
  Tuple<T,3> rtn;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  return rtn;
}


template<typename T> inline
Teuchos::Tuple<T,4>
Teuchos::tuple(const T& a, const T& b, const T& c, const T& d)
{
  Tuple<T,4> rtn;;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  rtn[3] = d;
  return rtn;
}


template<typename T> inline
Teuchos::Tuple<T,5>
Teuchos::tuple(const T& a, const T& b, const T& c, const T& d, const T& e)
{
  Tuple<T,5> rtn;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  rtn[3] = d;
  rtn[4] = e;
  return rtn;
}


template<typename T> inline
Teuchos::Tuple<T,6>
Teuchos::tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f)
{
  Tuple<T,6> rtn;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  rtn[3] = d;
  rtn[4] = e;
  rtn[5] = f;
  return rtn;
}


template<typename T> inline
Teuchos::Tuple<T,7>
Teuchos::tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g)
{
  Tuple<T,7> rtn;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  rtn[3] = d;
  rtn[4] = e;
  rtn[5] = f;
  rtn[6] = g;
  return rtn;
}


template<typename T> inline
Teuchos::Tuple<T,8>
Teuchos::tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h)
{
  Tuple<T,8> rtn;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  rtn[3] = d;
  rtn[4] = e;
  rtn[5] = f;
  rtn[6] = g;
  rtn[7] = h;
  return rtn;
}


template<typename T> inline
Teuchos::Tuple<T,9>
Teuchos::tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i)
{
  Tuple<T,9> rtn;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  rtn[3] = d;
  rtn[4] = e;
  rtn[5] = f;
  rtn[6] = g;
  rtn[7] = h;
  rtn[8] = i;
  return rtn;
}


template<typename T> inline
Teuchos::Tuple<T,10>
Teuchos::tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i, const T& j)
{
  Tuple<T,10> rtn;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  rtn[3] = d;
  rtn[4] = e;
  rtn[5] = f;
  rtn[6] = g;
  rtn[7] = h;
  rtn[8] = i;
  rtn[9] = j;
  return rtn;
}


template<typename T> inline
Teuchos::Tuple<T,11>
Teuchos::tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i, const T& j, const T& k)
{
  Tuple<T,11> rtn;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  rtn[3] = d;
  rtn[4] = e;
  rtn[5] = f;
  rtn[6] = g;
  rtn[7] = h;
  rtn[8] = i;
  rtn[9] = j;
  rtn[10] = k;
  return rtn;
}

template<typename T> inline
Teuchos::Tuple<T,12>
Teuchos::tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i, const T& j, const T& k,
  const T& l)
{
  Tuple<T,12> rtn;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  rtn[3] = d;
  rtn[4] = e;
  rtn[5] = f;
  rtn[6] = g;
  rtn[7] = h;
  rtn[8] = i;
  rtn[9] = j;
  rtn[10] = k;
  rtn[11] = l;
  return rtn;
}

template<typename T> inline
Teuchos::Tuple<T,13>
Teuchos::tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i, const T& j, const T& k,
  const T& l, const T& m)
{
  Tuple<T,13> rtn;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  rtn[3] = d;
  rtn[4] = e;
  rtn[5] = f;
  rtn[6] = g;
  rtn[7] = h;
  rtn[8] = i;
  rtn[9] = j;
  rtn[10] = k;
  rtn[11] = l;
  rtn[12] = m;
  return rtn;
}


template<typename T> inline
Teuchos::Tuple<T,14>
Teuchos::tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i, const T& j, const T& k,
  const T& l, const T& m, const T& n)
{
  Tuple<T,14> rtn;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  rtn[3] = d;
  rtn[4] = e;
  rtn[5] = f;
  rtn[6] = g;
  rtn[7] = h;
  rtn[8] = i;
  rtn[9] = j;
  rtn[10] = k;
  rtn[11] = l;
  rtn[12] = m;
  rtn[13] = n;
  return rtn;
}


template<typename T> inline
Teuchos::Tuple<T,15>
Teuchos::tuple(const T& a, const T& b, const T& c, const T& d, const T& e,
  const T& f, const T& g, const T& h, const T& i, const T& j, const T& k,
  const T& l, const T& m, const T& n, const T& o)
{
  Tuple<T,15> rtn;
  rtn[0] = a;
  rtn[1] = b;
  rtn[2] = c;
  rtn[3] = d;
  rtn[4] = e;
  rtn[5] = f;
  rtn[6] = g;
  rtn[7] = h;
  rtn[8] = i;
  rtn[9] = j;
  rtn[10] = k;
  rtn[11] = l;
  rtn[12] = m;
  rtn[13] = n;
  rtn[14] = o;
  return rtn;
}


#endif  // TEUCHOS_TUPLE_HPP

---