248 lines
16 KiB
Plaintext
248 lines
16 KiB
Plaintext
///////////////////////////////////////////////////////////////////////////////
|
|
/// \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
|