Chris@16: ///////////////////////////////////////////////////////////////////////////////
Chris@16: /// \file deprecated.hpp
Chris@16: /// Definition of the deprecated BOOST_PROTO_DEFINE_FUCTION_TEMPLATE and
Chris@16: /// BOOST_PROTO_DEFINE_VARARG_FUCTION_TEMPLATE macros
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: #ifndef BOOST_PROTO_DETAIL_DEPRECATED_HPP_EAN_11_25_2008
Chris@16: #define BOOST_PROTO_DETAIL_DEPRECATED_HPP_EAN_11_25_2008
Chris@16: 
Chris@16: #include <boost/preprocessor/cat.hpp>
Chris@16: #include <boost/preprocessor/facilities/intercept.hpp>
Chris@16: #include <boost/preprocessor/arithmetic/inc.hpp>
Chris@16: #include <boost/preprocessor/arithmetic/dec.hpp>
Chris@16: #include <boost/preprocessor/arithmetic/sub.hpp>
Chris@16: #include <boost/preprocessor/punctuation/comma_if.hpp>
Chris@16: #include <boost/preprocessor/control/if.hpp>
Chris@16: #include <boost/preprocessor/control/expr_if.hpp>
Chris@16: #include <boost/preprocessor/comparison/greater.hpp>
Chris@16: #include <boost/preprocessor/tuple/elem.hpp>
Chris@16: #include <boost/preprocessor/tuple/to_list.hpp>
Chris@16: #include <boost/preprocessor/logical/and.hpp>
Chris@16: #include <boost/preprocessor/seq/size.hpp>
Chris@16: #include <boost/preprocessor/seq/enum.hpp>
Chris@16: #include <boost/preprocessor/seq/seq.hpp>
Chris@16: #include <boost/preprocessor/seq/to_tuple.hpp>
Chris@16: #include <boost/preprocessor/seq/for_each_i.hpp>
Chris@16: #include <boost/preprocessor/seq/pop_back.hpp>
Chris@16: #include <boost/preprocessor/seq/push_back.hpp>
Chris@16: #include <boost/preprocessor/seq/push_front.hpp>
Chris@16: #include <boost/preprocessor/list/for_each_i.hpp>
Chris@16: #include <boost/preprocessor/repetition/repeat.hpp>
Chris@16: #include <boost/preprocessor/repetition/repeat_from_to.hpp>
Chris@16: #include <boost/preprocessor/repetition/enum_binary_params.hpp>
Chris@16: #include <boost/preprocessor/repetition/enum_trailing_binary_params.hpp>
Chris@16: #include <boost/proto/proto_fwd.hpp>
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_VARARG_TEMPLATE_AUX_(R, DATA, I, ELEM)                                      \
Chris@16:     (ELEM BOOST_PP_CAT(BOOST_PP_CAT(X, DATA), BOOST_PP_CAT(_, I)))                              \
Chris@16:     /**/
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_VARARG_TEMPLATE_YES_(R, DATA, I, ELEM)                                      \
Chris@16:     BOOST_PP_LIST_FOR_EACH_I_R(                                                                 \
Chris@16:         R                                                                                       \
Chris@16:       , BOOST_PROTO_VARARG_TEMPLATE_AUX_                                                        \
Chris@16:       , I                                                                                       \
Chris@16:       , BOOST_PP_TUPLE_TO_LIST(                                                                 \
Chris@16:             BOOST_PP_DEC(BOOST_PP_SEQ_SIZE(ELEM))                                               \
Chris@16:           , BOOST_PP_SEQ_TO_TUPLE(BOOST_PP_SEQ_TAIL(ELEM))                                      \
Chris@16:         )                                                                                       \
Chris@16:     )                                                                                           \
Chris@16:     /**/
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_VARARG_TEMPLATE_NO_(R, DATA, I, ELEM)                                       \
Chris@16:     /**/
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_VARARG_TEMPLATE_(R, DATA, I, ELEM)                                          \
Chris@16:     BOOST_PP_IF(                                                                                \
Chris@16:         BOOST_PP_DEC(BOOST_PP_SEQ_SIZE(ELEM))                                                   \
Chris@16:       , BOOST_PROTO_VARARG_TEMPLATE_YES_                                                        \
Chris@16:       , BOOST_PROTO_VARARG_TEMPLATE_NO_                                                         \
Chris@16:     )(R, DATA, I, ELEM)                                                                         \
Chris@16:     /**/
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_VARARG_TYPE_AUX_(R, DATA, I, ELEM)                                          \
Chris@16:     (BOOST_PP_CAT(BOOST_PP_CAT(X, DATA), BOOST_PP_CAT(_, I)))                                   \
Chris@16:     /**/
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_TEMPLATE_PARAMS_YES_(R, DATA, I, ELEM)                                      \
Chris@16:     <                                                                                           \
Chris@16:         BOOST_PP_SEQ_ENUM(                                                                      \
Chris@16:             BOOST_PP_LIST_FOR_EACH_I_R(                                                         \
Chris@16:                 R                                                                               \
Chris@16:               , BOOST_PROTO_VARARG_TYPE_AUX_                                                    \
Chris@16:               , I                                                                               \
Chris@16:               , BOOST_PP_TUPLE_TO_LIST(                                                         \
Chris@16:                     BOOST_PP_DEC(BOOST_PP_SEQ_SIZE(ELEM))                                       \
Chris@16:                   , BOOST_PP_SEQ_TO_TUPLE(BOOST_PP_SEQ_TAIL(ELEM))                              \
Chris@16:                 )                                                                               \
Chris@16:             )                                                                                   \
Chris@16:         )                                                                                       \
Chris@16:     >                                                                                           \
Chris@16:     /**/
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_TEMPLATE_PARAMS_NO_(R, DATA, I, ELEM)                                       \
Chris@16:     /**/
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_VARARG_TYPE_(R, DATA, I, ELEM)                                              \
Chris@16:     BOOST_PP_COMMA_IF(I)                                                                        \
Chris@16:     BOOST_PP_SEQ_HEAD(ELEM)                                                                     \
Chris@16:     BOOST_PP_IF(                                                                                \
Chris@16:         BOOST_PP_DEC(BOOST_PP_SEQ_SIZE(ELEM))                                                   \
Chris@16:       , BOOST_PROTO_TEMPLATE_PARAMS_YES_                                                        \
Chris@16:       , BOOST_PROTO_TEMPLATE_PARAMS_NO_                                                         \
Chris@16:     )(R, DATA, I, ELEM) BOOST_PP_EXPR_IF(BOOST_PP_GREATER(I, 1), const)                         \
Chris@16:     /**/
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_VARARG_AS_EXPR_(R, DATA, I, ELEM)                                           \
Chris@16:     BOOST_PP_EXPR_IF(                                                                           \
Chris@16:         BOOST_PP_GREATER(I, 1)                                                                  \
Chris@16:       , ((                                                                                      \
Chris@16:             BOOST_PP_SEQ_HEAD(ELEM)                                                             \
Chris@16:             BOOST_PP_IF(                                                                        \
Chris@16:                 BOOST_PP_DEC(BOOST_PP_SEQ_SIZE(ELEM))                                           \
Chris@16:               , BOOST_PROTO_TEMPLATE_PARAMS_YES_                                                \
Chris@16:               , BOOST_PROTO_TEMPLATE_PARAMS_NO_                                                 \
Chris@16:             )(R, DATA, I, ELEM)()                                                               \
Chris@16:         ))                                                                                      \
Chris@16:     )                                                                                           \
Chris@16:     /**/
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_VARARG_AS_CHILD_(Z, N, DATA)                                                \
Chris@16:     (BOOST_PP_CAT(DATA, N))                                                                     \
Chris@16:     /**/
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_SEQ_PUSH_FRONT(SEQ, ELEM)                                                   \
Chris@16:     BOOST_PP_SEQ_POP_BACK(BOOST_PP_SEQ_PUSH_FRONT(BOOST_PP_SEQ_PUSH_BACK(SEQ, _dummy_), ELEM))  \
Chris@16:     /**/
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_VARARG_AS_PARAM_(Z, N, DATA)                                                \
Chris@16:     (BOOST_PP_CAT(DATA, N))                                                                     \
Chris@16:     /**/
Chris@16: 
Chris@16: /// INTERNAL ONLY
Chris@16: ///
Chris@16: #define BOOST_PROTO_VARARG_FUN_(Z, N, DATA)                                                     \
Chris@16:     template<                                                                                   \
Chris@16:         BOOST_PP_SEQ_ENUM(                                                                      \
Chris@16:             BOOST_PP_SEQ_FOR_EACH_I(                                                            \
Chris@16:                 BOOST_PROTO_VARARG_TEMPLATE_, ~                                                 \
Chris@16:               , BOOST_PP_SEQ_PUSH_FRONT(                                                        \
Chris@16:                     BOOST_PROTO_SEQ_PUSH_FRONT(                                                 \
Chris@16:                         BOOST_PP_TUPLE_ELEM(4, 2, DATA)                                         \
Chris@16:                       , (BOOST_PP_TUPLE_ELEM(4, 3, DATA))                                       \
Chris@16:                     )                                                                           \
Chris@16:                   , BOOST_PP_TUPLE_ELEM(4, 1, DATA)                                             \
Chris@16:                 )                                                                               \
Chris@16:             )                                                                                   \
Chris@16:             BOOST_PP_REPEAT_ ## Z(N, BOOST_PROTO_VARARG_AS_PARAM_, typename A)                  \
Chris@16:         )                                                                                       \
Chris@16:     >                                                                                           \
Chris@16:     typename boost::proto::result_of::make_expr<                                                \
Chris@16:         BOOST_PP_SEQ_FOR_EACH_I(                                                                \
Chris@16:             BOOST_PROTO_VARARG_TYPE_, ~                                                         \
Chris@16:           , BOOST_PP_SEQ_PUSH_FRONT(                                                            \
Chris@16:                 BOOST_PROTO_SEQ_PUSH_FRONT(                                                     \
Chris@16:                     BOOST_PP_TUPLE_ELEM(4, 2, DATA)                                             \
Chris@16:                   , (BOOST_PP_TUPLE_ELEM(4, 3, DATA))                                           \
Chris@16:                 )                                                                               \
Chris@16:               , BOOST_PP_TUPLE_ELEM(4, 1, DATA)                                                 \
Chris@16:             )                                                                                   \
Chris@16:         )                                                                                       \
Chris@16:         BOOST_PP_ENUM_TRAILING_BINARY_PARAMS_Z(Z, N, A, const & BOOST_PP_INTERCEPT)             \
Chris@16:     >::type const                                                                               \
Chris@16:     BOOST_PP_TUPLE_ELEM(4, 0, DATA)(BOOST_PP_ENUM_BINARY_PARAMS_Z(Z, N, A, const &a))           \
Chris@16:     {                                                                                           \
Chris@16:         return boost::proto::detail::make_expr_<                                                \
Chris@16:             BOOST_PP_SEQ_FOR_EACH_I(                                                            \
Chris@16:                 BOOST_PROTO_VARARG_TYPE_, ~                                                     \
Chris@16:               , BOOST_PP_SEQ_PUSH_FRONT(                                                        \
Chris@16:                     BOOST_PROTO_SEQ_PUSH_FRONT(                                                 \
Chris@16:                         BOOST_PP_TUPLE_ELEM(4, 2, DATA)                                         \
Chris@16:                       , (BOOST_PP_TUPLE_ELEM(4, 3, DATA))                                       \
Chris@16:                     )                                                                           \
Chris@16:                   , BOOST_PP_TUPLE_ELEM(4, 1, DATA)                                             \
Chris@16:                 )                                                                               \
Chris@16:             )                                                                                   \
Chris@16:             BOOST_PP_ENUM_TRAILING_BINARY_PARAMS_Z(Z, N, A, const & BOOST_PP_INTERCEPT)         \
Chris@16:         >()(                                                                                    \
Chris@16:             BOOST_PP_SEQ_ENUM(                                                                  \
Chris@16:                 BOOST_PP_SEQ_FOR_EACH_I(                                                        \
Chris@16:                     BOOST_PROTO_VARARG_AS_EXPR_, ~                                              \
Chris@16:                   , BOOST_PP_SEQ_PUSH_FRONT(                                                    \
Chris@16:                         BOOST_PROTO_SEQ_PUSH_FRONT(                                             \
Chris@16:                             BOOST_PP_TUPLE_ELEM(4, 2, DATA)                                     \
Chris@16:                           , (BOOST_PP_TUPLE_ELEM(4, 3, DATA))                                   \
Chris@16:                         )                                                                       \
Chris@16:                       , BOOST_PP_TUPLE_ELEM(4, 1, DATA)                                         \
Chris@16:                     )                                                                           \
Chris@16:                 )                                                                               \
Chris@16:                 BOOST_PP_REPEAT_ ## Z(N, BOOST_PROTO_VARARG_AS_CHILD_, a)                       \
Chris@16:             )                                                                                   \
Chris@16:         );                                                                                      \
Chris@16:     }                                                                                           \
Chris@16:     /**/
Chris@16: 
Chris@16: /// \code
Chris@16: /// BOOST_PROTO_DEFINE_FUNCTION_TEMPLATE(
Chris@16: ///     1
Chris@16: ///   , construct
Chris@16: ///   , boost::proto::default_domain
Chris@16: ///   , (boost::proto::tag::function)
Chris@16: ///   , ((op::construct)(typename)(int))
Chris@16: /// )
Chris@16: /// \endcode
Chris@16: #define BOOST_PROTO_DEFINE_FUNCTION_TEMPLATE(ARGCOUNT, NAME, DOMAIN, TAG, BOUNDARGS)            \
Chris@16:     BOOST_PP_REPEAT_FROM_TO(                                                                    \
Chris@16:         ARGCOUNT                                                                                \
Chris@16:       , BOOST_PP_INC(ARGCOUNT)                                                                  \
Chris@16:       , BOOST_PROTO_VARARG_FUN_                                                                 \
Chris@16:       , (NAME, TAG, BOUNDARGS, DOMAIN)                                                          \
Chris@16:     )\
Chris@16:     /**/
Chris@16: 
Chris@16: /// \code
Chris@16: /// BOOST_PROTO_DEFINE_VARARG_FUNCTION_TEMPLATE(
Chris@16: ///     construct
Chris@16: ///   , boost::proto::default_domain
Chris@16: ///   , (boost::proto::tag::function)
Chris@16: ///   , ((op::construct)(typename)(int))
Chris@16: /// )
Chris@16: /// \endcode
Chris@16: #define BOOST_PROTO_DEFINE_VARARG_FUNCTION_TEMPLATE(NAME, DOMAIN, TAG, BOUNDARGS)               \
Chris@16:     BOOST_PP_REPEAT(                                                                            \
Chris@16:         BOOST_PP_SUB(BOOST_PP_INC(BOOST_PROTO_MAX_ARITY), BOOST_PP_SEQ_SIZE(BOUNDARGS))         \
Chris@16:       , BOOST_PROTO_VARARG_FUN_                                                                 \
Chris@16:       , (NAME, TAG, BOUNDARGS, DOMAIN)                                                          \
Chris@16:     )                                                                                           \
Chris@16:     /**/
Chris@16: 
Chris@16: #endif