Chris@16: /*==============================================================================
Chris@16:     Copyright (c) 2005-2010 Joel de Guzman
Chris@16:     Copyright (c) 2010 Thomas Heller
Chris@16: 
Chris@16:     Distributed under the Boost Software License, Version 1.0. (See accompanying
Chris@16:     file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
Chris@16: ==============================================================================*/
Chris@16: #ifndef BOOST_PHOENIX_FUNCTION_ADAPT_FUNCTION_HPP
Chris@16: #define BOOST_PHOENIX_FUNCTION_ADAPT_FUNCTION_HPP
Chris@16: 
Chris@16: #include <boost/phoenix/core/limits.hpp>
Chris@16: #include <boost/phoenix/core/detail/function_eval.hpp>
Chris@16: #include <boost/preprocessor/repetition/repeat.hpp>
Chris@16: 
Chris@16: #define BOOST_PHOENIX_ADAPT_FUNCTION_NULLARY(RESULT, NAME, FUNC)                \
Chris@101:     namespace detail0                                                            \
Chris@16:     {                                                                           \
Chris@16:         struct BOOST_PP_CAT(NAME, _impl_nullary)                                \
Chris@16:         {                                                                       \
Chris@16:             typedef RESULT result_type;                                         \
Chris@16:                                                                                 \
Chris@16:             result_type                                                         \
Chris@16:             operator()() const                                                  \
Chris@16:             {                                                                   \
Chris@16:                 return FUNC();                                                  \
Chris@16:             }                                                                   \
Chris@16:         };                                                                      \
Chris@16:     }                                                                           \
Chris@16:                                                                                 \
Chris@101:     inline                                                                      \
Chris@16:     boost::phoenix::detail::expression::function_eval<                          \
Chris@101:         detail0:: BOOST_PP_CAT(NAME, _impl_nullary)                              \
Chris@16:     >::type const                                                               \
Chris@101:     NAME()                                                                      \
Chris@16:     {                                                                           \
Chris@16:         return boost::phoenix::detail::expression::                             \
Chris@101:                 function_eval<detail0:: BOOST_PP_CAT(NAME, _impl_nullary)>       \
Chris@101:                     ::make(detail0:: BOOST_PP_CAT(NAME, _impl_nullary)());       \
Chris@16:     }                                                                           \
Chris@16: /**/
Chris@16: 
Chris@16: #define BOOST_PHOENIX_ADAPT_FUNCTION(RESULT, NAME, FUNC, N)                     \
Chris@101:     namespace detail1                                                            \
Chris@16:     {                                                                           \
Chris@16:         struct BOOST_PP_CAT(BOOST_PP_CAT(NAME, _impl_), N)                      \
Chris@16:         {                                                                       \
Chris@16:             template <typename Sig>                                             \
Chris@16:             struct result;                                                      \
Chris@16:                                                                                 \
Chris@16:             template <typename This, BOOST_PHOENIX_typename_A(N)>               \
Chris@16:             struct result<This(BOOST_PHOENIX_A(N))>                             \
Chris@101:             {typedef RESULT type;};                                             \
Chris@16:                                                                                 \
Chris@16:             template <BOOST_PHOENIX_typename_A(N)>                              \
Chris@16:             RESULT                                                              \
Chris@16:             operator()(BOOST_PHOENIX_A_ref_a(N)) const                          \
Chris@16:             {                                                                   \
Chris@16:                 return FUNC(BOOST_PHOENIX_a(N));                                \
Chris@16:             }                                                                   \
Chris@16:         };                                                                      \
Chris@16:     }                                                                           \
Chris@16:                                                                                 \
Chris@16:     template <BOOST_PHOENIX_typename_A(N)>                                      \
Chris@101:     inline                                                                      \
Chris@16:     typename                                                                    \
Chris@16:         boost::phoenix::detail::expression::function_eval<                      \
Chris@101:         detail1:: BOOST_PP_CAT(BOOST_PP_CAT(NAME, _impl_), N)                    \
Chris@16:           , BOOST_PHOENIX_A(N)>::type const                                     \
Chris@101:     NAME(BOOST_PHOENIX_A_const_ref_a(N))                                        \
Chris@16:     {                                                                           \
Chris@16:         return boost::phoenix::detail::expression::                             \
Chris@16:             function_eval<                                                      \
Chris@101:                 detail1:: BOOST_PP_CAT(BOOST_PP_CAT(NAME, _impl_), N)            \
Chris@16:               , BOOST_PHOENIX_A(N)                                              \
Chris@16:             >::make(                                                            \
Chris@101:                 detail1:: BOOST_PP_CAT(BOOST_PP_CAT(NAME, _impl_), N)()          \
Chris@16:               , BOOST_PHOENIX_a(N)                                              \
Chris@16:             );                                                                  \
Chris@16:     }                                                                           \
Chris@16: /**/
Chris@16: 
Chris@16: #define BOOST_PHOENIX_ADAPT_FUNCTION_VARARG(RESULT, NAME, FUNC)                 \
Chris@16:     BOOST_PHOENIX_ADAPT_FUNCTION_NULLARY(NAME, FUNC)                            \
Chris@16:     BOOST_PP_REPEAT_FROM_TO(                                                    \
Chris@16:         1                                                                       \
Chris@16:       , BOOST_PHOENIX_LIMIT                                                     \
Chris@16:       , BOOST_PHOENIX_ADAPT_FUNCTION_VARARG_R                                   \
Chris@16:       , (RESULT, NAME, FUNC)                                                    \
Chris@16:     )                                                                           \
Chris@16: /**/
Chris@16: 
Chris@16: #define BOOST_PHOENIX_ADAPT_FUNCTION_VARARG_R(Z, N, D)                          \
Chris@16:     BOOST_PHOENIX_ADAPT_FUNCTION(                                               \
Chris@16:         BOOST_PP_TUPLE_ELEM(3, 0, D)                                            \
Chris@16:       , BOOST_PP_TUPLE_ELEM(3, 1, D)                                            \
Chris@16:       , BOOST_PP_TUPLE_ELEM(3, 2, D)                                            \
Chris@16:       , N                                                                       \
Chris@16:     )                                                                           \
Chris@16: /**/
Chris@16: 
Chris@16: #endif