1 // Copyright (c) 2004 Daniel Wallin and Arvid Norberg
2
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:
9
10 // The above copyright notice and this permission notice shall be included
11 // in all copies or substantial portions of the Software.
12
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.
22
23 #define N BOOST_PP_ITERATION()
24
25 #define LUABIND_UNWRAP_PARAMETER(z, n, _) \
26 typename detail::unwrap_parameter_type<T, BOOST_PP_CAT(A, n)>::type \
27 BOOST_PP_CAT(_, n)
28
29 template<class Self BOOST_PP_ENUM_TRAILING_PARAMS(N, class A)>
BOOST_PP_CAT(call_operator,N)30 struct BOOST_PP_CAT(call_operator, N)
31 : detail::operator_<
32 BOOST_PP_CAT(call_operator, N)<
33 Self BOOST_PP_ENUM_TRAILING_PARAMS(N, A)
34 >
35 >
36 {
37 BOOST_PP_CAT(call_operator, N)(int) {}
38
39 template<class T, class Policies>
40 struct apply
41 {
42 static void execute(
43 lua_State* L
44 , typename detail::unwrap_parameter_type<T, Self>::type self
45 BOOST_PP_ENUM_TRAILING(N, LUABIND_UNWRAP_PARAMETER, _)
46 )
47 {
48 using namespace detail;
49 operator_result(
50 L
51 , (self(BOOST_PP_ENUM_PARAMS(N, _)), detail::operator_void_return())
52 , (Policies*)0
53 );
54 }
55 };
56
57 static char const* name() { return "__call"; }
58 };
59
60 #undef LUABIND_UNWRAP_PARAMETER
61 #undef N
62