luabind/detail/format_signature.hpp

   1 // Copyright Daniel Wallin 2008. Use, modification and distribution is
   2 // subject to the Boost Software License, Version 1.0. (See accompanying
   3 // file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
   4
   5 #ifndef LUABIND_FORMAT_SIGNATURE_081014_HPP
   6 # define LUABIND_FORMAT_SIGNATURE_081014_HPP
   7
   8 # include <luabind/config.hpp>
   9 # include <luabind/lua_include.hpp>
  10 # include <luabind/typeid.hpp>
  11
  12 # include <boost/mpl/begin_end.hpp>
  13 # include <boost/mpl/next.hpp>
  14 # include <boost/mpl/size.hpp>
  15
  16 namespace luabind {
  17
  18 class object;
  19 class argument;
  20 template <class Base>
  21 struct table;
  22
  23 } // namespace luabind
  24
  25 namespace luabind { namespace detail {
  26
  27 LUABIND_API std::string get_class_name(lua_State* L, type_id const& i);
  28
  29 template <class T>
  30 struct type_to_string
  31 {
  32     static void get(lua_State* L)
  33     {
  34         lua_pushstring(L, get_class_name(L, typeid(T)).c_str());
  35     }
  36 };
  37
  38 template <class T>
  39 struct type_to_string<T*>
  40 {
  41     static void get(lua_State* L)
  42     {
  43         type_to_string<T>::get(L);
  44         lua_pushstring(L, "*");
  45         lua_concat(L, 2);
  46     }
  47 };
  48
  49 template <class T>
  50 struct type_to_string<T&>
  51 {
  52     static void get(lua_State* L)
  53     {
  54         type_to_string<T>::get(L);
  55         lua_pushstring(L, "&");
  56         lua_concat(L, 2);
  57     }
  58 };
  59
  60 template <class T>
  61 struct type_to_string<T const>
  62 {
  63     static void get(lua_State* L)
  64     {
  65         type_to_string<T>::get(L);
  66         lua_pushstring(L, " const");
  67         lua_concat(L, 2);
  68     }
  69 };
  70
  71 # define LUABIND_TYPE_TO_STRING(x) \
  72     template <> \
  73     struct type_to_string<x> \
  74     { \
  75         static void get(lua_State* L) \
  76         { \
  77             lua_pushstring(L, #x); \
  78         } \
  79     };
  80
  81 # define LUABIND_INTEGRAL_TYPE_TO_STRING(x) \
  82     LUABIND_TYPE_TO_STRING(x) \
  83     LUABIND_TYPE_TO_STRING(unsigned x)
  84
  85 LUABIND_INTEGRAL_TYPE_TO_STRING(char)
  86 LUABIND_INTEGRAL_TYPE_TO_STRING(short)
  87 LUABIND_INTEGRAL_TYPE_TO_STRING(int)
  88 LUABIND_INTEGRAL_TYPE_TO_STRING(long)
  89
  90 LUABIND_TYPE_TO_STRING(void)
  91 LUABIND_TYPE_TO_STRING(bool)
  92 LUABIND_TYPE_TO_STRING(std::string)
  93 LUABIND_TYPE_TO_STRING(lua_State)
  94
  95 LUABIND_TYPE_TO_STRING(luabind::object)
  96 LUABIND_TYPE_TO_STRING(luabind::argument)
  97
  98 # undef LUABIND_INTEGRAL_TYPE_TO_STRING
  99 # undef LUABIND_TYPE_TO_STRING
 100
 101 template <class Base>
 102 struct type_to_string<table<Base> >
 103 {
 104     static void get(lua_State* L)
 105     {
 106         lua_pushstring(L, "table");
 107     }
 108 };
 109
 110 template <class End>
 111 void format_signature_aux(lua_State*, bool, End, End)
 112 {}
 113
 114 template <class Iter, class End>
 115 void format_signature_aux(lua_State* L, bool first, Iter, End end)
 116 {
 117     if (!first)
 118         lua_pushstring(L, ",");
 119     type_to_string<typename Iter::type>::get(L);
 120     format_signature_aux(L, false, typename mpl::next<Iter>::type(), end);
 121 }
 122
 123 template <class Signature>
 124 void format_signature(lua_State* L, char const* function, Signature)
 125 {
 126     typedef typename mpl::begin<Signature>::type first;
 127
 128     type_to_string<typename first::type>::get(L);
 129
 130     lua_pushstring(L, " ");
 131     lua_pushstring(L, function);
 132
 133     lua_pushstring(L, "(");
 134     format_signature_aux(
 135         L
 136       , true
 137       , typename mpl::next<first>::type()
 138       , typename mpl::end<Signature>::type()
 139     );
 140     lua_pushstring(L, ")");
 141
 142     lua_concat(L, mpl::size<Signature>() * 2 + 2);
 143 }
 144
 145 }} // namespace luabind::detail
 146
 147 #endif // LUABIND_FORMAT_SIGNATURE_081014_HPP
 148