You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and dots ('.'), can be up to 35 characters long. Letters must be lowercase.
354 lines
8.7 KiB
354 lines
8.7 KiB
|
|
#if !defined(BOOST_PP_IS_ITERATING) |
|
|
|
///// header body |
|
|
|
#ifndef BOOST_MPL_AUX_FULL_LAMBDA_HPP_INCLUDED |
|
#define BOOST_MPL_AUX_FULL_LAMBDA_HPP_INCLUDED |
|
|
|
// 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: full_lambda.hpp 49267 2008-10-11 06:19:02Z agurtovoy $ |
|
// $Date: 2008-10-11 02:19:02 -0400 (Sat, 11 Oct 2008) $ |
|
// $Revision: 49267 $ |
|
|
|
#if !defined(BOOST_MPL_PREPROCESSING_MODE) |
|
# include <boost/mpl/lambda_fwd.hpp> |
|
# include <boost/mpl/bind_fwd.hpp> |
|
# include <boost/mpl/protect.hpp> |
|
# include <boost/mpl/quote.hpp> |
|
# include <boost/mpl/arg.hpp> |
|
# include <boost/mpl/bool.hpp> |
|
# include <boost/mpl/int_fwd.hpp> |
|
# include <boost/mpl/aux_/template_arity.hpp> |
|
# include <boost/mpl/aux_/na_spec.hpp> |
|
# include <boost/mpl/aux_/config/ttp.hpp> |
|
# if defined(BOOST_MPL_CFG_EXTENDED_TEMPLATE_PARAMETERS_MATCHING) |
|
# include <boost/mpl/if.hpp> |
|
# endif |
|
#endif |
|
|
|
#include <boost/mpl/aux_/lambda_arity_param.hpp> |
|
#include <boost/mpl/aux_/config/use_preprocessed.hpp> |
|
|
|
#if !defined(BOOST_MPL_CFG_NO_PREPROCESSED_HEADERS) \ |
|
&& !defined(BOOST_MPL_PREPROCESSING_MODE) |
|
|
|
# define BOOST_MPL_PREPROCESSED_HEADER full_lambda.hpp |
|
# include <boost/mpl/aux_/include_preprocessed.hpp> |
|
|
|
#else |
|
|
|
# include <boost/mpl/limits/arity.hpp> |
|
# include <boost/mpl/aux_/preprocessor/default_params.hpp> |
|
# include <boost/mpl/aux_/preprocessor/params.hpp> |
|
# include <boost/mpl/aux_/preprocessor/enum.hpp> |
|
# include <boost/mpl/aux_/preprocessor/repeat.hpp> |
|
# include <boost/mpl/aux_/config/dmc_ambiguous_ctps.hpp> |
|
|
|
# include <boost/preprocessor/iterate.hpp> |
|
# include <boost/preprocessor/comma_if.hpp> |
|
# include <boost/preprocessor/inc.hpp> |
|
# include <boost/preprocessor/cat.hpp> |
|
|
|
namespace boost { namespace mpl { |
|
|
|
// local macros, #undef-ined at the end of the header |
|
# define AUX778076_LAMBDA_PARAMS(i_, param) \ |
|
BOOST_MPL_PP_PARAMS(i_, param) \ |
|
/**/ |
|
|
|
# define AUX778076_BIND_PARAMS(param) \ |
|
BOOST_MPL_PP_PARAMS( \ |
|
BOOST_MPL_LIMIT_METAFUNCTION_ARITY \ |
|
, param \ |
|
) \ |
|
/**/ |
|
|
|
# define AUX778076_BIND_N_PARAMS(i_, param) \ |
|
BOOST_PP_COMMA_IF(i_) \ |
|
BOOST_MPL_PP_PARAMS(i_, param) \ |
|
/**/ |
|
|
|
# define AUX778076_ARITY_PARAM(param) \ |
|
BOOST_MPL_AUX_LAMBDA_ARITY_PARAM(param) \ |
|
/**/ |
|
|
|
|
|
#define n_ BOOST_MPL_LIMIT_METAFUNCTION_ARITY |
|
namespace aux { |
|
|
|
template< |
|
BOOST_MPL_PP_DEFAULT_PARAMS(n_,bool C,false) |
|
> |
|
struct lambda_or |
|
: true_ |
|
{ |
|
}; |
|
|
|
template<> |
|
struct lambda_or< BOOST_MPL_PP_ENUM(n_,false) > |
|
: false_ |
|
{ |
|
}; |
|
|
|
} // namespace aux |
|
#undef n_ |
|
|
|
template< |
|
typename T |
|
, typename Tag |
|
AUX778076_ARITY_PARAM(typename Arity) |
|
> |
|
struct lambda |
|
{ |
|
typedef false_ is_le; |
|
typedef T result_; |
|
typedef T type; |
|
}; |
|
|
|
template< |
|
typename T |
|
> |
|
struct is_lambda_expression |
|
: lambda<T>::is_le |
|
{ |
|
}; |
|
|
|
|
|
template< int N, typename Tag > |
|
struct lambda< arg<N>,Tag AUX778076_ARITY_PARAM(int_<-1>) > |
|
{ |
|
typedef true_ is_le; |
|
typedef mpl::arg<N> result_; // qualified for the sake of MIPSpro 7.41 |
|
typedef mpl::protect<result_> type; |
|
}; |
|
|
|
|
|
#define BOOST_PP_ITERATION_PARAMS_1 \ |
|
(3,(0, BOOST_MPL_LIMIT_METAFUNCTION_ARITY, <boost/mpl/aux_/full_lambda.hpp>)) |
|
#include BOOST_PP_ITERATE() |
|
|
|
/// special case for 'protect' |
|
template< typename T, typename Tag > |
|
struct lambda< mpl::protect<T>,Tag AUX778076_ARITY_PARAM(int_<1>) > |
|
{ |
|
typedef false_ is_le; |
|
typedef mpl::protect<T> result_; |
|
typedef result_ type; |
|
}; |
|
|
|
/// specializations for the main 'bind' form |
|
template< |
|
typename F, AUX778076_BIND_PARAMS(typename T) |
|
, typename Tag |
|
> |
|
struct lambda< |
|
bind<F,AUX778076_BIND_PARAMS(T)> |
|
, Tag |
|
AUX778076_ARITY_PARAM(int_<BOOST_PP_INC(BOOST_MPL_LIMIT_METAFUNCTION_ARITY)>) |
|
> |
|
{ |
|
typedef false_ is_le; |
|
typedef bind<F, AUX778076_BIND_PARAMS(T)> result_; |
|
typedef result_ type; |
|
}; |
|
|
|
|
|
#if defined(BOOST_MPL_CFG_EXTENDED_TEMPLATE_PARAMETERS_MATCHING) |
|
|
|
template< |
|
typename F |
|
, typename Tag1 |
|
, typename Tag2 |
|
, typename Arity |
|
> |
|
struct lambda< |
|
lambda<F,Tag1,Arity> |
|
, Tag2 |
|
, int_<3> |
|
> |
|
{ |
|
typedef lambda< F,Tag2 > l1; |
|
typedef lambda< Tag1,Tag2 > l2; |
|
|
|
typedef typename l1::is_le is_le; |
|
typedef bind1< quote1<aux::template_arity>, typename l1::result_ > arity_; |
|
typedef lambda< typename if_<is_le,arity_,Arity>::type,Tag2 > l3; |
|
|
|
typedef aux::le_result3<is_le, Tag2, mpl::lambda, l1, l2, l3> le_result_; |
|
typedef typename le_result_::result_ result_; |
|
typedef typename le_result_::type type; |
|
}; |
|
|
|
#elif !defined(BOOST_MPL_CFG_DMC_AMBIGUOUS_CTPS) |
|
|
|
/// workaround for MWCW 8.3+/EDG < 303, leads to ambiguity on Digital Mars |
|
template< |
|
typename F, typename Tag1, typename Tag2 |
|
> |
|
struct lambda< |
|
lambda< F,Tag1 > |
|
, Tag2 |
|
> |
|
{ |
|
typedef lambda< F,Tag2 > l1; |
|
typedef lambda< Tag1,Tag2 > l2; |
|
|
|
typedef typename l1::is_le is_le; |
|
typedef aux::le_result2<is_le, Tag2, mpl::lambda, l1, l2> le_result_; |
|
typedef typename le_result_::result_ result_; |
|
typedef typename le_result_::type type; |
|
}; |
|
|
|
#endif |
|
|
|
# undef AUX778076_ARITY_PARAM |
|
# undef AUX778076_BIND_N_PARAMS |
|
# undef AUX778076_BIND_PARAMS |
|
# undef AUX778076_LAMBDA_PARAMS |
|
|
|
#if !defined(BOOST_MPL_CFG_EXTENDED_TEMPLATE_PARAMETERS_MATCHING) |
|
BOOST_MPL_AUX_NA_SPEC(2, lambda) |
|
#else |
|
BOOST_MPL_AUX_NA_SPEC2(2, 3, lambda) |
|
#endif |
|
|
|
}} |
|
|
|
#endif // BOOST_MPL_CFG_NO_PREPROCESSED_HEADERS |
|
#endif // BOOST_MPL_AUX_FULL_LAMBDA_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 i_ > 0 |
|
|
|
namespace aux { |
|
|
|
# define AUX778076_RESULT(unused, i_, T) \ |
|
BOOST_PP_COMMA_IF(i_) \ |
|
typename BOOST_PP_CAT(T, BOOST_PP_INC(i_))::result_ \ |
|
/**/ |
|
|
|
# define AUX778076_TYPE(unused, i_, T) \ |
|
BOOST_PP_COMMA_IF(i_) \ |
|
typename BOOST_PP_CAT(T, BOOST_PP_INC(i_))::type \ |
|
/**/ |
|
|
|
template< |
|
typename IsLE, typename Tag |
|
, template< AUX778076_LAMBDA_PARAMS(i_, typename P) > class F |
|
, AUX778076_LAMBDA_PARAMS(i_, typename L) |
|
> |
|
struct BOOST_PP_CAT(le_result,i_) |
|
{ |
|
typedef F< |
|
BOOST_MPL_PP_REPEAT(i_, AUX778076_TYPE, L) |
|
> result_; |
|
|
|
typedef result_ type; |
|
}; |
|
|
|
template< |
|
typename Tag |
|
, template< AUX778076_LAMBDA_PARAMS(i_, typename P) > class F |
|
, AUX778076_LAMBDA_PARAMS(i_, typename L) |
|
> |
|
struct BOOST_PP_CAT(le_result,i_)< true_,Tag,F,AUX778076_LAMBDA_PARAMS(i_, L) > |
|
{ |
|
typedef BOOST_PP_CAT(bind,i_)< |
|
BOOST_PP_CAT(quote,i_)<F,Tag> |
|
, BOOST_MPL_PP_REPEAT(i_, AUX778076_RESULT, L) |
|
> result_; |
|
|
|
typedef mpl::protect<result_> type; |
|
}; |
|
|
|
# undef AUX778076_TYPE |
|
# undef AUX778076_RESULT |
|
|
|
} // namespace aux |
|
|
|
|
|
# define AUX778076_LAMBDA_TYPEDEF(unused, i_, T) \ |
|
typedef lambda< BOOST_PP_CAT(T, BOOST_PP_INC(i_)), Tag > \ |
|
BOOST_PP_CAT(l,BOOST_PP_INC(i_)); \ |
|
/**/ |
|
|
|
# define AUX778076_IS_LE_TYPEDEF(unused, i_, unused2) \ |
|
typedef typename BOOST_PP_CAT(l,BOOST_PP_INC(i_))::is_le \ |
|
BOOST_PP_CAT(is_le,BOOST_PP_INC(i_)); \ |
|
/**/ |
|
|
|
# define AUX778076_IS_LAMBDA_EXPR(unused, i_, unused2) \ |
|
BOOST_PP_COMMA_IF(i_) \ |
|
BOOST_PP_CAT(is_le,BOOST_PP_INC(i_))::value \ |
|
/**/ |
|
|
|
template< |
|
template< AUX778076_LAMBDA_PARAMS(i_, typename P) > class F |
|
, AUX778076_LAMBDA_PARAMS(i_, typename T) |
|
, typename Tag |
|
> |
|
struct lambda< |
|
F<AUX778076_LAMBDA_PARAMS(i_, T)> |
|
, Tag |
|
AUX778076_ARITY_PARAM(int_<i_>) |
|
> |
|
{ |
|
BOOST_MPL_PP_REPEAT(i_, AUX778076_LAMBDA_TYPEDEF, T) |
|
BOOST_MPL_PP_REPEAT(i_, AUX778076_IS_LE_TYPEDEF, unused) |
|
|
|
typedef typename aux::lambda_or< |
|
BOOST_MPL_PP_REPEAT(i_, AUX778076_IS_LAMBDA_EXPR, unused) |
|
>::type is_le; |
|
|
|
typedef aux::BOOST_PP_CAT(le_result,i_)< |
|
is_le, Tag, F, AUX778076_LAMBDA_PARAMS(i_, l) |
|
> le_result_; |
|
|
|
typedef typename le_result_::result_ result_; |
|
typedef typename le_result_::type type; |
|
}; |
|
|
|
|
|
# undef AUX778076_IS_LAMBDA_EXPR |
|
# undef AUX778076_IS_LE_TYPEDEF |
|
# undef AUX778076_LAMBDA_TYPEDEF |
|
|
|
#endif // i_ > 0 |
|
|
|
template< |
|
typename F AUX778076_BIND_N_PARAMS(i_, typename T) |
|
, typename Tag |
|
> |
|
struct lambda< |
|
BOOST_PP_CAT(bind,i_)<F AUX778076_BIND_N_PARAMS(i_, T)> |
|
, Tag |
|
AUX778076_ARITY_PARAM(int_<BOOST_PP_INC(i_)>) |
|
> |
|
{ |
|
typedef false_ is_le; |
|
typedef BOOST_PP_CAT(bind,i_)< |
|
F |
|
AUX778076_BIND_N_PARAMS(i_, T) |
|
> result_; |
|
|
|
typedef result_ type; |
|
}; |
|
|
|
#undef i_ |
|
#endif // BOOST_PP_ITERATION_DEPTH() |
|
#endif // BOOST_PP_IS_ITERATING
|
|
|