Method meta_set

components/ScriptModule-LUA/lua_tinker/lua_tinker.cpp:700–740

---------------------------------------------------------------------------*/

/*---------------------------------------------------------------------------*/ 
int lua_tinker::meta_set(lua_State *L)
{
    // stack: 1.类(userdata) 2.变量(string) 3.要赋的值
    lua_getmetatable(L,1);
    // stack: 1.类(userdata) 2.变量(string) 3.要赋的值 4.类meta(table)
    lua_pushvalue(L,2);
    // stack: 1.类(userdata) 2.变量(string) 3.要赋的值 4.类meta(table) 5.变量(string)
    lua_rawget(L,-2);
    // stack: 1.类(userdata) 2.变量(string) 3.要赋的值 4.类meta(table) 5.meta[变量](userdata mem_var指针)

    if(lua_isuserdata(L,-1))
    {
        user2type<var_base*>::invoke(L,-1)->set(L);
        // stack: 1.类(userdata) 2.变量(string) 3.要赋的值 4.类meta(table) 5.meta[变量](userdata mem_var指针)
    }
    else if(lua_isnil(L, -1))
    {
        // stack: 1.类(userdata) 2.变量(string) 3.要赋的值 4.类meta(table) 5.nil
        lua_remove(L,-1);
        // stack: 1.类(userdata) 2.变量(string) 3.要赋的值 4.类meta(table)
        lua_pushvalue(L,2);
        // stack: 1.类(userdata) 2.变量(string) 3.要赋的值 4.类meta(table) 5.变量(string)
        lua_pushvalue(L,4);
        // stack: 1.类(userdata) 2.变量(string) 3.要赋的值 4.类meta(table) 5.变量(string) 6.类meta(table)
        invoke_parent(L);
        // stack: 1.类(userdata) 2.变量(string) 3.要赋的值 4.类meta(table) 5.变量(string) 6.类meta(table) 7.获取到父类的变量(userdata mem_var指针)
        if(lua_isuserdata(L,-1))
        {
            user2type<var_base*>::invoke(L,-1)->set(L);
        }
        else if(lua_isnil(L,-1))
        {
            // stack: 1.类(userdata) 2.变量(string) 3.要赋的值 4.类meta(table) 5.变量(string) 6.类meta(table) 7.nil
            lua_pushfstring(L, "can't find '%s' class variable. (forgot registering class variable ?)", lua_tostring(L, 2));
            lua_error(L);
        }
    }
    lua_settop(L, 3);
    // stack: 1.类(userdata) 2.变量(string) 3.要赋的值
    return 0;
}
/*---------------------------------------------------------------------------*/ 
void lua_tinker::push_meta(lua_State *L, const char* name)
{