Liên Kết Đối Tượng C/C++ Với Lua

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

// Tạo userdata chứa con trỏ đối tượng
MyClass* obj = new MyClass();
MyClass** ud = (MyClass**)lua_newuserdata(L, sizeof(MyClass*));
*ud = obj;

// Thiết lập metatable
luaL_newmetatable(L, "MyClassMeta");
lua_pushcfunction(L, my_index_function);  // Hàm __index xử lý phương thức
lua_setfield(L, -2, "__index");
lua_setmetatable(L, -2);

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

// Đẩy lightuserdata vào stack
MyClass* obj = new MyClass();
lua_pushlightuserdata(L, obj);

// Tạo table bọc có metatable
lua_newtable(L);
lua_pushvalue(L, -2);
lua_setfield(L, -2, "__ptr");
luaL_newmetatable(L, "WrapperMeta");
lua_setmetatable(L, -2);

1
2
3
4
5
6

// Hàm finalizer trong metatable
int my_gc_function(lua_State* L) {
    MyClass** ud = (MyClass**)luaL_checkudata(L, 1, "MyClassMeta");
    delete *ud;  // Hủy đối tượng C++ khi Lua không còn dùng
    return 0;
}

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

int script_pushobject(lua_State* L, void* object) {
    void** ud;
    luaL_newmetatable(L, "script");  // Tạo metatable cho đối tượng script

    // Tạo weak table để theo dõi ánh xạ
    lua_newtable(L);
    lua_pushliteral(L, "kv");
    lua_setfield(L, -2, "__mode");
    lua_setmetatable(L, -2);

    // Kiểm tra xem object đã tồn tại chưa
    lua_rawgetp(L, -1, object);
    if (lua_type(L, -1) == LUA_TUSERDATA) {
        ud = (void**)lua_touserdata(L, -1);
        if (*ud == object) {
            lua_replace(L, -2);
            return 0;
        }
        assert(*ud == nullptr);  // Đảm bảo không có xung đột địa chỉ
    }

    // Tạo userdata mới nếu chưa tồn tại
    ud = (void**)lua_newuserdata(L, sizeof(void*));
    *ud = object;
    lua_pushvalue(L, -1);
    lua_rawsetp(L, -4, object);  // Lưu vào weak table
    lua_replace(L, -3);
    lua_pop(L, 1);
    return 1;
}

1
2
3
4
5

void* script_toobject(lua_State* L, int index) {
    void** ud = (void**)lua_touserdata(L, index);
    if (ud == nullptr) return nullptr;
    return *ud;  // Trả về NULL nếu đối tượng đã bị xóa
}

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

void script_deleteobject(lua_State* L, void* object) {
    luaL_getmetatable(L, "script");
    if (lua_istable(L, -1)) {
        lua_rawgetp(L, -1, object);
        if (lua_type(L, -1) == LUA_TUSERDATA) {
            void** ud = (void**)lua_touserdata(L, -1);
            assert(*ud == object);
            *ud = nullptr;  // Đánh dấu đối tượng đã bị hủy
        }
        lua_pop(L, 2);
    } else {
        lua_pop(L, 1);
    }
}