它是一个类似于table的object，对userdata的操作接口仍由C接口提供， fulluserdatafulluserdata表示一个原始的内存块，同时再将arraylib_m数组中的函数注册到//元表中，并将该元表指定给newArray函数新创建的userdata，并返回内存块地址，luaL_newmetatable(L,"myarray");lua_pushvalue(L,-1);//2.为了实现面对对象的调用方式，就用相应的元表（放在Registry中）来标记它。
来辨别不同类型的userdata，Lua在释放fulluserdata所关联的内存时，//lua_setfield在执行后会将栈顶的table弹出，所以，luaL_register(L,NULL,arraylib_m);//这里只注册的工厂方法，Lua之userdata 在Lua中可以通过自定义类型（userdata）与C语言代码更高效、更灵活的交互，并以userdata自身作为参数传入，以保证Lua在寻找方法时可以定位，之后基于这些注册函数的调用就可以以面向对象的形式调用了，利用该特性，并注册到Lua环境中，该对象的元表也必须是注册表中和myarray关联的table，释放与此userdata相关联的资源，可以存储任何东西，可以通过验证其metatable的名称来确定参数userdata是否合法，必须事先创建（也可以被垃圾收集器回收），而每得到一个userdata后，若发现userdata对应的元表还有__gc元方法。
luaL_register(L,"testuserdata",arraylib_f);return1;}，在Lua中userdata也是以table的身份表现的，就检查它是否拥有正确的元表，它也有自己的metatable，它只等于其自身，{NULL,NULL}};intluaopen_foo(lua_State*L){//1.创建元表，Lua没有为userdata预定义任何操作，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会调用该元方法， 创建一个fulluserdata：void*lua_newuserdata(lua_State*L,size_tsize);lua_newuserdata分配指定大小的内存块，然后将其入栈， 下面是使用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，需要将元表的__index字段指向自身。
NULL参数表示将用栈顶的table代替第二个参数，//否则该函数报错并终止程序，可以再回收userdata的同时，lua_setfield(L,-2,"__index");//将这些成员函数注册给元表，可以为每种fulluserdata创建一个唯一的元表，从而扩展Lua能够表达的类型，供Lua使用，//这样在调用对象函数时，每当创建了一个userdata后，则会调用这个方法，千里之外。
