Chris@16: /*=============================================================================
Chris@16:     Copyright (c) 2001-2009 Joel de Guzman
Chris@16:     Copyright (c) 2005-2006 Dan Marsden
Chris@16:     Copyright (c) 2010 Christopher Schmidt
Chris@16: 
Chris@16:     Distributed under the Boost Software License, Version 1.0. (See accompanying
Chris@16:     file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
Chris@16: ==============================================================================*/
Chris@16: 
Chris@16: #ifndef BOOST_FUSION_ADAPTED_ADT_DETAIL_ADAPT_BASE_HPP
Chris@16: #define BOOST_FUSION_ADAPTED_ADT_DETAIL_ADAPT_BASE_HPP
Chris@16: 
Chris@101: #include <boost/fusion/support/config.hpp>
Chris@101: #include <boost/fusion/adapted/struct/detail/adapt_auto.hpp>
Chris@101: #include <boost/fusion/adapted/struct/detail/adapt_is_tpl.hpp>
Chris@101: 
Chris@16: #include <boost/preprocessor/control/if.hpp>
Chris@16: #include <boost/preprocessor/seq/seq.hpp>
Chris@16: #include <boost/preprocessor/seq/elem.hpp>
Chris@16: #include <boost/mpl/if.hpp>
Chris@16: #include <boost/type_traits/is_const.hpp>
Chris@101: #include <boost/type_traits/add_const.hpp>
Chris@101: #include <boost/type_traits/remove_const.hpp>
Chris@101: 
Chris@101: #include <boost/typeof/typeof.hpp>
Chris@16: 
Chris@16: #define BOOST_FUSION_ADAPT_ADT_GET_IDENTITY_TEMPLATE_IMPL(TEMPLATE_PARAMS_SEQ)  \
Chris@16:     typename detail::get_identity<                                              \
Chris@16:         lvalue                                                                  \
Chris@16:       , BOOST_PP_SEQ_ELEM(1,TEMPLATE_PARAMS_SEQ)                                \
Chris@16:     >::type
Chris@16: 
Chris@16: #define BOOST_FUSION_ADAPT_ADT_GET_IDENTITY_NON_TEMPLATE_IMPL(                  \
Chris@16:     TEMPLATE_PARAMS_SEQ)                                                        \
Chris@16:                                                                                 \
Chris@16:     boost::remove_const<boost::remove_reference<lvalue>::type>::type
Chris@16: 
Chris@101: #define BOOST_FUSION_ADAPT_ADT_ATTRIBUTE_GETEXPR(ATTRIBUTE,                     \
Chris@101:     ATTRIBUTE_TUPEL_SIZE, DEDUCE_TYPE)                                          \
Chris@101:     BOOST_PP_TUPLE_ELEM(ATTRIBUTE_TUPEL_SIZE,                                   \
Chris@101:         BOOST_PP_IF(DEDUCE_TYPE, 0, 2), ATTRIBUTE)
Chris@101: 
Chris@101: #define BOOST_FUSION_ADAPT_ADT_ATTRIBUTE_SETEXPR(ATTRIBUTE,                     \
Chris@101:     ATTRIBUTE_TUPEL_SIZE, DEDUCE_TYPE)                                          \
Chris@101:     BOOST_PP_TUPLE_ELEM(ATTRIBUTE_TUPEL_SIZE,                                   \
Chris@101:         BOOST_PP_IF(DEDUCE_TYPE, 1, 3), ATTRIBUTE)
Chris@101: 
Chris@101: #ifdef BOOST_MSVC
Chris@101: #   define BOOST_FUSION_DEDUCED_ATTR_TYPE(NAME_SEQ, ATTRIBUTE,                  \
Chris@101:         ATTRIBUTE_TUPEL_SIZE, PREFIX, TEMPLATE_PARAMS_SEQ)                      \
Chris@101:                                                                                 \
Chris@101:     BOOST_FUSION_ADAPT_STRUCT_MSVC_REDEFINE_TEMPLATE_PARAMS(                    \
Chris@101:         TEMPLATE_PARAMS_SEQ)                                                    \
Chris@101:                                                                                 \
Chris@101:     struct deduced_attr_type {                                                  \
Chris@101:       static const BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)& obj;        \
Chris@101:       typedef                                                                   \
Chris@101:           BOOST_PP_IF(BOOST_FUSION_ADAPT_IS_TPL(TEMPLATE_PARAMS_SEQ),typename,) \
Chris@101:           BOOST_TYPEOF( PREFIX() BOOST_FUSION_ADAPT_ADT_ATTRIBUTE_GETEXPR(      \
Chris@101:               ATTRIBUTE, ATTRIBUTE_TUPEL_SIZE, 1)) type;                        \
Chris@101:     };
Chris@101: 
Chris@101: #else
Chris@101: #   define BOOST_FUSION_DEDUCED_ATTR_TYPE(NAME_SEQ, ATTRIBUTE,                  \
Chris@101:         ATTRIBUTE_TUPEL_SIZE, PREFIX, TEMPLATE_PARAMS_SEQ)                      \
Chris@101:     struct deduced_attr_type {                                                  \
Chris@101:       static const BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)& obj;        \
Chris@101:       typedef BOOST_TYPEOF( PREFIX() BOOST_FUSION_ADAPT_ADT_ATTRIBUTE_GETEXPR(  \
Chris@101:                       ATTRIBUTE, ATTRIBUTE_TUPEL_SIZE, 1)) type;                \
Chris@101:     };
Chris@101: 
Chris@101: #endif
Chris@101: 
Chris@101: #define BOOST_FUSION_ADT_ATTRIBUTE_TYPEOF(                                      \
Chris@101:     NAME_SEQ, ATTRIBUTE, ATTRIBUTE_TUPEL_SIZE, PREFIX, TEMPLATE_PARAMS_SEQ)     \
Chris@101:                                                                                 \
Chris@101:     BOOST_FUSION_DEDUCED_ATTR_TYPE(                                             \
Chris@101:         NAME_SEQ, ATTRIBUTE, ATTRIBUTE_TUPEL_SIZE, PREFIX, TEMPLATE_PARAMS_SEQ) \
Chris@101:                                                                                 \
Chris@101:     typedef                                                                     \
Chris@101:         BOOST_PP_IF(BOOST_FUSION_ADAPT_IS_TPL(TEMPLATE_PARAMS_SEQ),typename,)   \
Chris@101:         boost::remove_const<                                                    \
Chris@101:           BOOST_PP_IF(BOOST_FUSION_ADAPT_IS_TPL(TEMPLATE_PARAMS_SEQ),typename,) \
Chris@101:           deduced_attr_type::type                                               \
Chris@101:         >::type type;                                                           \
Chris@101:                                                                                 \
Chris@101:     typedef                                                                     \
Chris@101:         BOOST_PP_IF(BOOST_FUSION_ADAPT_IS_TPL(TEMPLATE_PARAMS_SEQ),typename,)   \
Chris@101:         boost::add_const<                                                       \
Chris@101:           BOOST_PP_IF(BOOST_FUSION_ADAPT_IS_TPL(TEMPLATE_PARAMS_SEQ),typename,) \
Chris@101:           deduced_attr_type::type                                               \
Chris@101:     >::type const_type;
Chris@101: 
Chris@101: #define BOOST_FUSION_ADT_ATTRIBUTE_GIVENTYPE(                                   \
Chris@101:     NAME_SEQ, ATTRIBUTE, ATTRIBUTE_TUPEL_SIZE, PREFIX, TEMPLATE_PARAMS_SEQ)     \
Chris@101:                                                                                 \
Chris@101:     typedef BOOST_PP_TUPLE_ELEM(ATTRIBUTE_TUPEL_SIZE, 0, ATTRIBUTE) type;       \
Chris@101:     typedef BOOST_PP_TUPLE_ELEM(ATTRIBUTE_TUPEL_SIZE, 1, ATTRIBUTE) const_type;
Chris@101: 
Chris@101: 
Chris@16: #define BOOST_FUSION_ADAPT_ADT_C_BASE(                                          \
Chris@101:     TEMPLATE_PARAMS_SEQ,NAME_SEQ,I,PREFIX,                                      \
Chris@101:     ATTRIBUTE,ATTRIBUTE_TUPEL_SIZE, DEDUCE_TYPE)                                \
Chris@16:                                                                                 \
Chris@16:     template<                                                                   \
Chris@16:         BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS(TEMPLATE_PARAMS_SEQ)   \
Chris@16:     >                                                                           \
Chris@16:     struct access::adt_attribute_access<                                        \
Chris@16:         BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)                         \
Chris@16:       , I                                                                       \
Chris@16:     >                                                                           \
Chris@16:     {                                                                           \
Chris@101:                                                                                 \
Chris@101:         BOOST_PP_IF(DEDUCE_TYPE,                                                \
Chris@101:             BOOST_FUSION_ADT_ATTRIBUTE_TYPEOF,                                  \
Chris@101:             BOOST_FUSION_ADT_ATTRIBUTE_GIVENTYPE)(                              \
Chris@101:                 NAME_SEQ,                                                       \
Chris@101:                 ATTRIBUTE,                                                      \
Chris@101:                 ATTRIBUTE_TUPEL_SIZE,                                           \
Chris@101:                 PREFIX,                                                         \
Chris@101:                 TEMPLATE_PARAMS_SEQ)                                            \
Chris@101:                                                                                 \
Chris@16:         template<class Val>                                                     \
Chris@101:         BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED                          \
Chris@16:         static void                                                             \
Chris@16:         boost_fusion_adapt_adt_impl_set(                                        \
Chris@16:             BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)& obj,               \
Chris@16:             Val const& val)                                                     \
Chris@16:         {                                                                       \
Chris@101:            PREFIX() BOOST_FUSION_ADAPT_ADT_ATTRIBUTE_SETEXPR(ATTRIBUTE,         \
Chris@101:                 ATTRIBUTE_TUPEL_SIZE, DEDUCE_TYPE);                             \
Chris@16:         }                                                                       \
Chris@16:                                                                                 \
Chris@101:         BOOST_FUSION_GPU_ENABLED                                                \
Chris@101:         static type                                                             \
Chris@16:         boost_fusion_adapt_adt_impl_get(                                        \
Chris@16:             BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)& obj)               \
Chris@16:         {                                                                       \
Chris@101:             return PREFIX() BOOST_FUSION_ADAPT_ADT_ATTRIBUTE_GETEXPR(ATTRIBUTE, \
Chris@101:                 ATTRIBUTE_TUPEL_SIZE, DEDUCE_TYPE);                             \
Chris@16:         }                                                                       \
Chris@16:                                                                                 \
Chris@101:         BOOST_FUSION_GPU_ENABLED                                                \
Chris@101:         static const_type                                                       \
Chris@16:         boost_fusion_adapt_adt_impl_get(                                        \
Chris@16:             BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ) const& obj)         \
Chris@16:         {                                                                       \
Chris@101:             return PREFIX() BOOST_FUSION_ADAPT_ADT_ATTRIBUTE_GETEXPR(ATTRIBUTE, \
Chris@101:                 ATTRIBUTE_TUPEL_SIZE, DEDUCE_TYPE);                             \
Chris@16:         }                                                                       \
Chris@16:     };                                                                          \
Chris@16:                                                                                 \
Chris@16:     template<                                                                   \
Chris@16:         BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS(TEMPLATE_PARAMS_SEQ)   \
Chris@16:     >                                                                           \
Chris@16:     struct adt_attribute_proxy<                                                 \
Chris@16:         BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)                         \
Chris@16:       , I                                                                       \
Chris@16:       , true                                                                    \
Chris@16:     >                                                                           \
Chris@16:     {                                                                           \
Chris@101:         typedef                                                                 \
Chris@101:             BOOST_PP_IF(BOOST_PP_SEQ_HEAD(TEMPLATE_PARAMS_SEQ), typename, )     \
Chris@101:             access::adt_attribute_access<                                       \
Chris@101:                 BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)                 \
Chris@101:               , I                                                               \
Chris@101:             >::const_type type;                                                 \
Chris@16:                                                                                 \
Chris@101:         BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED                                \
Chris@16:         explicit                                                                \
Chris@16:         adt_attribute_proxy(                                                    \
Chris@16:             BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ) const& o)           \
Chris@16:           : obj(&o)                                                             \
Chris@16:         {}                                                                      \
Chris@16:                                                                                 \
Chris@101:         BOOST_FUSION_GPU_ENABLED                                                \
Chris@16:         type get() const                                                        \
Chris@16:         {                                                                       \
Chris@16:             return access::adt_attribute_access<                                \
Chris@16:                 BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)                 \
Chris@16:               , I                                                               \
Chris@16:             >::boost_fusion_adapt_adt_impl_get(*obj);                           \
Chris@16:         }                                                                       \
Chris@16:                                                                                 \
Chris@101:         BOOST_FUSION_GPU_ENABLED                                                \
Chris@16:         operator type() const                                                   \
Chris@16:         {                                                                       \
Chris@16:             return get();                                                       \
Chris@16:         }                                                                       \
Chris@16:                                                                                 \
Chris@16:         BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ) const* obj;             \
Chris@16:     };                                                                          \
Chris@16:                                                                                 \
Chris@16:     template<                                                                   \
Chris@16:         BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS(TEMPLATE_PARAMS_SEQ)   \
Chris@16:     >                                                                           \
Chris@16:     struct adt_attribute_proxy<                                                 \
Chris@16:         BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)                         \
Chris@16:       , I                                                                       \
Chris@16:       , false                                                                   \
Chris@16:     >                                                                           \
Chris@16:     {                                                                           \
Chris@101:         typedef                                                                 \
Chris@101:             BOOST_PP_IF(BOOST_PP_SEQ_HEAD(TEMPLATE_PARAMS_SEQ), typename, )     \
Chris@101:             access::adt_attribute_access<                                       \
Chris@101:                 BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)                 \
Chris@101:               , I                                                               \
Chris@101:             >::type type;                                                       \
Chris@16:                                                                                 \
Chris@101:         BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED                                \
Chris@16:         explicit                                                                \
Chris@16:         adt_attribute_proxy(                                                    \
Chris@16:             BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)& o)                 \
Chris@16:           : obj(&o)                                                             \
Chris@16:         {}                                                                      \
Chris@16:                                                                                 \
Chris@16:         template<class Val>                                                     \
Chris@101:         BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED                          \
Chris@16:         adt_attribute_proxy&                                                    \
Chris@16:         operator=(Val const& val)                                               \
Chris@16:         {                                                                       \
Chris@16:             access::adt_attribute_access<                                       \
Chris@16:                 BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)                 \
Chris@16:               , I                                                               \
Chris@16:             >::boost_fusion_adapt_adt_impl_set(*obj, val);                      \
Chris@16:             return *this;                                                       \
Chris@16:         }                                                                       \
Chris@16:                                                                                 \
Chris@101:         BOOST_FUSION_GPU_ENABLED                                                \
Chris@16:         type get() const                                                        \
Chris@16:         {                                                                       \
Chris@16:             return access::adt_attribute_access<                                \
Chris@16:                 BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)                 \
Chris@16:               , I                                                               \
Chris@16:             >::boost_fusion_adapt_adt_impl_get(*obj);                           \
Chris@16:         }                                                                       \
Chris@16:                                                                                 \
Chris@101:         BOOST_FUSION_GPU_ENABLED                                                \
Chris@16:         operator type() const                                                   \
Chris@16:         {                                                                       \
Chris@16:             return get();                                                       \
Chris@16:         }                                                                       \
Chris@16:                                                                                 \
Chris@16:         BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)* obj;                   \
Chris@16:     };                                                                          \
Chris@16:                                                                                 \
Chris@16:     template<                                                                   \
Chris@16:         BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS(TEMPLATE_PARAMS_SEQ)   \
Chris@16:     >                                                                           \
Chris@16:     struct access::struct_member<                                               \
Chris@16:         BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)                         \
Chris@16:       , I                                                                       \
Chris@16:     >                                                                           \
Chris@16:     {                                                                           \
Chris@101:         typedef BOOST_PP_IF(BOOST_PP_SEQ_HEAD(TEMPLATE_PARAMS_SEQ), typename, ) \
Chris@101:             adt_attribute_proxy<                                                \
Chris@101:                           BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)       \
Chris@101:                         , I                                                     \
Chris@101:                         , false                                                 \
Chris@101:                       >::type lvalue;                                           \
Chris@101:                                                                                 \
Chris@16:         BOOST_FUSION_ADAPT_STRUCT_MSVC_REDEFINE_TEMPLATE_PARAMS(                \
Chris@16:             TEMPLATE_PARAMS_SEQ)                                                \
Chris@16:                                                                                 \
Chris@16:         typedef                                                                 \
Chris@16:             BOOST_PP_IF(                                                        \
Chris@16:                 BOOST_PP_SEQ_HEAD(TEMPLATE_PARAMS_SEQ),                         \
Chris@16:                 BOOST_FUSION_ADAPT_ADT_GET_IDENTITY_TEMPLATE_IMPL,              \
Chris@16:                 BOOST_FUSION_ADAPT_ADT_GET_IDENTITY_NON_TEMPLATE_IMPL)(         \
Chris@16:                     TEMPLATE_PARAMS_SEQ)                                        \
Chris@16:         type;                                                                   \
Chris@16:                                                                                 \
Chris@16:         template<typename Seq>                                                  \
Chris@16:         struct apply                                                            \
Chris@16:         {                                                                       \
Chris@16:             typedef                                                             \
Chris@16:                 adt_attribute_proxy<                                            \
Chris@16:                     BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)             \
Chris@16:                   , I                                                           \
Chris@16:                   , is_const<Seq>::value                                        \
Chris@16:                 >                                                               \
Chris@16:             type;                                                               \
Chris@16:                                                                                 \
Chris@101:             BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED                            \
Chris@16:             static type                                                         \
Chris@16:             call(Seq& obj)                                                      \
Chris@16:             {                                                                   \
Chris@16:                 return type(obj);                                               \
Chris@16:             }                                                                   \
Chris@16:         };                                                                      \
Chris@16:     };
Chris@16: 
Chris@16: #endif