// Copyright (c) 2003 Daniel Wallin and Arvid Norberg
// Permission is hereby granted, free of charge, to any person obtaining a
// copy of this software and associated documentation files (the "Software"),
// to deal in the Software without restriction, including without limitation
// the rights to use, copy, modify, merge, publish, distribute, sublicense,
// and/or sell copies of the Software, and to permit persons to whom the
// Software is furnished to do so, subject to the following conditions:
// The above copyright notice and this permission notice shall be included
// in all copies or substantial portions of the Software.
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF
// ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
// TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
// PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT
// SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
// ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
// ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE
// OR OTHER DEALINGS IN THE SOFTWARE.
#ifndef LUABIND_NO_ERROR_CHECKING
#if !BOOST_PP_IS_ITERATING
#ifndef LUABIND_GET_SIGNATURE_HPP_INCLUDED
#define LUABIND_GET_SIGNATURE_HPP_INCLUDED
#include <boost/config.hpp>
#include <boost/preprocessor/repeat.hpp>
#include <boost/preprocessor/iteration/iterate.hpp>
#include <boost/preprocessor/repetition/enum.hpp>
#include <boost/preprocessor/repetition/enum_params.hpp>
#include <boost/preprocessor/punctuation/comma_if.hpp>
#include <boost/preprocessor/cat.hpp>
#include <luabind/config.hpp>
#include <luabind/detail/signature_match.hpp>
namespace luabind { namespace detail
{
static std::string get_class_name(lua_State* L, LUABIND_TYPE_INFO i)
{
std::string ret;
class_registry* r = class_registry::get_registry(L);
class_rep* crep = r->find_class(i);
if (crep == 0)
{
ret = "custom";
}
else
{
if (LUABIND_TYPE_INFO_EQUAL(i, crep->holder_type()))
{
ret += "smart_ptr<";
ret += crep->name();
ret += ">";
}
else if (LUABIND_TYPE_INFO_EQUAL(i, crep->const_holder_type()))
{
ret += "smart_ptr<const ";
ret += crep->name();
ret += ">";
}
else
{
ret += crep->name();
}
}
return ret;
};
template<class T>
std::string name_of_type(by_value<T>, lua_State* L) { return get_class_name(L, LUABIND_TYPEID(T)); };
template<class T>
std::string name_of_type(by_reference<T>, lua_State* L) { return name_of_type(LUABIND_DECORATE_TYPE(T), L) + "&"; };
template<class T>
std::string name_of_type(by_pointer<T>, lua_State* L) { return name_of_type(LUABIND_DECORATE_TYPE(T), L) + "*"; };
template<class T>
std::string name_of_type(by_const_reference<T>, lua_State* L) { return "const " + name_of_type(LUABIND_DECORATE_TYPE(T), L) + "&"; };
template<class T>
std::string name_of_type(by_const_pointer<T>, lua_State* L) { return "const " + name_of_type(LUABIND_DECORATE_TYPE(T), L) + "*"; };
inline std::string name_of_type(by_value<luabind::object>, lua_State*) { return "object"; };
inline std::string name_of_type(by_const_reference<luabind::object>, lua_State*) { return "object"; };
inline std::string name_of_type(by_value<bool>, lua_State*) { return "boolean"; }
inline std::string name_of_type(by_value<char>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<short>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<int>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<long>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<unsigned char>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<unsigned short>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<unsigned int>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<unsigned long>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<const bool>, lua_State*) { return "boolean"; }
inline std::string name_of_type(by_value<const char>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<const short>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<const int>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<const long>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<const unsigned char>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<const unsigned short>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<const unsigned int>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<const unsigned long>, lua_State*) { return "number"; }
inline std::string name_of_type(by_value<std::string>, lua_State*) { return "string"; }
inline std::string name_of_type(by_const_pointer<char>, lua_State*) { return "string"; }
template<class T>
struct type_name_unless_void
{
inline static void apply(std::string& s, lua_State* L, bool first)
{
if (!first) s += ", ";
s += name_of_type(LUABIND_DECORATE_TYPE(T), L);
}
};
template<>
struct type_name_unless_void<null_type>
{
inline static void apply(std::string&, lua_State*, bool) {}
};
#define LUABIND_ADD_LUA_TYPE_NAME(z, n, _) type_name_unless_void<BOOST_PP_CAT(A, BOOST_PP_INC(n))>::apply(s, L, false);
#define BOOST_PP_ITERATION_PARAMS_1 (4, (0, LUABIND_MAX_ARITY, <luabind/detail/get_signature.hpp>, 1))
#include BOOST_PP_ITERATE()
template<class F>
struct get_member_signature
{
static inline void apply(lua_State* L, std::string& s)
{
get_member_signature_impl(static_cast<F>(0), L, s);
}
};
template<class F>
struct get_free_function_signature
{
static inline void apply(lua_State* L, std::string& s)
{
get_free_function_signature_impl(static_cast<F>(0), L, s);
}
};
template<class Sig>
struct get_signature
{
static inline void apply(lua_State* L, std::string& s)
{
get_signature_impl(static_cast<const Sig*>(0), L, s);
}
};
template<BOOST_PP_ENUM_PARAMS(LUABIND_MAX_ARITY, class A)>
inline void get_signature_impl(const constructor<BOOST_PP_ENUM_PARAMS(LUABIND_MAX_ARITY, A)>*, lua_State* L, std::string& s)
{
s += "(";
type_name_unless_void<A0>::apply(s, L, true);
BOOST_PP_REPEAT(BOOST_PP_DEC(LUABIND_MAX_ARITY), LUABIND_ADD_LUA_TYPE_NAME, _)
s += ")";
}
#undef LUABIND_ADD_LUA_TYPE_NAME
}}
#endif // LUABIND_GET_SIGNATURE_HPP_INCLUDED
#elif BOOST_PP_ITERATION_FLAGS() == 1
// member functions
template<class T, class C BOOST_PP_COMMA_IF(BOOST_PP_ITERATION()) BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), class A)>
inline void get_member_signature_impl(T(C::*)(BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), A)), lua_State* L, std::string& s)
{
s += "(";
#if BOOST_PP_ITERATION() > 0
s += name_of_type(LUABIND_DECORATE_TYPE(A0), L);
BOOST_PP_REPEAT(BOOST_PP_DEC(BOOST_PP_ITERATION()), LUABIND_ADD_LUA_TYPE_NAME, _)
#endif
s += ")";
}
template<class T, class C BOOST_PP_COMMA_IF(BOOST_PP_ITERATION()) BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), class A)>
inline void get_member_signature_impl(T(C::*)(BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), A)) const, lua_State* L, std::string& s)
{
s += "(";
#if BOOST_PP_ITERATION() > 0
s += name_of_type(LUABIND_DECORATE_TYPE(A0), L);
BOOST_PP_REPEAT(BOOST_PP_DEC(BOOST_PP_ITERATION()), LUABIND_ADD_LUA_TYPE_NAME, _)
#endif
s += ") const";
}
template<class T, class C BOOST_PP_COMMA_IF(BOOST_PP_ITERATION()) BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), class A)>
inline void get_member_signature_impl(T(*)(C* obj BOOST_PP_COMMA_IF(BOOST_PP_ITERATION()) BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), A)), lua_State* L, std::string& s)
{
s += "(";
#if BOOST_PP_ITERATION() > 0
s += name_of_type(LUABIND_DECORATE_TYPE(A0), L);
BOOST_PP_REPEAT(BOOST_PP_DEC(BOOST_PP_ITERATION()), LUABIND_ADD_LUA_TYPE_NAME, _)
#endif
s += ")";
}
template<class T, class C BOOST_PP_COMMA_IF(BOOST_PP_ITERATION()) BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), class A)>
inline void get_member_signature_impl(T(*f)(const C* obj BOOST_PP_COMMA_IF(BOOST_PP_ITERATION()) BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), A)), lua_State* L, std::string& s)
{
s += "(";
#if BOOST_PP_ITERATION() > 0
s += name_of_type(LUABIND_DECORATE_TYPE(A0), L);
BOOST_PP_REPEAT(BOOST_PP_DEC(BOOST_PP_ITERATION()), LUABIND_ADD_LUA_TYPE_NAME, _)
#endif
s += ") const";
}
template<class T, class C BOOST_PP_COMMA_IF(BOOST_PP_ITERATION()) BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), class A)>
inline void get_member_signature_impl(T(*f)(C& obj BOOST_PP_COMMA_IF(BOOST_PP_ITERATION()) BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), A)), lua_State* L, std::string& s)
{
s += "(";
#if BOOST_PP_ITERATION() > 0
s += name_of_type(LUABIND_DECORATE_TYPE(A0), L);
BOOST_PP_REPEAT(BOOST_PP_DEC(BOOST_PP_ITERATION()), LUABIND_ADD_LUA_TYPE_NAME, _)
#endif
s += ")";
}
template<class T, class C BOOST_PP_COMMA_IF(BOOST_PP_ITERATION()) BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), class A)>
inline void get_member_signature_impl(T(*f)(const C& obj BOOST_PP_COMMA_IF(BOOST_PP_ITERATION()) BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), A)), lua_State* L, std::string& s)
{
s += "(";
#if BOOST_PP_ITERATION() > 0
s += name_of_type(LUABIND_DECORATE_TYPE(A0), L);
BOOST_PP_REPEAT(BOOST_PP_DEC(BOOST_PP_ITERATION()), LUABIND_ADD_LUA_TYPE_NAME, _)
#endif
s += ") const";
}
// free functions
template<class T BOOST_PP_COMMA_IF(BOOST_PP_ITERATION()) BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), class A)>
inline void get_free_function_signature_impl(T(*f)(BOOST_PP_ENUM_PARAMS(BOOST_PP_ITERATION(), A)), lua_State* L, std::string& s)
{
s += "(";
#if BOOST_PP_ITERATION() > 0
s += name_of_type(LUABIND_DECORATE_TYPE(A0), L);
BOOST_PP_REPEAT(BOOST_PP_DEC(BOOST_PP_ITERATION()), LUABIND_ADD_LUA_TYPE_NAME, _)
#endif
s += ")";
}
#endif
#endif // LUABIND_NO_ERROR_CHECKING