luabind/tag_function.hpp

   1 // Copyright Daniel Wallin 2008. Use, modification and distribution is
   2 // subject to the Boost Software License, Version 1.0. (See accompanying
   3 // file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
   4
   5 #if !BOOST_PP_IS_ITERATING
   6
   7 # ifndef LUABIND_TAG_FUNCTION_081129_HPP
   8 #  define LUABIND_TAG_FUNCTION_081129_HPP
   9
  10 #  if LUABIND_MAX_ARITY <= 8
  11 #   include <boost/mpl/vector/vector10.hpp>
  12 #  else
  13 #   include <boost/mpl/vector/vector50.hpp>
  14 #  endif
  15 #  include <boost/preprocessor/cat.hpp>
  16 #  include <boost/preprocessor/iterate.hpp>
  17 #  include <boost/preprocessor/repetition/enum_params.hpp>
  18 #  include <boost/preprocessor/repetition/enum_trailing_params.hpp>
  19
  20 namespace luabind {
  21
  22 namespace detail
  23 {
  24
  25   template <class Signature, class F>
  26   struct tagged_function
  27   {
  28       tagged_function(F f)
  29         : f(f)
  30       {}
  31
  32       F f;
  33   };
  34
  35   template <class Signature, class F>
  36   Signature deduce_signature(tagged_function<Signature, F> const&, ...)
  37   {
  38       return Signature();
  39   }
  40
  41   template <class Signature, class F, class Policies>
  42   int invoke(
  43       lua_State* L, function_object const& self, invoke_context& ctx
  44     , tagged_function<Signature, F> const& tagged
  45     , Signature, Policies const& policies)
  46   {
  47       return invoke(L, self, ctx, tagged.f, Signature(), policies);
  48   }
  49
  50   template <class Function>
  51   struct signature_from_function;
  52
  53 #  define BOOST_PP_ITERATION_PARAMS_1 \
  54   (3, (0, LUABIND_MAX_ARITY, <luabind/tag_function.hpp>))
  55 #  include BOOST_PP_ITERATE()
  56
  57 } // namespace detail
  58
  59 template <class Signature, class F>
  60 detail::tagged_function<
  61     typename detail::signature_from_function<Signature>::type
  62   , F
  63 >
  64 tag_function(F f)
  65 {
  66     return f;
  67 }
  68
  69 } // namespace luabind
  70
  71 # endif // LUABIND_TAG_FUNCTION_081129_HPP
  72
  73 #else // BOOST_PP_IS_ITERATING
  74
  75 # define N BOOST_PP_ITERATION()
  76 # define NPLUS1 BOOST_PP_INC(N)
  77
  78 template <class R BOOST_PP_ENUM_TRAILING_PARAMS(N, class A)>
  79 struct signature_from_function<R(BOOST_PP_ENUM_PARAMS(N, A))>
  80 {
  81     typedef BOOST_PP_CAT(mpl::vector, NPLUS1)<
  82         R BOOST_PP_ENUM_TRAILING_PARAMS(N, A)
  83     > type;
  84 };
  85
  86 #endif // BOOST_PP_IS_ITERATING
  87
  88