Chris@16: 
Chris@16: #if !defined(BOOST_PP_IS_ITERATING)
Chris@16: 
Chris@16: ///// header body
Chris@16: 
Chris@16: #ifndef BOOST_MPL_AUX_LAMBDA_NO_CTPS_HPP_INCLUDED
Chris@16: #define BOOST_MPL_AUX_LAMBDA_NO_CTPS_HPP_INCLUDED
Chris@16: 
Chris@16: // Copyright Aleksey Gurtovoy 2000-2004
Chris@16: //
Chris@16: // Distributed under the Boost Software License, Version 1.0. 
Chris@16: // (See accompanying file LICENSE_1_0.txt or copy at 
Chris@16: // http://www.boost.org/LICENSE_1_0.txt)
Chris@16: //
Chris@16: // See http://www.boost.org/libs/mpl for documentation.
Chris@16: 
Chris@101: // $Id$
Chris@101: // $Date$
Chris@101: // $Revision$
Chris@16: 
Chris@16: #if !defined(BOOST_MPL_PREPROCESSING_MODE)
Chris@16: #   include <boost/mpl/lambda_fwd.hpp>
Chris@16: #   include <boost/mpl/bind_fwd.hpp>
Chris@16: #   include <boost/mpl/protect.hpp>
Chris@16: #   include <boost/mpl/is_placeholder.hpp>
Chris@16: #   include <boost/mpl/if.hpp>
Chris@16: #   include <boost/mpl/identity.hpp>
Chris@16: #   include <boost/mpl/bool.hpp>
Chris@16: #   include <boost/mpl/aux_/na_spec.hpp>
Chris@16: #   include <boost/mpl/aux_/lambda_support.hpp>
Chris@16: #   include <boost/mpl/aux_/template_arity.hpp>
Chris@16: #   include <boost/mpl/aux_/value_wknd.hpp>
Chris@16: #endif
Chris@16: 
Chris@16: #include <boost/mpl/aux_/config/use_preprocessed.hpp>
Chris@16: 
Chris@16: #if    !defined(BOOST_MPL_CFG_NO_PREPROCESSED_HEADERS) \
Chris@16:     && !defined(BOOST_MPL_PREPROCESSING_MODE)
Chris@16: 
Chris@16: #   define BOOST_MPL_PREPROCESSED_HEADER lambda_no_ctps.hpp
Chris@16: #   include <boost/mpl/aux_/include_preprocessed.hpp>
Chris@16: 
Chris@16: #else
Chris@16: 
Chris@16: #   include <boost/mpl/limits/arity.hpp>
Chris@16: #   include <boost/mpl/aux_/preprocessor/params.hpp>
Chris@16: #   include <boost/mpl/aux_/preprocessor/default_params.hpp>
Chris@16: #   include <boost/mpl/aux_/preprocessor/repeat.hpp>
Chris@16: #   include <boost/mpl/aux_/preprocessor/enum.hpp>
Chris@16: #   include <boost/mpl/aux_/config/msvc.hpp>
Chris@16: #   include <boost/mpl/aux_/config/workaround.hpp>
Chris@16: 
Chris@16: #   include <boost/preprocessor/comma_if.hpp>
Chris@16: #   include <boost/preprocessor/iterate.hpp>
Chris@16: #   include <boost/preprocessor/inc.hpp>
Chris@16: #   include <boost/preprocessor/cat.hpp>
Chris@16: 
Chris@16: namespace boost { namespace mpl {
Chris@16: 
Chris@16: #   define AUX778076_LAMBDA_PARAMS(i_, param) \
Chris@16:     BOOST_MPL_PP_PARAMS(i_, param) \
Chris@16:     /**/
Chris@16: 
Chris@16: namespace aux {
Chris@16: 
Chris@16: #define n_ BOOST_MPL_LIMIT_METAFUNCTION_ARITY
Chris@16: template<
Chris@16:       BOOST_MPL_PP_DEFAULT_PARAMS(n_,bool C,false)
Chris@16:     >
Chris@16: struct lambda_or
Chris@16:     : true_
Chris@16: {
Chris@16: };
Chris@16: 
Chris@16: template<>
Chris@16: struct lambda_or< BOOST_MPL_PP_ENUM(n_,false) >
Chris@16:     : false_
Chris@16: {
Chris@16: };
Chris@16: #undef n_
Chris@16: 
Chris@16: template< typename Arity > struct lambda_impl
Chris@16: {
Chris@16:     template< typename T, typename Tag, typename Protect > struct result_
Chris@16:     {
Chris@16:         typedef T type;
Chris@16:         typedef is_placeholder<T> is_le;
Chris@16:     };
Chris@16: };
Chris@16: 
Chris@16: #define BOOST_PP_ITERATION_PARAMS_1 \
Chris@16:     (3,(1, BOOST_MPL_LIMIT_METAFUNCTION_ARITY, <boost/mpl/aux_/lambda_no_ctps.hpp>))
Chris@16: #include BOOST_PP_ITERATE()
Chris@16: 
Chris@16: } // namespace aux
Chris@16: 
Chris@16: template<
Chris@16:       typename T
Chris@16:     , typename Tag
Chris@16:     , typename Protect
Chris@16:     >
Chris@16: struct lambda
Chris@16: {
Chris@16:     /// Metafunction forwarding confuses MSVC 6.x
Chris@16:     typedef typename aux::template_arity<T>::type arity_;
Chris@16:     typedef typename aux::lambda_impl<arity_>
Chris@16:         ::template result_< T,Tag,Protect > l_;
Chris@16: 
Chris@16:     typedef typename l_::type type;
Chris@16:     typedef typename l_::is_le is_le;
Chris@16:     
Chris@16:     BOOST_MPL_AUX_LAMBDA_SUPPORT(3, lambda, (T, Tag, Protect))
Chris@16: };
Chris@16: 
Chris@16: BOOST_MPL_AUX_NA_SPEC2(1, 3, lambda)
Chris@16: 
Chris@16: template<
Chris@16:       typename T
Chris@16:     >
Chris@16: struct is_lambda_expression
Chris@16:     : lambda<T>::is_le
Chris@16: {
Chris@16: };
Chris@16: 
Chris@16: #   undef AUX778076_LAMBDA_PARAMS
Chris@16: 
Chris@16: }}
Chris@16: 
Chris@16: #endif // BOOST_MPL_CFG_NO_PREPROCESSED_HEADERS
Chris@16: #endif // BOOST_MPL_AUX_LAMBDA_NO_CTPS_HPP_INCLUDED
Chris@16: 
Chris@16: ///// iteration, depth == 1
Chris@16: 
Chris@16: #else
Chris@16: 
Chris@16: #define i_ BOOST_PP_FRAME_ITERATION(1)
Chris@16: 
Chris@16: #   define AUX778076_LAMBDA_TYPEDEF(unused, i_, F) \
Chris@16:     typedef lambda< \
Chris@16:           typename F::BOOST_PP_CAT(arg,BOOST_PP_INC(i_)) \
Chris@16:         , Tag \
Chris@16:         , false_ \
Chris@16:         > BOOST_PP_CAT(l,BOOST_PP_INC(i_)); \
Chris@16:     /**/
Chris@16: 
Chris@16: #   define AUX778076_IS_LE_TYPEDEF(unused, i_, unused2) \
Chris@16:     typedef typename BOOST_PP_CAT(l,BOOST_PP_INC(i_))::is_le \
Chris@16:         BOOST_PP_CAT(is_le,BOOST_PP_INC(i_)); \
Chris@16:     /**/
Chris@16: 
Chris@16: #   define AUX778076_IS_LAMBDA_EXPR(unused, i_, unused2) \
Chris@16:     BOOST_PP_COMMA_IF(i_) \
Chris@16:     BOOST_MPL_AUX_MSVC_VALUE_WKND(BOOST_PP_CAT(is_le,BOOST_PP_INC(i_)))::value \
Chris@16:     /**/
Chris@16: 
Chris@16: #   define AUX778076_LAMBDA_RESULT(unused, i_, unused2) \
Chris@16:     , typename BOOST_PP_CAT(l,BOOST_PP_INC(i_))::type \
Chris@16:     /**/
Chris@16: 
Chris@16: template<> struct lambda_impl< int_<i_> >
Chris@16: {
Chris@16:     template< typename F, typename Tag, typename Protect > struct result_
Chris@16:     {
Chris@16:         BOOST_MPL_PP_REPEAT(i_, AUX778076_LAMBDA_TYPEDEF, F)
Chris@16:         BOOST_MPL_PP_REPEAT(i_, AUX778076_IS_LE_TYPEDEF, unused)
Chris@16: 
Chris@16:         typedef aux::lambda_or<
Chris@16:               BOOST_MPL_PP_REPEAT(i_, AUX778076_IS_LAMBDA_EXPR, unused)
Chris@16:             > is_le;
Chris@16: 
Chris@16:         typedef BOOST_PP_CAT(bind,i_)<
Chris@16:               typename F::rebind
Chris@16:             BOOST_MPL_PP_REPEAT(i_, AUX778076_LAMBDA_RESULT, unused)
Chris@16:             > bind_;
Chris@16: 
Chris@16:         typedef typename if_<
Chris@16:               is_le
Chris@16:             , if_< Protect, mpl::protect<bind_>, bind_ >
Chris@16:             , identity<F>
Chris@16:             >::type type_;
Chris@16:     
Chris@16:         typedef typename type_::type type;
Chris@16:     };
Chris@16: };
Chris@16: 
Chris@16: #   undef AUX778076_LAMBDA_RESULT
Chris@16: #   undef AUX778076_IS_LAMBDA_EXPR
Chris@16: #   undef AUX778076_IS_LE_TYPEDEF
Chris@16: #   undef AUX778076_LAMBDA_TYPEDEF
Chris@16: 
Chris@16: #undef i_
Chris@16: 
Chris@16: #endif // BOOST_PP_IS_ITERATING