Chris@16: /*==============================================================================
Chris@16:     Copyright (c) 2005-2008 Hartmut Kaiser
Chris@16:     Copyright (c) 2005-2010 Joel de Guzman
Chris@16:     Copyright (c) 2010 Thomas Heller
Chris@16: 
Chris@16:     Distributed under the Boost Software License, Version 1.0. (See accompanying
Chris@16:     file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
Chris@16: ==============================================================================*/
Chris@16: #ifndef BOOST_PHOENIX_FUSION_AT_HPP
Chris@16: #define BOOST_PHOENIX_FUSION_AT_HPP
Chris@16: 
Chris@16: #include <boost/phoenix/core/limits.hpp>
Chris@16: #include <boost/fusion/sequence/intrinsic/at_c.hpp>
Chris@16: #include <boost/phoenix/core/expression.hpp>
Chris@16: #include <boost/phoenix/core/meta_grammar.hpp>
Chris@16: #include <boost/type_traits/remove_reference.hpp>
Chris@16:     
Chris@16: BOOST_PHOENIX_DEFINE_EXPRESSION(
Chris@16:     (boost)(phoenix)(at_c)
Chris@16:   , (proto::terminal<proto::_>)
Chris@16:     (meta_grammar)
Chris@16: )
Chris@16: 
Chris@16: namespace boost { namespace phoenix
Chris@16: {
Chris@16:     template <typename Dummy>
Chris@16:     struct default_actions::when<rule::at_c, Dummy>
Chris@16:         : proto::call<
Chris@16:             proto::functional::at(
Chris@16:                 evaluator(proto::_child_c<1>)
Chris@16:               , proto::_value(proto::_child_c<0>)
Chris@16:             )
Chris@16:         >
Chris@16:     {};
Chris@16: 
Chris@16:     template <int N, typename Tuple>
Chris@16:     inline
Chris@16:     typename expression::at_c<mpl::int_<N>, Tuple>::type const
Chris@16:     at_c(Tuple const& tuple)
Chris@16:     {
Chris@16:         return
Chris@16:             expression::
Chris@16:                 at_c<mpl::int_<N>, Tuple>::
Chris@16:                     make(mpl::int_<N>(), tuple);
Chris@16:     }
Chris@16: }}
Chris@16: 
Chris@16: #endif