Chris@16: // Copyright Daniel Wallin 2005. Use, modification and distribution is
Chris@16: // subject to the Boost Software License, Version 1.0. (See accompanying
Chris@16: // file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
Chris@16: 
Chris@16: #ifndef BOOST_PARAMETER_FLATTEN_051217_HPP
Chris@16: # define BOOST_PARAMETER_FLATTEN_051217_HPP
Chris@16: 
Chris@16: # include <boost/preprocessor/tuple/elem.hpp>
Chris@16: # include <boost/preprocessor/tuple/rem.hpp>
Chris@16: # include <boost/preprocessor/cat.hpp>
Chris@16: # include <boost/preprocessor/seq/for_each.hpp>
Chris@16: # include <boost/preprocessor/seq/for_each_i.hpp>
Chris@16: # include <boost/preprocessor/identity.hpp>
Chris@16: # include <boost/preprocessor/selection/max.hpp>
Chris@16: # include <boost/preprocessor/arithmetic/sub.hpp>
Chris@16: # include <boost/preprocessor/repetition/enum_trailing.hpp>
Chris@16: # include <boost/parameter/aux_/preprocessor/for_each.hpp>
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPLIT_required required,
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPLIT_optional optional,
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPLIT_deduced deduced,
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPLIT(sub) \
Chris@16:     BOOST_PP_CAT(BOOST_PARAMETER_FLATTEN_SPLIT_, sub)
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_QUALIFIER(sub) \
Chris@16:     BOOST_PP_SPLIT(0, BOOST_PARAMETER_FLATTEN_SPLIT(sub))
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_ARGS(sub) \
Chris@16:     BOOST_PP_SPLIT(1, BOOST_PARAMETER_FLATTEN_SPLIT(sub))
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_ARITY_optional(arities) \
Chris@16:     BOOST_PP_TUPLE_ELEM(3,0,arities)
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_ARITY_required(arities) \
Chris@16:     BOOST_PP_TUPLE_ELEM(3,1,arities)
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPEC0_DUMMY_ELEM(z, n, data) ~
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPEC0(r, n, elem, data) \
Chris@16:     (( \
Chris@16:         BOOST_PP_TUPLE_ELEM(3,2,data) \
Chris@16:       , BOOST_PP_TUPLE_REM(BOOST_PP_TUPLE_ELEM(3,0,data)) elem \
Chris@16:         BOOST_PP_ENUM_TRAILING( \
Chris@16:             BOOST_PP_SUB( \
Chris@16:                 BOOST_PP_TUPLE_ELEM(3,1,data) \
Chris@16:               , BOOST_PP_TUPLE_ELEM(3,0,data) \
Chris@16:             ) \
Chris@16:           , BOOST_PARAMETER_FLATTEN_SPEC0_DUMMY_ELEM \
Chris@16:           , ~ \
Chris@16:         ) \
Chris@16:     ))
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPEC_AUX(r, arity, max_arity, spec, transform) \
Chris@16:     BOOST_PARAMETER_FOR_EACH_R( \
Chris@16:         r \
Chris@16:       , arity \
Chris@16:       , BOOST_PARAMETER_FLATTEN_ARGS(spec) \
Chris@16:       , (arity, max_arity, transform(BOOST_PARAMETER_FLATTEN_QUALIFIER(spec))) \
Chris@16:       , BOOST_PARAMETER_FLATTEN_SPEC0 \
Chris@16:     )
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_IDENTITY(x) x
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPEC_optional(r, arities, spec) \
Chris@16:     BOOST_PARAMETER_FLATTEN_SPEC_AUX( \
Chris@16:         r \
Chris@16:       , BOOST_PP_CAT( \
Chris@16:             BOOST_PARAMETER_FLATTEN_ARITY_, BOOST_PARAMETER_FLATTEN_QUALIFIER(spec) \
Chris@16:         )(arities) \
Chris@16:       , BOOST_PP_TUPLE_ELEM(3,2,arities) \
Chris@16:       , spec \
Chris@16:       , BOOST_PARAMETER_FLATTEN_IDENTITY \
Chris@16:     )
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPEC_required(r, arities, spec) \
Chris@16:     BOOST_PARAMETER_FLATTEN_SPEC_optional(r, arities, spec)
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPEC_AS_DEDUCED(x) BOOST_PP_CAT(deduced_,x)
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPEC_deduced_M(r, arities, n, spec) \
Chris@16:     BOOST_PARAMETER_FLATTEN_SPEC_AUX( \
Chris@16:         r \
Chris@16:       , BOOST_PP_CAT( \
Chris@16:             BOOST_PARAMETER_FLATTEN_ARITY_, BOOST_PARAMETER_FLATTEN_QUALIFIER(spec) \
Chris@16:         )(arities) \
Chris@16:       , BOOST_PP_TUPLE_ELEM(3,2,arities) \
Chris@16:       , spec \
Chris@16:       , BOOST_PARAMETER_FLATTEN_SPEC_AS_DEDUCED \
Chris@16:     )
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPEC_deduced(r, arities, spec) \
Chris@16:     BOOST_PP_SEQ_FOR_EACH_I_R( \
Chris@16:         r \
Chris@16:       , BOOST_PARAMETER_FLATTEN_SPEC_deduced_M \
Chris@16:       , arities \
Chris@16:       , BOOST_PARAMETER_FLATTEN_ARGS(spec) \
Chris@16:     )
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN_SPEC(r, arities, spec) \
Chris@16:     BOOST_PP_CAT( \
Chris@16:         BOOST_PARAMETER_FLATTEN_SPEC_, BOOST_PARAMETER_FLATTEN_QUALIFIER(spec) \
Chris@16:     )(r, arities, spec)
Chris@16: 
Chris@16: # define BOOST_PARAMETER_FLATTEN(optional_arity, required_arity, wanted_arity, specs) \
Chris@16:     BOOST_PP_SEQ_FOR_EACH( \
Chris@16:         BOOST_PARAMETER_FLATTEN_SPEC \
Chris@16:       , ( \
Chris@16:             optional_arity, required_arity \
Chris@16:           , wanted_arity \
Chris@16:         ) \
Chris@16:       , specs \
Chris@16:     )
Chris@16: 
Chris@16: #endif // BOOST_PARAMETER_FLATTEN_051217_HPP
Chris@16: