//
// Copyright (c) 2009 Rutger ter Borg
//
// 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)
//

#ifndef BOOST_NUMERIC_BINDINGS_UNIT_UPPER_HPP
#define BOOST_NUMERIC_BINDINGS_UNIT_UPPER_HPP

#include <boost/numeric/bindings/detail/basic_wrapper.hpp>
#include <boost/numeric/bindings/tag.hpp>

namespace boost {
namespace numeric {
namespace bindings {
namespace result_of {

template< typename T >
struct unit_upper {
    typedef detail::basic_wrapper<
        T,
        mpl::pair< tag::matrix_type, tag::unit_triangular >,
        mpl::pair< tag::data_side, tag::upper >
    > type;
};

} // namespace result_of

template< typename T >
typename result_of::unit_upper< T >::type const unit_upper( T& underlying ) {
    return typename result_of::unit_upper< T >::type( underlying );
}

template< typename T >
typename result_of::unit_upper< const T >::type const unit_upper( const T& underlying ) {
    return typename result_of::unit_upper< const T >::type( underlying );
}

} // namespace bindings
} // namespace numeric
} // namespace boost

#endif
