luabind/make_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 #ifndef LUABIND_MAKE_FUNCTION_081014_HPP
   6 # define LUABIND_MAKE_FUNCTION_081014_HPP
   7
   8 # include <luabind/config.hpp>
   9 # include <luabind/object.hpp>
  10 # include <luabind/detail/call.hpp>
  11 # include <luabind/detail/compute_score.hpp>
  12 # include <luabind/detail/deduce_signature.hpp>
  13 # include <luabind/detail/format_signature.hpp>
  14
  15 namespace luabind {
  16
  17 namespace detail
  18 {
  19
  20   LUABIND_API void handle_exception_aux(lua_State* L);
  21
  22   template <class F, class Signature, class Policies>
  23   struct function_object_impl : function_object
  24   {
  25       function_object_impl(F f, Policies const& policies)
  26         : function_object(&entry_point)
  27         , f(f)
  28         , policies(policies)
  29       {}
  30
  31       int call(lua_State* L, invoke_context& ctx) const
  32       {
  33           return invoke(L, *this, ctx, f, Signature(), policies);
  34       }
  35
  36       void format_signature(lua_State* L, char const* function) const
  37       {
  38           detail::format_signature(L, function, Signature());
  39       }
  40
  41       static int entry_point(lua_State* L)
  42       {
  43           function_object_impl const* impl =
  44               *(function_object_impl const**)lua_touserdata(L, lua_upvalueindex(1));
  45
  46           invoke_context ctx;
  47
  48           int results = 0;
  49
  50           try
  51           {
  52               results = invoke(
  53                   L, *impl, ctx, impl->f, Signature(), impl->policies);
  54           }
  55           catch (...)
  56           {
  57               handle_exception_aux(L);
  58               lua_error(L);
  59           }
  60
  61           if (!ctx)
  62           {
  63               ctx.format_error(L, impl);
  64               lua_error(L);
  65           }
  66
  67           return results;
  68       }
  69
  70       F f;
  71       Policies policies;
  72   };
  73
  74   LUABIND_API object make_function_aux(
  75       lua_State*, int
  76     , function_object* impl
  77   );
  78
  79   LUABIND_API void add_overload(object const&, char const*, object const&);
  80
  81 } // namespace detail
  82
  83 template <class F, class Signature, class Policies>
  84 object make_function(lua_State* L, F f, Signature, Policies)
  85 {
  86     return detail::make_function_aux(
  87         L
  88       , detail::compute_arity(Signature(), Policies())
  89       , new detail::function_object_impl<F, Signature, Policies>(
  90             f, Policies()
  91         )
  92     );
  93 }
  94
  95 template <class F>
  96 object make_function(lua_State* L, F f)
  97 {
  98     return make_function(L, detail::deduce_signature(f), detail::null_type());
  99 }
 100
 101 } // namespace luabind
 102
 103 #endif // LUABIND_MAKE_FUNCTION_081014_HPP
 104