Chris@16: /*=============================================================================
Chris@16:     Copyright (c) 2006-2007 Tobias Schwinger
Chris@16:   
Chris@16:     Use modification and distribution are subject to the Boost Software 
Chris@16:     License, Version 1.0. (See accompanying file LICENSE_1_0.txt or copy at
Chris@16:     http://www.boost.org/LICENSE_1_0.txt).
Chris@16: ==============================================================================*/
Chris@16: 
Chris@16: #if !defined(BOOST_FUSION_FUNCTIONAL_ADAPTER_UNFUSED_HPP_INCLUDED)
Chris@16: #if !defined(BOOST_PP_IS_ITERATING)
Chris@16: 
Chris@16: #include <boost/preprocessor/cat.hpp>
Chris@16: #include <boost/preprocessor/iteration/iterate.hpp>
Chris@16: #include <boost/preprocessor/repetition/enum_params.hpp>
Chris@16: #include <boost/preprocessor/repetition/enum_binary_params.hpp>
Chris@16: #include <boost/preprocessor/facilities/intercept.hpp>
Chris@16: 
Chris@16: #include <boost/utility/result_of.hpp>
Chris@16: 
Chris@16: #include <boost/config.hpp>
Chris@16: 
Chris@16: #include <boost/fusion/container/vector/vector.hpp>
Chris@16: 
Chris@16: #include <boost/fusion/functional/adapter/limits.hpp>
Chris@16: #include <boost/fusion/functional/adapter/detail/access.hpp>
Chris@16: 
Chris@16: #if defined (BOOST_MSVC)
Chris@16: #  pragma warning(push)
Chris@16: #  pragma warning (disable: 4512) // assignment operator could not be generated.
Chris@16: #endif
Chris@16: 
Chris@16: namespace boost { namespace fusion
Chris@16: {
Chris@16:     template <class Function, bool AllowNullary = true>
Chris@16:     class unfused;
Chris@16: 
Chris@16:     //----- ---- --- -- - -  -   -
Chris@16: 
Chris@16:     template <class Function> 
Chris@16:     class unfused<Function,true>
Chris@16:       : public unfused<Function,false>
Chris@16:     {
Chris@16:         typedef typename detail::qf_c<Function>::type function_c;
Chris@16:         typedef typename detail::qf<Function>::type function;
Chris@16:         typedef typename detail::call_param<Function>::type func_const_fwd_t;
Chris@16:       public:
Chris@16: 
Chris@16:         using unfused<Function,false>::operator();
Chris@16: 
Chris@101:         BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         inline explicit unfused(func_const_fwd_t f = function())
Chris@16:             : unfused<Function,false>(f)
Chris@16:         { }
Chris@16: 
Chris@16:         typedef typename boost::result_of<
Chris@16:             function_c(fusion::vector0<> &) >::type call_const_0_result;
Chris@16: 
Chris@101:         BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         inline call_const_0_result operator()() const
Chris@16:         {
Chris@16:             fusion::vector0<> arg;
Chris@16:             return this->fnc_transformed(arg);
Chris@16:         }
Chris@16: 
Chris@16:         typedef typename boost::result_of< 
Chris@16:             function(fusion::vector0<> &) >::type call_0_result;
Chris@16: 
Chris@101:         BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@101:         inline call_0_result operator()()
Chris@16:         {
Chris@16:             fusion::vector0<> arg;
Chris@16:             return this->fnc_transformed(arg);
Chris@16:         }
Chris@16:     };
Chris@16: 
Chris@16:     template <class Function> class unfused<Function,false>
Chris@16:     {
Chris@16:       protected:
Chris@16:         Function fnc_transformed;
Chris@16:         typedef typename detail::qf_c<Function>::type function_c;
Chris@16:         typedef typename detail::qf<Function>::type function;
Chris@16:         typedef typename detail::call_param<Function>::type func_const_fwd_t;
Chris@16:       public:
Chris@16: 
Chris@101:         BOOST_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         inline explicit unfused(func_const_fwd_t f = function())
Chris@16:             : fnc_transformed(f)
Chris@16:         { }
Chris@16: 
Chris@16:         template <typename Sig>
Chris@16:         struct result;
Chris@16: 
Chris@16:         #define  BOOST_PP_FILENAME_1 \
Chris@16:             <boost/fusion/functional/adapter/unfused.hpp>
Chris@16:         #define  BOOST_PP_ITERATION_LIMITS \
Chris@16:             (1,BOOST_FUSION_UNFUSED_MAX_ARITY)
Chris@16:         #include BOOST_PP_ITERATE()
Chris@16:     };
Chris@16: }}
Chris@16: 
Chris@16: #if defined (BOOST_MSVC)
Chris@16: #  pragma warning(pop)
Chris@16: #endif
Chris@16: 
Chris@16: namespace boost 
Chris@16: {
Chris@16: #if !defined(BOOST_RESULT_OF_USE_DECLTYPE) || defined(BOOST_NO_CXX11_DECLTYPE)
Chris@16:     template<class F>
Chris@16:     struct result_of< boost::fusion::unfused<F> const () >
Chris@16:     {
Chris@16:         typedef typename boost::fusion::unfused<F>::call_const_0_result type;
Chris@16:     };
Chris@16:     template<class F>
Chris@16:     struct result_of< boost::fusion::unfused<F>() >
Chris@16:     {
Chris@16:         typedef typename boost::fusion::unfused<F>::call_0_result type;
Chris@16:     };
Chris@16: #endif
Chris@16:     template<class F>
Chris@16:     struct tr1_result_of< boost::fusion::unfused<F> const () >
Chris@16:     {
Chris@16:         typedef typename boost::fusion::unfused<F>::call_const_0_result type;
Chris@16:     };
Chris@16:     template<class F>
Chris@16:     struct tr1_result_of< boost::fusion::unfused<F>() >
Chris@16:     {
Chris@16:         typedef typename boost::fusion::unfused<F>::call_0_result type;
Chris@16:     };
Chris@16: }
Chris@16: 
Chris@16: #define BOOST_FUSION_FUNCTIONAL_ADAPTER_UNFUSED_HPP_INCLUDED
Chris@16: #else // defined(BOOST_PP_IS_ITERATING)
Chris@16: ////////////////////////////////////////////////////////////////////////////////
Chris@16: //
Chris@16: //  Preprocessor vertical repetition code
Chris@16: //
Chris@16: ////////////////////////////////////////////////////////////////////////////////
Chris@16: #define N BOOST_PP_ITERATION()
Chris@16: 
Chris@16:         template <class Self, BOOST_PP_ENUM_PARAMS(N,typename T)>
Chris@16:         struct result< Self const (BOOST_PP_ENUM_PARAMS(N,T)) >
Chris@16:             : boost::result_of< function_c(
Chris@16:                 BOOST_PP_CAT(fusion::vector,N)< BOOST_PP_ENUM_BINARY_PARAMS(N,
Chris@16:                     typename detail::mref<T,>::type BOOST_PP_INTERCEPT) > & )>
Chris@16:         { };
Chris@16: 
Chris@16:         template <class Self, BOOST_PP_ENUM_PARAMS(N,typename T)>
Chris@16:         struct result< Self(BOOST_PP_ENUM_PARAMS(N,T)) >
Chris@16:             : boost::result_of< function(
Chris@16:                 BOOST_PP_CAT(fusion::vector,N)< BOOST_PP_ENUM_BINARY_PARAMS(N,
Chris@16:                     typename detail::mref<T,>::type BOOST_PP_INTERCEPT) > & )>
Chris@16:         { };
Chris@16: 
Chris@16:         template <BOOST_PP_ENUM_PARAMS(N,typename T)>
Chris@101:         BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         inline typename boost::result_of<function_c(BOOST_PP_CAT(fusion::vector,N)
Chris@16:             <BOOST_PP_ENUM_BINARY_PARAMS(N,T,& BOOST_PP_INTERCEPT)> & )>::type
Chris@16:         operator()(BOOST_PP_ENUM_BINARY_PARAMS(N,T,& a)) const
Chris@16:         {
Chris@16:             BOOST_PP_CAT(fusion::vector,N)<
Chris@16:                   BOOST_PP_ENUM_BINARY_PARAMS(N,T,& BOOST_PP_INTERCEPT) >
Chris@16:                 arg(BOOST_PP_ENUM_PARAMS(N,a));
Chris@16:             return this->fnc_transformed(arg);
Chris@16:         }
Chris@16: 
Chris@16:         template <BOOST_PP_ENUM_PARAMS(N,typename T)>
Chris@101:         BOOST_CXX14_CONSTEXPR BOOST_FUSION_GPU_ENABLED
Chris@16:         inline typename boost::result_of<function(BOOST_PP_CAT(fusion::vector,N)
Chris@16:             <BOOST_PP_ENUM_BINARY_PARAMS(N,T,& BOOST_PP_INTERCEPT)> & )>::type
Chris@16:         operator()(BOOST_PP_ENUM_BINARY_PARAMS(N,T,& a)) 
Chris@16:         {
Chris@16:             BOOST_PP_CAT(fusion::vector,N)<
Chris@16:                   BOOST_PP_ENUM_BINARY_PARAMS(N,T,& BOOST_PP_INTERCEPT) >
Chris@16:                 arg(BOOST_PP_ENUM_PARAMS(N,a));
Chris@16:             return this->fnc_transformed(arg);
Chris@16:         }
Chris@16: #undef N
Chris@16: #endif // defined(BOOST_PP_IS_ITERATING)
Chris@16: #endif
Chris@16: