Chris@16
|
1 /*==============================================================================
|
Chris@16
|
2 Copyright (c) 2001-2010 Joel de Guzman
|
Chris@16
|
3 Copyright (c) 2010 Thomas Heller
|
Chris@16
|
4
|
Chris@16
|
5 Distributed under the Boost Software License, Version 1.0. (See accompanying
|
Chris@16
|
6 file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
|
Chris@16
|
7 ==============================================================================*/
|
Chris@16
|
8 #ifndef BOOST_PHOENIX_OBJECT_CONST_CAST_HPP
|
Chris@16
|
9 #define BOOST_PHOENIX_OBJECT_CONST_CAST_HPP
|
Chris@16
|
10
|
Chris@16
|
11 #include <boost/phoenix/core/limits.hpp>
|
Chris@16
|
12 #include <boost/phoenix/core/call.hpp>
|
Chris@16
|
13 #include <boost/phoenix/core/expression.hpp>
|
Chris@16
|
14 #include <boost/phoenix/core/meta_grammar.hpp>
|
Chris@16
|
15 #include <boost/phoenix/object/detail/target.hpp>
|
Chris@16
|
16 #include <boost/proto/transform/lazy.hpp>
|
Chris@16
|
17
|
Chris@16
|
18 BOOST_PHOENIX_DEFINE_EXPRESSION(
|
Chris@16
|
19 (boost)(phoenix)(const_cast_)
|
Chris@16
|
20 , (proto::terminal<detail::target<proto::_> >)
|
Chris@16
|
21 (meta_grammar)
|
Chris@16
|
22 )
|
Chris@16
|
23
|
Chris@16
|
24 namespace boost { namespace phoenix
|
Chris@16
|
25 {
|
Chris@16
|
26 struct const_cast_eval
|
Chris@16
|
27 {
|
Chris@16
|
28 template <typename Sig>
|
Chris@16
|
29 struct result;
|
Chris@16
|
30
|
Chris@16
|
31 template <typename This, typename Target, typename Source, typename Context>
|
Chris@16
|
32 struct result<This(Target, Source, Context)>
|
Chris@16
|
33 : detail::result_of::target<Target>
|
Chris@16
|
34 {};
|
Chris@16
|
35
|
Chris@16
|
36 template <typename Target, typename Source, typename Context>
|
Chris@16
|
37 typename detail::result_of::target<Target>::type
|
Chris@16
|
38 operator()(Target, Source const& u, Context const& ctx) const
|
Chris@16
|
39 {
|
Chris@16
|
40 return
|
Chris@16
|
41 const_cast<
|
Chris@16
|
42 typename detail::result_of::target<Target>::type
|
Chris@16
|
43 >(boost::phoenix::eval(u, ctx));
|
Chris@16
|
44 }
|
Chris@16
|
45 };
|
Chris@16
|
46
|
Chris@16
|
47 template <typename Dummy>
|
Chris@16
|
48 struct default_actions::when<rule::const_cast_, Dummy>
|
Chris@16
|
49 : call<const_cast_eval, Dummy>
|
Chris@16
|
50 {};
|
Chris@16
|
51
|
Chris@16
|
52 template <typename T, typename U>
|
Chris@16
|
53 inline
|
Chris@16
|
54 typename expression::const_cast_<detail::target<T>, U>::type const
|
Chris@16
|
55 const_cast_(U const& u)
|
Chris@16
|
56 {
|
Chris@16
|
57 return
|
Chris@16
|
58 expression::
|
Chris@16
|
59 const_cast_<detail::target<T>, U>::
|
Chris@16
|
60 make(detail::target<T>(), u);
|
Chris@16
|
61 }
|
Chris@16
|
62 }}
|
Chris@16
|
63
|
Chris@16
|
64 #endif
|