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 #include <luabind/lua_include.hpp>
25 #define LUABIND_BUILDING
27 #include <luabind/luabind.hpp>
28 #include <luabind/class_info.hpp>
29 #include <luabind/function.hpp>
33 void open(lua_State
* L
)
35 // get the global class registry, or create one if it doesn't exist
36 // (it's global within a lua state)
37 detail::class_registry
* r
= 0;
39 // If you hit this assert it's because you have called luabind::open() twice on
40 // the same lua_State.
41 assert((detail::class_registry::get_registry(L
) == 0) && "you cannot call luabind::open() twice");
43 lua_pushstring(L
, "__luabind_classes");
44 r
= static_cast<detail::class_registry
*>(lua_newuserdata(L
, sizeof(detail::class_registry
)));
48 lua_pushstring(L
, "__gc");
49 lua_pushcclosure(L
, detail::garbage_collector_s
<detail::class_registry
>::apply
, 0);
51 lua_setmetatable(L
, -2);
53 new(r
) detail::class_registry(L
);
54 lua_settable(L
, LUA_REGISTRYINDEX
);
56 // add functions (class, cast etc...)
57 lua_pushstring(L
, "class");
58 lua_pushcclosure(L
, detail::create_class::stage1
, 0);
59 lua_settable(L
, LUA_GLOBALSINDEX
);
64 } // namespace luabind