123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537 |
- // 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)
- //
- // Preprocessed version of "boost/mpl/aux_/full_lambda.hpp" header
- // -- DO NOT modify by hand!
- namespace boost { namespace mpl {
- 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<
- typename T
- , typename Tag
-
- >
- 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 >
- {
- typedef true_ is_le;
- typedef mpl::arg<N> result_; // qualified for the sake of MIPSpro 7.41
- typedef mpl::protect<result_> type;
- };
- template<
- typename F
- , typename Tag
- >
- struct lambda<
- bind0<F>
- , Tag
-
- >
- {
- typedef false_ is_le;
- typedef bind0<
- F
- > result_;
- typedef result_ type;
- };
- namespace aux {
- template<
- typename IsLE, typename Tag
- , template< typename P1 > class F
- , typename L1
- >
- struct le_result1
- {
- typedef F<
- typename L1::type
- > result_;
- typedef result_ type;
- };
- template<
- typename Tag
- , template< typename P1 > class F
- , typename L1
- >
- struct le_result1< true_,Tag,F,L1 >
- {
- typedef bind1<
- quote1< F,Tag >
- , typename L1::result_
- > result_;
- typedef mpl::protect<result_> type;
- };
- } // namespace aux
- template<
- template< typename P1 > class F
- , typename T1
- , typename Tag
- >
- struct lambda<
- F<T1>
- , Tag
-
- >
- {
- typedef lambda< T1,Tag > l1;
- typedef typename l1::is_le is_le1;
- typedef typename aux::lambda_or<
- is_le1::value
- >::type is_le;
- typedef aux::le_result1<
- is_le, Tag, F, l1
- > le_result_;
- typedef typename le_result_::result_ result_;
- typedef typename le_result_::type type;
- };
- template<
- typename F, typename T1
- , typename Tag
- >
- struct lambda<
- bind1< F,T1 >
- , Tag
-
- >
- {
- typedef false_ is_le;
- typedef bind1<
- F
- , T1
- > result_;
- typedef result_ type;
- };
- namespace aux {
- template<
- typename IsLE, typename Tag
- , template< typename P1, typename P2 > class F
- , typename L1, typename L2
- >
- struct le_result2
- {
- typedef F<
- typename L1::type, typename L2::type
- > result_;
- typedef result_ type;
- };
- template<
- typename Tag
- , template< typename P1, typename P2 > class F
- , typename L1, typename L2
- >
- struct le_result2< true_,Tag,F,L1,L2 >
- {
- typedef bind2<
- quote2< F,Tag >
- , typename L1::result_, typename L2::result_
- > result_;
- typedef mpl::protect<result_> type;
- };
- } // namespace aux
- template<
- template< typename P1, typename P2 > class F
- , typename T1, typename T2
- , typename Tag
- >
- struct lambda<
- F< T1,T2 >
- , Tag
-
- >
- {
- typedef lambda< T1,Tag > l1;
- typedef lambda< T2,Tag > l2;
-
- typedef typename l1::is_le is_le1;
- typedef typename l2::is_le is_le2;
-
- typedef typename aux::lambda_or<
- is_le1::value, is_le2::value
- >::type is_le;
- typedef aux::le_result2<
- is_le, Tag, F, l1, l2
- > le_result_;
- typedef typename le_result_::result_ result_;
- typedef typename le_result_::type type;
- };
- template<
- typename F, typename T1, typename T2
- , typename Tag
- >
- struct lambda<
- bind2< F,T1,T2 >
- , Tag
-
- >
- {
- typedef false_ is_le;
- typedef bind2<
- F
- , T1, T2
- > result_;
- typedef result_ type;
- };
- namespace aux {
- template<
- typename IsLE, typename Tag
- , 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
- > result_;
- typedef result_ type;
- };
- template<
- typename Tag
- , template< typename P1, typename P2, typename P3 > class F
- , typename L1, typename L2, typename L3
- >
- struct le_result3< true_,Tag,F,L1,L2,L3 >
- {
- typedef bind3<
- quote3< F,Tag >
- , typename L1::result_, typename L2::result_, typename L3::result_
- > result_;
- typedef mpl::protect<result_> type;
- };
- } // namespace aux
- 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
-
- >
- {
- typedef lambda< T1,Tag > l1;
- typedef lambda< T2,Tag > l2;
- typedef lambda< T3,Tag > l3;
-
- typedef typename l1::is_le is_le1;
- typedef typename l2::is_le is_le2;
- typedef typename l3::is_le is_le3;
-
- typedef typename aux::lambda_or<
- is_le1::value, is_le2::value, is_le3::value
- >::type is_le;
- typedef aux::le_result3<
- is_le, Tag, F, l1, l2, l3
- > le_result_;
- typedef typename le_result_::result_ result_;
- typedef typename le_result_::type type;
- };
- template<
- typename F, typename T1, typename T2, typename T3
- , typename Tag
- >
- struct lambda<
- bind3< F,T1,T2,T3 >
- , Tag
-
- >
- {
- typedef false_ is_le;
- typedef bind3<
- F
- , T1, T2, T3
- > result_;
- typedef result_ type;
- };
- namespace aux {
- template<
- typename IsLE, typename Tag
- , 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
- > result_;
- typedef result_ type;
- };
- template<
- typename Tag
- , template< typename P1, typename P2, typename P3, typename P4 > class F
- , typename L1, typename L2, typename L3, typename L4
- >
- struct le_result4< true_,Tag,F,L1,L2,L3,L4 >
- {
- typedef bind4<
- quote4< F,Tag >
- , typename L1::result_, typename L2::result_, typename L3::result_
- , typename L4::result_
- > result_;
- typedef mpl::protect<result_> 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
- >
- struct lambda<
- F< T1,T2,T3,T4 >
- , Tag
-
- >
- {
- typedef lambda< T1,Tag > l1;
- typedef lambda< T2,Tag > l2;
- typedef lambda< T3,Tag > l3;
- typedef lambda< T4,Tag > l4;
-
- typedef typename l1::is_le is_le1;
- typedef typename l2::is_le is_le2;
- typedef typename l3::is_le is_le3;
- typedef typename l4::is_le is_le4;
-
- typedef typename aux::lambda_or<
- is_le1::value, is_le2::value, is_le3::value, is_le4::value
- >::type is_le;
- typedef aux::le_result4<
- is_le, Tag, F, l1, l2, l3, l4
- > le_result_;
- typedef typename le_result_::result_ result_;
- typedef typename le_result_::type type;
- };
- template<
- typename F, typename T1, typename T2, typename T3, typename T4
- , typename Tag
- >
- struct lambda<
- bind4< F,T1,T2,T3,T4 >
- , Tag
-
- >
- {
- typedef false_ is_le;
- typedef bind4<
- F
- , T1, T2, T3, T4
- > result_;
- typedef result_ type;
- };
- namespace aux {
- template<
- typename IsLE, typename Tag
- , 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
- > result_;
- typedef result_ type;
- };
- template<
- typename Tag
- , 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< true_,Tag,F,L1,L2,L3,L4,L5 >
- {
- typedef bind5<
- quote5< F,Tag >
- , typename L1::result_, typename L2::result_, typename L3::result_
- , typename L4::result_, typename L5::result_
- > result_;
- typedef mpl::protect<result_> 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
- >
- struct lambda<
- F< T1,T2,T3,T4,T5 >
- , Tag
-
- >
- {
- typedef lambda< T1,Tag > l1;
- typedef lambda< T2,Tag > l2;
- typedef lambda< T3,Tag > l3;
- typedef lambda< T4,Tag > l4;
- typedef lambda< T5,Tag > l5;
-
- typedef typename l1::is_le is_le1;
- typedef typename l2::is_le is_le2;
- typedef typename l3::is_le is_le3;
- typedef typename l4::is_le is_le4;
- typedef typename l5::is_le is_le5;
-
- typedef typename aux::lambda_or<
- is_le1::value, is_le2::value, is_le3::value, is_le4::value
- , is_le5::value
- >::type is_le;
- typedef aux::le_result5<
- is_le, Tag, F, l1, l2, l3, l4, l5
- > le_result_;
- typedef typename le_result_::result_ result_;
- typedef typename le_result_::type type;
- };
- template<
- typename F, typename T1, typename T2, typename T3, typename T4
- , typename T5
- , typename Tag
- >
- struct lambda<
- bind5< F,T1,T2,T3,T4,T5 >
- , Tag
-
- >
- {
- typedef false_ is_le;
- typedef bind5<
- F
- , T1, T2, T3, T4, T5
- > result_;
- typedef result_ type;
- };
- /// special case for 'protect'
- template< typename T, typename Tag >
- struct lambda< mpl::protect<T>, Tag >
- {
- typedef false_ is_le;
- typedef mpl::protect<T> result_;
- typedef result_ type;
- };
- /// specializations for the main 'bind' form
- template<
- typename F, typename T1, typename T2, typename T3, typename T4
- , typename T5
- , typename Tag
- >
- struct lambda<
- bind< F,T1,T2,T3,T4,T5 >
- , Tag
-
- >
- {
- typedef false_ is_le;
- typedef bind< F,T1,T2,T3,T4,T5 > result_;
- typedef result_ type;
- };
- BOOST_MPL_AUX_NA_SPEC(2, lambda)
- }}
|