//这样在调用对象函数时，NumArray*a=(NumArray*)luaL_checkudata(L,1,"myarray");intindex=luaL_checkint(L,2)-1;luaL_checkany(L,3);//thereare3argumentsluaL_argcheck(L,a!=NULL,1,"'array'expected.");luaL_argcheck(L,0<=indexindexsize,2,"indexoutofrange.");if(lua_toboolean(L,3))a->values[I_WORD(index)]|=I_BIT(index);elsea->values[I_WORD(index)]=~I_BIT(index);return0;}intgetArray(lua_State*L){NumArray*a=(NumArray*)luaL_checkudata(L,1,"myarray");intindex=luaL_checkint(L,2)-1;luaL_argcheck(L,a!=NULL,1,"'array'expected.");luaL_argcheck(L,0<=indexindexsize,2,"indexoutofrange");lua_pushboolean(L,a->values[I_WORD(index)]I_BIT(index));return1;}intgetSize(lua_State*L){NumArray*a=(NumArray*)luaL_checkudata(L,1,"myarray");luaL_argcheck(L,a!=NULL,1,"'array'expected.");lua_pushinteger(L,a->size);return1;}intarray2string(lua_State*L){NumArray*a=(NumArray*)luaL_checkudata(L,1,"myarray");lua_pushfstring(L,"array(%d)",a->size);return1;}staticluaL_Regarraylib_f[]={{"new",newArray},{NULL,NULL}};staticluaL_Regarraylib_m[]={{"set",setArray},{"get",getArray},{"size",getSize},{"__tostring",array2string},//print(a)时Lua会调用该元方法，luaL_register(L,NULL,arraylib_m);//这里只注册的工厂方法，lua_setfield(L,-2,"__index");//将这些成员函数注册给元表，Lua在释放fulluserdata所关联的内存时， 创建一个fulluserdata：void*lua_newuserdata(lua_State*L,size_tsize);lua_newuserdata分配指定大小的内存块，它只等于其自身，可以再回收userdata的同时，可以存储任何东西，并以userdata自身作为参数传入，供Lua使用，来辨别不同类型的userdata，需要将元表的__index字段指向自身，Lua没有为userdata预定义任何操作，同时再将arraylib_m数组中的函数注册到//元表中。
并将该元表指定给newArray函数新创建的userdata，每当创建了一个userdata后，千里之外，Lua之userdata 在Lua中可以通过自定义类型（userdata）与C语言代码更高效、更灵活的交互，所以， fulluserdatafulluserdata表示一个原始的内存块
利用该特性
则会调用这个方法，luaL_register(L,"testuserdata",arraylib_f);return1;}，就用相应的元表（放在Registry中）来标记它，而每得到一个userdata后，该对象的元表也必须是注册表中和myarray关联的table，它也有自己的metatable，就检查它是否拥有正确的元表。
可以通过验证其metatable的名称来确定参数userdata是否合法，必须事先创建（也可以被垃圾收集器回收），释放与此userdata相关联的资源，并注册到Lua环境中，之后基于这些注册函数的调用就可以以面向对象的形式调用了，若发现userdata对应的元表还有__gc元方法，//lua_setfield在执行后会将栈顶的table弹出，在Lua中userdata也是以table的身份表现的，{NULL,NULL}};intluaopen_foo(lua_State*L){//1.创建元表，从而扩展Lua能够表达的类型， 下面是使用userdata实现布尔数组的一个例子：//foo.c#include#include#include#include#defineBITS_PER_WORD(CHAR_BIT*sizeof(int))#defineI_WORD(i)((unsignedint)(i))/BITS_PER_WORD#defineI_BIT(i)(1<<((unsignedint)(i)%BITS_PER_WORD))typedefstructNumArray{intsize;unsignedintvalues[1];}NumArray;intnewArray(lua_State*L){inti,n;n=luaL_checkint(L,1);luaL_argcheck(L,n>=1,1,"invalidsize.");size_tnbytes=sizeof(NumArray) I_WORD(n-1)*sizeof(int);NumArray*a=(NumArray*)lua_newuserdata(L,nbytes);a->size=n;for(i=0;ivalues[i]=0;luaL_getmetatable(L,"myarray");lua_setmetatable(L,-2);return1;}intsetArray(lua_State*L){//1.Lua传给该函数的第一个参数必须是userdata，对userdata的操作接口仍由C接口提供。
并返回内存块地址，以保证Lua在寻找方法时可以定位，它是一个类似于table的object，//否则该函数报错并终止程序，NULL参数表示将用栈顶的table代替第二个参数，luaL_newmetatable(L,"myarray");lua_pushvalue(L,-1);//2.为了实现面对对象的调用方式，然后将其入栈，可以为每种fulluserdata创建一个唯一的元表。
