williamr@2: # /* **************************************************************************
williamr@2: #  *                                                                          *
williamr@2: #  *     (C) Copyright Paul Mensonides 2002.
williamr@2: #  *     Distributed under the Boost Software License, Version 1.0. (See
williamr@2: #  *     accompanying file LICENSE_1_0.txt or copy at
williamr@2: #  *     http://www.boost.org/LICENSE_1_0.txt)
williamr@2: #  *                                                                          *
williamr@2: #  ************************************************************************** */
williamr@2: #
williamr@2: # /* See http://www.boost.org for most recent version. */
williamr@2: #
williamr@2: # ifndef BOOST_PREPROCESSOR_SEQ_CAT_HPP
williamr@2: # define BOOST_PREPROCESSOR_SEQ_CAT_HPP
williamr@2: #
williamr@2: # include <boost/preprocessor/arithmetic/dec.hpp>
williamr@2: # include <boost/preprocessor/config/config.hpp>
williamr@2: # include <boost/preprocessor/control/if.hpp>
williamr@2: # include <boost/preprocessor/seq/fold_left.hpp>
williamr@2: # include <boost/preprocessor/seq/seq.hpp>
williamr@2: # include <boost/preprocessor/seq/size.hpp>
williamr@2: # include <boost/preprocessor/tuple/eat.hpp>
williamr@2: #
williamr@2: # /* BOOST_PP_SEQ_CAT */
williamr@2: #
williamr@2: # define BOOST_PP_SEQ_CAT(seq) \
williamr@2:     BOOST_PP_IF( \
williamr@2:         BOOST_PP_DEC(BOOST_PP_SEQ_SIZE(seq)), \
williamr@2:         BOOST_PP_SEQ_CAT_I, \
williamr@2:         BOOST_PP_SEQ_HEAD(seq) BOOST_PP_TUPLE_EAT_1 \
williamr@2:     )(seq) \
williamr@2:     /**/
williamr@2: # define BOOST_PP_SEQ_CAT_I(seq) BOOST_PP_SEQ_FOLD_LEFT(BOOST_PP_SEQ_CAT_O, BOOST_PP_SEQ_HEAD(seq), BOOST_PP_SEQ_TAIL(seq))
williamr@2: #
williamr@2: # define BOOST_PP_SEQ_CAT_O(s, st, elem) BOOST_PP_SEQ_CAT_O_I(st, elem)
williamr@2: # define BOOST_PP_SEQ_CAT_O_I(a, b) a ## b
williamr@2: #
williamr@2: # /* BOOST_PP_SEQ_CAT_S */
williamr@2: #
williamr@2: # define BOOST_PP_SEQ_CAT_S(s, seq) \
williamr@2:     BOOST_PP_IF( \
williamr@2:         BOOST_PP_DEC(BOOST_PP_SEQ_SIZE(seq)), \
williamr@2:         BOOST_PP_SEQ_CAT_S_I, \
williamr@2:         BOOST_PP_SEQ_HEAD(seq) BOOST_PP_TUPLE_EAT_2 \
williamr@2:     )(s, seq) \
williamr@2:     /**/
williamr@2: # define BOOST_PP_SEQ_CAT_S_I(s, seq) BOOST_PP_SEQ_FOLD_LEFT_ ## s(BOOST_PP_SEQ_CAT_O, BOOST_PP_SEQ_HEAD(seq), BOOST_PP_SEQ_TAIL(seq))
williamr@2: #
williamr@2: # endif