/*============================================================================= Copyright (c) 2005-2006 Joao Abecasis Copyright (c) 2006-2007 Tobias Schwinger Use modification and distribution are subject to 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_FUNCTIONAL_INVOCATION_INVOKE_PROCEDURE_HPP_INCLUDED) #if !defined(BOOST_PP_IS_ITERATING) #include <boost/preprocessor/cat.hpp> #include <boost/preprocessor/iteration/iterate.hpp> #include <boost/preprocessor/arithmetic/dec.hpp> #include <boost/preprocessor/repetition/repeat_from_to.hpp> #include <boost/preprocessor/repetition/enum.hpp> #include <boost/preprocessor/repetition/enum_shifted.hpp> #include <boost/preprocessor/repetition/enum_params.hpp> #include <boost/preprocessor/repetition/enum_shifted_params.hpp> #include <boost/type_traits/remove_reference.hpp> #include <boost/core/enable_if.hpp> #include <boost/mpl/front.hpp> #include <boost/function_types/is_callable_builtin.hpp> #include <boost/function_types/is_member_function_pointer.hpp> #include <boost/function_types/parameter_types.hpp> #include <boost/fusion/support/category_of.hpp> #include <boost/fusion/sequence/intrinsic/at.hpp> #include <boost/fusion/sequence/intrinsic/size.hpp> #include <boost/fusion/sequence/intrinsic/begin.hpp> #include <boost/fusion/iterator/next.hpp> #include <boost/fusion/iterator/deref.hpp> #include <boost/fusion/functional/invocation/limits.hpp> #include <boost/fusion/functional/invocation/detail/that_ptr.hpp> namespace boost { namespace fusion { namespace detail { namespace ft = function_types; template< typename Function, class Sequence, int N = result_of::size<Sequence>::value, bool MFP = ft::is_member_function_pointer<Function>::value, bool RandomAccess = traits::is_random_access<Sequence>::value > struct invoke_procedure_impl; #define BOOST_PP_FILENAME_1 \ <boost/fusion/functional/invocation/invoke_procedure.hpp> #define BOOST_PP_ITERATION_LIMITS \ (0, BOOST_FUSION_INVOKE_PROCEDURE_MAX_ARITY) #include BOOST_PP_ITERATE() } namespace result_of { template <typename Function, class Sequence, class Enable = void> struct invoke_procedure; template <typename Function, class Sequence> struct invoke_procedure<Function, Sequence, typename enable_if_has_type< typename detail::invoke_procedure_impl< typename boost::remove_reference<Function>::type,Sequence >::result_type >::type> { typedef void type; }; } template <typename Function, class Sequence> BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED inline typename result_of::invoke_procedure<Function, Sequence>::type invoke_procedure(Function f, Sequence & s) { detail::invoke_procedure_impl< typename boost::remove_reference<Function>::type,Sequence >::call(f,s); } template <typename Function, class Sequence> BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED inline typename result_of::invoke_procedure<Function, Sequence const>::type invoke_procedure(Function f, Sequence const & s) { detail::invoke_procedure_impl< typename boost::remove_reference<Function>::type,Sequence const >::call(f,s); } }} #define BOOST_FUSION_FUNCTIONAL_INVOCATION_INVOKE_PROCEDURE_HPP_INCLUDED #else // defined(BOOST_PP_IS_ITERATING) /////////////////////////////////////////////////////////////////////////////// // // Preprocessor vertical repetition code // /////////////////////////////////////////////////////////////////////////////// #define N BOOST_PP_ITERATION() #define M(z,j,data) fusion::at_c<j>(s) template <typename Function, class Sequence> struct invoke_procedure_impl<Function,Sequence,N,false,true> { typedef void result_type; #if N > 0 BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED static inline void call(Function & f, Sequence & s) { f(BOOST_PP_ENUM(N,M,~)); } #else BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED static inline void call(Function & f, Sequence & /*s*/) { f(); } #endif }; #if N > 0 template <typename Function, class Sequence> struct invoke_procedure_impl<Function,Sequence,N,true,true> { typedef void result_type; BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED static inline void call(Function & f, Sequence & s) { (that_ptr<typename mpl::front< ft::parameter_types<Function> >::type >::get(fusion::at_c<0>(s))->*f)(BOOST_PP_ENUM_SHIFTED(N,M,~)); } }; #endif #undef M #define M(z,j,data) \ typedef typename result_of::next< BOOST_PP_CAT(I,BOOST_PP_DEC(j)) \ >::type I ## j ; \ I##j i##j = fusion::next(BOOST_PP_CAT(i,BOOST_PP_DEC(j))); template <typename Function, class Sequence> struct invoke_procedure_impl<Function,Sequence,N,false,false> { typedef void result_type; #if N > 0 BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED static inline void call(Function & f, Sequence & s) { typedef typename result_of::begin<Sequence>::type I0; I0 i0 = fusion::begin(s); BOOST_PP_REPEAT_FROM_TO(1,N,M,~) f( BOOST_PP_ENUM_PARAMS(N,*i) ); } #else BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED static inline void call(Function & f, Sequence & /*s*/) { f(); } #endif }; #if N > 0 template <typename Function, class Sequence> struct invoke_procedure_impl<Function,Sequence,N,true,false> { typedef void result_type; BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED static inline void call(Function & f, Sequence & s) { typedef typename result_of::begin<Sequence>::type I0; I0 i0 = fusion::begin(s); BOOST_PP_REPEAT_FROM_TO(1,N,M,~) (that_ptr<typename mpl::front< ft::parameter_types<Function> >::type >::get(*i0)->*f)(BOOST_PP_ENUM_SHIFTED_PARAMS(N,*i)); } }; #endif #undef M #undef N #endif // defined(BOOST_PP_IS_ITERATING) #endif