/*
 * 
 * Copyright (c) 2002, 2003 Kresimir Fresl, Toon Knapen and Karl Meerbergen
 *
 * Distributed under the Boost Software License, Version 1.0.
 * (See accompanying file LICENSE_1_0.txt or copy at
 * http://www.boost.org/LICENSE_1_0.txt)
 *
 * KF acknowledges the support of the Faculty of Civil Engineering, 
 * University of Zagreb, Croatia.
 *
 */

#ifndef BOOST_NUMERIC_BINDINGS_TRAITS_MATRIX_HPP
#define BOOST_NUMERIC_BINDINGS_TRAITS_MATRIX_HPP

#include <boost/numeric/bindings/traits/is_bindable_vector.hpp>
#include <boost/numeric/bindings/traits/is_bindable_matrix.hpp>
#include <boost/utility/enable_if.hpp>

namespace boost { namespace numeric { namespace bindings { namespace traits {

    // Matrix traits free functions
  template <typename M>
  inline
  typename boost::enable_if< is_bindable_matrix<M>, 
        typename matrix_traits<M>::pointer >::type
  matrix_storage (M& m) { 
    return matrix_traits<M>::storage (m); 
  }

  template <typename M>
  inline
  typename boost::enable_if< is_bindable_matrix<M>, std::ptrdiff_t >::type
  matrix_num_rows (M& m) { return matrix_traits<M>::num_rows (m); }

  template <typename M>
  inline
  typename boost::enable_if< is_bindable_matrix<M>, std::ptrdiff_t >::type
  matrix_num_columns (M& m) { return matrix_traits<M>::num_columns (m); }

  template <typename M>
  inline
  typename boost::enable_if< is_bindable_matrix<M>, std::ptrdiff_t >::type
  matrix_stride1 (M& m) { return matrix_traits<M>::stride1 (m); }

  template <typename M>
  inline
  typename boost::enable_if< is_bindable_matrix<M>, std::ptrdiff_t >::type
  matrix_stride2 (M& m) { return matrix_traits<M>::stride2 (m); }

  template <typename M>
  inline
  typename boost::enable_if< is_bindable_matrix<M>, std::ptrdiff_t >::type
  matrix_upper_bandwidth (M& m) { return matrix_traits<M>::upper_bandwidth (m); }

  template <typename M>
  inline
  typename boost::enable_if< is_bindable_matrix<M>, std::ptrdiff_t >::type
  matrix_lower_bandwidth (M& m) { return matrix_traits<M>::lower_bandwidth (m); }

  template <typename M>
  inline
  typename boost::enable_if< is_bindable_matrix<M>, std::ptrdiff_t >::type
  leading_dimension (M& m) { 
    return matrix_traits<M>::leading_dimension (m); 
  }

  // vector-as-matrix free functions
  template <typename V>
  inline
  typename boost::enable_if< is_bindable_vector<V>, 
        typename vector_traits<V>::pointer >::type
  matrix_storage (V& v) { 
    return vector_traits<V>::storage (v); 
  }

  template <typename V>
  inline
  typename boost::enable_if< is_bindable_vector<V>, std::ptrdiff_t >::type
  matrix_num_rows (V& v) { return vector_traits<V>::size (v); }

  template <typename V>
  inline
  typename boost::enable_if< is_bindable_vector<V>, std::ptrdiff_t >::type
  matrix_num_columns (V& v) { return 1; }

  template <typename V>
  inline
  typename boost::enable_if< is_bindable_vector<V>, std::ptrdiff_t >::type
  leading_dimension (V& v) { 
    return vector_traits<V>::size (v); 
  }

}}}}

#endif