full_lambda.hpp

boost库提供标准的C++ API 配合dev c++使用,功能更加强大

// preprocessed version of 'boost/mpl/aux_/full_lambda.hpp' header
// see the original for copyright information

namespace boost {
namespace mpl {

template<
      typename T
    , typename Tag
    , typename Protect = false_
    , typename Arity = int_< aux::template_arity<T>::value >
    >
struct lambda_impl
{
    typedef false_ is_le;
    typedef T type;
};

template<
      typename T
    , typename Tag = void_
    , typename Arity = int_< aux::template_arity<T>::value >
    >
struct lambda
    : lambda_impl< T,Tag,false_,Arity >
{
};

namespace aux {

template<
      bool C1 = false, bool C2 = false, bool C3 = false, bool C4 = false
    , bool C5 = false
    >
struct lambda_or
    : true_
{
};

template<>
struct lambda_or< false,false,false,false,false >
    : false_
{
};

} // namespace aux

template< int N, typename Tag, typename Protect >
struct lambda_impl< arg<N>,Tag,Protect,int_<-1> >
{
    typedef true_ is_le;
    typedef arg<N> type;
};

template<
      typename F
    , typename Tag
    , typename Protect
    >
struct lambda_impl<
      bind0<F>
    , Tag
    , Protect, int_<1>
    >
{
    typedef false_ is_le;
    typedef bind0<
          F
        > type;
};

template<
      template< typename P1 > class F
    , typename T1
    , typename Tag
    >
struct lambda< F<T1>,Tag,int_<1> >
    : lambda_impl< F<T1>,Tag,true_,int_<1> >
{
};

namespace aux {

template<
      typename IsLE, typename Tag, typename Protect
    , template< typename P1 > class F
    , typename L1
    >
struct le_result1
{
    typedef F<
          typename L1::type
        > type;
};

template<
      template< typename P1 > class F
    , typename Tag
    , typename L1
    >
struct le_result1< true_,Tag,false_,F,L1 >
{
    typedef bind1<
          quote1< F,Tag >
        , typename L1::type
        > type;
};

template<
      template< typename P1 > class F
    , typename Tag
    , typename L1
    >
struct le_result1< true_,Tag,true_,F,L1 >
{
    typedef protect< bind1<
          quote1< F,Tag >
        , typename L1::type
        > > type;
};

} // namespace aux

template<
      template< typename P1 > class F
    , typename T1
    , typename Tag
    , typename Protect
    >
struct lambda_impl<
      F< T1>,Tag,Protect,int_<1 >
    >
{
    typedef lambda_impl< T1,Tag > l1;
    typedef aux::lambda_or<
          l1::is_le::value
        > is_le;

    typedef typename aux::le_result1<
          typename is_le::type
        , Tag
        , Protect
        , F
        , l1
        >::type type;
};

template<
      typename F, typename T1
    , typename Tag
    , typename Protect
    >
struct lambda_impl<
      bind1< F,T1 >
    , Tag
    , Protect, int_<2>
    >
{
    typedef false_ is_le;
    typedef bind1<
          F
        , T1
        > type;
};

template<
      template< typename P1, typename P2 > class F
    , typename T1, typename T2
    , typename Tag
    >
struct lambda< F<T1,T2>,Tag,int_<2> >
    : lambda_impl< F<T1,T2>,Tag,true_,int_<2> >
{
};

namespace aux {

template<
      typename IsLE, typename Tag, typename Protect
    , template< typename P1, typename P2 > class F
    , typename L1, typename L2
    >
struct le_result2
{
    typedef F<
          typename L1::type, typename L2::type
        > type;
};

template<
      template< typename P1, typename P2 > class F
    , typename Tag
    , typename L1, typename L2
    >
struct le_result2< true_,Tag,false_,F,L1,L2 >
{
    typedef bind2<
          quote2< F,Tag >
        , typename L1::type, typename L2::type
        > type;
};

template<
      template< typename P1, typename P2 > class F
    , typename Tag
    , typename L1, typename L2
    >
struct le_result2< true_,Tag,true_,F,L1,L2 >
{
    typedef protect< bind2<
          quote2< F,Tag >
        , typename L1::type, typename L2::type
        > > type;
};

} // namespace aux

template<
      template< typename P1, typename P2 > class F
    , typename T1, typename T2
    , typename Tag
    , typename Protect
    >
struct lambda_impl<
      F< T1,T2>,Tag,Protect,int_<2 >
    >
{
    typedef lambda_impl< T1,Tag > l1;
    typedef lambda_impl< T2,Tag > l2;
    
    typedef aux::lambda_or<
          l1::is_le::value, l2::is_le::value
        > is_le;

    typedef typename aux::le_result2<
          typename is_le::type
        , Tag
        , Protect
        , F
        , l1, l2
        >::type type;
};

template<
      typename F, typename T1, typename T2
    , typename Tag
    , typename Protect
    >
struct lambda_impl<
      bind2< F,T1,T2 >
    , Tag
    , Protect, int_<3>
    >
{
    typedef false_ is_le;
    typedef bind2<
          F
        , T1, T2
        > type;
};

template<
      template< typename P1, typename P2, typename P3 > class F
    , typename T1, typename T2, typename T3
    , typename Tag
    >
struct lambda< F<T1,T2,T3>,Tag,int_<3> >
    : lambda_impl< F<T1,T2,T3>,Tag,true_,int_<3> >
{
};

namespace aux {

template<
      typename IsLE, typename Tag, typename Protect
    , template< typename P1, typename P2, typename P3 > class F
    , typename L1, typename L2, typename L3
    >
struct le_result3
{
    typedef F<
          typename L1::type, typename L2::type, typename L3::type
        > type;
};

template<
      template< typename P1, typename P2, typename P3 > class F
    , typename Tag
    , typename L1, typename L2, typename L3
    >
struct le_result3< true_,Tag,false_,F,L1,L2,L3 >
{
    typedef bind3<
          quote3< F,Tag >
        , typename L1::type, typename L2::type, typename L3::type
        > type;
};

template<
      template< typename P1, typename P2, typename P3 > class F
    , typename Tag
    , typename L1, typename L2, typename L3
    >
struct le_result3< true_,Tag,true_,F,L1,L2,L3 >
{
    typedef protect< bind3<
          quote3< F,Tag >
        , typename L1::type, typename L2::type, typename L3::type
        > > type;
};

} // namespace aux

template<
      template< typename P1, typename P2, typename P3 > class F
    , typename T1, typename T2, typename T3
    , typename Tag
    , typename Protect
    >
struct lambda_impl<
      F< T1,T2,T3>,Tag,Protect,int_<3 >
    >
{
    typedef lambda_impl< T1,Tag > l1;
    typedef lambda_impl< T2,Tag > l2;
    typedef lambda_impl< T3,Tag > l3;
    
    typedef aux::lambda_or<
          l1::is_le::value, l2::is_le::value, l3::is_le::value
        > is_le;

    typedef typename aux::le_result3<
          typename is_le::type
        , Tag
        , Protect
        , F
        , l1, l2, l3
        >::type type;
};

template<
      typename F, typename T1, typename T2, typename T3
    , typename Tag
    , typename Protect
    >
struct lambda_impl<
      bind3< F,T1,T2,T3 >
    , Tag
    , Protect, int_<4>
    >
{
    typedef false_ is_le;
    typedef bind3<
          F
        , T1, T2, T3
        > type;
};

template<
      template< typename P1, typename P2, typename P3, typename P4 > class F
    , typename T1, typename T2, typename T3, typename T4
    , typename Tag
    >
struct lambda< F<T1,T2,T3,T4>,Tag,int_<4> >
    : lambda_impl< F<T1,T2,T3,T4>,Tag,true_,int_<4> >
{
};

namespace aux {

template<
      typename IsLE, typename Tag, typename Protect
    , template< typename P1, typename P2, typename P3, typename P4 > class F
    , typename L1, typename L2, typename L3, typename L4
    >
struct le_result4
{
    typedef F<
          typename L1::type, typename L2::type, typename L3::type
        , typename L4::type
        > type;
};

template<
      template< typename P1, typename P2, typename P3, typename P4 > class F
    , typename Tag
    , typename L1, typename L2, typename L3, typename L4
    >
struct le_result4< true_,Tag,false_,F,L1,L2,L3,L4 >
{
    typedef bind4<
          quote4< F,Tag >
        , typename L1::type, typename L2::type, typename L3::type
        , typename L4::type
        > type;
};

template<
      template< typename P1, typename P2, typename P3, typename P4 > class F
    , typename Tag
    , typename L1, typename L2, typename L3, typename L4
    >
struct le_result4< true_,Tag,true_,F,L1,L2,L3,L4 >
{
    typedef protect< bind4<
          quote4< F,Tag >
        , typename L1::type, typename L2::type, typename L3::type
        , typename L4::type
        > > type;
};

} // namespace aux

template<
      template< typename P1, typename P2, typename P3, typename P4 > class F
    , typename T1, typename T2, typename T3, typename T4
    , typename Tag
    , typename Protect
    >
struct lambda_impl<
      F< T1,T2,T3,T4>,Tag,Protect,int_<4 >
    >
{
    typedef lambda_impl< T1,Tag > l1;
    typedef lambda_impl< T2,Tag > l2;
    typedef lambda_impl< T3,Tag > l3;
    typedef lambda_impl< T4,Tag > l4;
    
    typedef aux::lambda_or<
          l1::is_le::value, l2::is_le::value, l3::is_le::value
        , l4::is_le::value
        > is_le;

    typedef typename aux::le_result4<
          typename is_le::type
        , Tag
        , Protect
        , F
        , l1, l2, l3, l4
        >::type type;
};

template<
      typename F, typename T1, typename T2, typename T3, typename T4
    , typename Tag
    , typename Protect
    >
struct lambda_impl<
      bind4< F,T1,T2,T3,T4 >
    , Tag
    , Protect, int_<5>
    >
{
    typedef false_ is_le;
    typedef bind4<
          F
        , T1, T2, T3, T4
        > type;
};

template<
      template<
          typename P1, typename P2, typename P3, typename P4
        , typename P5
        >
      class F
    , typename T1, typename T2, typename T3, typename T4, typename T5
    , typename Tag
    >
struct lambda< F<T1,T2,T3,T4,T5>,Tag,int_<5> >
    : lambda_impl< F<T1,T2,T3,T4,T5>,Tag,true_,int_<5> >
{
};

namespace aux {

template<
      typename IsLE, typename Tag, typename Protect
    , template< typename P1, typename P2, typename P3, typename P4, typename P5 > class F
    , typename L1, typename L2, typename L3, typename L4, typename L5
    >
struct le_result5
{
    typedef F<
          typename L1::type, typename L2::type, typename L3::type
        , typename L4::type, typename L5::type
        > type;
};

template<
      template<
          typename P1, typename P2, typename P3, typename P4
        , typename P5
        >
      class F
    , typename Tag
    , typename L1, typename L2, typename L3, typename L4, typename L5
    >
struct le_result5< true_,Tag,false_,F,L1,L2,L3,L4,L5 >
{
    typedef bind5<
          quote5< F,Tag >
        , typename L1::type, typename L2::type, typename L3::type
        , typename L4::type, typename L5::type
        > type;
};

template<
      template<
          typename P1, typename P2, typename P3, typename P4
        , typename P5
        >
      class F
    , typename Tag
    , typename L1, typename L2, typename L3, typename L4, typename L5
    >
struct le_result5< true_,Tag,true_,F,L1,L2,L3,L4,L5 >
{
    typedef protect< bind5<
          quote5< F,Tag >
        , typename L1::type, typename L2::type, typename L3::type
        , typename L4::type, typename L5::type
        > > type;
};

} // namespace aux

template<
      template<
          typename P1, typename P2, typename P3, typename P4
        , typename P5
        >
      class F
    , typename T1, typename T2, typename T3, typename T4, typename T5
    , typename Tag
    , typename Protect
    >
struct lambda_impl<
      F< T1,T2,T3,T4,T5>,Tag,Protect,int_<5 >
    >
{
    typedef lambda_impl< T1,Tag > l1;
    typedef lambda_impl< T2,Tag > l2;
    typedef lambda_impl< T3,Tag > l3;
    typedef lambda_impl< T4,Tag > l4;
    typedef lambda_impl< T5,Tag > l5;
    
    typedef aux::lambda_or<
          l1::is_le::value, l2::is_le::value, l3::is_le::value
        , l4::is_le::value, l5::is_le::value
        > is_le;

    typedef typename aux::le_result5<
          typename is_le::type
        , Tag
        , Protect
        , F
        , l1, l2, l3, l4, l5
        >::type type;
};

template<
      typename F, typename T1, typename T2, typename T3, typename T4
    , typename T5
    , typename Tag
    , typename Protect
    >
struct lambda_impl<
      bind5< F,T1,T2,T3,T4,T5 >
    , Tag
    , Protect, int_<6>
    >
{
    typedef false_ is_le;
    typedef bind5<
          F
        , T1, T2, T3, T4, T5
        > type;
};

// special case for 'protect'
template< typename T, typename Tag, typename Protect >
struct lambda_impl< protect<T>,Tag,Protect,int_<1> >
{
    typedef false_ is_le;
    typedef protect<T> type;
};

// specializations for main 'bind', 'bind1st' and 'bind2nd' forms

template<
      typename F, typename T1, typename T2, typename T3, typename T4
    , typename T5
    , typename Tag
    , typename Protect
    >
struct lambda_impl<
      bind< F,T1,T2,T3,T4,T5 >
    , Tag
    , Protect
    , int_<6>
    >
{
    typedef false_ is_le;
    typedef bind< F,T1,T2,T3,T4,T5 > type;
};

template<
      typename F, typename T
    , typename Tag
    , typename Protect
    >
struct lambda_impl< bind1st<F,T>,Tag,Protect,int_<2> >
{
    typedef false_ is_le;
    typedef bind1st< F,T > type;
};

template<
      typename F, typename T
    , typename Tag
    , typename Protect
    >
struct lambda_impl< bind2nd<F,T>,Tag,Protect,int_<2> >
{
    typedef false_ is_le;
    typedef bind2nd< F,T > type;
};

} // namespace mpl
} // namespace boost