295 lines
11 KiB
Plaintext
295 lines
11 KiB
Plaintext
|
/*=============================================================================
|
||
|
|
Copyright (c) 2001-2011 Joel de Guzman
|
||
|
|
Copyright (c) 2006 Dan Marsden
|
||
|
|
Copyright (c) 2009-2010 Christopher Schmidt
|
||
|
|
Copyright (c) 2015 Kohei Takahashi
|
||
|
|
|
||
|
|
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)
|
||
|
|
==============================================================================*/
|
||
|
|
#include <boost/preprocessor/cat.hpp>
|
||
|
|
|
||
|
|
#define FUSION_HASH #
|
||
|
|
|
||
|
|
#ifdef BOOST_FUSION_REVERSE_FOLD
|
||
|
|
# ifdef BOOST_FUSION_ITER_FOLD
|
||
|
|
# define BOOST_FUSION_FOLD_NAME reverse_iter_fold
|
||
|
|
# else
|
||
|
|
# define BOOST_FUSION_FOLD_NAME reverse_fold
|
||
|
|
# endif
|
||
|
|
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_FIRST_IT_FUNCTION end
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_NEXT_IT_FUNCTION prior
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_FIRST_IT_META_TRANSFORM(IT) \
|
||
|
|
typename fusion::result_of::prior<IT>::type
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_FIRST_IT_TRANSFORM(IT) fusion::prior(IT)
|
||
|
|
#else
|
||
|
|
# ifdef BOOST_FUSION_ITER_FOLD
|
||
|
|
# define BOOST_FUSION_FOLD_NAME iter_fold
|
||
|
|
# else
|
||
|
|
# define BOOST_FUSION_FOLD_NAME fold
|
||
|
|
# endif
|
||
|
|
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_FIRST_IT_FUNCTION begin
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_NEXT_IT_FUNCTION next
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_FIRST_IT_META_TRANSFORM(IT) IT
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_FIRST_IT_TRANSFORM(IT) IT
|
||
|
|
#endif
|
||
|
|
#ifdef BOOST_FUSION_ITER_FOLD
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_INVOKE_IT_META_TRANSFORM(IT) IT&
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_INVOKE_IT_TRANSFORM(IT) IT
|
||
|
|
#else
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_INVOKE_IT_META_TRANSFORM(IT) \
|
||
|
|
typename fusion::result_of::deref<IT>::type
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_INVOKE_IT_TRANSFORM(IT) fusion::deref(IT)
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if (defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES))
|
||
|
|
FUSION_HASH if BOOST_WORKAROUND BOOST_PREVENT_MACRO_SUBSTITUTION (BOOST_MSVC, < 1500)
|
||
|
|
FUSION_HASH define BOOST_FUSION_FOLD_IMPL_ENABLER(T) void
|
||
|
|
FUSION_HASH else
|
||
|
|
FUSION_HASH define BOOST_FUSION_FOLD_IMPL_ENABLER(T) typename T::type
|
||
|
|
FUSION_HASH endif
|
||
|
|
#else
|
||
|
|
# if BOOST_WORKAROUND(BOOST_MSVC, < 1500)
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_ENABLER(T) void
|
||
|
|
# else
|
||
|
|
# define BOOST_FUSION_FOLD_IMPL_ENABLER(T) typename T::type
|
||
|
|
# endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
namespace boost { namespace fusion
|
||
|
|
{
|
||
|
|
namespace detail
|
||
|
|
{
|
||
|
|
template<int SeqSize, typename It, typename State, typename F, typename = void
|
||
|
|
#if defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES)
|
||
|
|
FUSION_HASH if BOOST_WORKAROUND BOOST_PREVENT_MACRO_SUBSTITUTION (BOOST_MSVC, < 1500)
|
||
|
|
#endif
|
||
|
|
#if BOOST_WORKAROUND(BOOST_MSVC, < 1500) || \
|
||
|
|
(defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES))
|
||
|
|
// Dirty hack: those compilers cannot choose exactly one partial specialization.
|
||
|
|
, bool = SeqSize == 0
|
||
|
|
#endif
|
||
|
|
#if defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES)
|
||
|
|
FUSION_HASH endif
|
||
|
|
#endif
|
||
|
|
>
|
||
|
|
struct BOOST_PP_CAT(result_of_it_,BOOST_FUSION_FOLD_NAME)
|
||
|
|
{};
|
||
|
|
|
||
|
|
template<typename It, typename State, typename F>
|
||
|
|
struct BOOST_PP_CAT(result_of_it_,BOOST_FUSION_FOLD_NAME)<0,It,State,F
|
||
|
|
, typename boost::enable_if_has_type<BOOST_FUSION_FOLD_IMPL_ENABLER(State)>::type
|
||
|
|
#if defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES)
|
||
|
|
FUSION_HASH if BOOST_WORKAROUND BOOST_PREVENT_MACRO_SUBSTITUTION (BOOST_MSVC, < 1500)
|
||
|
|
#endif
|
||
|
|
#if BOOST_WORKAROUND(BOOST_MSVC, < 1500) || \
|
||
|
|
(defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES))
|
||
|
|
, true
|
||
|
|
#endif
|
||
|
|
#if defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES)
|
||
|
|
FUSION_HASH endif
|
||
|
|
#endif
|
||
|
|
>
|
||
|
|
{
|
||
|
|
typedef typename State::type type;
|
||
|
|
};
|
||
|
|
|
||
|
|
template<int SeqSize, typename It, typename State, typename F>
|
||
|
|
struct BOOST_PP_CAT(result_of_it_,BOOST_FUSION_FOLD_NAME)<SeqSize,It,State,F
|
||
|
|
, typename boost::enable_if_has_type<
|
||
|
|
#if defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES)
|
||
|
|
FUSION_HASH if BOOST_WORKAROUND BOOST_PREVENT_MACRO_SUBSTITUTION (BOOST_MSVC, >= 1500)
|
||
|
|
#endif
|
||
|
|
#if BOOST_WORKAROUND(BOOST_MSVC, >= 1500) || \
|
||
|
|
(defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES))
|
||
|
|
// Following SFINAE enables to avoid MSVC 9's partial specialization
|
||
|
|
// ambiguous bug but MSVC 8 don't compile, and moreover MSVC 8 style
|
||
|
|
// workaround won't work with MSVC 9.
|
||
|
|
typename boost::disable_if_c<SeqSize == 0, State>::type::type
|
||
|
|
#if defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES)
|
||
|
|
FUSION_HASH else
|
||
|
|
BOOST_FUSION_FOLD_IMPL_ENABLER(State)
|
||
|
|
#endif
|
||
|
|
#else
|
||
|
|
BOOST_FUSION_FOLD_IMPL_ENABLER(State)
|
||
|
|
#endif
|
||
|
|
#if defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES)
|
||
|
|
FUSION_HASH endif
|
||
|
|
#endif
|
||
|
|
>::type
|
||
|
|
#if defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES)
|
||
|
|
FUSION_HASH if BOOST_WORKAROUND BOOST_PREVENT_MACRO_SUBSTITUTION (BOOST_MSVC, < 1500)
|
||
|
|
#endif
|
||
|
|
#if BOOST_WORKAROUND(BOOST_MSVC, < 1500) || \
|
||
|
|
(defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES))
|
||
|
|
, false
|
||
|
|
#endif
|
||
|
|
#if defined(__WAVE__) && defined(BOOST_FUSION_CREATE_PREPROCESSED_FILES)
|
||
|
|
FUSION_HASH endif
|
||
|
|
#endif
|
||
|
|
>
|
||
|
|
: BOOST_PP_CAT(result_of_it_,BOOST_FUSION_FOLD_NAME)<
|
||
|
|
SeqSize-1
|
||
|
|
, typename result_of::BOOST_FUSION_FOLD_IMPL_NEXT_IT_FUNCTION<It>::type
|
||
|
|
, boost::result_of<
|
||
|
|
F(
|
||
|
|
typename add_reference<typename State::type>::type,
|
||
|
|
BOOST_FUSION_FOLD_IMPL_INVOKE_IT_META_TRANSFORM(It const)
|
||
|
|
)
|
||
|
|
>
|
||
|
|
, F
|
||
|
|
>
|
||
|
|
{};
|
||
|
|
|
||
|
|
template<typename It, typename State, typename F>
|
||
|
|
BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
|
||
|
|
inline typename BOOST_PP_CAT(result_of_it_,BOOST_FUSION_FOLD_NAME)<
|
||
|
|
0
|
||
|
|
, It
|
||
|
|
, State
|
||
|
|
, F
|
||
|
|
>::type
|
||
|
|
BOOST_PP_CAT(it_,BOOST_FUSION_FOLD_NAME)(mpl::int_<0>, It const&, typename State::type state, F&)
|
||
|
|
{
|
||
|
|
return state;
|
||
|
|
}
|
||
|
|
|
||
|
|
template<typename It, typename State, typename F, int SeqSize>
|
||
|
|
BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
|
||
|
|
inline typename lazy_enable_if_c<
|
||
|
|
SeqSize != 0
|
||
|
|
, BOOST_PP_CAT(result_of_it_,BOOST_FUSION_FOLD_NAME)<
|
||
|
|
SeqSize
|
||
|
|
, It
|
||
|
|
, State
|
||
|
|
, F
|
||
|
|
>
|
||
|
|
>::type
|
||
|
|
BOOST_PP_CAT(it_,BOOST_FUSION_FOLD_NAME)(mpl::int_<SeqSize>, It const& it, typename State::type state, F& f)
|
||
|
|
{
|
||
|
|
return BOOST_PP_CAT(it_,BOOST_FUSION_FOLD_NAME)<
|
||
|
|
typename result_of::BOOST_FUSION_FOLD_IMPL_NEXT_IT_FUNCTION<It>::type
|
||
|
|
, boost::result_of<
|
||
|
|
F(
|
||
|
|
typename add_reference<typename State::type>::type,
|
||
|
|
BOOST_FUSION_FOLD_IMPL_INVOKE_IT_META_TRANSFORM(It const)
|
||
|
|
)
|
||
|
|
>
|
||
|
|
, F
|
||
|
|
>(
|
||
|
|
mpl::int_<SeqSize-1>()
|
||
|
|
, fusion::BOOST_FUSION_FOLD_IMPL_NEXT_IT_FUNCTION(it)
|
||
|
|
, f(state, BOOST_FUSION_FOLD_IMPL_INVOKE_IT_TRANSFORM(it))
|
||
|
|
, f
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
template<typename Seq, typename State, typename F
|
||
|
|
, bool = traits::is_sequence<Seq>::value
|
||
|
|
, bool = traits::is_segmented<Seq>::value>
|
||
|
|
struct BOOST_PP_CAT(result_of_,BOOST_FUSION_FOLD_NAME)
|
||
|
|
{};
|
||
|
|
|
||
|
|
template<typename Seq, typename State, typename F>
|
||
|
|
struct BOOST_PP_CAT(result_of_,BOOST_FUSION_FOLD_NAME)<Seq, State, F, true, false>
|
||
|
|
: BOOST_PP_CAT(result_of_it_,BOOST_FUSION_FOLD_NAME)<
|
||
|
|
result_of::size<Seq>::value
|
||
|
|
, BOOST_FUSION_FOLD_IMPL_FIRST_IT_META_TRANSFORM(
|
||
|
|
typename result_of::BOOST_FUSION_FOLD_IMPL_FIRST_IT_FUNCTION<Seq>::type
|
||
|
|
)
|
||
|
|
, add_reference<State>
|
||
|
|
, F
|
||
|
|
>
|
||
|
|
{};
|
||
|
|
|
||
|
|
template<typename Seq, typename State, typename F>
|
||
|
|
BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
|
||
|
|
inline typename BOOST_PP_CAT(result_of_,BOOST_FUSION_FOLD_NAME)<Seq, State, F>::type
|
||
|
|
BOOST_FUSION_FOLD_NAME(Seq& seq, State& state, F& f)
|
||
|
|
{
|
||
|
|
return BOOST_PP_CAT(it_,BOOST_FUSION_FOLD_NAME)<
|
||
|
|
BOOST_FUSION_FOLD_IMPL_FIRST_IT_META_TRANSFORM(
|
||
|
|
typename result_of::BOOST_FUSION_FOLD_IMPL_FIRST_IT_FUNCTION<Seq>::type
|
||
|
|
)
|
||
|
|
, add_reference<State>
|
||
|
|
, F
|
||
|
|
>(
|
||
|
|
typename result_of::size<Seq>::type()
|
||
|
|
, BOOST_FUSION_FOLD_IMPL_FIRST_IT_TRANSFORM(
|
||
|
|
fusion::BOOST_FUSION_FOLD_IMPL_FIRST_IT_FUNCTION(seq)
|
||
|
|
)
|
||
|
|
, state
|
||
|
|
, f
|
||
|
|
);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
namespace result_of
|
||
|
|
{
|
||
|
|
template<typename Seq, typename State, typename F>
|
||
|
|
struct BOOST_FUSION_FOLD_NAME
|
||
|
|
: detail::BOOST_PP_CAT(result_of_,BOOST_FUSION_FOLD_NAME)<Seq, State, F>
|
||
|
|
{};
|
||
|
|
}
|
||
|
|
|
||
|
|
template<typename Seq, typename State, typename F>
|
||
|
|
BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
|
||
|
|
inline typename result_of::BOOST_FUSION_FOLD_NAME<
|
||
|
|
Seq
|
||
|
|
, State const
|
||
|
|
, F
|
||
|
|
>::type
|
||
|
|
BOOST_FUSION_FOLD_NAME(Seq& seq, State const& state, F f)
|
||
|
|
{
|
||
|
|
return detail::BOOST_FUSION_FOLD_NAME<Seq, State const, F>(seq, state, f);
|
||
|
|
}
|
||
|
|
|
||
|
|
template<typename Seq, typename State, typename F>
|
||
|
|
BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
|
||
|
|
inline typename result_of::BOOST_FUSION_FOLD_NAME<
|
||
|
|
Seq const
|
||
|
|
, State const
|
||
|
|
, F
|
||
|
|
>::type
|
||
|
|
BOOST_FUSION_FOLD_NAME(Seq const& seq, State const& state, F f)
|
||
|
|
{
|
||
|
|
return detail::BOOST_FUSION_FOLD_NAME<Seq const, State const, F>(seq, state, f);
|
||
|
|
}
|
||
|
|
|
||
|
|
template<typename Seq, typename State, typename F>
|
||
|
|
BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
|
||
|
|
inline typename result_of::BOOST_FUSION_FOLD_NAME<
|
||
|
|
Seq
|
||
|
|
, State
|
||
|
|
, F
|
||
|
|
>::type
|
||
|
|
BOOST_FUSION_FOLD_NAME(Seq& seq, State& state, F f)
|
||
|
|
{
|
||
|
|
return detail::BOOST_FUSION_FOLD_NAME<Seq, State, F>(seq, state, f);
|
||
|
|
}
|
||
|
|
|
||
|
|
template<typename Seq, typename State, typename F>
|
||
|
|
BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
|
||
|
|
inline typename result_of::BOOST_FUSION_FOLD_NAME<
|
||
|
|
Seq const
|
||
|
|
, State
|
||
|
|
, F
|
||
|
|
>::type
|
||
|
|
BOOST_FUSION_FOLD_NAME(Seq const& seq, State& state, F f)
|
||
|
|
{
|
||
|
|
return detail::BOOST_FUSION_FOLD_NAME<Seq const, State, F>(seq, state, f);
|
||
|
|
}
|
||
|
|
}}
|
||
|
|
|
||
|
|
#undef BOOST_FUSION_FOLD_NAME
|
||
|
|
#undef BOOST_FUSION_FOLD_IMPL_ENABLER
|
||
|
|
#undef BOOST_FUSION_FOLD_IMPL_FIRST_IT_FUNCTION
|
||
|
|
#undef BOOST_FUSION_FOLD_IMPL_NEXT_IT_FUNCTION
|
||
|
|
#undef BOOST_FUSION_FOLD_IMPL_FIRST_IT_META_TRANSFORM
|
||
|
|
#undef BOOST_FUSION_FOLD_IMPL_FIRST_IT_TRANSFORM
|
||
|
|
#undef BOOST_FUSION_FOLD_IMPL_INVOKE_IT_META_TRANSFORM
|
||
|
|
#undef BOOST_FUSION_FOLD_IMPL_INVOKE_IT_TRANSFORM
|
||
|
|
#undef FUSION_HASH
|