Chris@16: #if !defined(BOOST_PROTO_DONT_USE_PREPROCESSED_FILES)
Chris@16: 
Chris@16:     #include <boost/proto/detail/preprocessed/unpack_expr_.hpp>
Chris@16: 
Chris@16: #elif !defined(BOOST_PP_IS_ITERATING)
Chris@16: 
Chris@16:     /// INTERNAL ONLY
Chris@16:     ///
Chris@16:     #define BOOST_PROTO_FUSION_NEXT_ITERATOR_TYPE(Z, N, DATA)                                       \
Chris@16:         typedef typename fusion::result_of::next<                                                   \
Chris@16:             BOOST_PP_CAT(fusion_iterator, N)>::type                                                 \
Chris@16:                 BOOST_PP_CAT(fusion_iterator, BOOST_PP_INC(N));                                     \
Chris@16:         /**/
Chris@16: 
Chris@16:     /// INTERNAL ONLY
Chris@16:     ///
Chris@16:     #define BOOST_PROTO_FUSION_ITERATORS_TYPE(N)                                                    \
Chris@16:         typedef                                                                                     \
Chris@16:             typename fusion::result_of::begin<Sequence const>::type                                 \
Chris@16:         fusion_iterator0;                                                                           \
Chris@16:         BOOST_PP_REPEAT(BOOST_PP_DEC(N), BOOST_PROTO_FUSION_NEXT_ITERATOR_TYPE, fusion_iterator)    \
Chris@16:         /**/
Chris@16: 
Chris@16:     /// INTERNAL ONLY
Chris@16:     ///
Chris@16:     #define BOOST_PROTO_FUSION_AT_TYPE(Z, N, DATA)                                                  \
Chris@16:         typename add_const<                                                                         \
Chris@16:             typename fusion::result_of::value_of<                                                   \
Chris@16:                 BOOST_PP_CAT(fusion_iterator, N)                                                    \
Chris@16:             >::type                                                                                 \
Chris@16:         >::type                                                                                     \
Chris@16:         /**/
Chris@16: 
Chris@16:     /// INTERNAL ONLY
Chris@16:     ///
Chris@16:     #define BOOST_PROTO_FUSION_NEXT_ITERATOR(Z, N, DATA)                                            \
Chris@16:         BOOST_PP_CAT(fusion_iterator, BOOST_PP_INC(N)) BOOST_PP_CAT(it, BOOST_PP_INC(N)) =          \
Chris@16:             fusion::next(BOOST_PP_CAT(it, N));                                                      \
Chris@16:         /**/
Chris@16: 
Chris@16:     /// INTERNAL ONLY
Chris@16:     ///
Chris@16:     #define BOOST_PROTO_FUSION_ITERATORS(N)                                                         \
Chris@16:         fusion_iterator0 it0 = fusion::begin(sequence);                                             \
Chris@16:         BOOST_PP_REPEAT(BOOST_PP_DEC(N), BOOST_PROTO_FUSION_NEXT_ITERATOR, fusion_iterator)         \
Chris@16:         /**/
Chris@16: 
Chris@16:     /// INTERNAL ONLY
Chris@16:     ///
Chris@16:     #define BOOST_PROTO_FUSION_AT(Z, N, DATA)                                                       \
Chris@16:         *BOOST_PP_CAT(it, N)                                                                        \
Chris@16:         /**/
Chris@16: 
Chris@16:     /// INTERNAL ONLY
Chris@16:     ///
Chris@16:     #define BOOST_PROTO_FUSION_AS_CHILD_AT_TYPE(Z, N, DATA)                                         \
Chris@16:         typename detail::protoify<                                                                  \
Chris@16:             BOOST_PROTO_FUSION_AT_TYPE(Z, N, DATA)                                                  \
Chris@16:           , Domain                                                                                  \
Chris@16:         >::result_type                                                                              \
Chris@16:         /**/
Chris@16: 
Chris@16:     /// INTERNAL ONLY
Chris@16:     ///
Chris@16:     #define BOOST_PROTO_FUSION_AS_CHILD_AT(Z, N, DATA)                                              \
Chris@16:         detail::protoify<                                                                           \
Chris@16:             BOOST_PROTO_FUSION_AT_TYPE(Z, N, DATA)                                                  \
Chris@16:           , Domain                                                                                  \
Chris@16:         >()(BOOST_PROTO_FUSION_AT(Z, N, DATA))                                                      \
Chris@16:         /**/
Chris@16: 
Chris@16:     #if defined(__WAVE__) && defined(BOOST_PROTO_CREATE_PREPROCESSED_FILES)
Chris@16:         #pragma wave option(preserve: 2, line: 0, output: "preprocessed/unpack_expr_.hpp")
Chris@16:     #endif
Chris@16: 
Chris@16:     ///////////////////////////////////////////////////////////////////////////////
Chris@16:     /// \file make_expr_.hpp
Chris@16:     /// Contains definition of make_expr_\<\> class template.
Chris@16:     //
Chris@16:     //  Copyright 2008 Eric Niebler. Distributed under the Boost
Chris@16:     //  Software License, Version 1.0. (See accompanying file
Chris@16:     //  LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
Chris@16: 
Chris@16:     #if defined(__WAVE__) && defined(BOOST_PROTO_CREATE_PREPROCESSED_FILES)
Chris@16:         #pragma wave option(preserve: 1)
Chris@16:     #endif
Chris@16: 
Chris@16:     template<typename Tag, typename Domain, typename Sequence, std::size_t Size>
Chris@16:     struct unpack_expr_
Chris@16:     {};
Chris@16: 
Chris@16:     template<typename Domain, typename Sequence>
Chris@16:     struct unpack_expr_<tag::terminal, Domain, Sequence, 1u>
Chris@16:     {
Chris@16:         typedef
Chris@16:             typename add_const<
Chris@16:                 typename fusion::result_of::value_of<
Chris@16:                     typename fusion::result_of::begin<Sequence>::type
Chris@16:                 >::type
Chris@16:             >::type
Chris@16:         terminal_type;
Chris@16: 
Chris@16:         typedef
Chris@16:             typename proto::detail::protoify<
Chris@16:                 terminal_type
Chris@16:               , Domain
Chris@16:             >::result_type
Chris@16:         type;
Chris@16: 
Chris@16:         BOOST_FORCEINLINE
Chris@16:         static type const call(Sequence const &sequence)
Chris@16:         {
Chris@16:             return proto::detail::protoify<terminal_type, Domain>()(fusion::at_c<0>(sequence));
Chris@16:         }
Chris@16:     };
Chris@16: 
Chris@16:     template<typename Sequence>
Chris@16:     struct unpack_expr_<tag::terminal, deduce_domain, Sequence, 1u>
Chris@16:       : unpack_expr_<tag::terminal, default_domain, Sequence, 1u>
Chris@16:     {};
Chris@16: 
Chris@16:     #define BOOST_PP_ITERATION_PARAMS_1                                                         \
Chris@16:         (3, (1, BOOST_PROTO_MAX_ARITY, <boost/proto/detail/unpack_expr_.hpp>))
Chris@16:     #include BOOST_PP_ITERATE()
Chris@16: 
Chris@16:     #if defined(__WAVE__) && defined(BOOST_PROTO_CREATE_PREPROCESSED_FILES)
Chris@16:         #pragma wave option(output: null)
Chris@16:     #endif
Chris@16: 
Chris@16:     #undef BOOST_PROTO_FUSION_AT
Chris@16:     #undef BOOST_PROTO_FUSION_AT_TYPE
Chris@16:     #undef BOOST_PROTO_FUSION_AS_CHILD_AT
Chris@16:     #undef BOOST_PROTO_FUSION_AS_CHILD_AT_TYPE
Chris@16:     #undef BOOST_PROTO_FUSION_NEXT_ITERATOR
Chris@16:     #undef BOOST_PROTO_FUSION_NEXT_ITERATOR_TYPE
Chris@16:     #undef BOOST_PROTO_FUSION_ITERATORS
Chris@16:     #undef BOOST_PROTO_FUSION_ITERATORS_TYPE
Chris@16: 
Chris@16: #else // BOOST_PP_IS_ITERATING
Chris@16: 
Chris@16:     #define N BOOST_PP_ITERATION()
Chris@16:     #define M BOOST_PP_SUB(BOOST_PROTO_MAX_ARITY, N)
Chris@16: 
Chris@16:     template<typename Tag, typename Domain, typename Sequence>
Chris@16:     struct unpack_expr_<Tag, Domain, Sequence, N>
Chris@16:     {
Chris@16:         BOOST_PROTO_FUSION_ITERATORS_TYPE(N)
Chris@16: 
Chris@16:         typedef
Chris@16:             BOOST_PP_CAT(list, N)<
Chris@16:                 BOOST_PP_ENUM(N, BOOST_PROTO_FUSION_AS_CHILD_AT_TYPE, ~)
Chris@16:             >
Chris@16:         proto_args;
Chris@16: 
Chris@16:         typedef typename base_expr<Domain, Tag, proto_args>::type expr_type;
Chris@16:         typedef typename Domain::proto_generator proto_generator;
Chris@16:         typedef typename proto_generator::template result<proto_generator(expr_type)>::type type;
Chris@16: 
Chris@16:         BOOST_FORCEINLINE
Chris@16:         static type const call(Sequence const &sequence)
Chris@16:         {
Chris@16:             BOOST_PROTO_FUSION_ITERATORS(N)
Chris@16:             expr_type const that = {
Chris@16:                 BOOST_PP_ENUM(N, BOOST_PROTO_FUSION_AS_CHILD_AT, ~)
Chris@16:             };
Chris@16:             return proto_generator()(that);
Chris@16:         }
Chris@16:     };
Chris@16: 
Chris@16:     template<typename Tag, typename Sequence>
Chris@16:     struct unpack_expr_<Tag, deduce_domain, Sequence, N>
Chris@16:     {
Chris@16:         BOOST_PROTO_FUSION_ITERATORS_TYPE(N)
Chris@16: 
Chris@16:         typedef
Chris@16:             unpack_expr_<
Chris@16:                 Tag
Chris@16:               , typename BOOST_PP_CAT(deduce_domain, N)<
Chris@16:                     BOOST_PP_ENUM(N, BOOST_PROTO_FUSION_AT_TYPE, ~)
Chris@16:                 >::type
Chris@16:               , Sequence
Chris@16:               , N
Chris@16:             >
Chris@16:         other;
Chris@16: 
Chris@16:         typedef typename other::type type;
Chris@16: 
Chris@16:         BOOST_FORCEINLINE
Chris@16:         static type const call(Sequence const &sequence)
Chris@16:         {
Chris@16:             return other::call(sequence);
Chris@16:         }
Chris@16:     };
Chris@16: 
Chris@16:     #undef N
Chris@16:     #undef M
Chris@16: 
Chris@16: #endif