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 #  ifndef LUABIND_CPP0x
  16 #   include <boost/preprocessor/iteration/iterate.hpp>
  17 #   include <boost/preprocessor/iteration/local.hpp>
  18 #   include <boost/preprocessor/repetition/enum_params.hpp>
  19 #   include <boost/preprocessor/repetition/enum_binary_params.hpp>
  20 #  endif
  21
  22 namespace luabind { namespace detail {
  23
  24 inline void inject_backref(lua_State*, void*, void*)
  25 {}
  26
  27 template <class T>
  28 void inject_backref(lua_State* L, T* p, wrap_base*)
  29 {
  30     weak_ref(get_main_thread(L), L, 1).swap(wrap_access::ref(*p));
  31 }
  32
  33 #  ifdef LUABIND_CPP0x
  34
  35 template <class T, class Pointer, class Signature>
  36 struct construct;
  37
  38 template <class T, class Pointer, class R, class Self, class... Args>
  39 struct construct<T, Pointer, vector<R, Self, Args...> >
  40 {
  41     typedef pointer_holder<Pointer, T> holder_type;
  42
  43     void operator()(argument const& self_, Args... args) const
  44     {
  45         object_rep* self = touserdata<object_rep>(self_);
  46
  47         std::auto_ptr<T> instance(new T(args...));
  48         inject_backref(self_.interpreter(), instance.get(), instance.get());
  49
  50         void* naked_ptr = instance.get();
  51         Pointer ptr(instance.release());
  52
  53         void* storage = self->allocate(sizeof(holder_type));
  54
  55         self->set_instance(new (storage) holder_type(
  56             ptr, registered_class<T>::id, naked_ptr));
  57     }
  58 };
  59
  60 #   else // LUABIND_CPP0x
  61
  62 template <std::size_t Arity, class T, class Pointer, class Signature>
  63 struct construct_aux;
  64
  65 template <class T, class Pointer, class Signature>
  66 struct construct
  67   : construct_aux<mpl::size<Signature>::value - 2, T, Pointer, Signature>
  68 {};
  69
  70 template <class T, class Pointer, class Signature>
  71 struct construct_aux<0, T, Pointer, Signature>
  72 {
  73     typedef pointer_holder<Pointer, T> holder_type;
  74
  75     void operator()(argument const& self_) const
  76     {
  77         object_rep* self = touserdata<object_rep>(self_);
  78
  79         std::auto_ptr<T> instance(new T);
  80         inject_backref(self_.interpreter(), instance.get(), instance.get());
  81
  82         void* naked_ptr = instance.get();
  83         Pointer ptr(instance.release());
  84
  85         void* storage = self->allocate(sizeof(holder_type));
  86
  87         self->set_instance(new (storage) holder_type(
  88             ptr, registered_class<T>::id, naked_ptr));
  89     }
  90 };
  91
  92 #  define BOOST_PP_ITERATION_PARAMS_1 \
  93     (3, (1, LUABIND_MAX_ARITY, <luabind/detail/constructor.hpp>))
  94 #  include BOOST_PP_ITERATE()
  95
  96 #  endif // LUABIND_CPP0x
  97
  98 }} // namespace luabind::detail
  99
 100 # endif // LUABIND_DETAIL_CONSTRUCTOR_081018_HPP
 101
 102 #else // !BOOST_PP_IS_ITERATING
 103
 104 # define N BOOST_PP_ITERATION()
 105
 106 template <class T, class Pointer, class Signature>
 107 struct construct_aux<N, T, Pointer, Signature>
 108 {
 109     typedef typename mpl::begin<Signature>::type first;
 110     typedef typename mpl::next<first>::type iter0;
 111
 112 # define BOOST_PP_LOCAL_MACRO(n) \
 113     typedef typename mpl::next< \
 114         BOOST_PP_CAT(iter,BOOST_PP_DEC(n))>::type BOOST_PP_CAT(iter,n); \
 115     typedef typename BOOST_PP_CAT(iter,n)::type BOOST_PP_CAT(a,BOOST_PP_DEC(n));
 116
 117 # define BOOST_PP_LOCAL_LIMITS (1,N)
 118 # include BOOST_PP_LOCAL_ITERATE()
 119
 120     typedef pointer_holder<Pointer, T> holder_type;
 121
 122     void operator()(argument const& self_, BOOST_PP_ENUM_BINARY_PARAMS(N,a,_)) const
 123     {
 124         object_rep* self = touserdata<object_rep>(self_);
 125
 126         std::auto_ptr<T> instance(new T(BOOST_PP_ENUM_PARAMS(N,_)));
 127         inject_backref(self_.interpreter(), instance.get(), instance.get());
 128
 129         void* naked_ptr = instance.get();
 130         Pointer ptr(instance.release());
 131
 132         void* storage = self->allocate(sizeof(holder_type));
 133
 134         self->set_instance(new (storage) holder_type(
 135             ptr, registered_class<T>::id, naked_ptr));
 136     }
 137 };
 138
 139 # undef N
 140
 141 #endif
 142