lua监听内存释放

lua代码：

local dog = Dog.New()

dog:eat();

dog=nil;

collectgarbage()

c代码：

#include "stdafx.h"

#include "stdlib.h"

#include "string.h"

extern "C"

{

#include "lua.h"

#include "lauxlib.h"

#include "lualib.h"

}

#define MAX_PATH 260

 

class dog

{

public:

    dog()

    {

        printf("constroctor\n");

        memset(sName,0,MAX_PATH);

        strcpy(sName,"Kaer");

    }

    void init()

    {

        printf("init\n");

        memset(sName,0,MAX_PATH);

        strcpy(sName,"Kaer");

    }

    void  eat()

    {

        printf("%s eat\n",sName);

    }

    static int eat_api(lua_State *L)

    {

        dog *pDog = (dog*)lua_touserdata(L,-1);

        pDog->eat();

        return 0;

    }

    static int delete_dog(lua_State * L)

    {

        printf("dog is going to be deleted\n");

        return 0;

    }

    static int NewDog(lua_State * L)

    {

        void *pMemory = lua_newuserdata(L,sizeof(dog));

    //    new(pMemory)dog;

        //上面申请内存不会调用构造函数，因此我们这里给他调用初始化函数

        dog *pDog = (dog*)pMemory;

        pDog->init();

        luaL_getmetatable(L,"Dog_Metetable");

        lua_setmetatable(L,-2);

        return 1;

    }

    static int Export(lua_State * L)

    {

        luaL_Reg api_c[] = {

              {"New",NewDog},     //可以只是将new放在这个里面，其他的注册在元表中

            {NULL,NULL}

        };

        luaL_register(L,"Dog",api_c);

 

        //设置元表

        luaL_newmetatable(L,"Dog_Metetable");

        //将申请的在栈顶的metatable复制一份放在栈顶

    

        lua_pushvalue(L,-1);

        //将值设置到table中，并将上面的value出栈

        lua_setfield(L,-2,"__index");

        luaL_Reg  api_m[] = {

             {"eat", eat_api},

            {NULL,NULL}

        };

        //这个NULL，表示栈顶的元表

        luaL_register(L,NULL,api_m);

        //设置垃圾回收提示

        lua_pushcfunction(L, delete_dog);

        lua_setfield(L,-2,"__gc");

 

        return 0;

    }

public:

    char sName[MAX_PATH];

};

 

int _tmain(int argc, _TCHAR* argv[])

{

     lua_State *L =  luaL_newstate();

     luaL_openlibs(L);

 

     //注册导出类

     lua_pushcfunction(L,dog::Export);

     lua_pcall(L,0,0,0);

        

     if(0 != luaL_dofile(L,"helloworld.lua"))

     {

         printf("%s",lua_tostring(L,-1));

     }

    system("pause");

    return 0;

}