1 2 #if !defined(BOOST_PP_IS_ITERATING) 3 4 ///// header body 5 6 #ifndef BOOST_MPL_AUX_FULL_LAMBDA_HPP_INCLUDED 7 #define BOOST_MPL_AUX_FULL_LAMBDA_HPP_INCLUDED 8 9 // Copyright Aleksey Gurtovoy 2001-2004 10 // 11 // Distributed under the Boost Software License, Version 1.0. 12 // (See accompanying file LICENSE_1_0.txt or copy at 13 // http://www.boost.org/LICENSE_1_0.txt) 14 // 15 // See http://www.boost.org/libs/mpl for documentation. 16 17 // $Id: full_lambda.hpp 49267 2008-10-11 06:19:02Z agurtovoy $ 18 // $Date: 2008-10-10 23:19:02 -0700 (Fri, 10 Oct 2008) $ 19 // $Revision: 49267 $ 20 21 #if !defined(BOOST_MPL_PREPROCESSING_MODE) 22 # include <boost/mpl/lambda_fwd.hpp> 23 # include <boost/mpl/bind_fwd.hpp> 24 # include <boost/mpl/protect.hpp> 25 # include <boost/mpl/quote.hpp> 26 # include <boost/mpl/arg.hpp> 27 # include <boost/mpl/bool.hpp> 28 # include <boost/mpl/int_fwd.hpp> 29 # include <boost/mpl/aux_/template_arity.hpp> 30 # include <boost/mpl/aux_/na_spec.hpp> 31 # include <boost/mpl/aux_/config/ttp.hpp> 32 # if defined(BOOST_MPL_CFG_EXTENDED_TEMPLATE_PARAMETERS_MATCHING) 33 # include <boost/mpl/if.hpp> 34 # endif 35 #endif 36 37 #include <boost/mpl/aux_/lambda_arity_param.hpp> 38 #include <boost/mpl/aux_/config/use_preprocessed.hpp> 39 40 #if !defined(BOOST_MPL_CFG_NO_PREPROCESSED_HEADERS) \ 41 && !defined(BOOST_MPL_PREPROCESSING_MODE) 42 43 # define BOOST_MPL_PREPROCESSED_HEADER full_lambda.hpp 44 # include <boost/mpl/aux_/include_preprocessed.hpp> 45 46 #else 47 48 # include <boost/mpl/limits/arity.hpp> 49 # include <boost/mpl/aux_/preprocessor/default_params.hpp> 50 # include <boost/mpl/aux_/preprocessor/params.hpp> 51 # include <boost/mpl/aux_/preprocessor/enum.hpp> 52 # include <boost/mpl/aux_/preprocessor/repeat.hpp> 53 # include <boost/mpl/aux_/config/dmc_ambiguous_ctps.hpp> 54 55 # include <boost/preprocessor/iterate.hpp> 56 # include <boost/preprocessor/comma_if.hpp> 57 # include <boost/preprocessor/inc.hpp> 58 # include <boost/preprocessor/cat.hpp> 59 60 namespace boost { namespace mpl { 61 62 // local macros, #undef-ined at the end of the header 63 # define AUX778076_LAMBDA_PARAMS(i_, param) \ 64 BOOST_MPL_PP_PARAMS(i_, param) \ 65 /**/ 66 67 # define AUX778076_BIND_PARAMS(param) \ 68 BOOST_MPL_PP_PARAMS( \ 69 BOOST_MPL_LIMIT_METAFUNCTION_ARITY \ 70 , param \ 71 ) \ 72 /**/ 73 74 # define AUX778076_BIND_N_PARAMS(i_, param) \ 75 BOOST_PP_COMMA_IF(i_) \ 76 BOOST_MPL_PP_PARAMS(i_, param) \ 77 /**/ 78 79 # define AUX778076_ARITY_PARAM(param) \ 80 BOOST_MPL_AUX_LAMBDA_ARITY_PARAM(param) \ 81 /**/ 82 83 84 #define n_ BOOST_MPL_LIMIT_METAFUNCTION_ARITY 85 namespace aux { 86 87 template< 88 BOOST_MPL_PP_DEFAULT_PARAMS(n_,bool C,false) 89 > 90 struct lambda_or 91 : true_ 92 { 93 }; 94 95 template<> 96 struct lambda_or< BOOST_MPL_PP_ENUM(n_,false) > 97 : false_ 98 { 99 }; 100 101 } // namespace aux 102 #undef n_ 103 104 template< 105 typename T 106 , typename Tag 107 AUX778076_ARITY_PARAM(typename Arity) 108 > 109 struct lambda 110 { 111 typedef false_ is_le; 112 typedef T result_; 113 typedef T type; 114 }; 115 116 template< 117 typename T 118 > 119 struct is_lambda_expression 120 : lambda<T>::is_le 121 { 122 }; 123 124 125 template< int N, typename Tag > 126 struct lambda< arg<N>,Tag AUX778076_ARITY_PARAM(int_<-1>) > 127 { 128 typedef true_ is_le; 129 typedef mpl::arg<N> result_; // qualified for the sake of MIPSpro 7.41 130 typedef mpl::protect<result_> type; 131 }; 132 133 134 #define BOOST_PP_ITERATION_PARAMS_1 \ 135 (3,(0, BOOST_MPL_LIMIT_METAFUNCTION_ARITY, <boost/mpl/aux_/full_lambda.hpp>)) 136 #include BOOST_PP_ITERATE() 137 138 /// special case for 'protect' 139 template< typename T, typename Tag > 140 struct lambda< mpl::protect<T>,Tag AUX778076_ARITY_PARAM(int_<1>) > 141 { 142 typedef false_ is_le; 143 typedef mpl::protect<T> result_; 144 typedef result_ type; 145 }; 146 147 /// specializations for the main 'bind' form 148 template< 149 typename F, AUX778076_BIND_PARAMS(typename T) 150 , typename Tag 151 > 152 struct lambda< 153 bind<F,AUX778076_BIND_PARAMS(T)> 154 , Tag 155 AUX778076_ARITY_PARAM(int_<BOOST_PP_INC(BOOST_MPL_LIMIT_METAFUNCTION_ARITY)>) 156 > 157 { 158 typedef false_ is_le; 159 typedef bind<F, AUX778076_BIND_PARAMS(T)> result_; 160 typedef result_ type; 161 }; 162 163 164 #if defined(BOOST_MPL_CFG_EXTENDED_TEMPLATE_PARAMETERS_MATCHING) 165 166 template< 167 typename F 168 , typename Tag1 169 , typename Tag2 170 , typename Arity 171 > 172 struct lambda< 173 lambda<F,Tag1,Arity> 174 , Tag2 175 , int_<3> 176 > 177 { 178 typedef lambda< F,Tag2 > l1; 179 typedef lambda< Tag1,Tag2 > l2; 180 181 typedef typename l1::is_le is_le; 182 typedef bind1< quote1<aux::template_arity>, typename l1::result_ > arity_; 183 typedef lambda< typename if_<is_le,arity_,Arity>::type,Tag2 > l3; 184 185 typedef aux::le_result3<is_le, Tag2, mpl::lambda, l1, l2, l3> le_result_; 186 typedef typename le_result_::result_ result_; 187 typedef typename le_result_::type type; 188 }; 189 190 #elif !defined(BOOST_MPL_CFG_DMC_AMBIGUOUS_CTPS) 191 192 /// workaround for MWCW 8.3+/EDG < 303, leads to ambiguity on Digital Mars 193 template< 194 typename F, typename Tag1, typename Tag2 195 > 196 struct lambda< 197 lambda< F,Tag1 > 198 , Tag2 199 > 200 { 201 typedef lambda< F,Tag2 > l1; 202 typedef lambda< Tag1,Tag2 > l2; 203 204 typedef typename l1::is_le is_le; 205 typedef aux::le_result2<is_le, Tag2, mpl::lambda, l1, l2> le_result_; 206 typedef typename le_result_::result_ result_; 207 typedef typename le_result_::type type; 208 }; 209 210 #endif 211 212 # undef AUX778076_ARITY_PARAM 213 # undef AUX778076_BIND_N_PARAMS 214 # undef AUX778076_BIND_PARAMS 215 # undef AUX778076_LAMBDA_PARAMS 216 217 #if !defined(BOOST_MPL_CFG_EXTENDED_TEMPLATE_PARAMETERS_MATCHING) 218 BOOST_MPL_AUX_NA_SPEC(2, lambda) 219 #else 220 BOOST_MPL_AUX_NA_SPEC2(2, 3, lambda) 221 #endif 222 223 }} 224 225 #endif // BOOST_MPL_CFG_NO_PREPROCESSED_HEADERS 226 #endif // BOOST_MPL_AUX_FULL_LAMBDA_HPP_INCLUDED 227 228 ///// iteration, depth == 1 229 230 // For gcc 4.4 compatability, we must include the 231 // BOOST_PP_ITERATION_DEPTH test inside an #else clause. 232 #else // BOOST_PP_IS_ITERATING 233 #if BOOST_PP_ITERATION_DEPTH() == 1 234 #define i_ BOOST_PP_FRAME_ITERATION(1) 235 236 #if i_ > 0 237 238 namespace aux { 239 240 # define AUX778076_RESULT(unused, i_, T) \ 241 BOOST_PP_COMMA_IF(i_) \ 242 typename BOOST_PP_CAT(T, BOOST_PP_INC(i_))::result_ \ 243 /**/ 244 245 # define AUX778076_TYPE(unused, i_, T) \ 246 BOOST_PP_COMMA_IF(i_) \ 247 typename BOOST_PP_CAT(T, BOOST_PP_INC(i_))::type \ 248 /**/ 249 250 template< 251 typename IsLE, typename Tag 252 , template< AUX778076_LAMBDA_PARAMS(i_, typename P) > class F 253 , AUX778076_LAMBDA_PARAMS(i_, typename L) 254 > 255 struct BOOST_PP_CAT(le_result,i_) 256 { 257 typedef F< 258 BOOST_MPL_PP_REPEAT(i_, AUX778076_TYPE, L) 259 > result_; 260 261 typedef result_ type; 262 }; 263 264 template< 265 typename Tag 266 , template< AUX778076_LAMBDA_PARAMS(i_, typename P) > class F 267 , AUX778076_LAMBDA_PARAMS(i_, typename L) 268 > 269 struct BOOST_PP_CAT(le_result,i_)< true_,Tag,F,AUX778076_LAMBDA_PARAMS(i_, L) > 270 { 271 typedef BOOST_PP_CAT(bind,i_)< 272 BOOST_PP_CAT(quote,i_)<F,Tag> 273 , BOOST_MPL_PP_REPEAT(i_, AUX778076_RESULT, L) 274 > result_; 275 276 typedef mpl::protect<result_> type; 277 }; 278 279 # undef AUX778076_TYPE 280 # undef AUX778076_RESULT 281 282 } // namespace aux 283 284 285 # define AUX778076_LAMBDA_TYPEDEF(unused, i_, T) \ 286 typedef lambda< BOOST_PP_CAT(T, BOOST_PP_INC(i_)), Tag > \ 287 BOOST_PP_CAT(l,BOOST_PP_INC(i_)); \ 288 /**/ 289 290 # define AUX778076_IS_LE_TYPEDEF(unused, i_, unused2) \ 291 typedef typename BOOST_PP_CAT(l,BOOST_PP_INC(i_))::is_le \ 292 BOOST_PP_CAT(is_le,BOOST_PP_INC(i_)); \ 293 /**/ 294 295 # define AUX778076_IS_LAMBDA_EXPR(unused, i_, unused2) \ 296 BOOST_PP_COMMA_IF(i_) \ 297 BOOST_PP_CAT(is_le,BOOST_PP_INC(i_))::value \ 298 /**/ 299 300 template< 301 template< AUX778076_LAMBDA_PARAMS(i_, typename P) > class F 302 , AUX778076_LAMBDA_PARAMS(i_, typename T) 303 , typename Tag 304 > 305 struct lambda< 306 F<AUX778076_LAMBDA_PARAMS(i_, T)> 307 , Tag 308 AUX778076_ARITY_PARAM(int_<i_>) 309 > 310 { 311 BOOST_MPL_PP_REPEAT(i_, AUX778076_LAMBDA_TYPEDEF, T) 312 BOOST_MPL_PP_REPEAT(i_, AUX778076_IS_LE_TYPEDEF, unused) 313 314 typedef typename aux::lambda_or< 315 BOOST_MPL_PP_REPEAT(i_, AUX778076_IS_LAMBDA_EXPR, unused) 316 >::type is_le; 317 318 typedef aux::BOOST_PP_CAT(le_result,i_)< 319 is_le, Tag, F, AUX778076_LAMBDA_PARAMS(i_, l) 320 > le_result_; 321 322 typedef typename le_result_::result_ result_; 323 typedef typename le_result_::type type; 324 }; 325 326 327 # undef AUX778076_IS_LAMBDA_EXPR 328 # undef AUX778076_IS_LE_TYPEDEF 329 # undef AUX778076_LAMBDA_TYPEDEF 330 331 #endif // i_ > 0 332 333 template< 334 typename F AUX778076_BIND_N_PARAMS(i_, typename T) 335 , typename Tag 336 > 337 struct lambda< 338 BOOST_PP_CAT(bind,i_)<F AUX778076_BIND_N_PARAMS(i_, T)> 339 , Tag 340 AUX778076_ARITY_PARAM(int_<BOOST_PP_INC(i_)>) 341 > 342 { 343 typedef false_ is_le; 344 typedef BOOST_PP_CAT(bind,i_)< 345 F 346 AUX778076_BIND_N_PARAMS(i_, T) 347 > result_; 348 349 typedef result_ type; 350 }; 351 352 #undef i_ 353 #endif // BOOST_PP_ITERATION_DEPTH() 354 #endif // BOOST_PP_IS_ITERATING 355
