luabind/detail/constructor.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_DETAIL_CONSTRUCTOR_081018_HPP
   8 #  define LUABIND_DETAIL_CONSTRUCTOR_081018_HPP
   9
  10 #  include <luabind/get_main_thread.hpp>
  11 #  include <luabind/object.hpp>
  12 #  include <luabind/wrapper_base.hpp>
  13 #  include <luabind/detail/inheritance.hpp>
  14
  15 #  include <boost/preprocessor/iteration/iterate.hpp>
  16 #  include <boost/preprocessor/iteration/local.hpp>
  17 #  include <boost/preprocessor/repetition/enum_params.hpp>
  18 #  include <boost/preprocessor/repetition/enum_binary_params.hpp>
  19
  20 namespace luabind { namespace detail {
  21
  22 inline void inject_backref(lua_State*, void*, void*)
  23 {}
  24
  25 template <class T>
  26 void inject_backref(lua_State* L, T* p, wrap_base*)
  27 {
  28     weak_ref(get_main_thread(L), 1).swap(wrap_access::ref(*p));
  29 }
  30
  31 template <std::size_t Arity, class T, class Pointer, class Signature>
  32 struct construct_aux;
  33
  34 template <class T, class Pointer, class Signature>
  35 struct construct
  36   : construct_aux<mpl::size<Signature>::value - 2, T, Pointer, Signature>
  37 {};
  38
  39 template <class T, class Pointer, class Signature>
  40 struct construct_aux<0, T, Pointer, Signature>
  41 {
  42     typedef pointer_holder<Pointer, T> holder_type;
  43
  44     void operator()(argument const& self_) const
  45     {
  46         object_rep* self = touserdata<object_rep>(self_);
  47
  48         std::auto_ptr<T> instance(new T);
  49         inject_backref(self_.interpreter(), instance.get(), instance.get());
  50
  51         void* naked_ptr = instance.get();
  52         Pointer ptr(instance.release());
  53
  54         void* storage = self->allocate(sizeof(holder_type));
  55
  56         self->set_instance(new (storage) holder_type(
  57             ptr, registered_class<T>::id, naked_ptr));
  58     }
  59 };
  60
  61 #  define BOOST_PP_ITERATION_PARAMS_1 \
  62     (3, (1, LUABIND_MAX_ARITY, <luabind/detail/constructor.hpp>))
  63 #  include BOOST_PP_ITERATE()
  64
  65 }} // namespace luabind::detail
  66
  67 # endif // LUABIND_DETAIL_CONSTRUCTOR_081018_HPP
  68
  69 #else // !BOOST_PP_IS_ITERATING
  70
  71 # define N BOOST_PP_ITERATION()
  72
  73 template <class T, class Pointer, class Signature>
  74 struct construct_aux<N, T, Pointer, Signature>
  75 {
  76     typedef typename mpl::begin<Signature>::type first;
  77     typedef typename mpl::next<first>::type iter0;
  78
  79 # define BOOST_PP_LOCAL_MACRO(n) \
  80     typedef typename mpl::next< \
  81         BOOST_PP_CAT(iter,BOOST_PP_DEC(n))>::type BOOST_PP_CAT(iter,n); \
  82     typedef typename BOOST_PP_CAT(iter,n)::type BOOST_PP_CAT(a,BOOST_PP_DEC(n));
  83
  84 # define BOOST_PP_LOCAL_LIMITS (1,N)
  85 # include BOOST_PP_LOCAL_ITERATE()
  86
  87     typedef pointer_holder<Pointer, T> holder_type;
  88
  89     void operator()(argument const& self_, BOOST_PP_ENUM_BINARY_PARAMS(N,a,_)) const
  90     {
  91         object_rep* self = touserdata<object_rep>(self_);
  92
  93         std::auto_ptr<T> instance(new T(BOOST_PP_ENUM_PARAMS(N,_)));
  94         inject_backref(self_.interpreter(), instance.get(), instance.get());
  95
  96         void* naked_ptr = instance.get();
  97         Pointer ptr(instance.release());
  98
  99         void* storage = self->allocate(sizeof(holder_type));
 100
 101         self->set_instance(new (storage) holder_type(
 102             ptr, registered_class<T>::id, naked_ptr));
 103     }
 104 };
 105
 106 #endif
 107