//  (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 */