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 #  ifndef LUABIND_CPP0x
  11 #   if LUABIND_MAX_ARITY <= 8
  12 #    include <boost/mpl/vector/vector10.hpp>
  13 #   else
  14 #    include <boost/mpl/vector/vector50.hpp>
  15 #   endif
  16 #   include <boost/preprocessor/cat.hpp>
  17 #   include <boost/preprocessor/iterate.hpp>
  18 #   include <boost/preprocessor/repetition/enum_params.hpp>
  19 #   include <boost/preprocessor/repetition/enum_trailing_params.hpp>
  20 #  endif
  21
  22 namespace luabind {
  23
  24 namespace detail
  25 {
  26
  27   template <class Signature, class F>
  28   struct tagged_function
  29   {
  30       tagged_function(F f)
  31         : f(f)
  32       {}
  33
  34       F f;
  35   };
  36
  37   template <class Signature, class F>
  38   Signature deduce_signature(tagged_function<Signature, F> const&, ...)
  39   {
  40       return Signature();
  41   }
  42
  43   template <class Function>
  44   struct signature_from_function;
  45
  46 #  ifdef LUABIND_CPP0x
  47
  48   template <class... Args, class F, class Policies>
  49   int invoke(
  50       lua_State* L, function_object const& self, invoke_context& ctx
  51     , tagged_function<vector<Args...>, F> const& tagged
  52     , vector<Args...>, Policies const& policies)
  53   {
  54       return invoke(L, self, ctx, tagged.f, vector<Args...>(), policies);
  55   }
  56
  57   template <class R, class... Args>
  58   struct signature_from_function<R(Args...)>
  59   {
  60       typedef vector<R, Args...> type;
  61   };
  62
  63 #  else // LUABIND_CPP0x
  64
  65   template <class Signature, class F, class Policies>
  66   int invoke(
  67       lua_State* L, function_object const& self, invoke_context& ctx
  68     , tagged_function<Signature, F> const& tagged
  69     , Signature, Policies const& policies)
  70   {
  71       return invoke(L, self, ctx, tagged.f, Signature(), policies);
  72   }
  73
  74 #   define BOOST_PP_ITERATION_PARAMS_1 \
  75   (3, (0, LUABIND_MAX_ARITY, <luabind/tag_function.hpp>))
  76 #  include BOOST_PP_ITERATE()
  77
  78 # endif // LUABIND_CPP0x
  79
  80 } // namespace detail
  81
  82 template <class Signature, class F>
  83 detail::tagged_function<
  84     typename detail::signature_from_function<Signature>::type
  85   , F
  86 >
  87 tag_function(F f)
  88 {
  89     return f;
  90 }
  91
  92 } // namespace luabind
  93
  94 # endif // LUABIND_TAG_FUNCTION_081129_HPP
  95
  96 #else // BOOST_PP_IS_ITERATING
  97
  98 # define N BOOST_PP_ITERATION()
  99 # define NPLUS1 BOOST_PP_INC(N)
 100
 101 template <class R BOOST_PP_ENUM_TRAILING_PARAMS(N, class A)>
 102 struct signature_from_function<R(BOOST_PP_ENUM_PARAMS(N, A))>
 103 {
 104     typedef BOOST_PP_CAT(mpl::vector, NPLUS1)<
 105         R BOOST_PP_ENUM_TRAILING_PARAMS(N, A)
 106     > type;
 107 };
 108
 109 #endif // BOOST_PP_IS_ITERATING
 110
 111