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).
7 #if !defined(BOOST_VMD_DETAIL_SEQ_HPP)
8 #define BOOST_VMD_DETAIL_SEQ_HPP
10 #include <boost/preprocessor/comparison/equal.hpp>
11 #include <boost/preprocessor/control/iif.hpp>
12 #include <boost/preprocessor/control/while.hpp>
13 #include <boost/preprocessor/facilities/empty.hpp>
14 #include <boost/preprocessor/seq/push_back.hpp>
15 #include <boost/preprocessor/tuple/elem.hpp>
16 #include <boost/preprocessor/tuple/push_back.hpp>
17 #include <boost/preprocessor/tuple/size.hpp>
18 #include <boost/preprocessor/variadic/elem.hpp>
19 #include <boost/vmd/is_empty.hpp>
20 #include <boost/vmd/detail/empty_result.hpp>
21 #include <boost/vmd/detail/mods.hpp>
22 #include <boost/vmd/detail/not_empty.hpp>
23 #include <boost/vmd/detail/parens.hpp>
25 #define BOOST_VMD_DETAIL_SEQ_STATE_INIT(seq) \
26 BOOST_PP_TUPLE_PUSH_BACK \
28 BOOST_PP_TUPLE_PUSH_BACK \
30 BOOST_VMD_DETAIL_PARENS(seq,BOOST_VMD_RETURN_AFTER), \
37 #define BOOST_VMD_DETAIL_SEQ_STATE_INIT_D(d,seq) \
38 BOOST_PP_TUPLE_PUSH_BACK \
40 BOOST_PP_TUPLE_PUSH_BACK \
42 BOOST_VMD_DETAIL_PARENS_D(d,seq,BOOST_VMD_RETURN_AFTER), \
49 #define BOOST_VMD_DETAIL_SEQ_STATE_PRED(d,state) \
50 BOOST_VMD_DETAIL_NOT_EMPTY \
52 BOOST_PP_TUPLE_ELEM(0,state) \
56 #define BOOST_VMD_DETAIL_SEQ_STATE_OP_SET_FAILURE(d,state) \
60 BOOST_PP_TUPLE_ELEM(2,state), \
61 BOOST_PP_TUPLE_ELEM(3,state) \
65 #define BOOST_VMD_DETAIL_SEQ_STATE_OP_MAKE_SEQ(d,state) \
66 BOOST_PP_TUPLE_ELEM(0,state) \
69 #define BOOST_VMD_DETAIL_SEQ_STATE_OP_UPGRADE_SEQ(d,state) \
70 BOOST_PP_SEQ_PUSH_BACK \
72 BOOST_PP_TUPLE_ELEM(2,state), \
76 BOOST_PP_TUPLE_ELEM(0,state) \
81 #define BOOST_VMD_DETAIL_SEQ_STATE_OP_SET_SUCCESS(d,state) \
89 BOOST_PP_TUPLE_ELEM(2,state) \
91 BOOST_VMD_DETAIL_SEQ_STATE_OP_MAKE_SEQ, \
92 BOOST_VMD_DETAIL_SEQ_STATE_OP_UPGRADE_SEQ \
99 #define BOOST_VMD_DETAIL_SEQ_STATE_OP_SET_CONTINUE(d,state) \
100 BOOST_PP_TUPLE_PUSH_BACK \
102 BOOST_PP_TUPLE_PUSH_BACK \
104 BOOST_VMD_DETAIL_PARENS_D(d,BOOST_PP_TUPLE_ELEM(1,state),BOOST_VMD_RETURN_AFTER), \
109 BOOST_PP_TUPLE_ELEM(2,state) \
111 BOOST_VMD_DETAIL_SEQ_STATE_OP_MAKE_SEQ, \
112 BOOST_VMD_DETAIL_SEQ_STATE_OP_UPGRADE_SEQ \
116 BOOST_PP_TUPLE_ELEM(1,state) \
120 #define BOOST_VMD_DETAIL_SEQ_STATE_OP_CHECK_REST(d,state) \
125 BOOST_PP_TUPLE_ELEM(1,state) \
127 BOOST_VMD_DETAIL_SEQ_STATE_OP_SET_SUCCESS, \
128 BOOST_VMD_DETAIL_SEQ_STATE_OP_SET_CONTINUE \
133 #define BOOST_VMD_DETAIL_SEQ_STATE_OP(d,state) \
140 BOOST_PP_TUPLE_SIZE \
142 BOOST_PP_TUPLE_ELEM(0,state) \
145 BOOST_VMD_DETAIL_SEQ_STATE_OP_CHECK_REST, \
146 BOOST_VMD_DETAIL_SEQ_STATE_OP_SET_FAILURE \
151 #define BOOST_VMD_DETAIL_SEQ_STATE_RESULT(state) \
153 BOOST_PP_TUPLE_ELEM(2,state), \
154 BOOST_PP_TUPLE_ELEM(3,state) \
158 #define BOOST_VMD_DETAIL_SEQ_PROCESS(seq) \
159 BOOST_VMD_DETAIL_SEQ_STATE_RESULT \
163 BOOST_VMD_DETAIL_SEQ_STATE_PRED, \
164 BOOST_VMD_DETAIL_SEQ_STATE_OP, \
165 BOOST_VMD_DETAIL_SEQ_STATE_INIT(seq) \
170 #define BOOST_VMD_DETAIL_SEQ_SPLIT(seq) \
173 BOOST_VMD_IS_EMPTY(seq), \
174 BOOST_VMD_DETAIL_EMPTY_RESULT, \
175 BOOST_VMD_DETAIL_SEQ_PROCESS \
180 #define BOOST_VMD_DETAIL_SEQ_BEGIN(seq) \
181 BOOST_PP_TUPLE_ELEM(0,BOOST_VMD_DETAIL_SEQ_SPLIT(seq)) \
184 #define BOOST_VMD_DETAIL_SEQ_PROCESS_D(d,seq) \
185 BOOST_VMD_DETAIL_SEQ_STATE_RESULT \
187 BOOST_PP_WHILE_ ## d \
189 BOOST_VMD_DETAIL_SEQ_STATE_PRED, \
190 BOOST_VMD_DETAIL_SEQ_STATE_OP, \
191 BOOST_VMD_DETAIL_SEQ_STATE_INIT_D(d,seq) \
196 #define BOOST_VMD_DETAIL_SEQ_SPLIT_D(d,seq) \
199 BOOST_VMD_IS_EMPTY(seq), \
200 BOOST_VMD_DETAIL_EMPTY_RESULT, \
201 BOOST_VMD_DETAIL_SEQ_PROCESS_D \
206 #define BOOST_VMD_DETAIL_SEQ_BEGIN_D(d,seq) \
207 BOOST_PP_TUPLE_ELEM(0,BOOST_VMD_DETAIL_SEQ_SPLIT_D(d,seq)) \
210 #define BOOST_VMD_DETAIL_SEQ_D(d,...) \
213 BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER \
215 BOOST_VMD_DETAIL_NEW_MODS_D(d,BOOST_VMD_ALLOW_AFTER,__VA_ARGS__) \
217 BOOST_VMD_DETAIL_SEQ_SPLIT_D, \
218 BOOST_VMD_DETAIL_SEQ_BEGIN_D \
220 (d,BOOST_PP_VARIADIC_ELEM(0,__VA_ARGS__)) \
223 #define BOOST_VMD_DETAIL_SEQ(...) \
226 BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER \
228 BOOST_VMD_DETAIL_NEW_MODS(BOOST_VMD_ALLOW_AFTER,__VA_ARGS__) \
230 BOOST_VMD_DETAIL_SEQ_SPLIT, \
231 BOOST_VMD_DETAIL_SEQ_BEGIN \
233 (BOOST_PP_VARIADIC_ELEM(0,__VA_ARGS__)) \
236 #endif /* BOOST_VMD_DETAIL_SEQ_HPP */