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