123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196 |
- // (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_TUPLE_HPP)
- #define BOOST_VMD_DETAIL_TUPLE_HPP
- #include <boost/preprocessor/comparison/equal.hpp>
- #include <boost/preprocessor/control/iif.hpp>
- #include <boost/preprocessor/punctuation/is_begin_parens.hpp>
- #include <boost/preprocessor/tuple/size.hpp>
- #include <boost/preprocessor/variadic/elem.hpp>
- #include <boost/vmd/empty.hpp>
- #include <boost/vmd/is_empty.hpp>
- #include <boost/vmd/identity.hpp>
- #include <boost/vmd/detail/empty_result.hpp>
- #include <boost/vmd/detail/mods.hpp>
- #include <boost/vmd/detail/parens.hpp>
-
- #define BOOST_VMD_DETAIL_TUPLE_BST_CS(vseq) \
- BOOST_PP_EQUAL(BOOST_PP_TUPLE_SIZE(BOOST_VMD_DETAIL_BEGIN_PARENS(vseq)),1) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_BST_CS_D(d,vseq) \
- BOOST_PP_EQUAL_D(d,BOOST_PP_TUPLE_SIZE(BOOST_VMD_DETAIL_BEGIN_PARENS(vseq)),1) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_BST(vseq) \
- BOOST_VMD_IDENTITY_RESULT \
- ( \
- BOOST_PP_IIF \
- ( \
- BOOST_PP_IS_BEGIN_PARENS(vseq), \
- BOOST_VMD_DETAIL_TUPLE_BST_CS, \
- BOOST_VMD_IDENTITY(0) \
- ) \
- (vseq) \
- ) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_BST_D(d,vseq) \
- BOOST_VMD_IDENTITY_RESULT \
- ( \
- BOOST_PP_IIF \
- ( \
- BOOST_PP_IS_BEGIN_PARENS(vseq), \
- BOOST_VMD_DETAIL_TUPLE_BST_CS_D, \
- BOOST_VMD_IDENTITY(0) \
- ) \
- (d,vseq) \
- ) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_BSEQ_NXT(vseq) \
- BOOST_VMD_DETAIL_TUPLE_BST(BOOST_VMD_DETAIL_AFTER_PARENS_DATA(vseq)) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_BSEQ_NXT_D(d,vseq) \
- BOOST_VMD_DETAIL_TUPLE_BST_D(d,BOOST_VMD_DETAIL_AFTER_PARENS_DATA(vseq)) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_BSEQ(vseq) \
- BOOST_VMD_IDENTITY_RESULT \
- ( \
- BOOST_PP_IIF \
- ( \
- BOOST_VMD_DETAIL_TUPLE_BST(vseq), \
- BOOST_VMD_DETAIL_TUPLE_BSEQ_NXT, \
- BOOST_VMD_IDENTITY(0) \
- ) \
- (vseq) \
- ) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_BSEQ_D(d,vseq) \
- BOOST_VMD_IDENTITY_RESULT \
- ( \
- BOOST_PP_IIF \
- ( \
- BOOST_VMD_DETAIL_TUPLE_BST_D(d,vseq), \
- BOOST_VMD_DETAIL_TUPLE_BSEQ_NXT_D, \
- BOOST_VMD_IDENTITY(0) \
- ) \
- (d,vseq) \
- ) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_SPLIT_CHK_SEQ(vseq) \
- BOOST_PP_IIF \
- ( \
- BOOST_VMD_DETAIL_TUPLE_BSEQ(vseq), \
- BOOST_VMD_DETAIL_EMPTY_RESULT, \
- BOOST_VMD_DETAIL_SPLIT_PARENS \
- ) \
- (vseq) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_SPLIT_CHK_SEQ_D(d,vseq) \
- BOOST_PP_IIF \
- ( \
- BOOST_VMD_DETAIL_TUPLE_BSEQ_D(d,vseq), \
- BOOST_VMD_DETAIL_EMPTY_RESULT, \
- BOOST_VMD_DETAIL_SPLIT_PARENS \
- ) \
- (vseq) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_SPLIT(vseq) \
- BOOST_PP_IIF \
- ( \
- BOOST_PP_IS_BEGIN_PARENS(vseq), \
- BOOST_VMD_DETAIL_TUPLE_SPLIT_CHK_SEQ, \
- BOOST_VMD_DETAIL_EMPTY_RESULT \
- ) \
- (vseq) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_SPLIT_D(d,vseq) \
- BOOST_PP_IIF \
- ( \
- BOOST_PP_IS_BEGIN_PARENS(vseq), \
- BOOST_VMD_DETAIL_TUPLE_SPLIT_CHK_SEQ_D, \
- BOOST_VMD_DETAIL_EMPTY_RESULT \
- ) \
- (d,vseq) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_PROCESS_CHK_SEQ(vseq) \
- BOOST_PP_IIF \
- ( \
- BOOST_VMD_DETAIL_TUPLE_BSEQ(vseq), \
- BOOST_VMD_EMPTY, \
- BOOST_VMD_DETAIL_BEGIN_PARENS \
- ) \
- (vseq) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_PROCESS_CHK_SEQ_D(d,vseq) \
- BOOST_PP_IIF \
- ( \
- BOOST_VMD_DETAIL_TUPLE_BSEQ_D(d,vseq), \
- BOOST_VMD_EMPTY, \
- BOOST_VMD_DETAIL_BEGIN_PARENS \
- ) \
- (vseq) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_PROCESS(vseq) \
- BOOST_PP_IIF \
- ( \
- BOOST_PP_IS_BEGIN_PARENS(vseq), \
- BOOST_VMD_DETAIL_TUPLE_PROCESS_CHK_SEQ, \
- BOOST_VMD_EMPTY \
- ) \
- (vseq) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_PROCESS_D(d,vseq) \
- BOOST_PP_IIF \
- ( \
- BOOST_PP_IS_BEGIN_PARENS(vseq), \
- BOOST_VMD_DETAIL_TUPLE_PROCESS_CHK_SEQ_D, \
- BOOST_VMD_EMPTY \
- ) \
- (d,vseq) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE(...) \
- BOOST_PP_IIF \
- ( \
- BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER \
- ( \
- BOOST_VMD_DETAIL_NEW_MODS(BOOST_VMD_ALLOW_AFTER,__VA_ARGS__) \
- ), \
- BOOST_VMD_DETAIL_TUPLE_SPLIT, \
- BOOST_VMD_DETAIL_TUPLE_PROCESS \
- ) \
- (BOOST_PP_VARIADIC_ELEM(0,__VA_ARGS__)) \
- /**/
- #define BOOST_VMD_DETAIL_TUPLE_D(d,...) \
- BOOST_PP_IIF \
- ( \
- BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER \
- ( \
- BOOST_VMD_DETAIL_NEW_MODS(BOOST_VMD_ALLOW_AFTER,__VA_ARGS__) \
- ), \
- BOOST_VMD_DETAIL_TUPLE_SPLIT_D, \
- BOOST_VMD_DETAIL_TUPLE_PROCESS_D \
- ) \
- (d,BOOST_PP_VARIADIC_ELEM(0,__VA_ARGS__)) \
- /**/
- #endif /* BOOST_VMD_DETAIL_TUPLE_HPP */
|