1 /*=============================================================================
2 Copyright (c) 2001-2009 Joel de Guzman
3 Copyright (c) 2005-2006 Dan Marsden
4 Copyright (c) 2009-2011 Christopher Schmidt
5 Copyright (c) 2013-2014 Damien Buhl
7 Distributed under the Boost Software License, Version 1.0. (See accompanying
8 file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
9 ==============================================================================*/
11 #ifndef BOOST_FUSION_ADAPTED_STRUCT_DETAIL_ADAPT_BASE_HPP
12 #define BOOST_FUSION_ADAPTED_STRUCT_DETAIL_ADAPT_BASE_HPP
14 #include <boost/fusion/support/config.hpp>
15 #include <boost/config.hpp>
16 #include <boost/fusion/support/tag_of_fwd.hpp>
17 #include <boost/fusion/adapted/struct/detail/adapt_auto.hpp>
18 #include <boost/fusion/adapted/struct/detail/adapt_is_tpl.hpp>
20 #include <boost/preprocessor/empty.hpp>
21 #include <boost/preprocessor/stringize.hpp>
22 #include <boost/preprocessor/control/if.hpp>
23 #include <boost/preprocessor/seq/size.hpp>
24 #include <boost/preprocessor/seq/for_each.hpp>
25 #include <boost/preprocessor/seq/for_each_i.hpp>
26 #include <boost/preprocessor/seq/enum.hpp>
27 #include <boost/preprocessor/seq/seq.hpp>
28 #include <boost/preprocessor/tuple/eat.hpp>
29 #include <boost/preprocessor/tuple/elem.hpp>
30 #include <boost/preprocessor/arithmetic/dec.hpp>
31 #include <boost/preprocessor/comparison/less.hpp>
32 #include <boost/preprocessor/logical/not.hpp>
33 #include <boost/mpl/bool.hpp>
34 #include <boost/mpl/tag.hpp>
35 #include <boost/mpl/eval_if.hpp>
36 #include <boost/mpl/identity.hpp>
37 #include <boost/type_traits/add_const.hpp>
39 #include <boost/typeof/typeof.hpp>
42 #define BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME_TEMPLATE_PARAMS(SEQ) \
43 BOOST_PP_SEQ_HEAD(SEQ)<BOOST_PP_SEQ_ENUM(BOOST_PP_SEQ_TAIL(SEQ))> \
46 #define BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(SEQ) \
48 BOOST_PP_SEQ_HEAD(SEQ), \
49 BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME_TEMPLATE_PARAMS, \
50 BOOST_PP_SEQ_HEAD)(BOOST_PP_SEQ_TAIL(SEQ))
52 #define BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS_IMPL_C(R, _, ELEM) \
54 #define BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS_IMPL(SEQ) \
56 BOOST_PP_SEQ_FOR_EACH( \
57 BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS_IMPL_C, \
59 BOOST_PP_SEQ_TAIL(SEQ)))
60 #define BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS(SEQ) \
62 BOOST_PP_SEQ_HEAD(SEQ), \
63 BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS_IMPL, \
64 BOOST_PP_TUPLE_EAT(1))(SEQ)
67 # define BOOST_FUSION_ATTRIBUTE_TYPEOF( \
68 NAME_SEQ, ATTRIBUTE, ATTRIBUTE_TUPLE_SIZE, PREFIX, TEMPLATE_PARAMS_SEQ) \
70 BOOST_FUSION_ADAPT_STRUCT_MSVC_REDEFINE_TEMPLATE_PARAMS( \
71 TEMPLATE_PARAMS_SEQ) \
73 struct deduced_attr_type { \
74 static const BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)& obj; \
76 BOOST_PP_IF(BOOST_FUSION_ADAPT_IS_TPL(TEMPLATE_PARAMS_SEQ), typename, ) \
77 BOOST_TYPEOF( PREFIX() obj.BOOST_PP_TUPLE_ELEM(ATTRIBUTE_TUPLE_SIZE, \
83 BOOST_PP_IF(BOOST_FUSION_ADAPT_IS_TPL(TEMPLATE_PARAMS_SEQ), typename, ) \
84 deduced_attr_type::type attribute_type;
87 # define BOOST_FUSION_ATTRIBUTE_TYPEOF( \
88 NAME_SEQ, ATTRIBUTE, ATTRIBUTE_TUPLE_SIZE, PREFIX, TEMPLATE_PARAMS_SEQ) \
90 struct deduced_attr_type { \
91 static const BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)& obj; \
92 typedef BOOST_TYPEOF( \
93 PREFIX() obj.BOOST_PP_TUPLE_ELEM(ATTRIBUTE_TUPLE_SIZE, 0, ATTRIBUTE)) \
98 BOOST_PP_IF(BOOST_FUSION_ADAPT_IS_TPL(TEMPLATE_PARAMS_SEQ), typename, ) \
99 deduced_attr_type::type attribute_type;
103 #define BOOST_FUSION_ATTRIBUTE_GIVENTYPE( \
104 NAME_SEQ, ATTRIBUTE, ATTRIBUTE_TUPLE_SIZE, PREFIX, TEMPLATE_PARAMS_SEQ) \
106 BOOST_PP_TUPLE_ELEM(ATTRIBUTE_TUPLE_SIZE, 0, ATTRIBUTE) attribute_type;
109 #ifdef BOOST_NO_PARTIAL_SPECIALIZATION_IMPLICIT_DEFAULT_ARGS
110 # define BOOST_FUSION_ADAPT_STRUCT_TAG_OF_SPECIALIZATION( \
111 MODIFIER, TEMPLATE_PARAMS_SEQ, NAME_SEQ, TAG) \
114 BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS(TEMPLATE_PARAMS_SEQ) \
117 BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ) MODIFIER \
124 # define BOOST_FUSION_ADAPT_STRUCT_TAG_OF_SPECIALIZATION( \
125 MODIFIER, TEMPLATE_PARAMS_SEQ, NAME_SEQ, TAG) \
128 BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS(TEMPLATE_PARAMS_SEQ) \
130 struct tag_of<BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ) MODIFIER> \
136 #define BOOST_FUSION_ADAPT_STRUCT_BASE_UNPACK_AND_CALL(R,DATA,I,ATTRIBUTE) \
137 BOOST_PP_TUPLE_ELEM(4,0,DATA)( \
138 BOOST_PP_TUPLE_ELEM(4,1,DATA), \
139 BOOST_PP_TUPLE_ELEM(4,2,DATA), \
140 BOOST_PP_TUPLE_ELEM(4,3,DATA), \
145 # define BOOST_FUSION_ADAPT_STRUCT_MSVC_REDEFINE_TEMPLATE_PARAM(R,_,ELEM) \
147 # define BOOST_FUSION_ADAPT_STRUCT_MSVC_REDEFINE_TEMPLATE_PARAMS_IMPL(SEQ) \
148 BOOST_PP_SEQ_FOR_EACH( \
149 BOOST_FUSION_ADAPT_STRUCT_MSVC_REDEFINE_TEMPLATE_PARAM, \
151 BOOST_PP_SEQ_TAIL(SEQ))
152 # define BOOST_FUSION_ADAPT_STRUCT_MSVC_REDEFINE_TEMPLATE_PARAMS(SEQ) \
154 BOOST_PP_SEQ_HEAD(SEQ), \
155 BOOST_FUSION_ADAPT_STRUCT_MSVC_REDEFINE_TEMPLATE_PARAMS_IMPL, \
156 BOOST_PP_TUPLE_EAT(1))(SEQ)
158 # define BOOST_FUSION_ADAPT_STRUCT_MSVC_REDEFINE_TEMPLATE_PARAMS(SEQ)
161 #define BOOST_FUSION_ADAPT_STRUCT_C_BASE( \
162 TEMPLATE_PARAMS_SEQ,NAME_SEQ,IS_VIEW, \
163 I,PREFIX,ATTRIBUTE,ATTRIBUTE_TUPLE_SIZE, \
167 BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS(TEMPLATE_PARAMS_SEQ) \
169 struct access::struct_member< \
170 BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ) \
174 BOOST_PP_IF(DEDUCE_TYPE, \
175 BOOST_FUSION_ATTRIBUTE_TYPEOF, BOOST_FUSION_ATTRIBUTE_GIVENTYPE)( \
178 ATTRIBUTE_TUPLE_SIZE, \
180 TEMPLATE_PARAMS_SEQ) \
182 BOOST_FUSION_ADAPT_STRUCT_MSVC_REDEFINE_TEMPLATE_PARAMS( \
183 TEMPLATE_PARAMS_SEQ) \
185 typedef attribute_type type; \
187 template<typename Seq> \
192 typename mpl::eval_if< \
194 , add_const<attribute_type> \
195 , mpl::identity<attribute_type> \
200 BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED \
204 return seq.PREFIX() \
205 BOOST_PP_TUPLE_ELEM(ATTRIBUTE_TUPLE_SIZE, \
206 BOOST_PP_NOT(DEDUCE_TYPE), ATTRIBUTE); \
212 BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS(TEMPLATE_PARAMS_SEQ) \
214 struct struct_member_name< \
215 BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ) \
219 typedef char const* type; \
221 BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED \
225 return BOOST_PP_STRINGIZE( \
226 BOOST_PP_TUPLE_ELEM(ATTRIBUTE_TUPLE_SIZE, \
227 BOOST_PP_NOT(DEDUCE_TYPE), ATTRIBUTE)); \
231 #define BOOST_FUSION_ADAPT_STRUCT_BASE( \
232 TEMPLATE_PARAMS_SEQ, \
237 ATTRIBUTES_CALLBACK) \
245 BOOST_FUSION_ADAPT_STRUCT_TAG_OF_SPECIALIZATION( \
246 BOOST_PP_EMPTY(), TEMPLATE_PARAMS_SEQ, NAME_SEQ, TAG) \
247 BOOST_FUSION_ADAPT_STRUCT_TAG_OF_SPECIALIZATION( \
248 const, TEMPLATE_PARAMS_SEQ, NAME_SEQ, TAG) \
251 namespace extension \
254 BOOST_PP_DEC(BOOST_PP_SEQ_SIZE(ATTRIBUTES_SEQ)), \
255 BOOST_PP_SEQ_FOR_EACH_I_R, \
256 BOOST_PP_TUPLE_EAT(4))( \
258 BOOST_FUSION_ADAPT_STRUCT_BASE_UNPACK_AND_CALL, \
259 (ATTRIBUTES_CALLBACK,TEMPLATE_PARAMS_SEQ,NAME_SEQ, IS_VIEW),\
260 BOOST_PP_SEQ_TAIL(ATTRIBUTES_SEQ)) \
263 BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS( \
264 TEMPLATE_PARAMS_SEQ) \
266 struct struct_size<BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)> \
267 : mpl::int_<BOOST_PP_DEC(BOOST_PP_SEQ_SIZE(ATTRIBUTES_SEQ))> \
271 BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS( \
272 TEMPLATE_PARAMS_SEQ) \
274 struct struct_is_view< \
275 BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ) \
277 : mpl::BOOST_PP_IIF(IS_VIEW,true_,false_) \
285 struct sequence_tag; \
288 BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS( \
289 TEMPLATE_PARAMS_SEQ) \
291 struct sequence_tag<BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ)> \
293 typedef fusion::fusion_sequence_tag type; \
297 BOOST_FUSION_ADAPT_STRUCT_UNPACK_TEMPLATE_PARAMS( \
298 TEMPLATE_PARAMS_SEQ) \
300 struct sequence_tag< \
301 BOOST_FUSION_ADAPT_STRUCT_UNPACK_NAME(NAME_SEQ) const \
304 typedef fusion::fusion_sequence_tag type; \