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
)
57 int operator+(int a
, const operator_tester
&)
62 struct operator_tester2
: counted_type
<operator_tester2
>
66 int operator+(const operator_tester
&, const operator_tester2
&)
71 struct operator_tester3
: operator_tester
, counted_type
<operator_tester3
> {};
73 std::ostream
& operator<<(std::ostream
& os
, const operator_tester
&)
75 os
<< "operator_tester"; return os
;
80 bool operator==(op_test1
const& rhs
) const { return true; }
83 struct op_test2
: public op_test1
85 bool operator==(op_test2
const& rhs
) const { return true; }
88 COUNTER_GUARD(operator_tester
);
89 COUNTER_GUARD(operator_tester2
);
90 COUNTER_GUARD(operator_tester3
);
92 void test_main(lua_State
* L
)
94 using namespace luabind
;
98 class_
<operator_tester
>("operator_tester")
100 .def(tostring(const_self
))
102 .def(other
<int>() + self
)
104 .def(self
+ other
<operator_tester2
&>())
106 .def(const_self(int()))
108 .def(tostring(const_self
)),
109 // .def("clone", &clone, adopt(return_value)),
111 class_
<operator_tester2
>("operator_tester2")
112 .def(constructor
<>())
113 .def(other
<const operator_tester
&>() + self
),
115 class_
<operator_tester3
, operator_tester
>("operator_tester3")
116 .def(constructor
<>()),
118 class_
<op_test1
>("op_test1")
119 .def(constructor
<>())
120 .def(const_self
== const_self
),
122 class_
<op_test2
, op_test1
>("op_test2")
123 .def(constructor
<>())
127 DOSTRING(L
, "test = operator_tester()");
128 DOSTRING(L
, "test2 = operator_tester2()");
129 DOSTRING(L
, "test3 = operator_tester3()");
131 DOSTRING(L
, "assert(tostring(test) == 'operator_tester')");
133 DOSTRING(L
, "assert(test() == 3.5)");
134 DOSTRING(L
, "assert(test(5) == 2.5 + 5)");
136 DOSTRING(L
, "assert(-test == 46)");
137 DOSTRING(L
, "assert(test + test2 == 73)");
138 DOSTRING(L
, "assert(2 + test == 2 + 2)");
139 DOSTRING(L
, "assert(test + 2 == 1 + 2)");
140 DOSTRING(L
, "assert(test3 + 6 == 1 + 6)");
141 DOSTRING(L
, "assert(test3 + test2 == 73)");
142 // DOSTRING(L, "assert(tostring(test) == 'operator_tester')");
146 "function my_class:__add(lhs)\n"
147 " return my_class(self.val + lhs.val)\n"
149 "function my_class:__init(a)\n"
152 "function my_class:__sub(v)\n"
153 " if (type(self) == 'number') then\n"
154 " return my_class(self - v.val)\n"
155 " elseif (type(v) == 'number') then\n"
156 " return my_class(self.val - v)\n"
158 " return my_class(self.val - v.val)\n"
169 DOSTRING(L
, "assert(c.val == 10)");
170 DOSTRING(L
, "assert(d.val == 2)");