forked from boostorg/mpl
363 lines
9.7 KiB
C++
363 lines
9.7 KiB
C++
|
|
#if !defined(BOOST_PP_IS_ITERATING)
|
|
|
|
///// header body
|
|
|
|
#ifndef BOOST_MPL_BIND_HPP_INCLUDED
|
|
#define BOOST_MPL_BIND_HPP_INCLUDED
|
|
|
|
// Copyright Peter Dimov 2001
|
|
// Copyright Aleksey Gurtovoy 2001-2004
|
|
//
|
|
// 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)
|
|
//
|
|
// See http://www.boost.org/libs/mpl for documentation.
|
|
|
|
// $Id$
|
|
// $Date$
|
|
// $Revision$
|
|
|
|
#if !defined(BOOST_MPL_PREPROCESSING_MODE)
|
|
# include <boost/mpl/bind_fwd.hpp>
|
|
# include <boost/mpl/placeholders.hpp>
|
|
# include <boost/mpl/next.hpp>
|
|
# include <boost/mpl/protect.hpp>
|
|
# include <boost/mpl/apply_wrap.hpp>
|
|
# include <boost/mpl/limits/arity.hpp>
|
|
# include <boost/mpl/aux_/na.hpp>
|
|
# include <boost/mpl/aux_/arity_spec.hpp>
|
|
# include <boost/mpl/aux_/type_wrapper.hpp>
|
|
# include <boost/mpl/aux_/yes_no.hpp>
|
|
#endif
|
|
|
|
#include <boost/mpl/aux_/config/bind.hpp>
|
|
#include <boost/mpl/aux_/config/static_constant.hpp>
|
|
#include <boost/mpl/aux_/config/use_preprocessed.hpp>
|
|
|
|
#if !defined(BOOST_MPL_CFG_NO_PREPROCESSED_HEADERS) \
|
|
&& !defined(BOOST_MPL_PREPROCESSING_MODE)
|
|
|
|
# if defined(BOOST_MPL_CFG_NO_UNNAMED_PLACEHOLDER_SUPPORT)
|
|
# define BOOST_MPL_PREPROCESSED_HEADER basic_bind.hpp
|
|
# else
|
|
# define BOOST_MPL_PREPROCESSED_HEADER bind.hpp
|
|
# endif
|
|
# include <boost/mpl/aux_/include_preprocessed.hpp>
|
|
|
|
#else
|
|
|
|
# include <boost/mpl/aux_/preprocessor/params.hpp>
|
|
# include <boost/mpl/aux_/preprocessor/default_params.hpp>
|
|
# include <boost/mpl/aux_/preprocessor/def_params_tail.hpp>
|
|
# include <boost/mpl/aux_/preprocessor/partial_spec_params.hpp>
|
|
# include <boost/mpl/aux_/preprocessor/ext_params.hpp>
|
|
# include <boost/mpl/aux_/preprocessor/repeat.hpp>
|
|
# include <boost/mpl/aux_/preprocessor/enum.hpp>
|
|
# include <boost/mpl/aux_/preprocessor/add.hpp>
|
|
# include <boost/mpl/aux_/config/dmc_ambiguous_ctps.hpp>
|
|
# include <boost/mpl/aux_/config/ctps.hpp>
|
|
# include <boost/mpl/aux_/config/ttp.hpp>
|
|
# include <boost/mpl/aux_/config/dtp.hpp>
|
|
|
|
# include <boost/preprocessor/iterate.hpp>
|
|
# include <boost/preprocessor/comma_if.hpp>
|
|
# include <boost/preprocessor/cat.hpp>
|
|
# include <boost/preprocessor/inc.hpp>
|
|
|
|
namespace boost { namespace mpl {
|
|
|
|
// local macros, #undef-ined at the end of the header
|
|
# define AUX778076_APPLY \
|
|
BOOST_PP_CAT(apply_wrap,BOOST_MPL_LIMIT_METAFUNCTION_ARITY) \
|
|
/**/
|
|
|
|
# if defined(BOOST_MPL_CFG_DMC_AMBIGUOUS_CTPS)
|
|
# define AUX778076_DMC_PARAM() , int dummy_
|
|
# else
|
|
# define AUX778076_DMC_PARAM()
|
|
# endif
|
|
|
|
# define AUX778076_BIND_PARAMS(param) \
|
|
BOOST_MPL_PP_PARAMS( \
|
|
BOOST_MPL_LIMIT_METAFUNCTION_ARITY \
|
|
, param \
|
|
) \
|
|
/**/
|
|
|
|
# define AUX778076_BIND_DEFAULT_PARAMS(param, value) \
|
|
BOOST_MPL_PP_DEFAULT_PARAMS( \
|
|
BOOST_MPL_LIMIT_METAFUNCTION_ARITY \
|
|
, param \
|
|
, value \
|
|
) \
|
|
/**/
|
|
|
|
# define AUX778076_BIND_N_PARAMS(n, param) \
|
|
BOOST_PP_COMMA_IF(n) BOOST_MPL_PP_PARAMS(n, param) \
|
|
/**/
|
|
|
|
# define AUX778076_BIND_N_SPEC_PARAMS(n, param, def) \
|
|
BOOST_PP_COMMA_IF(n) \
|
|
BOOST_MPL_PP_PARTIAL_SPEC_PARAMS(n, param, def) \
|
|
/**/
|
|
|
|
#if !defined(BOOST_MPL_CFG_NO_DEFAULT_PARAMETERS_IN_NESTED_TEMPLATES)
|
|
# define AUX778076_BIND_NESTED_DEFAULT_PARAMS(param, value) \
|
|
AUX778076_BIND_DEFAULT_PARAMS(param, value) \
|
|
/**/
|
|
#else
|
|
# define AUX778076_BIND_NESTED_DEFAULT_PARAMS(param, value) \
|
|
AUX778076_BIND_PARAMS(param) \
|
|
/**/
|
|
#endif
|
|
|
|
namespace aux {
|
|
|
|
|
|
template<
|
|
typename T, AUX778076_BIND_PARAMS(typename U)
|
|
>
|
|
struct resolve_bind_arg
|
|
{
|
|
typedef T type;
|
|
};
|
|
|
|
# if !defined(BOOST_MPL_CFG_NO_UNNAMED_PLACEHOLDER_SUPPORT)
|
|
|
|
template<
|
|
typename T
|
|
, typename Arg
|
|
>
|
|
struct replace_unnamed_arg
|
|
{
|
|
typedef Arg next;
|
|
typedef T type;
|
|
};
|
|
|
|
template<
|
|
typename Arg
|
|
>
|
|
struct replace_unnamed_arg< arg<-1>,Arg >
|
|
{
|
|
typedef typename Arg::next next;
|
|
typedef Arg type;
|
|
};
|
|
|
|
# endif // BOOST_MPL_CFG_NO_UNNAMED_PLACEHOLDER_SUPPORT
|
|
|
|
template<
|
|
int N, AUX778076_BIND_PARAMS(typename U)
|
|
>
|
|
struct resolve_bind_arg< arg<N>,AUX778076_BIND_PARAMS(U) >
|
|
{
|
|
typedef typename AUX778076_APPLY<mpl::arg<N>, AUX778076_BIND_PARAMS(U)>::type type;
|
|
};
|
|
|
|
#if !defined(BOOST_MPL_CFG_NO_BIND_TEMPLATE)
|
|
template<
|
|
typename F, AUX778076_BIND_PARAMS(typename T), AUX778076_BIND_PARAMS(typename U)
|
|
>
|
|
struct resolve_bind_arg< bind<F,AUX778076_BIND_PARAMS(T)>,AUX778076_BIND_PARAMS(U) >
|
|
{
|
|
typedef bind<F,AUX778076_BIND_PARAMS(T)> f_;
|
|
typedef typename AUX778076_APPLY<f_, AUX778076_BIND_PARAMS(U)>::type type;
|
|
};
|
|
#endif
|
|
|
|
|
|
} // namespace aux
|
|
|
|
|
|
#define BOOST_PP_ITERATION_PARAMS_1 \
|
|
(3,(0, BOOST_MPL_LIMIT_METAFUNCTION_ARITY, <boost/mpl/bind.hpp>))
|
|
#include BOOST_PP_ITERATE()
|
|
|
|
#if !defined(BOOST_MPL_CFG_NO_TEMPLATE_TEMPLATE_PARAMETERS)
|
|
/// if_/eval_if specializations
|
|
# define AUX778076_SPEC_NAME if_
|
|
# define BOOST_PP_ITERATION_PARAMS_1 (3,(3, 3, <boost/mpl/bind.hpp>))
|
|
# include BOOST_PP_ITERATE()
|
|
|
|
#if !defined(BOOST_MPL_CFG_DMC_AMBIGUOUS_CTPS)
|
|
# define AUX778076_SPEC_NAME eval_if
|
|
# define BOOST_PP_ITERATION_PARAMS_1 (3,(3, 3, <boost/mpl/bind.hpp>))
|
|
# include BOOST_PP_ITERATE()
|
|
#endif
|
|
#endif
|
|
|
|
# undef AUX778076_BIND_NESTED_DEFAULT_PARAMS
|
|
# undef AUX778076_BIND_N_SPEC_PARAMS
|
|
# undef AUX778076_BIND_N_PARAMS
|
|
# undef AUX778076_BIND_DEFAULT_PARAMS
|
|
# undef AUX778076_BIND_PARAMS
|
|
# undef AUX778076_DMC_PARAM
|
|
# undef AUX778076_APPLY
|
|
|
|
}}
|
|
|
|
#endif // BOOST_MPL_CFG_NO_PREPROCESSED_HEADERS
|
|
#endif // BOOST_MPL_BIND_HPP_INCLUDED
|
|
|
|
///// iteration, depth == 1
|
|
|
|
// For gcc 4.4 compatability, we must include the
|
|
// BOOST_PP_ITERATION_DEPTH test inside an #else clause.
|
|
#else // BOOST_PP_IS_ITERATING
|
|
#if BOOST_PP_ITERATION_DEPTH() == 1
|
|
|
|
# define i_ BOOST_PP_FRAME_ITERATION(1)
|
|
|
|
#if defined(AUX778076_SPEC_NAME)
|
|
|
|
// lazy metafunction specialization
|
|
template< template< BOOST_MPL_PP_PARAMS(i_, typename T) > class F, typename Tag >
|
|
struct BOOST_PP_CAT(quote,i_);
|
|
|
|
template< BOOST_MPL_PP_PARAMS(i_, typename T) > struct AUX778076_SPEC_NAME;
|
|
|
|
template<
|
|
typename Tag AUX778076_BIND_N_PARAMS(i_, typename T)
|
|
>
|
|
struct BOOST_PP_CAT(bind,i_)<
|
|
BOOST_PP_CAT(quote,i_)<AUX778076_SPEC_NAME,Tag>
|
|
AUX778076_BIND_N_PARAMS(i_,T)
|
|
>
|
|
{
|
|
template<
|
|
AUX778076_BIND_NESTED_DEFAULT_PARAMS(typename U, na)
|
|
>
|
|
struct apply
|
|
{
|
|
private:
|
|
typedef mpl::arg<1> n1;
|
|
# define BOOST_PP_ITERATION_PARAMS_2 (3,(1, i_, <boost/mpl/bind.hpp>))
|
|
# include BOOST_PP_ITERATE()
|
|
|
|
typedef typename AUX778076_SPEC_NAME<
|
|
typename t1::type
|
|
, BOOST_MPL_PP_EXT_PARAMS(2, BOOST_PP_INC(i_), t)
|
|
>::type f_;
|
|
|
|
public:
|
|
typedef typename f_::type type;
|
|
};
|
|
};
|
|
|
|
#undef AUX778076_SPEC_NAME
|
|
|
|
#else // AUX778076_SPEC_NAME
|
|
|
|
template<
|
|
typename F AUX778076_BIND_N_PARAMS(i_, typename T) AUX778076_DMC_PARAM()
|
|
>
|
|
struct BOOST_PP_CAT(bind,i_)
|
|
{
|
|
template<
|
|
AUX778076_BIND_NESTED_DEFAULT_PARAMS(typename U, na)
|
|
>
|
|
struct apply
|
|
{
|
|
private:
|
|
# if !defined(BOOST_MPL_CFG_NO_UNNAMED_PLACEHOLDER_SUPPORT)
|
|
|
|
typedef aux::replace_unnamed_arg< F,mpl::arg<1> > r0;
|
|
typedef typename r0::type a0;
|
|
typedef typename r0::next n1;
|
|
typedef typename aux::resolve_bind_arg<a0,AUX778076_BIND_PARAMS(U)>::type f_;
|
|
///
|
|
# else
|
|
typedef typename aux::resolve_bind_arg<F,AUX778076_BIND_PARAMS(U)>::type f_;
|
|
|
|
# endif // BOOST_MPL_CFG_NO_UNNAMED_PLACEHOLDER_SUPPORT
|
|
|
|
# if i_ > 0
|
|
# define BOOST_PP_ITERATION_PARAMS_2 (3,(1, i_, <boost/mpl/bind.hpp>))
|
|
# include BOOST_PP_ITERATE()
|
|
# endif
|
|
|
|
public:
|
|
|
|
# define AUX778076_ARG(unused, i_, t) \
|
|
BOOST_PP_COMMA_IF(i_) \
|
|
typename BOOST_PP_CAT(t,BOOST_PP_INC(i_))::type \
|
|
/**/
|
|
|
|
typedef typename BOOST_PP_CAT(apply_wrap,i_)<
|
|
f_
|
|
BOOST_PP_COMMA_IF(i_) BOOST_MPL_PP_REPEAT(i_, AUX778076_ARG, t)
|
|
>::type type;
|
|
|
|
# undef AUX778076_ARG
|
|
};
|
|
};
|
|
|
|
namespace aux {
|
|
|
|
|
|
template<
|
|
typename F AUX778076_BIND_N_PARAMS(i_, typename T), AUX778076_BIND_PARAMS(typename U)
|
|
>
|
|
struct resolve_bind_arg<
|
|
BOOST_PP_CAT(bind,i_)<F AUX778076_BIND_N_PARAMS(i_,T)>,AUX778076_BIND_PARAMS(U)
|
|
>
|
|
{
|
|
typedef BOOST_PP_CAT(bind,i_)<F AUX778076_BIND_N_PARAMS(i_,T)> f_;
|
|
typedef typename AUX778076_APPLY<f_, AUX778076_BIND_PARAMS(U)>::type type;
|
|
};
|
|
|
|
|
|
} // namespace aux
|
|
|
|
BOOST_MPL_AUX_ARITY_SPEC(BOOST_PP_INC(i_), BOOST_PP_CAT(bind,i_))
|
|
BOOST_MPL_AUX_TEMPLATE_ARITY_SPEC(BOOST_PP_INC(i_), BOOST_PP_CAT(bind,i_))
|
|
|
|
# if !defined(BOOST_MPL_CFG_NO_BIND_TEMPLATE)
|
|
|
|
#if i_ == BOOST_MPL_LIMIT_METAFUNCTION_ARITY
|
|
/// primary template (not a specialization!)
|
|
template<
|
|
typename F AUX778076_BIND_N_PARAMS(i_, typename T) AUX778076_DMC_PARAM()
|
|
>
|
|
struct bind
|
|
: BOOST_PP_CAT(bind,i_)<F AUX778076_BIND_N_PARAMS(i_,T) >
|
|
{
|
|
};
|
|
#else
|
|
template<
|
|
typename F AUX778076_BIND_N_PARAMS(i_, typename T) AUX778076_DMC_PARAM()
|
|
>
|
|
struct bind< F AUX778076_BIND_N_SPEC_PARAMS(i_, T, na) >
|
|
: BOOST_PP_CAT(bind,i_)<F AUX778076_BIND_N_PARAMS(i_,T) >
|
|
{
|
|
};
|
|
#endif
|
|
|
|
# endif // BOOST_MPL_CFG_NO_BIND_TEMPLATE
|
|
|
|
#endif // AUX778076_SPEC_NAME
|
|
|
|
# undef i_
|
|
|
|
///// iteration, depth == 2
|
|
|
|
#elif BOOST_PP_ITERATION_DEPTH() == 2
|
|
|
|
# define j_ BOOST_PP_FRAME_ITERATION(2)
|
|
# if !defined(BOOST_MPL_CFG_NO_UNNAMED_PLACEHOLDER_SUPPORT)
|
|
|
|
typedef aux::replace_unnamed_arg< BOOST_PP_CAT(T,j_),BOOST_PP_CAT(n,j_) > BOOST_PP_CAT(r,j_);
|
|
typedef typename BOOST_PP_CAT(r,j_)::type BOOST_PP_CAT(a,j_);
|
|
typedef typename BOOST_PP_CAT(r,j_)::next BOOST_PP_CAT(n,BOOST_PP_INC(j_));
|
|
typedef aux::resolve_bind_arg<BOOST_PP_CAT(a,j_), AUX778076_BIND_PARAMS(U)> BOOST_PP_CAT(t,j_);
|
|
///
|
|
# else
|
|
typedef aux::resolve_bind_arg< BOOST_PP_CAT(T,j_),AUX778076_BIND_PARAMS(U)> BOOST_PP_CAT(t,j_);
|
|
|
|
# endif
|
|
# undef j_
|
|
|
|
#endif // BOOST_PP_ITERATION_DEPTH()
|
|
#endif // BOOST_PP_IS_ITERATING
|