1 // Copyright (c) 2003 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>
25 #include <luabind/operator.hpp>
28 struct operator_tester
: counted_type
<operator_tester
>
30 int operator+(int a
) const
40 float operator()() const
45 float operator()(int a
) const
50 float operator()(int a
)
56 float operator*(operator_tester
const& lhs
, operator_tester
const& rhs
)
61 std::string
operator*(operator_tester
const&, int v
)
63 return "(operator_tester, int) overload";
66 int operator+(int a
, const operator_tester
&)
71 struct operator_tester2
: counted_type
<operator_tester2
>
75 int operator+(const operator_tester
&, const operator_tester2
&)
80 struct operator_tester3
: operator_tester
, counted_type
<operator_tester3
> {};
82 std::ostream
& operator<<(std::ostream
& os
, const operator_tester
&)
84 os
<< "operator_tester"; return os
;
89 bool operator==(op_test1
const& rhs
) const { return true; }
92 struct op_test2
: public op_test1
94 bool operator==(op_test2
const& rhs
) const { return true; }
97 COUNTER_GUARD(operator_tester
);
98 COUNTER_GUARD(operator_tester2
);
99 COUNTER_GUARD(operator_tester3
);
101 void test_main(lua_State
* L
)
103 using namespace luabind
;
107 class_
<operator_tester
>("operator_tester")
108 .def(constructor
<>())
109 .def(tostring(const_self
))
111 .def(other
<int>() + self
)
113 .def(self
+ other
<operator_tester2
&>())
115 .def(const_self(int()))
117 .def(tostring(const_self
))
118 // .def(const_self * other<operator_tester const&>())
119 .def(const_self
* const_self
)
120 .def(const_self
* other
<int>()),
121 // .def("clone", &clone, adopt(return_value)),
123 class_
<operator_tester2
>("operator_tester2")
124 .def(constructor
<>())
125 .def(other
<const operator_tester
&>() + self
),
127 class_
<operator_tester3
, operator_tester
>("operator_tester3")
128 .def(constructor
<>()),
130 class_
<op_test1
>("op_test1")
131 .def(constructor
<>())
132 .def(const_self
== const_self
),
134 class_
<op_test2
, op_test1
>("op_test2")
135 .def(constructor
<>())
139 DOSTRING(L
, "test = operator_tester()");
140 DOSTRING(L
, "test2 = operator_tester2()");
141 DOSTRING(L
, "test3 = operator_tester3()");
143 DOSTRING(L
, "assert(tostring(test) == 'operator_tester')");
145 DOSTRING(L
, "assert(test() == 3.5)");
146 DOSTRING(L
, "assert(test(5) == 2.5 + 5)");
148 DOSTRING(L
, "assert(-test == 46)");
149 DOSTRING(L
, "assert(test * test == 35)");
150 DOSTRING(L
, "assert(test * 3 == '(operator_tester, int) overload')")
151 DOSTRING(L
, "assert(test + test2 == 73)");
152 DOSTRING(L
, "assert(2 + test == 2 + 2)");
153 DOSTRING(L
, "assert(test + 2 == 1 + 2)");
154 DOSTRING(L
, "assert(test3 + 6 == 1 + 6)");
155 DOSTRING(L
, "assert(test3 + test2 == 73)");
156 // DOSTRING(L, "assert(tostring(test) == 'operator_tester')");
160 "function my_class:__add(lhs)\n"
161 " return my_class(self.val + lhs.val)\n"
163 "function my_class:__init(a)\n"
166 "function my_class:__sub(v)\n"
167 " if (type(self) == 'number') then\n"
168 " return my_class(self - v.val)\n"
169 " elseif (type(v) == 'number') then\n"
170 " return my_class(self.val - v)\n"
172 " return my_class(self.val - v.val)\n"
183 DOSTRING(L
, "assert(c.val == 10)");
184 DOSTRING(L
, "assert(d.val == 2)");