detail/cpp03/local_gen.hpp

0001 #if !BOOST_PHOENIX_IS_ITERATING
0002 /*==============================================================================
0003     Copyright (c) 2005-2010 Joel de Guzman
0004     Copyright (c) 2010 Thomas Heller
0005
0006     Distributed under the Boost Software License, Version 1.0. (See accompanying
0007     file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
0008 ==============================================================================*/
0009
0010 #include <boost/phoenix/support/iterate.hpp>
0011
0012 #define BOOST_PHOENIX_EXTRACT_LOCAL_TYPE(Z, N, D)                               \
0013     typename proto::detail::uncvref<                                            \
0014         typename proto::result_of::child_c<                                     \
0015             BOOST_PP_CAT(A, N)                                                  \
0016           , 1                                                                   \
0017         >::type                                                                 \
0018     >::type
0019 /**/
0020
0021 #define BOOST_PHOENIX_EXTRACT_LOCAL(Z, N, D)                                    \
0022         proto::child_c<1>(BOOST_PP_CAT(a, N))                                   \
0023 /**/
0024
0025 #define BOOST_PHOENIX_EXTRACT_LOCAL_KEY(Z, N, D)                                \
0026     typename proto::detail::uncvref<                                            \
0027         typename proto::result_of::value<                                       \
0028             typename proto::result_of::child_c<                                 \
0029                 BOOST_PP_CAT(A, N)                                              \
0030               , 0                                                               \
0031             >::type                                                             \
0032         >::type                                                                 \
0033     >::type
0034 /**/
0035
0036 #define BOOST_PHOENIX_ITERATION_PARAMS                                          \
0037     (3, (1, BOOST_PHOENIX_LOCAL_LIMIT,                                          \
0038     <boost/phoenix/scope/detail/cpp03/local_gen.hpp>))
0039 #include BOOST_PHOENIX_ITERATE()
0040
0041 #else
0042
0043         template <BOOST_PHOENIX_typename_A>
0044         BOOST_PHOENIX_SCOPE_ACTOR_GEN_NAME<
0045             BOOST_PP_CAT(vector, BOOST_PHOENIX_ITERATION)<BOOST_PP_ENUM(BOOST_PHOENIX_ITERATION, BOOST_PHOENIX_EXTRACT_LOCAL_TYPE, _)>
0046           , detail::map_local_index_to_tuple<BOOST_PP_ENUM(BOOST_PHOENIX_ITERATION, BOOST_PHOENIX_EXTRACT_LOCAL_KEY, _)>
0047         >
0048         BOOST_PHOENIX_SCOPE_ACTOR_GEN_FUNCTION (BOOST_PHOENIX_A_const_ref_a) BOOST_PHOENIX_SCOPE_ACTOR_GEN_CONST
0049         {
0050             typedef
0051                 BOOST_PP_CAT(vector, BOOST_PHOENIX_ITERATION)<BOOST_PP_ENUM(BOOST_PHOENIX_ITERATION, BOOST_PHOENIX_EXTRACT_LOCAL_TYPE, _)>
0052                 locals_type;
0053
0054             locals_type locals = {BOOST_PP_ENUM(BOOST_PHOENIX_ITERATION, BOOST_PHOENIX_EXTRACT_LOCAL, _)};
0055
0056             return
0057                 BOOST_PHOENIX_SCOPE_ACTOR_GEN_NAME<
0058                     locals_type
0059                   , detail::map_local_index_to_tuple<
0060                         BOOST_PP_ENUM(BOOST_PHOENIX_ITERATION, BOOST_PHOENIX_EXTRACT_LOCAL_KEY, _)
0061                     >
0062                 >(locals);
0063         }
0064
0065 #endif
0066