Function push_instance_metatable

Source/Misc/luabind/src/object_rep.cpp:264–302

    } // namespace unnamed

    LUABIND_API void push_instance_metatable(lua_State* L)
    {
        // One sequence entry for the tag, 4 non-sequence entries for
        // __gc, __index, __newindex and __metatable and
        // one more for each operator.
        lua_createtable(L, 1, 4 + number_of_operators);

        // This is used as a tag to determine if a userdata is a luabind
        // instance. We use a numeric key and a cclosure for fast comparision.
        lua_pushcfunction(L, get_instance_value);
        lua_rawseti(L, -2, 1);

        lua_pushliteral(L, "__gc");
        lua_pushcfunction(L, destroy_instance);
        lua_rawset(L, -3);

        lua_pushliteral(L, "__index");
        lua_pushcfunction(L, get_instance_value);
        lua_rawset(L, -3);

        lua_pushliteral(L, "__newindex");
        lua_pushcfunction(L, set_instance_value);
        lua_rawset(L, -3);

        // Direct calls to metamethods cannot be allowed, because the
        // callee trusts the caller to pass arguments of the right type.
        lua_pushliteral(L, "__metatable");
        lua_pushboolean(L, true);
        lua_rawset(L, -3);

        for (int op = 0; op < number_of_operators; ++op)
        {
            lua_pushstring(L, get_operator_name(op));
            lua_pushvalue(L, -1);
            lua_pushboolean(L, op == op_unm || op == op_len); // Unary?
            lua_pushcclosure(L, &dispatch_operator, 2);
            lua_rawset(L, -3);
        }
    }

    LUABIND_API object_rep* get_instance(lua_State* L, int index)
    {