Chris@16: 
Chris@16: #if !defined(BOOST_PP_IS_ITERATING)
Chris@16: 
Chris@16: ///// header body
Chris@16: 
Chris@16: #ifndef BOOST_MPL_AUX_FULL_LAMBDA_HPP_INCLUDED
Chris@16: #define BOOST_MPL_AUX_FULL_LAMBDA_HPP_INCLUDED
Chris@16: 
Chris@16: // Copyright Aleksey Gurtovoy 2001-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/quote.hpp>
Chris@16: #   include <boost/mpl/arg.hpp>
Chris@16: #   include <boost/mpl/bool.hpp>
Chris@16: #   include <boost/mpl/int_fwd.hpp>
Chris@16: #   include <boost/mpl/aux_/template_arity.hpp>
Chris@16: #   include <boost/mpl/aux_/na_spec.hpp>
Chris@16: #   include <boost/mpl/aux_/config/ttp.hpp>
Chris@16: #   if defined(BOOST_MPL_CFG_EXTENDED_TEMPLATE_PARAMETERS_MATCHING)
Chris@16: #       include <boost/mpl/if.hpp>
Chris@16: #   endif
Chris@16: #endif
Chris@16: 
Chris@16: #include <boost/mpl/aux_/lambda_arity_param.hpp>
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 full_lambda.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/default_params.hpp>
Chris@16: #   include <boost/mpl/aux_/preprocessor/params.hpp>
Chris@16: #   include <boost/mpl/aux_/preprocessor/enum.hpp>
Chris@16: #   include <boost/mpl/aux_/preprocessor/repeat.hpp>
Chris@16: #   include <boost/mpl/aux_/config/dmc_ambiguous_ctps.hpp>
Chris@16: 
Chris@16: #   include <boost/preprocessor/iterate.hpp>
Chris@16: #   include <boost/preprocessor/comma_if.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: // local macros, #undef-ined at the end of the header
Chris@16: #   define AUX778076_LAMBDA_PARAMS(i_, param) \
Chris@16:     BOOST_MPL_PP_PARAMS(i_, param) \
Chris@16:     /**/
Chris@16: 
Chris@16: #   define AUX778076_BIND_PARAMS(param) \
Chris@16:     BOOST_MPL_PP_PARAMS( \
Chris@16:           BOOST_MPL_LIMIT_METAFUNCTION_ARITY \
Chris@16:         , param \
Chris@16:         ) \
Chris@16:     /**/
Chris@16: 
Chris@16: #   define AUX778076_BIND_N_PARAMS(i_, param) \
Chris@16:     BOOST_PP_COMMA_IF(i_) \
Chris@16:     BOOST_MPL_PP_PARAMS(i_, param) \
Chris@16:     /**/
Chris@16: 
Chris@16: #   define AUX778076_ARITY_PARAM(param) \
Chris@16:     BOOST_MPL_AUX_LAMBDA_ARITY_PARAM(param) \
Chris@16:     /**/
Chris@16: 
Chris@16: 
Chris@16: #define n_ BOOST_MPL_LIMIT_METAFUNCTION_ARITY
Chris@16: namespace aux {
Chris@16: 
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: 
Chris@16: } // namespace aux
Chris@16: #undef n_
Chris@16: 
Chris@16: template<
Chris@16:       typename T
Chris@16:     , typename Tag
Chris@16:     AUX778076_ARITY_PARAM(typename Arity)
Chris@16:     >
Chris@16: struct lambda
Chris@16: {
Chris@16:     typedef false_ is_le;
Chris@16:     typedef T result_;
Chris@16:     typedef T type;
Chris@16: };
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: 
Chris@16: template< int N, typename Tag >
Chris@16: struct lambda< arg<N>,Tag AUX778076_ARITY_PARAM(int_<-1>) >
Chris@16: {
Chris@16:     typedef true_ is_le;
Chris@16:     typedef mpl::arg<N> result_; // qualified for the sake of MIPSpro 7.41
Chris@16:     typedef mpl::protect<result_> type; 
Chris@16: };
Chris@16: 
Chris@16: 
Chris@16: #define BOOST_PP_ITERATION_PARAMS_1 \
Chris@16:     (3,(0, BOOST_MPL_LIMIT_METAFUNCTION_ARITY, <boost/mpl/aux_/full_lambda.hpp>))
Chris@16: #include BOOST_PP_ITERATE()
Chris@16: 
Chris@16: /// special case for 'protect'
Chris@16: template< typename T, typename Tag >
Chris@16: struct lambda< mpl::protect<T>,Tag AUX778076_ARITY_PARAM(int_<1>) >
Chris@16: {
Chris@16:     typedef false_ is_le;
Chris@16:     typedef mpl::protect<T> result_;
Chris@16:     typedef result_ type;
Chris@16: };
Chris@16: 
Chris@16: /// specializations for the main 'bind' form
Chris@16: template<
Chris@16:       typename F, AUX778076_BIND_PARAMS(typename T)
Chris@16:     , typename Tag
Chris@16:     >
Chris@16: struct lambda<
Chris@16:           bind<F,AUX778076_BIND_PARAMS(T)>
Chris@16:         , Tag
Chris@16:         AUX778076_ARITY_PARAM(int_<BOOST_PP_INC(BOOST_MPL_LIMIT_METAFUNCTION_ARITY)>)
Chris@16:         >
Chris@16: {
Chris@16:     typedef false_ is_le;
Chris@16:     typedef bind<F, AUX778076_BIND_PARAMS(T)> result_;
Chris@16:     typedef result_ type;
Chris@16: };
Chris@16: 
Chris@16: 
Chris@16: #if defined(BOOST_MPL_CFG_EXTENDED_TEMPLATE_PARAMETERS_MATCHING)
Chris@16: 
Chris@16: template<
Chris@16:       typename F
Chris@16:     , typename Tag1
Chris@16:     , typename Tag2
Chris@16:     , typename Arity
Chris@16:     >
Chris@16: struct lambda<
Chris@16:           lambda<F,Tag1,Arity>
Chris@16:         , Tag2
Chris@16:         , int_<3>
Chris@16:         >
Chris@16: {
Chris@16:     typedef lambda< F,Tag2 > l1;
Chris@16:     typedef lambda< Tag1,Tag2 > l2;
Chris@16: 
Chris@16:     typedef typename l1::is_le is_le;
Chris@16:     typedef bind1< quote1<aux::template_arity>, typename l1::result_ > arity_;
Chris@16:     typedef lambda< typename if_<is_le,arity_,Arity>::type,Tag2 > l3;
Chris@16:     
Chris@16:     typedef aux::le_result3<is_le, Tag2, mpl::lambda, l1, l2, l3> le_result_;
Chris@16:     typedef typename le_result_::result_ result_;
Chris@16:     typedef typename le_result_::type type;
Chris@16: };
Chris@16: 
Chris@16: #elif !defined(BOOST_MPL_CFG_DMC_AMBIGUOUS_CTPS)
Chris@16: 
Chris@16: /// workaround for MWCW 8.3+/EDG < 303, leads to ambiguity on Digital Mars
Chris@16: template<
Chris@16:       typename F, typename Tag1, typename Tag2
Chris@16:     >
Chris@16: struct lambda<
Chris@16:           lambda< F,Tag1 >
Chris@16:         , Tag2
Chris@16:         >
Chris@16: {
Chris@16:     typedef lambda< F,Tag2 > l1;
Chris@16:     typedef lambda< Tag1,Tag2 > l2;
Chris@16:     
Chris@16:     typedef typename l1::is_le is_le;
Chris@16:     typedef aux::le_result2<is_le, Tag2, mpl::lambda, l1, l2> le_result_;
Chris@16:     typedef typename le_result_::result_ result_;
Chris@16:     typedef typename le_result_::type type;
Chris@16: };
Chris@16: 
Chris@16: #endif
Chris@16: 
Chris@16: #   undef AUX778076_ARITY_PARAM
Chris@16: #   undef AUX778076_BIND_N_PARAMS
Chris@16: #   undef AUX778076_BIND_PARAMS
Chris@16: #   undef AUX778076_LAMBDA_PARAMS
Chris@16: 
Chris@16: #if !defined(BOOST_MPL_CFG_EXTENDED_TEMPLATE_PARAMETERS_MATCHING)
Chris@16: BOOST_MPL_AUX_NA_SPEC(2, lambda)
Chris@16: #else
Chris@16: BOOST_MPL_AUX_NA_SPEC2(2, 3, lambda)
Chris@16: #endif
Chris@16: 
Chris@16: }}
Chris@16: 
Chris@16: #endif // BOOST_MPL_CFG_NO_PREPROCESSED_HEADERS
Chris@16: #endif // BOOST_MPL_AUX_FULL_LAMBDA_HPP_INCLUDED
Chris@16: 
Chris@16: ///// iteration, depth == 1
Chris@16: 
Chris@16: // For gcc 4.4 compatability, we must include the
Chris@16: // BOOST_PP_ITERATION_DEPTH test inside an #else clause.
Chris@16: #else // BOOST_PP_IS_ITERATING
Chris@16: #if BOOST_PP_ITERATION_DEPTH() == 1
Chris@16: #define i_ BOOST_PP_FRAME_ITERATION(1)
Chris@16: 
Chris@16: #if i_ > 0
Chris@16: 
Chris@16: namespace aux {
Chris@16: 
Chris@16: #   define AUX778076_RESULT(unused, i_, T) \
Chris@16:     BOOST_PP_COMMA_IF(i_) \
Chris@16:     typename BOOST_PP_CAT(T, BOOST_PP_INC(i_))::result_ \
Chris@16:     /**/
Chris@16: 
Chris@16: #   define AUX778076_TYPE(unused, i_, T) \
Chris@16:     BOOST_PP_COMMA_IF(i_) \
Chris@16:     typename BOOST_PP_CAT(T, BOOST_PP_INC(i_))::type \
Chris@16:     /**/
Chris@16: 
Chris@16: template<
Chris@16:       typename IsLE, typename Tag
Chris@16:     , template< AUX778076_LAMBDA_PARAMS(i_, typename P) > class F
Chris@16:     , AUX778076_LAMBDA_PARAMS(i_, typename L)
Chris@16:     >
Chris@16: struct BOOST_PP_CAT(le_result,i_)
Chris@16: {
Chris@16:     typedef F<
Chris@16:           BOOST_MPL_PP_REPEAT(i_, AUX778076_TYPE, L)
Chris@16:         > result_;
Chris@16:     
Chris@16:     typedef result_ type;
Chris@16: };
Chris@16: 
Chris@16: template<
Chris@16:       typename Tag
Chris@16:     , template< AUX778076_LAMBDA_PARAMS(i_, typename P) > class F
Chris@16:     , AUX778076_LAMBDA_PARAMS(i_, typename L)
Chris@16:     >
Chris@16: struct BOOST_PP_CAT(le_result,i_)< true_,Tag,F,AUX778076_LAMBDA_PARAMS(i_, L) >
Chris@16: {
Chris@16:     typedef BOOST_PP_CAT(bind,i_)<
Chris@16:           BOOST_PP_CAT(quote,i_)<F,Tag>
Chris@16:         , BOOST_MPL_PP_REPEAT(i_, AUX778076_RESULT, L)
Chris@16:         > result_;
Chris@16: 
Chris@16:     typedef mpl::protect<result_> type;
Chris@16: };
Chris@16: 
Chris@16: #   undef AUX778076_TYPE
Chris@16: #   undef AUX778076_RESULT
Chris@16: 
Chris@16: } // namespace aux
Chris@16: 
Chris@16: 
Chris@16: #   define AUX778076_LAMBDA_TYPEDEF(unused, i_, T) \
Chris@16:     typedef lambda< BOOST_PP_CAT(T, BOOST_PP_INC(i_)), Tag > \
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_PP_CAT(is_le,BOOST_PP_INC(i_))::value \
Chris@16: /**/
Chris@16: 
Chris@16: template<
Chris@16:       template< AUX778076_LAMBDA_PARAMS(i_, typename P) > class F
Chris@16:     , AUX778076_LAMBDA_PARAMS(i_, typename T)
Chris@16:     , typename Tag
Chris@16:     >
Chris@16: struct lambda< 
Chris@16:           F<AUX778076_LAMBDA_PARAMS(i_, T)>
Chris@16:         , Tag
Chris@16:         AUX778076_ARITY_PARAM(int_<i_>)
Chris@16:         >
Chris@16: {
Chris@16:     BOOST_MPL_PP_REPEAT(i_, AUX778076_LAMBDA_TYPEDEF, T)
Chris@16:     BOOST_MPL_PP_REPEAT(i_, AUX778076_IS_LE_TYPEDEF, unused)
Chris@16: 
Chris@16:     typedef typename aux::lambda_or<
Chris@16:           BOOST_MPL_PP_REPEAT(i_, AUX778076_IS_LAMBDA_EXPR, unused)
Chris@16:         >::type is_le;
Chris@16: 
Chris@16:     typedef aux::BOOST_PP_CAT(le_result,i_)<
Chris@16:           is_le, Tag, F, AUX778076_LAMBDA_PARAMS(i_, l)
Chris@16:         > le_result_;
Chris@16:     
Chris@16:     typedef typename le_result_::result_ result_;
Chris@16:     typedef typename le_result_::type type;
Chris@16: };
Chris@16: 
Chris@16: 
Chris@16: #   undef AUX778076_IS_LAMBDA_EXPR
Chris@16: #   undef AUX778076_IS_LE_TYPEDEF
Chris@16: #   undef AUX778076_LAMBDA_TYPEDEF
Chris@16: 
Chris@16: #endif // i_ > 0
Chris@16: 
Chris@16: template<
Chris@16:       typename F AUX778076_BIND_N_PARAMS(i_, typename T)
Chris@16:     , typename Tag
Chris@16:     >
Chris@16: struct lambda<
Chris@16:           BOOST_PP_CAT(bind,i_)<F AUX778076_BIND_N_PARAMS(i_, T)>
Chris@16:         , Tag
Chris@16:         AUX778076_ARITY_PARAM(int_<BOOST_PP_INC(i_)>)
Chris@16:         >
Chris@16: {
Chris@16:     typedef false_ is_le;
Chris@16:     typedef BOOST_PP_CAT(bind,i_)<
Chris@16:           F
Chris@16:         AUX778076_BIND_N_PARAMS(i_, T)
Chris@16:         > result_;
Chris@16:         
Chris@16:     typedef result_ type;
Chris@16: };
Chris@16: 
Chris@16: #undef i_
Chris@16: #endif // BOOST_PP_ITERATION_DEPTH()
Chris@16: #endif // BOOST_PP_IS_ITERATING