//  (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_IDENTIFIER_HPP)
#define BOOST_VMD_DETAIL_IDENTIFIER_HPP

#include <boost/preprocessor/arithmetic/dec.hpp>
#include <boost/preprocessor/comparison/equal.hpp>
#include <boost/preprocessor/control/expr_iif.hpp>
#include <boost/preprocessor/control/iif.hpp>
#include <boost/preprocessor/logical/bitand.hpp>
#include <boost/preprocessor/logical/bitor.hpp>
#include <boost/preprocessor/punctuation/is_begin_parens.hpp>
#include <boost/preprocessor/tuple/elem.hpp>
#include <boost/preprocessor/variadic/elem.hpp>
#include <boost/vmd/identity.hpp>
#include <boost/vmd/is_empty.hpp>
#include <boost/vmd/detail/identifier_concat.hpp>
#include <boost/vmd/detail/is_entire.hpp>
#include <boost/vmd/detail/match_identifier.hpp>
#include <boost/vmd/detail/mods.hpp>
#include <boost/vmd/detail/not_empty.hpp>
#include <boost/vmd/detail/parens.hpp>

#define BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_SUCCESS(id,rest,keymatch,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_SUCCESS_MODS(id,rest,BOOST_PP_DEC(keymatch),mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_FAILURE(id,rest,keymatch,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_FAILURE_MODS(mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_TUPLE_RESULT(id,rest,keymatch,mods) \
    BOOST_PP_IIF \
        ( \
        BOOST_PP_EQUAL(keymatch,0), \
        BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_FAILURE, \
        BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_SUCCESS \
        ) \
    (id,rest,keymatch,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_TUPLE_RESULT_D(d,id,rest,keymatch,mods) \
    BOOST_PP_IIF \
        ( \
        BOOST_PP_EQUAL_D(d,keymatch,0), \
        BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_FAILURE, \
        BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_SUCCESS \
        ) \
    (id,rest,keymatch,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_TUPLE(id,rest,keytuple,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_TUPLE_RESULT \
        ( \
        id, \
        rest, \
        BOOST_VMD_DETAIL_MATCH_IDENTIFIER(id,keytuple), \
        mods \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_TUPLE_D(d,id,rest,keytuple,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_TUPLE_RESULT_D \
        ( \
        d, \
        id, \
        rest, \
        BOOST_VMD_DETAIL_MATCH_IDENTIFIER_D(d,id,keytuple), \
        mods \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_MAKE_SPLIT(tuple) \
    ( \
    BOOST_PP_TUPLE_ELEM \
        ( \
        0, \
        BOOST_PP_TUPLE_ELEM(0,tuple) \
        ), \
    BOOST_PP_TUPLE_ELEM(1,tuple) \
    ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_SPLIT_SEQUENCE_CONCAT_DATA(tuple) \
    BOOST_VMD_IDENTITY_RESULT \
        ( \
        BOOST_PP_IIF \
            ( \
            BOOST_VMD_IS_EMPTY \
                ( \
                BOOST_PP_TUPLE_ELEM(0,tuple) \
                ), \
            BOOST_VMD_IDENTITY(tuple), \
            BOOST_VMD_DETAIL_IDENTIFIER_MAKE_SPLIT \
            ) \
        (tuple) \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_SPLIT_SEQUENCE_CONCAT(vcseq) \
    BOOST_VMD_DETAIL_IDENTIFIER_SPLIT_SEQUENCE_CONCAT_DATA \
        ( \
        BOOST_VMD_DETAIL_PARENS(vcseq,BOOST_VMD_RETURN_AFTER) \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_GETID_TID(tid) \
    BOOST_VMD_IDENTITY_RESULT \
        ( \
        BOOST_PP_IIF \
            ( \
            BOOST_VMD_IS_EMPTY(tid), \
            BOOST_VMD_IDENTITY(tid), \
            BOOST_PP_TUPLE_ELEM \
            ) \
        (0,tid) \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_GETID_SEQUENCE(vseq) \
    BOOST_VMD_DETAIL_IDENTIFIER_GETID_TID \
        ( \
        BOOST_VMD_DETAIL_PARENS(BOOST_VMD_DETAIL_IDENTIFIER_CONCATENATE(vseq)) \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_SPLIT_SEQUENCE(vseq) \
     BOOST_VMD_DETAIL_IDENTIFIER_SPLIT_SEQUENCE_CONCAT \
        ( \
        BOOST_VMD_DETAIL_IDENTIFIER_CONCATENATE(vseq) \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS(id,rest,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_TUPLE \
        ( \
        id, \
        rest, \
        BOOST_VMD_DETAIL_MODS_RESULT_OTHER(mods), \
        mods \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_D(d,id,rest,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_TUPLE_D \
        ( \
        d, \
        id, \
        rest, \
        BOOST_VMD_DETAIL_MODS_RESULT_OTHER(mods), \
        mods \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_JUST(id,rest,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_SUCCESS_MODS(id,rest,0,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_JUST_D(d,id,rest,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_SUCCESS_MODS(id,rest,0,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_CHECK_KEYS(id,rest,mods) \
    BOOST_PP_IIF \
        ( \
        BOOST_VMD_IS_EMPTY \
            ( \
            BOOST_VMD_DETAIL_MODS_RESULT_OTHER(mods) \
            ), \
        BOOST_VMD_DETAIL_IDENTIFIER_JUST, \
        BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS \
        ) \
    (id,rest,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_CHECK_KEYS_D(d,id,rest,mods) \
    BOOST_PP_IIF \
        ( \
        BOOST_VMD_IS_EMPTY \
            ( \
            BOOST_VMD_DETAIL_MODS_RESULT_OTHER(mods) \
            ), \
        BOOST_VMD_DETAIL_IDENTIFIER_JUST_D, \
        BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_KEYS_D \
        ) \
    (d,id,rest,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_MKEYS(mods) \
    BOOST_PP_BITAND \
        ( \
        BOOST_VMD_DETAIL_MODS_IS_RESULT_INDEX(mods), \
        BOOST_VMD_DETAIL_NOT_EMPTY \
            ( \
            BOOST_VMD_DETAIL_MODS_RESULT_OTHER(mods) \
            ) \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_SUCCESS_MODS(id,rest,keymatch,mods) \
    BOOST_PP_IIF \
        ( \
        BOOST_VMD_DETAIL_IDENTIFIER_MKEYS(mods), \
        BOOST_PP_IIF \
            ( \
            BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER(mods), \
            (id,rest,keymatch), \
            (id,keymatch) \
            ), \
        BOOST_PP_IIF \
            ( \
            BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER(mods), \
            (id,rest), \
            id \
            ) \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_FAILURE_MODS(mods) \
    BOOST_PP_IIF \
        ( \
        BOOST_VMD_DETAIL_IDENTIFIER_MKEYS(mods), \
        BOOST_PP_IIF \
            ( \
            BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER(mods), \
            (,,), \
            (,) \
            ), \
        BOOST_PP_EXPR_IIF \
            ( \
            BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER(mods), \
            (,) \
            ) \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_FAILURE_REST(id,rest,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_FAILURE_MODS(mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_FAILURE_REST_D(d,id,rest,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_FAILURE_MODS(mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_ID_REST(id,rest,mods) \
    BOOST_PP_IIF \
        ( \
        BOOST_VMD_IS_EMPTY(id), \
        BOOST_VMD_DETAIL_IDENTIFIER_FAILURE_REST, \
        BOOST_VMD_DETAIL_IDENTIFIER_CHECK_KEYS \
        ) \
    (id,rest,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_ID_REST_D(d,id,rest,mods) \
    BOOST_PP_IIF \
        ( \
        BOOST_VMD_IS_EMPTY(id), \
        BOOST_VMD_DETAIL_IDENTIFIER_FAILURE_REST_D, \
        BOOST_VMD_DETAIL_IDENTIFIER_CHECK_KEYS_D \
        ) \
    (d,id,rest,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_DATA(tuple,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_ID_REST \
        ( \
        BOOST_PP_TUPLE_ELEM(0,tuple), \
        BOOST_PP_TUPLE_ELEM(1,tuple), \
        mods \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_ID(id,mods) \
    BOOST_PP_IIF \
        ( \
        BOOST_VMD_IS_EMPTY(id), \
        BOOST_VMD_DETAIL_IDENTIFIER_FAILURE_REST, \
        BOOST_VMD_DETAIL_IDENTIFIER_CHECK_KEYS \
        ) \
    (id,,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_ID_D(d,id,mods) \
    BOOST_PP_IIF \
        ( \
        BOOST_VMD_IS_EMPTY(id), \
        BOOST_VMD_DETAIL_IDENTIFIER_FAILURE_REST_D, \
        BOOST_VMD_DETAIL_IDENTIFIER_CHECK_KEYS_D \
        ) \
    (d,id,,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_DATA_D(d,tuple,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_ID_REST_D \
        ( \
        d, \
        BOOST_PP_TUPLE_ELEM(0,tuple), \
        BOOST_PP_TUPLE_ELEM(1,tuple), \
        mods \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_SEQUENCE_AFTER(vseq,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_DATA \
        ( \
        BOOST_VMD_DETAIL_IDENTIFIER_SPLIT_SEQUENCE(vseq), \
        mods \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_SEQUENCE_AFTER_D(d,vseq,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_DATA_D \
        ( \
        d, \
        BOOST_VMD_DETAIL_IDENTIFIER_SPLIT_SEQUENCE(vseq), \
        mods \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_SEQUENCE_ID(vseq,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_ID \
        ( \
        BOOST_VMD_DETAIL_IDENTIFIER_GETID_SEQUENCE(vseq), \
        mods \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_SEQUENCE_ID_D(d,vseq,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_PROCESS_ID_D \
        ( \
        d, \
        BOOST_VMD_DETAIL_IDENTIFIER_GETID_SEQUENCE(vseq), \
        mods \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_SEQUENCE(vseq,mods) \
    BOOST_PP_IIF \
        ( \
        BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER(mods), \
        BOOST_VMD_DETAIL_IDENTIFIER_SEQUENCE_AFTER, \
        BOOST_VMD_DETAIL_IDENTIFIER_SEQUENCE_ID \
        ) \
    (vseq,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_SEQUENCE_D(d,vseq,mods) \
    BOOST_PP_IIF \
        ( \
        BOOST_VMD_DETAIL_MODS_IS_RESULT_AFTER(mods), \
        BOOST_VMD_DETAIL_IDENTIFIER_SEQUENCE_AFTER_D, \
        BOOST_VMD_DETAIL_IDENTIFIER_SEQUENCE_ID_D \
        ) \
    (d,vseq,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_EX_FAILURE(vseq,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_FAILURE_MODS(mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_EX_FAILURE_D(d,vseq,mods) \
    BOOST_VMD_DETAIL_IDENTIFIER_FAILURE_MODS(mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_EX(vseq,mods) \
    BOOST_PP_IIF \
      ( \
      BOOST_PP_BITOR \
          ( \
          BOOST_VMD_IS_EMPTY(vseq), \
          BOOST_PP_IS_BEGIN_PARENS(vseq) \
          ), \
      BOOST_VMD_DETAIL_IDENTIFIER_EX_FAILURE, \
      BOOST_VMD_DETAIL_IDENTIFIER_SEQUENCE \
      ) \
    (vseq,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_EX_D(d,vseq,mods) \
    BOOST_PP_IIF \
      ( \
      BOOST_PP_BITOR \
          ( \
          BOOST_VMD_IS_EMPTY(vseq), \
          BOOST_PP_IS_BEGIN_PARENS(vseq) \
          ), \
      BOOST_VMD_DETAIL_IDENTIFIER_EX_FAILURE_D, \
      BOOST_VMD_DETAIL_IDENTIFIER_SEQUENCE_D \
      ) \
    (d,vseq,mods) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER(...) \
    BOOST_VMD_DETAIL_IDENTIFIER_EX \
        ( \
        BOOST_PP_VARIADIC_ELEM(0,__VA_ARGS__), \
        BOOST_VMD_DETAIL_NEW_MODS(BOOST_VMD_ALLOW_INDEX,__VA_ARGS__) \
        ) \
/**/

#define BOOST_VMD_DETAIL_IDENTIFIER_D(d,...) \
    BOOST_VMD_DETAIL_IDENTIFIER_EX_D \
        ( \
        d, \
        BOOST_PP_VARIADIC_ELEM(0,__VA_ARGS__), \
        BOOST_VMD_DETAIL_NEW_MODS_D(d,BOOST_VMD_ALLOW_INDEX,__VA_ARGS__) \
        ) \
/**/

#define BOOST_VMD_DETAIL_IS_IDENTIFIER_MULTIPLE(...) \
    BOOST_VMD_DETAIL_IS_ENTIRE \
        ( \
        BOOST_VMD_DETAIL_IDENTIFIER(__VA_ARGS__,BOOST_VMD_RETURN_AFTER) \
        ) \
/**/

#define BOOST_VMD_DETAIL_IS_IDENTIFIER_MULTIPLE_D(d,...) \
    BOOST_VMD_DETAIL_IS_ENTIRE \
        ( \
        BOOST_VMD_DETAIL_IDENTIFIER_D(d,__VA_ARGS__,BOOST_VMD_RETURN_AFTER) \
        ) \
/**/

#endif /* BOOST_VMD_DETAIL_IDENTIFIER_HPP */