Function get_weak_table

Source/Misc/luabind/src/weak_ref.cpp:41–62

    void get_weak_table(lua_State* L)
    {
        lua_rawgetp(L, LUA_REGISTRYINDEX, &weak_table_tag);

        if (lua_isnil(L, -1))
        {
            lua_pop(L, 1);
            lua_newtable(L);
            // metatable
            lua_createtable(L, 0, 1); // One non-sequence entry for __mode.
            lua_pushliteral(L, "__mode");
            lua_pushliteral(L, "v");
            lua_rawset(L, -3);
            // set metatable
            lua_setmetatable(L, -2);

            lua_pushvalue(L, -1);
            lua_rawsetp(L, LUA_REGISTRYINDEX, &weak_table_tag);

        }

    }

    void get_impl_table(lua_State* L)
    {