forked from boostorg/fusion
120 lines
7.2 KiB
C++
120 lines
7.2 KiB
C++
|
/*=============================================================================
|
||
|
|
Copyright (c) 2001-2007 Joel de Guzman
|
||
|
|
Copyright (c) 2009-2010 Hartmut Kaiser
|
||
|
|
|
||
|
|
Distributed under 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_FUSION_NAMED_ADAPT_STRUCT_SEP_29_2009_0748PM)
|
||
|
|
#define BOOST_FUSION_NAMED_ADAPT_STRUCT_SEP_29_2009_0748PM
|
||
|
|
|
||
|
|
#include <boost/fusion/support/tag_of_fwd.hpp>
|
||
|
|
#include <boost/fusion/adapted/struct/extension.hpp>
|
||
|
|
#include <boost/fusion/adapted/struct/struct_iterator.hpp>
|
||
|
|
#include <boost/fusion/adapted/struct/detail/is_view_impl.hpp>
|
||
|
|
#include <boost/fusion/adapted/struct/detail/is_sequence_impl.hpp>
|
||
|
|
#include <boost/fusion/adapted/struct/detail/category_of_impl.hpp>
|
||
|
|
#include <boost/fusion/adapted/struct/detail/begin_impl.hpp>
|
||
|
|
#include <boost/fusion/adapted/struct/detail/end_impl.hpp>
|
||
|
|
#include <boost/fusion/adapted/struct/detail/size_impl.hpp>
|
||
|
|
#include <boost/fusion/adapted/struct/detail/at_impl.hpp>
|
||
|
|
#include <boost/fusion/adapted/struct/detail/value_at_impl.hpp>
|
||
|
|
|
||
|
|
#include <boost/preprocessor/cat.hpp>
|
||
|
|
#include <boost/preprocessor/punctuation/comma_if.hpp>
|
||
|
|
#include <boost/preprocessor/seq/for_each.hpp>
|
||
|
|
#include <boost/preprocessor/seq/for_each_i.hpp>
|
||
|
|
#include <boost/preprocessor/seq/elem.hpp>
|
||
|
|
#include <boost/preprocessor/tuple/elem.hpp>
|
||
|
|
#include <boost/preprocessor/repetition/enum_params_with_a_default.hpp>
|
||
|
|
#include <boost/preprocessor/repetition/enum_params.hpp>
|
||
|
|
#include <boost/preprocessor/cat.hpp>
|
||
|
|
#include <boost/mpl/int.hpp>
|
||
|
|
#include <boost/config/no_tr1/utility.hpp>
|
||
|
|
|
||
|
|
#define BOOST_FUSION_ADAPT_NAMED_STRUCT(name, newname, bseq) \
|
||
|
|
BOOST_FUSION_ADAPT_NAMED_STRUCT_I((())(name)(newname), \
|
||
|
|
BOOST_PP_CAT(BOOST_FUSION_ADAPT_NAMED_STRUCT_X bseq, 0)) \
|
||
|
|
/***/
|
||
|
|
|
||
|
|
#define BOOST_FUSION_ADAPT_NAMED_STRUCT_NS(name, ns, newname, bseq) \
|
||
|
|
BOOST_FUSION_ADAPT_NAMED_STRUCT_I((ns)(name)(newname), \
|
||
|
|
BOOST_PP_CAT(BOOST_FUSION_ADAPT_NAMED_STRUCT_X bseq, 0)) \
|
||
|
|
/***/
|
||
|
|
|
||
|
|
#define BOOST_FUSION_ADAPT_NAMED_STRUCT_X(x, y) ((x, y)) BOOST_FUSION_ADAPT_NAMED_STRUCT_Y
|
||
|
|
#define BOOST_FUSION_ADAPT_NAMED_STRUCT_Y(x, y) ((x, y)) BOOST_FUSION_ADAPT_NAMED_STRUCT_X
|
||
|
|
#define BOOST_FUSION_ADAPT_NAMED_STRUCT_X0
|
||
|
|
#define BOOST_FUSION_ADAPT_NAMED_STRUCT_Y0
|
||
|
|
|
||
|
|
// BOOST_FUSION_ADAPT_NAMED_STRUCT_I generates the overarching structure and uses
|
||
|
|
// uses SEQ_FOR_EACH_I to generate the "linear" substructures.
|
||
|
|
// Thanks to Paul Mensonides for the PP macro help
|
||
|
|
|
||
|
|
#define BOOST_FUSION_ADAPT_NAMED_STRUCT_I(names, seq) \
|
||
|
|
BOOST_PP_SEQ_FOR_EACH( \
|
||
|
|
BOOST_FUSION_ADAPT_NAMED_STRUCT_NS_B, _, BOOST_PP_SEQ_ELEM(0, names)) \
|
||
|
|
struct BOOST_PP_SEQ_ELEM(2, names) \
|
||
|
|
{ \
|
||
|
|
BOOST_PP_SEQ_ELEM(2, names)(BOOST_PP_SEQ_ELEM(1, names)& s) \
|
||
|
|
: s_(s) {} \
|
||
|
|
BOOST_PP_SEQ_ELEM(1, names)& s_; \
|
||
|
|
}; \
|
||
|
|
BOOST_PP_SEQ_FOR_EACH( \
|
||
|
|
BOOST_FUSION_ADAPT_NAMED_STRUCT_NS_E, _, BOOST_PP_SEQ_ELEM(0, names)) \
|
||
|
|
namespace boost { namespace fusion { namespace traits \
|
||
|
|
{ \
|
||
|
|
template <> \
|
||
|
|
struct tag_of<BOOST_PP_SEQ_ELEM(2, names)> \
|
||
|
|
{ \
|
||
|
|
typedef struct_tag type; \
|
||
|
|
}; \
|
||
|
|
}}} \
|
||
|
|
\
|
||
|
|
namespace boost { namespace mpl \
|
||
|
|
{ \
|
||
|
|
template<typename> \
|
||
|
|
struct sequence_tag; \
|
||
|
|
\
|
||
|
|
template<> \
|
||
|
|
struct sequence_tag<BOOST_PP_SEQ_ELEM(2, names)> \
|
||
|
|
{ \
|
||
|
|
typedef fusion::fusion_sequence_tag type; \
|
||
|
|
}; \
|
||
|
|
\
|
||
|
|
template<> \
|
||
|
|
struct sequence_tag<BOOST_PP_SEQ_ELEM(2, names) const> \
|
||
|
|
{ \
|
||
|
|
typedef fusion::fusion_sequence_tag type; \
|
||
|
|
}; \
|
||
|
|
}} \
|
||
|
|
\
|
||
|
|
namespace boost { namespace fusion { namespace extension \
|
||
|
|
{ \
|
||
|
|
template <> \
|
||
|
|
struct struct_size<BOOST_PP_SEQ_ELEM(2, names)> \
|
||
|
|
: mpl::int_<BOOST_PP_SEQ_SIZE(seq)> {}; \
|
||
|
|
BOOST_PP_SEQ_FOR_EACH_I(BOOST_FUSION_ADAPT_NAMED_STRUCT_C, names, seq) \
|
||
|
|
}}} \
|
||
|
|
/***/
|
||
|
|
|
||
|
|
#define BOOST_FUSION_ADAPT_NAMED_STRUCT_NS_B(r, _, ns) namespace ns { \
|
||
|
|
/***/
|
||
|
|
#define BOOST_FUSION_ADAPT_NAMED_STRUCT_NS_E(r, _, ns) } \
|
||
|
|
/***/
|
||
|
|
|
||
|
|
#define BOOST_FUSION_ADAPT_NAMED_STRUCT_C(r, names, i, xy) \
|
||
|
|
template <> \
|
||
|
|
struct struct_member<BOOST_PP_SEQ_ELEM(1, names), i> \
|
||
|
|
{ \
|
||
|
|
typedef BOOST_PP_TUPLE_ELEM(2, 0, xy) type; \
|
||
|
|
static type& call(BOOST_PP_SEQ_ELEM(1, names)& struct_) \
|
||
|
|
{ \
|
||
|
|
return struct_.s_.BOOST_PP_TUPLE_ELEM(2, 1, xy); \
|
||
|
|
} \
|
||
|
|
}; \
|
||
|
|
/***/
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|