Merge c:/dyninst/pc_bluegene/dyninst into dyn_pc_integration
[dyninst.git] / external / boost / mpl / aux_ / full_lambda.hpp
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-11 02:19:02 -0400 (Sat, 11 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