summaryrefslogtreecommitdiffstats
blob: 5d7615e3f355c5038a213b1405c55731d83b213d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
// Copyright Daniel Wallin 2005. Use, modification and distribution is
// subject to the Boost Software License, Version 1.0. (See accompanying
// file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)

#ifndef BOOST_PARAMETER_FLATTEN_051217_HPP
# define BOOST_PARAMETER_FLATTEN_051217_HPP

# include <boost/preprocessor/tuple/elem.hpp>
# include <boost/preprocessor/tuple/rem.hpp>
# include <boost/preprocessor/cat.hpp>
# include <boost/preprocessor/seq/for_each.hpp>
# include <boost/preprocessor/seq/for_each_i.hpp>
# include <boost/preprocessor/identity.hpp>
# include <boost/preprocessor/selection/max.hpp>
# include <boost/preprocessor/arithmetic/sub.hpp>
# include <boost/preprocessor/repetition/enum_trailing.hpp>
# include <boost/parameter/aux_/preprocessor/for_each.hpp>

# define BOOST_PARAMETER_FLATTEN_SPLIT_required required,
# define BOOST_PARAMETER_FLATTEN_SPLIT_optional optional,
# define BOOST_PARAMETER_FLATTEN_SPLIT_deduced deduced,

# define BOOST_PARAMETER_FLATTEN_SPLIT(sub) \
    BOOST_PP_CAT(BOOST_PARAMETER_FLATTEN_SPLIT_, sub)

# define BOOST_PARAMETER_FLATTEN_QUALIFIER(sub) \
    BOOST_PP_SPLIT(0, BOOST_PARAMETER_FLATTEN_SPLIT(sub))

# define BOOST_PARAMETER_FLATTEN_ARGS(sub) \
    BOOST_PP_SPLIT(1, BOOST_PARAMETER_FLATTEN_SPLIT(sub))

# define BOOST_PARAMETER_FLATTEN_ARITY_optional(arities) \
    BOOST_PP_TUPLE_ELEM(3,0,arities)

# define BOOST_PARAMETER_FLATTEN_ARITY_required(arities) \
    BOOST_PP_TUPLE_ELEM(3,1,arities)

# define BOOST_PARAMETER_FLATTEN_SPEC0_DUMMY_ELEM(z, n, data) ~
# define BOOST_PARAMETER_FLATTEN_SPEC0(r, n, elem, data) \
    (( \
        BOOST_PP_TUPLE_ELEM(3,2,data) \
      , BOOST_PP_TUPLE_REM(BOOST_PP_TUPLE_ELEM(3,0,data)) elem \
        BOOST_PP_ENUM_TRAILING( \
            BOOST_PP_SUB( \
                BOOST_PP_TUPLE_ELEM(3,1,data) \
              , BOOST_PP_TUPLE_ELEM(3,0,data) \
            ) \
          , BOOST_PARAMETER_FLATTEN_SPEC0_DUMMY_ELEM \
          , ~ \
        ) \
    ))

# define BOOST_PARAMETER_FLATTEN_SPEC_AUX(r, arity, max_arity, spec, transform) \
    BOOST_PARAMETER_FOR_EACH_R( \
        r \
      , arity \
      , BOOST_PARAMETER_FLATTEN_ARGS(spec) \
      , (arity, max_arity, transform(BOOST_PARAMETER_FLATTEN_QUALIFIER(spec))) \
      , BOOST_PARAMETER_FLATTEN_SPEC0 \
    )

# define BOOST_PARAMETER_FLATTEN_IDENTITY(x) x

# define BOOST_PARAMETER_FLATTEN_SPEC_optional(r, arities, spec) \
    BOOST_PARAMETER_FLATTEN_SPEC_AUX( \
        r \
      , BOOST_PP_CAT( \
            BOOST_PARAMETER_FLATTEN_ARITY_, BOOST_PARAMETER_FLATTEN_QUALIFIER(spec) \
        )(arities) \
      , BOOST_PP_TUPLE_ELEM(3,2,arities) \
      , spec \
      , BOOST_PARAMETER_FLATTEN_IDENTITY \
    )

# define BOOST_PARAMETER_FLATTEN_SPEC_required(r, arities, spec) \
    BOOST_PARAMETER_FLATTEN_SPEC_optional(r, arities, spec)

# define BOOST_PARAMETER_FLATTEN_SPEC_AS_DEDUCED(x) BOOST_PP_CAT(deduced_,x)

# define BOOST_PARAMETER_FLATTEN_SPEC_deduced_M(r, arities, n, spec) \
    BOOST_PARAMETER_FLATTEN_SPEC_AUX( \
        r \
      , BOOST_PP_CAT( \
            BOOST_PARAMETER_FLATTEN_ARITY_, BOOST_PARAMETER_FLATTEN_QUALIFIER(spec) \
        )(arities) \
      , BOOST_PP_TUPLE_ELEM(3,2,arities) \
      , spec \
      , BOOST_PARAMETER_FLATTEN_SPEC_AS_DEDUCED \
    )

# define BOOST_PARAMETER_FLATTEN_SPEC_deduced(r, arities, spec) \
    BOOST_PP_SEQ_FOR_EACH_I_R( \
        r \
      , BOOST_PARAMETER_FLATTEN_SPEC_deduced_M \
      , arities \
      , BOOST_PARAMETER_FLATTEN_ARGS(spec) \
    )

# define BOOST_PARAMETER_FLATTEN_SPEC(r, arities, spec) \
    BOOST_PP_CAT( \
        BOOST_PARAMETER_FLATTEN_SPEC_, BOOST_PARAMETER_FLATTEN_QUALIFIER(spec) \
    )(r, arities, spec)

# define BOOST_PARAMETER_FLATTEN(optional_arity, required_arity, wanted_arity, specs) \
    BOOST_PP_SEQ_FOR_EACH( \
        BOOST_PARAMETER_FLATTEN_SPEC \
      , ( \
            optional_arity, required_arity \
          , wanted_arity \
        ) \
      , specs \
    )

#endif // BOOST_PARAMETER_FLATTEN_051217_HPP