Lua_第28章 资源管理 （上）
在前面一章介绍的数组实现方法，我们不必担心如何管理资源，只需要分配内存。 每一个表示数组的 userdatum 都有自己的内存，这个内存由 Lua 管理。当数组变为垃圾 (也就是说，当程序不需要)的时候，Lua 会自动收集并释放内存。
生活总是不那么如意。有时候，一个对象除了需要物理内存以外，还需要文件描述符、窗口句柄等类似的资源。(通常这些资源也是内存，但由系统的其他部分来管理)。 在这种情况下，当一个对象成为垃圾并被收集的时候，这些相关的资源也应该被释放。一些面向对象的语言为了这种需要提供了一种特殊的机制(称为 finalizer 或者析构器)。Lua以_gc 元方法的方式提供了 finalizers。这个元方法只对
userdata 类型的值有效。当一个userdatum 将被收集的时候，并且usedatum 有一个_gc 域，Lua 会调用这个域的值 (应该是一个函数)：以 userdatum 作为这个函数的参数调用。这个函数负责释放与 userdatum 相关的所有资源。
为了阐明如何将这个元方法和 API作为一个整体使用，这一章我们将使用 Lua扩展应用的方式，介绍两个例子。第一个例子是前面己经介绍的遍历一个目录的函数的另一种实现。第二个例子是一个绑定 ExpatCExpat 开源的 XML 解析器)实现的 XML 解析 器。
29.1 目录迭代器
前面我们实现了一个 dir 函数，给定一个目录作为参数，这个函数以一个table的方 式返回目录下所有文件。我们新版本的dir函数将返回一个迭代子，每次调用这个迭代 子的时候会返回目录中的一个入口(entry)。按新版本的实现方式，我们可以使用循环 来遍历整个目录:
for fname in dir(".") do print(fname) end
在 C 语言中，我们需要 DIR这种结构才能够迭代一个目录。通过 opendir 才能创建 一个 DIR 的实例，并且必须显式的调用 closedir 来释放资源。我们以前实现的 dir 用一个 本地变量保存 DIR 的实例，并且在获取目录中最后一个文件名之后关闭实例。但我们新实现的 dir中不能在本地变量中保存 DIR 的实例，因为有很多个调用都要访问这个值,另外，也不能仅仅在获取目录中最后一个文件名之后关闭目录。如果程序循环过程中中断退出，迭代子根本就不会取得最后一个文件名，所以，为了保证
DIR 的实例一定能够被释放掉，我们将它的地址保存在一个 userdatum 中，并使用这个 userdatum 的 gc的 元方法来释放目录结构。
尽管我们实现中userdatum的作用很重要，但这个用来表示一个目录的userdatum，并不需要在Lua可见范围之内。Dir函数返回一个迭代子函数，迭代子函数需要在Lua的可见 范围之内。目录可能是迭代子函数的一个upvalue。这样一来，迭代子函数就可以直接访问这个结构(指目录结构，即userdatum)，但是Lua不可以(也不需要)访问这个结构。
总的来说，我们需要三个 C 函数。第一，dir 函数，一个 Lua 调用他产生迭代器的 工厂，这个函数必须打开 DIR结构并将他作为迭代函数的 upvalue。第二，我们需要一 个迭代函数。第三,_gc 元方法，负责关闭 DIR 结构。一般来说，我们还需要一个额外的函数来进行一些初始的操作，比如为目录创建
metatable，并初始化这个 metatable。
首先看我们的 dir 函数:
#include <dirent.h>
#include <errno.h>
/* forward declaration for the iteratorfunction */
static int dir_iter (lua_State *L);
static int l_dir (lua_State *L) {
const char *path = luaL_checkstring(L, 1);
/* create auserdatum to storea DIR address */
DIR **d = (DIR**)lua_newuserdata(L, sizeof(DIR *));
/* set its metatable */
luaL_getmetatable(L, "LuaBook.dir");
ua_setmetatable(L, -2);
/* try toopen the givendirectory */
*d =opendir(path);
if (*d == NULL)/* error openingthe directory? */
luaL_error(L, "cannot open %s: %s", path, strerror(errno));
/* createsand returns theiterator function (its sole upvalue,the directory userdatum, is already on the stacktop */
lua_pushcclosure(L, dir_iter, 1);
return 1;
}
这儿有一点需要注意的，我们必须在打开目录之前创建 userdatum。如果我们先打开 目录，然后调用 lua_newuserdata 会抛出错误，这样我们就无法获取DIR 结构。按照正确 的顺序，DIR 结构一旦被创建，就会立刻和 userdatum 关联起来;之后不管发生什么,_gc元方法都会自动的释放这个结构。
第二个函数是迭代器:
static int dir_iter (lua_State *L) {
DIR *d = *(DIR**)lua_touserdata(L, lua_upvalueindex(1));
struct dirent *entry;
if ((entry = readdir(d)) != NULL) {
lua_pushstring(L, entry->d_name);
return 1;
}
else return 0; /* no morevalues to return*/
}
gc 元方法用来关闭目录，但有一点需要小心:因为我们在打开目录之前创建 userdatum，所以不管 opendir 的结果是什么userdatum 将来都会被收集。如果 opendir 失败，将来就没有什么可以关闭的了:
static int dir_gc (lua_State *L) {
DIR *d = *(DIR**)lua_touserdata(L, 1);
if (d) closedir(d);
return 0;
}
最后一个函数打开这个只有一个函数的库:
int luaopen_dir (lua_State *L) {
luaL_newmetatable(L, "LuaBook.dir");
/* set its gcfield */
lua_pushstring(L, "_gc");
lua_pushcfunction(L, dir_gc);
lua_settable(L,-3);
/* register the dirfunction */
lua_pushcfunction(L, l_dir);
lua_setglobal(L, "dir");
return 0;
}
整个例子有一个注意点。开始的时候，dir_gc 看起来应该检查他的参数是否是一个目录。否则，一个恶意的使用者可能用其他类型的参数(比如，文件)调用这个函数导 致严重的后果。然而，在 Lua 程序中无法访问这个函数:他被存放在目录的 metatable 中，Lua
程序从来不会访问这些目录。