at.hpp
1.44 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
/*==============================================================================
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