Как реализовать вызов деструктора в lua api?

struct a {
    int x = 10;
    a() { cout << "create object " << this << endl; }//конструктор по умолчанию
 
    void show() { cout << "\nobject - " << this << "\tx = " << x <<"\n\n"; }//вывести значение x на экран.
 
    ~a() { cout << "destory object " << this << endl << endl; }//вызов деструктора.
};
 
int create(lua_State* L) {//    Функция создания объекта структуры.
    a** c = (a**)lua_newuserdata(L, sizeof(a*));/*Эта функция выделяет новый блок памяти с заданным размером,*/
    *c = new a();
    luaL_getmetatable(L, "mt"); /* отправляет в стек метатаблицу значения при заданном приемлемом индексе.*/
    lua_setmetatable(L, -1); //получает таблицу из стека и уст ее в качестве новой метатаблицы для значения с заданным допустимым индексом.
 
return 1;
};
int show(lua_State* L) {
    luaL_getmetatable(L, "mt"); /* отправляет в стек метатаблицу значения при заданном приемлемом индексе.*/
 
    a** st = (a**)lua_touserdata(L, -2);// получаем польз. данные.
    a *b = &**st;
    b->show();// вызов метода.
    return 0;
};
 
int destroy(lua_State* L) {// Функция вызывает деструктор для объекта.
    luaL_getmetatable(L, "mt"); /* отправляет в стек метатаблицу значения при заданном приемлемом индексе.*/
    a* b = (a*)lua_touserdata(L, -2); // получаем польз. данные.
    b->~a();//вызов метода деструктор.
    delete b;
    return 0;
};
 
int main() {
    lua_State* L = luaL_newstate();
    lua_register(L, "create", create );//уст указатель на функцию C++ и создает внутри Lua
    lua_register(L, "show", show); //получает значение из стека и уст значение global name.
    lua_register(L, "__gc", destroy); //получает значение из стека и уст значение global name.
    luaL_dofile(L, "main.lua");// Загружает и запускает заданный файл. файл в которым все происходит.
 
    lua_close(L);// закрыть состояние
    cin.get();//ожидает ввода символа программа завершается.
    return 0;
}

a1 = create()
show(a1)

struct a {
    int x = 10;
    a() { cout << "create object " << this << endl; }//конструктор по умолчанию
 
    void show() { cout << "\nobject - " << this << "\tx = " << x <<"\n\n"; }//вывести значение x на экран.
 
    ~a() { cout << "destory object " << this << endl << endl; }//вызов деструктора.
};
 
int destroy(lua_State* L) {// Функция вызывает деструктор для объекта.
    cout << "destroy " << endl;
    luaL_getmetatable(L, "mt"); /* отправляет в стек метатаблицу значения при заданном приемлемом индексе.*/
    a** st = (a**)lua_touserdata(L, -2); // получаем польз. данные.
    a *b = &**st;
    b->~a();//вызов метода деструктор.
    //delete b;
    return 0;
 
};
int create(lua_State* L) {//    Функция создания объекта структуры.
    luaL_newmetatable(L, "mt");// создать мета таблицу.
    lua_pushstring(L, "__gc");// отправить в стек сборщик мусора.
    lua_pushcfunction(L, destroy);// установить значение ключа, как вызов деструктор.
 
    lua_settable(L, -3);// установить таблицу.
    a** c = (a**)lua_newuserdata(L, sizeof(a*));/*Эта функция выделяет новый блок памяти с заданным размером,*/
    *c = new a();
    luaL_getmetatable(L, "mt"); /* отправляет в стек метатаблицу значения при заданном приемлемом индексе.*/
 
    lua_setmetatable(L, -2); //получает таблицу из стека и уст ее в качестве новой метатаблицы для значения с заданным допустимым индексом.
 
return 1;
};
int show(lua_State* L) {
    luaL_getmetatable(L, "mt"); /* отправляет в стек метатаблицу значения при заданном приемлемом индексе.*/
    a** st = (a**)lua_touserdata(L, -2);// получаем польз. данные.
    a *b = &**st;
    b->show();// вызов метода.   
    return 0;
};
 
int main() {
    lua_State* L = luaL_newstate();
    lua_register(L, "create", create );//уст указатель на функцию C++ и создает внутри Lua
    lua_register(L, "show", show); //получает значение из стека и уст значение global name.
    lua_register(L, "__gc", destroy); //получает значение из стека и уст значение global name.
    luaL_dofile(L, "main.lua");// Загружает и запускает заданный файл. файл в которым все происходит.
 
    lua_close(L);// закрыть состояние
    cin.get();//ожидает ввода символа программа завершается.
    return 0;
}