diff options
Diffstat (limited to 'boost/vmd/detail/seq.hpp')
-rw-r--r-- | boost/vmd/detail/seq.hpp | 236 |
1 files changed, 236 insertions, 0 deletions
diff --git a/boost/vmd/detail/seq.hpp b/boost/vmd/detail/seq.hpp new file mode 100644 index 0000000000..5021f76147 --- /dev/null +++ b/boost/vmd/detail/seq.hpp @@ -0,0 +1,236 @@ + +// (C) Copyright Edward Diener 2011-2015 +// Use, modification and distribution are 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). + +#if !defined(BOOST_VMD_DETAIL_SEQ_HPP) +#define BOOST_VMD_DETAIL_SEQ_HPP + +#include <boost/preprocessor/comparison/equal.hpp> +#include <boost/preprocessor/control/iif.hpp> +#include <boost/preprocessor/control/while.hpp> +#include <boost/preprocessor/facilities/empty.hpp> +#include <boost/preprocessor/seq/push_back.hpp> +#include <boost/preprocessor/tuple/elem.hpp> +#include <boost/preprocessor/tuple/push_back.hpp> +#include <boost/preprocessor/tuple/size.hpp> +#include <boost/preprocessor/variadic/elem.hpp> +#include <boost/vmd/is_empty.hpp> +#include <boost/vmd/detail/empty_result.hpp> +#include <boost/vmd/detail/mods.hpp> +#include <boost/vmd/detail/not_empty.hpp> +#include <boost/vmd/detail/parens.hpp> + +#define BOOST_VMD_DETAIL_SEQ_STATE_INIT(seq) \ + BOOST_PP_TUPLE_PUSH_BACK \ + ( \ + BOOST_PP_TUPLE_PUSH_BACK \ + ( \ + BOOST_VMD_DETAIL_PARENS(seq,BOOST_VMD_RETURN_AFTER), \ + BOOST_PP_EMPTY() \ + ), \ + BOOST_PP_EMPTY() \ + ) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_STATE_INIT_D(d,seq) \ + BOOST_PP_TUPLE_PUSH_BACK \ + ( \ + BOOST_PP_TUPLE_PUSH_BACK \ + ( \ + BOOST_VMD_DETAIL_PARENS_D(d,seq,BOOST_VMD_RETURN_AFTER), \ + BOOST_PP_EMPTY() \ + ), \ + BOOST_PP_EMPTY() \ + ) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_STATE_PRED(d,state) \ + BOOST_VMD_DETAIL_NOT_EMPTY \ + ( \ + BOOST_PP_TUPLE_ELEM(0,state) \ + ) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_STATE_OP_SET_FAILURE(d,state) \ + ( \ + BOOST_PP_EMPTY(), \ + BOOST_PP_EMPTY(), \ + BOOST_PP_TUPLE_ELEM(2,state), \ + BOOST_PP_TUPLE_ELEM(3,state) \ + ) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_STATE_OP_MAKE_SEQ(d,state) \ + BOOST_PP_TUPLE_ELEM(0,state) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_STATE_OP_UPGRADE_SEQ(d,state) \ + BOOST_PP_SEQ_PUSH_BACK \ + ( \ + BOOST_PP_TUPLE_ELEM(2,state), \ + BOOST_PP_TUPLE_ELEM \ + ( \ + 0, \ + BOOST_PP_TUPLE_ELEM(0,state) \ + ) \ + ) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_STATE_OP_SET_SUCCESS(d,state) \ + ( \ + BOOST_PP_EMPTY(), \ + BOOST_PP_EMPTY(), \ + BOOST_PP_IIF \ + ( \ + BOOST_VMD_IS_EMPTY \ + ( \ + BOOST_PP_TUPLE_ELEM(2,state) \ + ), \ + BOOST_VMD_DETAIL_SEQ_STATE_OP_MAKE_SEQ, \ + BOOST_VMD_DETAIL_SEQ_STATE_OP_UPGRADE_SEQ \ + ) \ + (d,state), \ + BOOST_PP_EMPTY() \ + ) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_STATE_OP_SET_CONTINUE(d,state) \ + BOOST_PP_TUPLE_PUSH_BACK \ + ( \ + BOOST_PP_TUPLE_PUSH_BACK \ + ( \ + BOOST_VMD_DETAIL_PARENS_D(d,BOOST_PP_TUPLE_ELEM(1,state),BOOST_VMD_RETURN_AFTER), \ + BOOST_PP_IIF \ + ( \ + BOOST_VMD_IS_EMPTY \ + ( \ + BOOST_PP_TUPLE_ELEM(2,state) \ + ), \ + BOOST_VMD_DETAIL_SEQ_STATE_OP_MAKE_SEQ, \ + BOOST_VMD_DETAIL_SEQ_STATE_OP_UPGRADE_SEQ \ + ) \ + (d,state) \ + ), \ + BOOST_PP_TUPLE_ELEM(1,state) \ + ) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_STATE_OP_CHECK_REST(d,state) \ + BOOST_PP_IIF \ + ( \ + BOOST_VMD_IS_EMPTY \ + ( \ + BOOST_PP_TUPLE_ELEM(1,state) \ + ), \ + BOOST_VMD_DETAIL_SEQ_STATE_OP_SET_SUCCESS, \ + BOOST_VMD_DETAIL_SEQ_STATE_OP_SET_CONTINUE \ + ) \ + (d,state) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_STATE_OP(d,state) \ + BOOST_PP_IIF \ + ( \ + BOOST_PP_EQUAL_D \ + ( \ + d, \ + 1, \ + BOOST_PP_TUPLE_SIZE \ + ( \ + BOOST_PP_TUPLE_ELEM(0,state) \ + ) \ + ), \ + BOOST_VMD_DETAIL_SEQ_STATE_OP_CHECK_REST, \ + BOOST_VMD_DETAIL_SEQ_STATE_OP_SET_FAILURE \ + ) \ + (d,state) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_STATE_RESULT(state) \ + ( \ + BOOST_PP_TUPLE_ELEM(2,state), \ + BOOST_PP_TUPLE_ELEM(3,state) \ + ) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_PROCESS(seq) \ + BOOST_VMD_DETAIL_SEQ_STATE_RESULT \ + ( \ + BOOST_PP_WHILE \ + ( \ + BOOST_VMD_DETAIL_SEQ_STATE_PRED, \ + BOOST_VMD_DETAIL_SEQ_STATE_OP, \ + BOOST_VMD_DETAIL_SEQ_STATE_INIT(seq) \ + ) \ + ) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_SPLIT(seq) \ + BOOST_PP_IIF \ + ( \ + BOOST_VMD_IS_EMPTY(seq), \ + BOOST_VMD_DETAIL_EMPTY_RESULT, \ + BOOST_VMD_DETAIL_SEQ_PROCESS \ + ) \ + (seq) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_BEGIN(seq) \ + BOOST_PP_TUPLE_ELEM(0,BOOST_VMD_DETAIL_SEQ_SPLIT(seq)) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_PROCESS_D(d,seq) \ + BOOST_VMD_DETAIL_SEQ_STATE_RESULT \ + ( \ + BOOST_PP_WHILE_ ## d \ + ( \ + BOOST_VMD_DETAIL_SEQ_STATE_PRED, \ + BOOST_VMD_DETAIL_SEQ_STATE_OP, \ + BOOST_VMD_DETAIL_SEQ_STATE_INIT_D(d,seq) \ + ) \ + ) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_SPLIT_D(d,seq) \ + BOOST_PP_IIF \ + ( \ + BOOST_VMD_IS_EMPTY(seq), \ + BOOST_VMD_DETAIL_EMPTY_RESULT, \ + BOOST_VMD_DETAIL_SEQ_PROCESS_D \ + ) \ + (d,seq) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_BEGIN_D(d,seq) \ + BOOST_PP_TUPLE_ELEM(0,BOOST_VMD_DETAIL_SEQ_SPLIT_D(d,seq)) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ_D(d,...) \ + BOOST_PP_IIF \ + ( \ + BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER \ + ( \ + BOOST_VMD_DETAIL_NEW_MODS_D(d,BOOST_VMD_ALLOW_AFTER,__VA_ARGS__) \ + ), \ + BOOST_VMD_DETAIL_SEQ_SPLIT_D, \ + BOOST_VMD_DETAIL_SEQ_BEGIN_D \ + ) \ + (d,BOOST_PP_VARIADIC_ELEM(0,__VA_ARGS__)) \ +/**/ + +#define BOOST_VMD_DETAIL_SEQ(...) \ + BOOST_PP_IIF \ + ( \ + BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER \ + ( \ + BOOST_VMD_DETAIL_NEW_MODS(BOOST_VMD_ALLOW_AFTER,__VA_ARGS__) \ + ), \ + BOOST_VMD_DETAIL_SEQ_SPLIT, \ + BOOST_VMD_DETAIL_SEQ_BEGIN \ + ) \ + (BOOST_PP_VARIADIC_ELEM(0,__VA_ARGS__)) \ +/**/ + +#endif /* BOOST_VMD_DETAIL_SEQ_HPP */ |