1 // Copyright (c) 2004 Daniel Wallin and Arvid Norberg
3 // Permission is hereby granted, free of charge, to any person obtaining a
4 // copy of this software and associated documentation files (the "Software"),
5 // to deal in the Software without restriction, including without limitation
6 // the rights to use, copy, modify, merge, publish, distribute, sublicense,
7 // and/or sell copies of the Software, and to permit persons to whom the
8 // Software is furnished to do so, subject to the following conditions:
10 // The above copyright notice and this permission notice shall be included
11 // in all copies or substantial portions of the Software.
13 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF
14 // ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
15 // TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
16 // PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT
17 // SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
18 // ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
19 // ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
20 // OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE
21 // OR OTHER DEALINGS IN THE SOFTWARE.
24 #include <luabind/luabind.hpp>
28 struct property_test
: counted_type
<property_test
>
30 property_test(): o(6) {}
36 void set(int a
) { a_
= a
; }
37 int get() const { return a_
; }
39 void set_str(const char* str
)
42 const char* get_str() const
43 { return str_
.c_str(); }
46 void free_setter(property_test
& p
, int a
)
49 int free_getter(const property_test
& p
)
52 } // namespace unnamed
54 void test_attributes()
56 COUNTER_GUARD(property_test
);
60 using namespace luabind
;
64 class_
<property_test
>("property")
65 .def(luabind::constructor
<>())
66 .def("get", &property_test::get
)
67 .property("a", &property_test::get
, &property_test::set
)
69 "str", &property_test::get_str
, &property_test::set_str
)
70 .def_readonly("o", &property_test::o
)
71 .property("free", &free_getter
, &free_setter
)
74 DOSTRING(L
, "test = property()\n");
78 "assert(test.a == 5)");
80 DOSTRING(L
, "assert(test.o == 6)");
83 "test.str = 'foobar'\n"
84 "assert(test.str == 'foobar')\n");
88 "assert(test.free == 6)\n");