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.
23 #define LUABIND_BUILDING
25 #include <luabind/lua_include.hpp>
27 #include <luabind/luabind.hpp>
29 using namespace luabind::detail
;
31 std::string
luabind::detail::stack_content_by_name(lua_State
* L
, int start_index
)
34 int top
= lua_gettop(L
);
35 for (int i
= start_index
; i
<= top
; ++i
)
37 object_rep
* obj
= is_class_object(L
, i
);
38 class_rep
* crep
= is_class_rep(L
, i
)?(class_rep
*)lua_touserdata(L
, i
):0;
39 if (obj
== 0 && crep
== 0)
41 int type
= lua_type(L
, i
);
42 ret
+= lua_typename(L
, type
);
46 if (obj
->flags() & object_rep::constant
) ret
+= "const ";
47 ret
+= obj
->crep()->name();
55 if (i
< top
) ret
+= ", ";