text: /*=============================================================================
      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
  
  