Mercurial > hg > vamp-build-and-test

annotate DEPENDENCIES/generic/include/boost/spirit/home/phoenix/operator/self.hpp @ 89:3c438d716e83

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update subrepos
author Chris Cannam
date Tue, 24 Mar 2015 11:24:46 +0000
parents 2665513ce2d3
children
rev   line source
Chris@16 1 /*=============================================================================
Chris@16 2 Copyright (c) 2001-2007 Joel de Guzman
Chris@16 3
Chris@16 4 Distributed under the Boost Software License, Version 1.0. (See accompanying
Chris@16 5 file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
Chris@16 6 ==============================================================================*/
Chris@16 7 #ifndef PHOENIX_OPERATOR_SELF_HPP
Chris@16 8 #define PHOENIX_OPERATOR_SELF_HPP
Chris@16 9
Chris@16 10 #include <boost/spirit/home/phoenix/core/composite.hpp>
Chris@16 11 #include <boost/spirit/home/phoenix/core/compose.hpp>
Chris@16 12 #include <boost/spirit/home/phoenix/detail/type_deduction.hpp>
Chris@16 13 #include <boost/spirit/home/phoenix/operator/detail/unary_eval.hpp>
Chris@16 14 #include <boost/spirit/home/phoenix/operator/detail/unary_compose.hpp>
Chris@16 15 #include <boost/spirit/home/phoenix/operator/detail/binary_eval.hpp>
Chris@16 16 #include <boost/spirit/home/phoenix/operator/detail/binary_compose.hpp>
Chris@16 17
Chris@16 18 namespace boost { namespace phoenix
Chris@16 19 {
Chris@16 20 struct reference_eval;
Chris@16 21 struct dereference_eval;
Chris@16 22 struct assign_eval;
Chris@16 23 struct index_eval;
Chris@16 24
Chris@16 25 BOOST_UNARY_RESULT_OF(&x, result_of_reference)
Chris@16 26 BOOST_UNARY_RESULT_OF(*x, result_of_dereference)
Chris@16 27 BOOST_BINARY_RESULT_OF(x = y, result_of_assign)
Chris@16 28 BOOST_ASYMMETRIC_BINARY_RESULT_OF(x[y], result_of_index)
Chris@16 29
Chris@16 30 namespace detail
Chris@16 31 {
Chris@16 32 template <typename T0, typename T1>
Chris@16 33 struct make_assign_composite
Chris@16 34 {
Chris@16 35 typedef actor<typename as_composite<assign_eval, T0, T1>::type> type;
Chris@16 36 };
Chris@16 37
Chris@16 38 template <typename T0, typename T1>
Chris@16 39 struct make_index_composite
Chris@16 40 {
Chris@16 41 typedef actor<typename as_composite<index_eval, T0, T1>::type> type;
Chris@16 42 };
Chris@16 43 }
Chris@16 44
Chris@16 45 template <typename Base>
Chris@16 46 template <typename T1>
Chris@16 47 typename detail::make_assign_composite<actor<Base>, T1>::type
Chris@16 48 actor<Base>::operator=(T1 const& a1) const
Chris@16 49 {
Chris@16 50 return compose<assign_eval>(*this, a1);
Chris@16 51 }
Chris@16 52
Chris@16 53 template <typename Base>
Chris@16 54 template <typename T1>
Chris@16 55 typename detail::make_index_composite<actor<Base>, T1>::type
Chris@16 56 actor<Base>::operator[](T1 const& a1) const
Chris@16 57 {
Chris@16 58 return compose<index_eval>(*this, a1);
Chris@16 59 }
Chris@16 60
Chris@16 61 #define x a0.eval(env)
Chris@16 62 #define y a1.eval(env)
Chris@16 63
Chris@16 64 PHOENIX_UNARY_EVAL(reference_eval, result_of_reference, &x)
Chris@16 65 PHOENIX_UNARY_EVAL(dereference_eval, result_of_dereference, *x)
Chris@16 66 PHOENIX_UNARY_COMPOSE(reference_eval, &)
Chris@16 67 PHOENIX_UNARY_COMPOSE(dereference_eval, *)
Chris@16 68
Chris@16 69 PHOENIX_BINARY_EVAL(assign_eval, result_of_assign, x = y)
Chris@16 70 PHOENIX_BINARY_EVAL(index_eval, result_of_index, x[y])
Chris@16 71 }}
Chris@16 72
Chris@16 73 #undef x
Chris@16 74 #undef y
Chris@16 75 #endif