123456789101112131415161718192021222324252627282930313233343536373839404142434445464748 |
- /*==============================================================================
- Copyright (c) 2005-2008 Hartmut Kaiser
- Copyright (c) 2005-2010 Joel de Guzman
- Copyright (c) 2010 Thomas Heller
- 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_PHOENIX_FUSION_AT_HPP
- #define BOOST_PHOENIX_FUSION_AT_HPP
- #include <boost/phoenix/core/limits.hpp>
- #include <boost/fusion/sequence/intrinsic/at_c.hpp>
- #include <boost/phoenix/core/expression.hpp>
- #include <boost/phoenix/core/meta_grammar.hpp>
- #include <boost/type_traits/remove_reference.hpp>
-
- BOOST_PHOENIX_DEFINE_EXPRESSION(
- (boost)(phoenix)(at_c)
- , (proto::terminal<proto::_>)
- (meta_grammar)
- )
- namespace boost { namespace phoenix
- {
- template <typename Dummy>
- struct default_actions::when<rule::at_c, Dummy>
- : proto::call<
- proto::functional::at(
- evaluator(proto::_child_c<1>)
- , proto::_value(proto::_child_c<0>)
- )
- >
- {};
- template <int N, typename Tuple>
- inline
- typename expression::at_c<mpl::int_<N>, Tuple>::type const
- at_c(Tuple const& tuple)
- {
- return
- expression::
- at_c<mpl::int_<N>, Tuple>::
- make(mpl::int_<N>(), tuple);
- }
- }}
- #endif
|