test/test_adopt_wrapper.cpp

   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 #include "test.hpp"
   6 #include <luabind/luabind.hpp>
   7 #include <luabind/adopt_policy.hpp>
   8
   9 struct X
  10 {
  11     virtual ~X()
  12     {}
  13 };
  14
  15 struct X_wrap : X, luabind::wrap_base
  16 {};
  17
  18 X* make()
  19 {
  20     return new X;
  21 }
  22
  23 void take(X* p)
  24 {
  25     delete p;
  26 }
  27
  28 void test_main(lua_State* L)
  29 {
  30     using namespace luabind;
  31
  32     module(L) [
  33         class_<X, X_wrap>("X"),
  34         def("make", &make, adopt(result)),
  35         def("take", &take, adopt(_1))
  36     ];
  37
  38     DOSTRING(L,
  39         "take(make())\n"
  40     );
  41 }