2 // NO INCLUDE GUARDS, THE HEADER IS INTENDED FOR MULTIPLE INCLUSION
\r
4 #if !defined(BOOST_PP_IS_ITERATING)
\r
6 // Copyright Aleksey Gurtovoy 2000-2004
\r
8 // Distributed under the Boost Software License, Version 1.0.
\r
9 // (See accompanying file LICENSE_1_0.txt or copy at
\r
10 // http://www.boost.org/LICENSE_1_0.txt)
\r
12 // See http://www.boost.org/libs/mpl for documentation.
\r
14 // $Id: fold_impl_body.hpp 49267 2008-10-11 06:19:02Z agurtovoy $
\r
15 // $Date: 2008-10-11 02:19:02 -0400 (Sat, 11 Oct 2008) $
\r
16 // $Revision: 49267 $
\r
18 # include <boost/mpl/limits/unrolling.hpp>
\r
19 # include <boost/mpl/aux_/preprocessor/repeat.hpp>
\r
20 # include <boost/mpl/aux_/config/workaround.hpp>
\r
21 # include <boost/mpl/aux_/config/ctps.hpp>
\r
22 # include <boost/mpl/aux_/nttp_decl.hpp>
\r
23 # include <boost/mpl/aux_/config/eti.hpp>
\r
25 # include <boost/preprocessor/iterate.hpp>
\r
26 # include <boost/preprocessor/dec.hpp>
\r
27 # include <boost/preprocessor/cat.hpp>
\r
29 // local macros, #undef-ined at the end of the header
\r
31 # define AUX778076_ITER_FOLD_STEP(unused, i, unused2) \
\r
32 typedef typename apply2< \
\r
34 , BOOST_PP_CAT(state,i) \
\r
35 , AUX778076_FOLD_IMPL_OP(BOOST_PP_CAT(iter,i)) \
\r
36 >::type BOOST_PP_CAT(state,BOOST_PP_INC(i)); \
\r
37 typedef typename mpl::next<BOOST_PP_CAT(iter,i)>::type \
\r
38 BOOST_PP_CAT(iter,BOOST_PP_INC(i)); \
\r
41 # define AUX778076_FOLD_IMPL_NAME \
\r
42 BOOST_PP_CAT(AUX778076_FOLD_IMPL_NAME_PREFIX,_impl) \
\r
45 # define AUX778076_FOLD_CHUNK_NAME \
\r
46 BOOST_PP_CAT(AUX778076_FOLD_IMPL_NAME_PREFIX,_chunk) \
\r
49 namespace boost { namespace mpl { namespace aux {
\r
51 /// forward declaration
\r
53 BOOST_MPL_AUX_NTTP_DECL(int, N)
\r
57 , typename ForwardOp
\r
59 struct AUX778076_FOLD_IMPL_NAME;
\r
61 #if !defined(BOOST_NO_TEMPLATE_PARTIAL_SPECIALIZATION)
\r
63 # if !BOOST_WORKAROUND(__BORLANDC__, < 0x600)
\r
65 # define BOOST_PP_ITERATION_PARAMS_1 \
\r
66 (3,(0, BOOST_MPL_LIMIT_UNROLLING, <boost/mpl/aux_/fold_impl_body.hpp>))
\r
67 # include BOOST_PP_ITERATE()
\r
69 // implementation for N that exceeds BOOST_MPL_LIMIT_UNROLLING
\r
71 BOOST_MPL_AUX_NTTP_DECL(int, N)
\r
75 , typename ForwardOp
\r
77 struct AUX778076_FOLD_IMPL_NAME
\r
79 typedef AUX778076_FOLD_IMPL_NAME<
\r
80 BOOST_MPL_LIMIT_UNROLLING
\r
87 typedef AUX778076_FOLD_IMPL_NAME<
\r
88 ( (N - BOOST_MPL_LIMIT_UNROLLING) < 0 ? 0 : N - BOOST_MPL_LIMIT_UNROLLING )
\r
89 , typename chunk_::iterator
\r
91 , typename chunk_::state
\r
95 typedef typename res_::state state;
\r
96 typedef typename res_::iterator iterator;
\r
99 // fallback implementation for sequences of unknown size
\r
104 , typename ForwardOp
\r
106 struct AUX778076_FOLD_IMPL_NAME<-1,First,Last,State,ForwardOp>
\r
107 : AUX778076_FOLD_IMPL_NAME<
\r
109 , typename mpl::next<First>::type
\r
111 , typename apply2<ForwardOp,State,AUX778076_FOLD_IMPL_OP(First)>::type
\r
120 , typename ForwardOp
\r
122 struct AUX778076_FOLD_IMPL_NAME<-1,Last,Last,State,ForwardOp>
\r
124 typedef State state;
\r
125 typedef Last iterator;
\r
128 # else // BOOST_WORKAROUND(__BORLANDC__, < 0x600)
\r
130 // Borland have some serious problems with the unrolled version, so
\r
131 // we always use a basic implementation
\r
133 BOOST_MPL_AUX_NTTP_DECL(int, N)
\r
137 , typename ForwardOp
\r
139 struct AUX778076_FOLD_IMPL_NAME
\r
141 typedef AUX778076_FOLD_IMPL_NAME<
\r
143 , typename mpl::next<First>::type
\r
145 , typename apply2<ForwardOp,State,AUX778076_FOLD_IMPL_OP(First)>::type
\r
149 typedef typename res_::state state;
\r
150 typedef typename res_::iterator iterator;
\r
151 typedef state type;
\r
155 BOOST_MPL_AUX_NTTP_DECL(int, N)
\r
158 , typename ForwardOp
\r
160 struct AUX778076_FOLD_IMPL_NAME<N,Last,Last,State,ForwardOp >
\r
162 typedef State state;
\r
163 typedef Last iterator;
\r
164 typedef state type;
\r
167 # endif // BOOST_WORKAROUND(__BORLANDC__, < 0x600)
\r
169 #else // BOOST_NO_TEMPLATE_PARTIAL_SPECIALIZATION
\r
171 template< BOOST_MPL_AUX_NTTP_DECL(int, N) >
\r
172 struct AUX778076_FOLD_CHUNK_NAME;
\r
174 # define BOOST_PP_ITERATION_PARAMS_1 \
\r
175 (3,(0, BOOST_MPL_LIMIT_UNROLLING, <boost/mpl/aux_/fold_impl_body.hpp>))
\r
176 # include BOOST_PP_ITERATE()
\r
178 // implementation for N that exceeds BOOST_MPL_LIMIT_UNROLLING
\r
179 template< BOOST_MPL_AUX_NTTP_DECL(int, N) >
\r
180 struct AUX778076_FOLD_CHUNK_NAME
\r
186 , typename ForwardOp
\r
190 typedef AUX778076_FOLD_IMPL_NAME<
\r
191 BOOST_MPL_LIMIT_UNROLLING
\r
198 typedef AUX778076_FOLD_IMPL_NAME<
\r
199 ( (N - BOOST_MPL_LIMIT_UNROLLING) < 0 ? 0 : N - BOOST_MPL_LIMIT_UNROLLING )
\r
200 , typename chunk_::iterator
\r
202 , typename chunk_::state
\r
206 typedef typename res_::state state;
\r
207 typedef typename res_::iterator iterator;
\r
211 // fallback implementation for sequences of unknown size
\r
216 , typename ForwardOp
\r
218 struct BOOST_PP_CAT(AUX778076_FOLD_IMPL_NAME_PREFIX,_step);
\r
224 struct BOOST_PP_CAT(AUX778076_FOLD_IMPL_NAME_PREFIX,_null_step)
\r
226 typedef Last iterator;
\r
227 typedef State state;
\r
231 struct AUX778076_FOLD_CHUNK_NAME<-1>
\r
237 , typename ForwardOp
\r
241 typedef typename if_<
\r
242 typename is_same<First,Last>::type
\r
243 , BOOST_PP_CAT(AUX778076_FOLD_IMPL_NAME_PREFIX,_null_step)<Last,State>
\r
244 , BOOST_PP_CAT(AUX778076_FOLD_IMPL_NAME_PREFIX,_step)<First,Last,State,ForwardOp>
\r
247 typedef typename res_::state state;
\r
248 typedef typename res_::iterator iterator;
\r
251 #if defined(BOOST_MPL_CFG_MSVC_60_ETI_BUG)
\r
253 template<> struct result_<int,int,int,int>
\r
256 typedef int iterator;
\r
265 , typename ForwardOp
\r
267 struct BOOST_PP_CAT(AUX778076_FOLD_IMPL_NAME_PREFIX,_step)
\r
269 // can't inherit here - it breaks MSVC 7.0
\r
270 typedef AUX778076_FOLD_CHUNK_NAME<-1>::template result_<
\r
271 typename mpl::next<First>::type
\r
273 , typename apply2<ForwardOp,State,AUX778076_FOLD_IMPL_OP(First)>::type
\r
277 typedef typename chunk_::state state;
\r
278 typedef typename chunk_::iterator iterator;
\r
282 BOOST_MPL_AUX_NTTP_DECL(int, N)
\r
286 , typename ForwardOp
\r
288 struct AUX778076_FOLD_IMPL_NAME
\r
289 : AUX778076_FOLD_CHUNK_NAME<N>
\r
290 ::template result_<First,Last,State,ForwardOp>
\r
294 #endif // BOOST_NO_TEMPLATE_PARTIAL_SPECIALIZATION
\r
298 # undef AUX778076_FOLD_IMPL_NAME
\r
299 # undef AUX778076_FOLD_CHUNK_NAME
\r
300 # undef AUX778076_ITER_FOLD_STEP
\r
302 #undef AUX778076_FOLD_IMPL_OP
\r
303 #undef AUX778076_FOLD_IMPL_NAME_PREFIX
\r
309 # define n_ BOOST_PP_FRAME_ITERATION(1)
\r
311 #if !defined(BOOST_NO_TEMPLATE_PARTIAL_SPECIALIZATION)
\r
317 , typename ForwardOp
\r
319 struct AUX778076_FOLD_IMPL_NAME<n_,First,Last,State,ForwardOp>
\r
321 typedef First iter0;
\r
322 typedef State state0;
\r
324 BOOST_MPL_PP_REPEAT(n_, AUX778076_ITER_FOLD_STEP, unused)
\r
326 typedef BOOST_PP_CAT(state,n_) state;
\r
327 typedef BOOST_PP_CAT(iter,n_) iterator;
\r
332 template<> struct AUX778076_FOLD_CHUNK_NAME<n_>
\r
338 , typename ForwardOp
\r
342 typedef First iter0;
\r
343 typedef State state0;
\r
345 BOOST_MPL_PP_REPEAT(n_, AUX778076_ITER_FOLD_STEP, unused)
\r
347 typedef BOOST_PP_CAT(state,n_) state;
\r
348 typedef BOOST_PP_CAT(iter,n_) iterator;
\r
351 #if defined(BOOST_MPL_CFG_MSVC_60_ETI_BUG)
\r
353 template<> struct result_<int,int,int,int>
\r
356 typedef int iterator;
\r
361 #endif // BOOST_NO_TEMPLATE_PARTIAL_SPECIALIZATION
\r
365 #endif // BOOST_PP_IS_ITERATING
\r