Chris@102: // Boost.Range library
Chris@102: //
Chris@102: //  Copyright Neil Groves 2014. Use, modification and
Chris@102: //  distribution is subject to the Boost Software License, Version
Chris@102: //  1.0. (See accompanying file LICENSE_1_0.txt or copy at
Chris@102: //  http://www.boost.org/LICENSE_1_0.txt)
Chris@102: //
Chris@102: // For more information, see http://www.boost.org/libs/range/
Chris@102: //
Chris@102: #define BOOST_RANGE_combined_exp_pred(d, data) BOOST_PP_TUPLE_ELEM(3, 0, data)
Chris@102: 
Chris@102: #define BOOST_RANGE_combined_exp_op(d, data) \
Chris@102:  ( \
Chris@102:     BOOST_PP_DEC( \
Chris@102:        BOOST_PP_TUPLE_ELEM(3, 0, data) \
Chris@102:     ), \
Chris@102:     BOOST_PP_TUPLE_ELEM(3, 1, data), \
Chris@102:     BOOST_PP_MUL_D( \
Chris@102:        d, \
Chris@102:        BOOST_PP_TUPLE_ELEM(3, 2, data), \
Chris@102:        BOOST_PP_TUPLE_ELEM(3, 1, data) \
Chris@102:     ) \
Chris@102:  )
Chris@102: 
Chris@102: #define BOOST_RANGE_combined_exp(x, n) \
Chris@102:   BOOST_PP_TUPLE_ELEM(3, 2, \
Chris@102:   BOOST_PP_WHILE(BOOST_RANGE_combined_exp_pred, \
Chris@102:                  BOOST_RANGE_combined_exp_op, (n, x, 1)))
Chris@102: 
Chris@102: #define BOOST_RANGE_combined_bitset_pred(n, state) \
Chris@102:     BOOST_PP_TUPLE_ELEM(2,1,state)
Chris@102: 
Chris@102: #define BOOST_RANGE_combined_bitset_op(d, state) \
Chris@102:     (BOOST_PP_DIV_D(d, BOOST_PP_TUPLE_ELEM(2,0,state), 2), \
Chris@102:      BOOST_PP_DEC(BOOST_PP_TUPLE_ELEM(2,1,state)))
Chris@102: 
Chris@102: #define BOOST_RANGE_combined_bitset(i, n) \
Chris@102: BOOST_PP_MOD(BOOST_PP_TUPLE_ELEM(2, 0, \
Chris@102:       BOOST_PP_WHILE(BOOST_RANGE_combined_bitset_pred, \
Chris@102:                      BOOST_RANGE_combined_bitset_op, (i,n))), 2)
Chris@102: 
Chris@102: #define BOOST_RANGE_combined_range_iterator(z, n, i) \
Chris@102:   typename range_iterator< \
Chris@102:       BOOST_PP_CAT(R,n)          \
Chris@102:       BOOST_PP_IF( \
Chris@102:           BOOST_RANGE_combined_bitset(i,n), \
Chris@102:           BOOST_PP_IDENTITY(const), \
Chris@102:           BOOST_PP_EMPTY)() \
Chris@102:   >::type
Chris@102: 
Chris@102: #define BOOST_RANGE_combined_args(z, n, i) \
Chris@102:   BOOST_PP_CAT(R, n) \
Chris@102:   BOOST_PP_IF(BOOST_RANGE_combined_bitset(i,n), const&, &)  \
Chris@102:   BOOST_PP_CAT(r, n)
Chris@102: 
Chris@102: #define BOOST_RANGE_combine_impl(z, i, n)\
Chris@102:     template<BOOST_PP_ENUM_PARAMS(n, typename R)> \
Chris@102:     inline range::combined_range< \
Chris@102:         boost::tuple<BOOST_PP_ENUM(n, BOOST_RANGE_combined_range_iterator, i)> \
Chris@102:     > \
Chris@102:     combine(BOOST_PP_ENUM(n, BOOST_RANGE_combined_args, i)) \
Chris@102:     { \
Chris@102:         typedef tuple< \
Chris@102:             BOOST_PP_ENUM(n, BOOST_RANGE_combined_range_iterator, i) \
Chris@102:         > rng_tuple_t;   \
Chris@102:         return range::combined_range<rng_tuple_t>( \
Chris@102:             rng_tuple_t(BOOST_PP_ENUM(n, BOOST_RANGE_combined_seq, begin)), \
Chris@102:             rng_tuple_t(BOOST_PP_ENUM(n, BOOST_RANGE_combined_seq, end))); \
Chris@102:     }
Chris@102: 
Chris@102: 
Chris@102: #define BOOST_RANGE_combine(z, n, data) \
Chris@102:   BOOST_PP_REPEAT(BOOST_RANGE_combined_exp(2,n), BOOST_RANGE_combine_impl, n)