]>
Commit | Line | Data |
---|---|---|
7c673cae FG |
1 | |
2 | // (C) Copyright Edward Diener 2011-2015 | |
3 | // Use, modification and distribution are subject to the Boost Software License, | |
4 | // Version 1.0. (See accompanying file LICENSE_1_0.txt or copy at | |
5 | // http://www.boost.org/LICENSE_1_0.txt). | |
6 | ||
7 | #if !defined(BOOST_VMD_DETAIL_LIST_HPP) | |
8 | #define BOOST_VMD_DETAIL_LIST_HPP | |
9 | ||
10 | #include <boost/preprocessor/control/iif.hpp> | |
11 | #include <boost/preprocessor/punctuation/is_begin_parens.hpp> | |
12 | #include <boost/preprocessor/tuple/elem.hpp> | |
13 | #include <boost/preprocessor/tuple/pop_back.hpp> | |
14 | #include <boost/preprocessor/variadic/elem.hpp> | |
15 | #include <boost/vmd/is_empty.hpp> | |
16 | #include <boost/vmd/detail/empty_result.hpp> | |
17 | #include <boost/vmd/detail/identifier.hpp> | |
18 | #include <boost/vmd/detail/is_list.hpp> | |
19 | #include <boost/vmd/detail/mods.hpp> | |
20 | #include <boost/vmd/detail/parens.hpp> | |
21 | ||
22 | #define BOOST_VMD_DETAIL_LIST_CHECK_FOR_LIST(tuple) \ | |
23 | BOOST_PP_IIF \ | |
24 | ( \ | |
25 | BOOST_VMD_DETAIL_IS_LIST \ | |
26 | ( \ | |
27 | BOOST_PP_TUPLE_ELEM \ | |
28 | ( \ | |
29 | 0, \ | |
30 | tuple \ | |
31 | ) \ | |
32 | ), \ | |
33 | tuple, \ | |
34 | (,) \ | |
35 | ) \ | |
36 | /**/ | |
37 | ||
38 | #define BOOST_VMD_DETAIL_LIST_CHECK_FOR_LIST_D(d,tuple) \ | |
39 | BOOST_PP_IIF \ | |
40 | ( \ | |
41 | BOOST_VMD_DETAIL_IS_LIST_D \ | |
42 | ( \ | |
43 | d, \ | |
44 | BOOST_PP_TUPLE_ELEM \ | |
45 | ( \ | |
46 | 0, \ | |
47 | tuple \ | |
48 | ) \ | |
49 | ), \ | |
50 | tuple, \ | |
51 | (,) \ | |
52 | ) \ | |
53 | /**/ | |
54 | ||
55 | #define BOOST_VMD_DETAIL_LIST_CHECK_RETURN(tuple) \ | |
56 | BOOST_PP_IIF \ | |
57 | ( \ | |
58 | BOOST_VMD_IS_EMPTY \ | |
59 | ( \ | |
60 | BOOST_PP_TUPLE_ELEM \ | |
61 | ( \ | |
62 | 0, \ | |
63 | tuple \ | |
64 | ) \ | |
65 | ), \ | |
66 | BOOST_VMD_DETAIL_EMPTY_RESULT, \ | |
67 | BOOST_VMD_DETAIL_LIST_CHECK_FOR_LIST \ | |
68 | ) \ | |
69 | (tuple) \ | |
70 | /**/ | |
71 | ||
72 | #define BOOST_VMD_DETAIL_LIST_CHECK_RETURN_D(d,tuple) \ | |
73 | BOOST_PP_IIF \ | |
74 | ( \ | |
75 | BOOST_VMD_IS_EMPTY \ | |
76 | ( \ | |
77 | BOOST_PP_TUPLE_ELEM \ | |
78 | ( \ | |
79 | 0, \ | |
80 | tuple \ | |
81 | ) \ | |
82 | ), \ | |
83 | BOOST_VMD_DETAIL_EMPTY_RESULT, \ | |
84 | BOOST_VMD_DETAIL_LIST_CHECK_FOR_LIST_D \ | |
85 | ) \ | |
86 | (d,tuple) \ | |
87 | /**/ | |
88 | ||
89 | #define BOOST_VMD_DETAIL_LIST_EMPTY_LIST(list) \ | |
90 | BOOST_VMD_DETAIL_IDENTIFIER(list,BOOST_PP_NIL,BOOST_VMD_RETURN_AFTER,BOOST_VMD_RETURN_INDEX) \ | |
91 | /**/ | |
92 | ||
93 | #define BOOST_VMD_DETAIL_LIST_EMPTY_LIST_D(d,list) \ | |
94 | BOOST_VMD_DETAIL_IDENTIFIER_D(d,list,BOOST_PP_NIL,BOOST_VMD_RETURN_AFTER,BOOST_VMD_RETURN_INDEX) \ | |
95 | /**/ | |
96 | ||
97 | #define BOOST_VMD_DETAIL_LIST_TUPLE(param) \ | |
98 | BOOST_VMD_DETAIL_LIST_CHECK_RETURN \ | |
99 | ( \ | |
100 | BOOST_VMD_DETAIL_PARENS(param,BOOST_VMD_RETURN_AFTER) \ | |
101 | ) \ | |
102 | /**/ | |
103 | ||
104 | #define BOOST_VMD_DETAIL_LIST_TUPLE_D(d,param) \ | |
105 | BOOST_VMD_DETAIL_LIST_CHECK_RETURN_D \ | |
106 | ( \ | |
107 | d, \ | |
108 | BOOST_VMD_DETAIL_PARENS_D(d,param,BOOST_VMD_RETURN_AFTER) \ | |
109 | ) \ | |
110 | /**/ | |
111 | ||
112 | #define BOOST_VMD_DETAIL_LIST_EMPTY_PROCESS(tuple) \ | |
113 | BOOST_PP_IIF \ | |
114 | ( \ | |
115 | BOOST_VMD_IS_EMPTY \ | |
116 | ( \ | |
117 | BOOST_PP_TUPLE_ELEM(0,tuple) \ | |
118 | ), \ | |
119 | (,), \ | |
120 | tuple \ | |
121 | ) \ | |
122 | /**/ | |
123 | ||
124 | #define BOOST_VMD_DETAIL_LIST_EMPTY(list) \ | |
125 | BOOST_VMD_DETAIL_LIST_EMPTY_PROCESS \ | |
126 | ( \ | |
127 | BOOST_VMD_DETAIL_LIST_EMPTY_LIST(list) \ | |
128 | ) \ | |
129 | /**/ | |
130 | ||
131 | #define BOOST_VMD_DETAIL_LIST_EMPTY_D(d,list) \ | |
132 | BOOST_VMD_DETAIL_LIST_EMPTY_PROCESS \ | |
133 | ( \ | |
134 | BOOST_VMD_DETAIL_LIST_EMPTY_LIST_D(d,list) \ | |
135 | ) \ | |
136 | /**/ | |
137 | ||
138 | #define BOOST_VMD_DETAIL_LIST_PROCESS(list) \ | |
139 | BOOST_PP_IIF \ | |
140 | ( \ | |
141 | BOOST_PP_IS_BEGIN_PARENS(list), \ | |
142 | BOOST_VMD_DETAIL_LIST_TUPLE, \ | |
143 | BOOST_VMD_DETAIL_LIST_EMPTY \ | |
144 | ) \ | |
145 | (list) \ | |
146 | /**/ | |
147 | ||
148 | #define BOOST_VMD_DETAIL_LIST_SPLIT(list) \ | |
149 | BOOST_PP_IIF \ | |
150 | ( \ | |
151 | BOOST_VMD_IS_EMPTY(list), \ | |
152 | BOOST_VMD_DETAIL_EMPTY_RESULT, \ | |
153 | BOOST_VMD_DETAIL_LIST_PROCESS \ | |
154 | ) \ | |
155 | (list) \ | |
156 | /**/ | |
157 | ||
158 | #define BOOST_VMD_DETAIL_LIST_BEGIN(list) \ | |
159 | BOOST_PP_TUPLE_ELEM(0,BOOST_VMD_DETAIL_LIST_SPLIT(list)) \ | |
160 | /**/ | |
161 | ||
162 | #define BOOST_VMD_DETAIL_LIST_PROCESS_D(d,list) \ | |
163 | BOOST_PP_IIF \ | |
164 | ( \ | |
165 | BOOST_PP_IS_BEGIN_PARENS(list), \ | |
166 | BOOST_VMD_DETAIL_LIST_TUPLE_D, \ | |
167 | BOOST_VMD_DETAIL_LIST_EMPTY_D \ | |
168 | ) \ | |
169 | (d,list) \ | |
170 | /**/ | |
171 | ||
172 | #define BOOST_VMD_DETAIL_LIST_SPLIT_D(d,list) \ | |
173 | BOOST_PP_IIF \ | |
174 | ( \ | |
175 | BOOST_VMD_IS_EMPTY(list), \ | |
176 | BOOST_VMD_DETAIL_EMPTY_RESULT, \ | |
177 | BOOST_VMD_DETAIL_LIST_PROCESS_D \ | |
178 | ) \ | |
179 | (d,list) \ | |
180 | /**/ | |
181 | ||
182 | #define BOOST_VMD_DETAIL_LIST_BEGIN_D(d,list) \ | |
183 | BOOST_PP_TUPLE_ELEM(0,BOOST_VMD_DETAIL_LIST_SPLIT_D(d,list)) \ | |
184 | /**/ | |
185 | ||
186 | #define BOOST_VMD_DETAIL_LIST_D(d,...) \ | |
187 | BOOST_PP_IIF \ | |
188 | ( \ | |
189 | BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER \ | |
190 | ( \ | |
191 | BOOST_VMD_DETAIL_NEW_MODS_D(d,BOOST_VMD_ALLOW_AFTER,__VA_ARGS__) \ | |
192 | ), \ | |
193 | BOOST_VMD_DETAIL_LIST_SPLIT_D, \ | |
194 | BOOST_VMD_DETAIL_LIST_BEGIN_D \ | |
195 | ) \ | |
196 | (d,BOOST_PP_VARIADIC_ELEM(0,__VA_ARGS__)) \ | |
197 | /**/ | |
198 | ||
199 | #define BOOST_VMD_DETAIL_LIST(...) \ | |
200 | BOOST_PP_IIF \ | |
201 | ( \ | |
202 | BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER \ | |
203 | ( \ | |
204 | BOOST_VMD_DETAIL_NEW_MODS(BOOST_VMD_ALLOW_AFTER,__VA_ARGS__) \ | |
205 | ), \ | |
206 | BOOST_VMD_DETAIL_LIST_SPLIT, \ | |
207 | BOOST_VMD_DETAIL_LIST_BEGIN \ | |
208 | ) \ | |
209 | (BOOST_PP_VARIADIC_ELEM(0,__VA_ARGS__)) \ | |
210 | /**/ | |
211 | ||
212 | #endif /* BOOST_VMD_DETAIL_LIST_HPP */ |