194 lines
5.0 KiB
Plaintext
194 lines
5.0 KiB
Plaintext
|
|
#if !defined(BOOST_PP_IS_ITERATING)
|
|
|
|
///// header body
|
|
|
|
#ifndef BOOST_MPL_AUX_LAMBDA_NO_CTPS_HPP_INCLUDED
|
|
#define BOOST_MPL_AUX_LAMBDA_NO_CTPS_HPP_INCLUDED
|
|
|
|
// Copyright Aleksey Gurtovoy 2000-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/lambda_fwd.hpp>
|
|
# include <boost/mpl/bind_fwd.hpp>
|
|
# include <boost/mpl/protect.hpp>
|
|
# include <boost/mpl/is_placeholder.hpp>
|
|
# include <boost/mpl/if.hpp>
|
|
# include <boost/mpl/identity.hpp>
|
|
# include <boost/mpl/bool.hpp>
|
|
# include <boost/mpl/aux_/na_spec.hpp>
|
|
# include <boost/mpl/aux_/lambda_support.hpp>
|
|
# include <boost/mpl/aux_/template_arity.hpp>
|
|
# include <boost/mpl/aux_/value_wknd.hpp>
|
|
#endif
|
|
|
|
#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 lambda_no_ctps.hpp
|
|
# include <boost/mpl/aux_/include_preprocessed.hpp>
|
|
|
|
#else
|
|
|
|
# include <boost/mpl/limits/arity.hpp>
|
|
# include <boost/mpl/aux_/preprocessor/params.hpp>
|
|
# include <boost/mpl/aux_/preprocessor/default_params.hpp>
|
|
# include <boost/mpl/aux_/preprocessor/repeat.hpp>
|
|
# include <boost/mpl/aux_/preprocessor/enum.hpp>
|
|
# include <boost/mpl/aux_/config/msvc.hpp>
|
|
# include <boost/mpl/aux_/config/workaround.hpp>
|
|
|
|
# include <boost/preprocessor/comma_if.hpp>
|
|
# include <boost/preprocessor/iterate.hpp>
|
|
# include <boost/preprocessor/inc.hpp>
|
|
# include <boost/preprocessor/cat.hpp>
|
|
|
|
namespace boost { namespace mpl {
|
|
|
|
# define AUX778076_LAMBDA_PARAMS(i_, param) \
|
|
BOOST_MPL_PP_PARAMS(i_, param) \
|
|
/**/
|
|
|
|
namespace aux {
|
|
|
|
#define n_ BOOST_MPL_LIMIT_METAFUNCTION_ARITY
|
|
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_
|
|
{
|
|
};
|
|
#undef n_
|
|
|
|
template< typename Arity > struct lambda_impl
|
|
{
|
|
template< typename T, typename Tag, typename Protect > struct result_
|
|
{
|
|
typedef T type;
|
|
typedef is_placeholder<T> is_le;
|
|
};
|
|
};
|
|
|
|
#define BOOST_PP_ITERATION_PARAMS_1 \
|
|
(3,(1, BOOST_MPL_LIMIT_METAFUNCTION_ARITY, <boost/mpl/aux_/lambda_no_ctps.hpp>))
|
|
#include BOOST_PP_ITERATE()
|
|
|
|
} // namespace aux
|
|
|
|
template<
|
|
typename T
|
|
, typename Tag
|
|
, typename Protect
|
|
>
|
|
struct lambda
|
|
{
|
|
/// Metafunction forwarding confuses MSVC 6.x
|
|
typedef typename aux::template_arity<T>::type arity_;
|
|
typedef typename aux::lambda_impl<arity_>
|
|
::template result_< T,Tag,Protect > l_;
|
|
|
|
typedef typename l_::type type;
|
|
typedef typename l_::is_le is_le;
|
|
|
|
BOOST_MPL_AUX_LAMBDA_SUPPORT(3, lambda, (T, Tag, Protect))
|
|
};
|
|
|
|
BOOST_MPL_AUX_NA_SPEC2(1, 3, lambda)
|
|
|
|
template<
|
|
typename T
|
|
>
|
|
struct is_lambda_expression
|
|
: lambda<T>::is_le
|
|
{
|
|
};
|
|
|
|
# undef AUX778076_LAMBDA_PARAMS
|
|
|
|
}}
|
|
|
|
#endif // BOOST_MPL_CFG_NO_PREPROCESSED_HEADERS
|
|
#endif // BOOST_MPL_AUX_LAMBDA_NO_CTPS_HPP_INCLUDED
|
|
|
|
///// iteration, depth == 1
|
|
|
|
#else
|
|
|
|
#define i_ BOOST_PP_FRAME_ITERATION(1)
|
|
|
|
# define AUX778076_LAMBDA_TYPEDEF(unused, i_, F) \
|
|
typedef lambda< \
|
|
typename F::BOOST_PP_CAT(arg,BOOST_PP_INC(i_)) \
|
|
, Tag \
|
|
, false_ \
|
|
> 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_MPL_AUX_MSVC_VALUE_WKND(BOOST_PP_CAT(is_le,BOOST_PP_INC(i_)))::value \
|
|
/**/
|
|
|
|
# define AUX778076_LAMBDA_RESULT(unused, i_, unused2) \
|
|
, typename BOOST_PP_CAT(l,BOOST_PP_INC(i_))::type \
|
|
/**/
|
|
|
|
template<> struct lambda_impl< int_<i_> >
|
|
{
|
|
template< typename F, typename Tag, typename Protect > struct result_
|
|
{
|
|
BOOST_MPL_PP_REPEAT(i_, AUX778076_LAMBDA_TYPEDEF, F)
|
|
BOOST_MPL_PP_REPEAT(i_, AUX778076_IS_LE_TYPEDEF, unused)
|
|
|
|
typedef aux::lambda_or<
|
|
BOOST_MPL_PP_REPEAT(i_, AUX778076_IS_LAMBDA_EXPR, unused)
|
|
> is_le;
|
|
|
|
typedef BOOST_PP_CAT(bind,i_)<
|
|
typename F::rebind
|
|
BOOST_MPL_PP_REPEAT(i_, AUX778076_LAMBDA_RESULT, unused)
|
|
> bind_;
|
|
|
|
typedef typename if_<
|
|
is_le
|
|
, if_< Protect, mpl::protect<bind_>, bind_ >
|
|
, identity<F>
|
|
>::type type_;
|
|
|
|
typedef typename type_::type type;
|
|
};
|
|
};
|
|
|
|
# undef AUX778076_LAMBDA_RESULT
|
|
# undef AUX778076_IS_LAMBDA_EXPR
|
|
# undef AUX778076_IS_LE_TYPEDEF
|
|
# undef AUX778076_LAMBDA_TYPEDEF
|
|
|
|
#undef i_
|
|
|
|
#endif // BOOST_PP_IS_ITERATING
|