/*=============================================================================
    Copyright (c) 2001-2009 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_ADAPT_CLASS_NAMED_JAN_27_2010_0614PM)
#define BOOST_FUSION_ADAPT_CLASS_NAMED_JAN_27_2010_0614PM

#include <boost/fusion/support/tag_of_fwd.hpp>
#include <boost/fusion/adapted/class/extension.hpp>
#include <boost/fusion/adapted/class/class_iterator.hpp>
#include <boost/fusion/adapted/class/detail/is_view_impl.hpp>
#include <boost/fusion/adapted/class/detail/is_sequence_impl.hpp>
#include <boost/fusion/adapted/class/detail/category_of_impl.hpp>
#include <boost/fusion/adapted/class/detail/begin_impl.hpp>
#include <boost/fusion/adapted/class/detail/end_impl.hpp>
#include <boost/fusion/adapted/class/detail/size_impl.hpp>
#include <boost/fusion/adapted/class/detail/at_impl.hpp>
#include <boost/fusion/adapted/class/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/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>
#include <boost/type_traits/add_reference.hpp>
#include <boost/type_traits/add_const.hpp>
#include <boost/type_traits/remove_reference.hpp>
#include <boost/type_traits/remove_const.hpp>

#define BOOST_FUSION_ADAPT_CLASS_NAMED(name, newname, bseq)                     \
    BOOST_FUSION_ADAPT_CLASS_NAMED_I(name, (boost)(fusion)(adapted), newname,   \
        BOOST_PP_CAT(BOOST_FUSION_ADAPT_CLASS_NAMED_X bseq, 0))                 \
    /***/

#define BOOST_FUSION_ADAPT_CLASS_NAMED_NS(name, ns, newname, bseq)              \
    BOOST_FUSION_ADAPT_CLASS_NAMED_I(name, ns, newname,                         \
        BOOST_PP_CAT(BOOST_FUSION_ADAPT_CLASS_NAMED_X bseq, 0))                 \
    /***/

#define BOOST_FUSION_ADAPT_CLASS_NAMED_X(w, x, y, z) ((w, x, y, z)) BOOST_FUSION_ADAPT_CLASS_NAMED_Y
#define BOOST_FUSION_ADAPT_CLASS_NAMED_Y(w, x, y, z) ((w, x, y, z)) BOOST_FUSION_ADAPT_CLASS_NAMED_X
#define BOOST_FUSION_ADAPT_CLASS_NAMED_X0
#define BOOST_FUSION_ADAPT_CLASS_NAMED_Y0

// BOOST_FUSION_ADAPT_CLASS_I generates the overarching structure and uses
// SEQ_FOR_EACH_I to generate the "linear" substructures.
// Thanks to Paul Mensonides for the PP macro help

#define BOOST_FUSION_ADAPT_CLASS_NAMED_I(name, ns, newname, seq)                \
    BOOST_PP_SEQ_FOR_EACH_R(1, BOOST_FUSION_ADAPT_CLASS_NAMED_NS_B, _, ns)      \
        struct newname                                                          \
        {                                                                       \
            newname(name& s) : obj(s) {}                                        \
            name& obj;                                                          \
        };                                                                      \
    BOOST_PP_SEQ_FOR_EACH_R(1, BOOST_FUSION_ADAPT_CLASS_NAMED_NS_E, _, ns)      \
                                                                                \
    namespace boost { namespace fusion { namespace traits                       \
    {                                                                           \
        template <>                                                             \
        struct tag_of<BOOST_FUSION_ADAPT_CLASS_NAMED_NAME(ns, newname)>         \
        {                                                                       \
            typedef class_tag type;                                             \
        };                                                                      \
    }}}                                                                         \
                                                                                \
    namespace boost { namespace mpl                                             \
    {                                                                           \
        template<typename>                                                      \
        struct sequence_tag;                                                    \
                                                                                \
        template<>                                                              \
        struct sequence_tag<BOOST_FUSION_ADAPT_CLASS_NAMED_NAME(ns, newname)>   \
        {                                                                       \
            typedef fusion::fusion_sequence_tag type;                           \
        };                                                                      \
                                                                                \
        template<>                                                              \
        struct sequence_tag<BOOST_FUSION_ADAPT_CLASS_NAMED_NAME(ns, newname) const> \
        {                                                                       \
            typedef fusion::fusion_sequence_tag type;                           \
        };                                                                      \
    }}                                                                          \
                                                                                \
    namespace boost { namespace fusion { namespace extension                    \
    {                                                                           \
        template <>                                                             \
        struct class_size<BOOST_FUSION_ADAPT_CLASS_NAMED_NAME(ns, newname)>     \
            : mpl::int_<BOOST_PP_SEQ_SIZE(seq)> {};                             \
        template <typename T, int N> struct class_member_proxy;                 \
        BOOST_PP_SEQ_FOR_EACH_I(BOOST_FUSION_ADAPT_CLASS_NAMED_C,               \
            BOOST_FUSION_ADAPT_CLASS_NAMED_NAME(ns, newname),seq)               \
    }}}                                                                         \
    /***/

#define BOOST_FUSION_ADAPT_CLASS_NAMED_NAME(ns, newname)                        \
    BOOST_PP_SEQ_FOR_EACH_R(1, BOOST_FUSION_ADAPT_CLASS_NAMED_NS_D, _, ns)      \
    newname                                                                     \
    /***/

#define BOOST_FUSION_ADAPT_CLASS_NAMED_NS_B(r, _, ns) namespace ns { 
#define BOOST_FUSION_ADAPT_CLASS_NAMED_NS_D(r, _, ns) ns::
#define BOOST_FUSION_ADAPT_CLASS_NAMED_NS_E(r, _, ns) }

#define BOOST_FUSION_ADAPT_CLASS_NAMED_C(r, fullname, i, xy)                    \
    template <>                                                                 \
    struct class_member_proxy<fullname, i>                                      \
    {                                                                           \
        typedef BOOST_PP_TUPLE_ELEM(4, 0, xy) lvalue;                           \
        typedef BOOST_PP_TUPLE_ELEM(4, 1, xy) rvalue;                           \
        typedef remove_const<remove_reference<lvalue>::type>::type type;        \
        typedef add_reference<add_const<type>::type>::type cref_type;           \
                                                                                \
        class_member_proxy(fullname& obj) : obj(obj) {}                         \
        fullname& obj;                                                          \
                                                                                \
        class_member_proxy& operator=(cref_type val)                            \
        {                                                                       \
            obj.BOOST_PP_TUPLE_ELEM(4, 3, xy);                                  \
            return *this;                                                       \
        }                                                                       \
                                                                                \
        operator lvalue()                                                       \
        {                                                                       \
            return obj.BOOST_PP_TUPLE_ELEM(4, 2, xy);                           \
        }                                                                       \
    };                                                                          \
                                                                                \
    template <>                                                                 \
    struct class_member<fullname, i>                                            \
    {                                                                           \
        typedef class_member_proxy<fullname, i> proxy;                          \
        typedef proxy::type type;                                               \
        typedef proxy::rvalue get_type;                                         \
                                                                                \
        static get_type call(fullname const& obj)                               \
        {                                                                       \
            return obj.BOOST_PP_TUPLE_ELEM(4, 2, xy);                           \
        }                                                                       \
                                                                                \
        static proxy call(fullname& obj)                                        \
        {                                                                       \
            return proxy(obj);                                                  \
        }                                                                       \
    };                                                                          \
    /***/

#endif