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>
29 struct operator_tester
: counted_type
<operator_tester
>
31 int operator+(int a
) const
41 float operator()() const
46 float operator()(int a
) const
51 float operator()(int a
)
58 int operator+(int a
, const operator_tester
&)
63 struct operator_tester2
: counted_type
<operator_tester2
>
67 int operator+(const operator_tester
&, const operator_tester2
&)
72 struct operator_tester3
: operator_tester
, counted_type
<operator_tester3
> {};
74 std::ostream
& operator<<(std::ostream
& os
, const operator_tester
&)
76 os
<< "operator_tester"; return os
;
81 bool operator==(op_test1
const& rhs
) const { return true; }
84 struct op_test2
: public op_test1
86 bool operator==(op_test2
const& rhs
) const { return true; }
89 } // anonymous namespace
93 COUNTER_GUARD(operator_tester
);
94 COUNTER_GUARD(operator_tester2
);
95 COUNTER_GUARD(operator_tester3
);
99 using namespace luabind
;
103 class_
<operator_tester
>("operator_tester")
104 .def(constructor
<>())
105 .def(tostring(const_self
))
107 .def(other
<int>() + self
)
109 .def(self
+ other
<operator_tester2
&>())
111 .def(const_self(int()))
113 // .def("clone", &clone, adopt(return_value)),
115 class_
<operator_tester2
>("operator_tester2")
116 .def(constructor
<>())
117 .def(other
<const operator_tester
&>() + self
),
119 class_
<operator_tester3
, operator_tester
>("operator_tester3")
120 .def(constructor
<>()),
122 class_
<op_test1
>("op_test1")
123 .def(constructor
<>())
124 .def(const_self
== const_self
),
126 class_
<op_test2
, op_test1
>("op_test2")
127 .def(constructor
<>())
131 DOSTRING(L
, "test = operator_tester()");
132 DOSTRING(L
, "test2 = operator_tester2()");
133 DOSTRING(L
, "test3 = operator_tester3()");
135 DOSTRING(L
, "assert(test() == 3.5)");
136 DOSTRING(L
, "assert(test(5) == 2.5 + 5)");
138 DOSTRING(L
, "assert(-test == 46)");
139 DOSTRING(L
, "assert(test + test2 == 73)");
140 DOSTRING(L
, "assert(2 + test == 2 + 2)");
141 DOSTRING(L
, "assert(test + 2 == 1 + 2)");
142 DOSTRING(L
, "assert(test3 + 6 == 1 + 6)");
143 DOSTRING(L
, "assert(test3 + test2 == 73)");
144 // DOSTRING(L, "assert(tostring(test) == 'operator_tester')");
148 "function my_class:__add(lhs)\n"
149 " return my_class(self.val + lhs.val)\n"
151 "function my_class:__init(a)\n"
154 "function my_class:__sub(v)\n"
155 " if (type(self) == 'number') then\n"
156 " return my_class(self - v.val)\n"
157 " elseif (type(v) == 'number') then\n"
158 " return my_class(self.val - v)\n"
160 " return my_class(self.val - v.val)\n"
171 DOSTRING(L
, "assert(c.val == 10)");
172 DOSTRING(L
, "assert(d.val == 2)");