Lua程序设计（七十八）

#include <stdio.h>
#include <string.h>
#include "lua.h"
#include "lauxlib.h"
#include "lualib.h"

int main (void) {
	char buf[256];
	int error;
	lua_State *L = luaL_newstate();
	luaL_openLibs(L);
	while (fgets(buff, sizeof(buff), stdin) != NULL) {
		error = luaL_loadstring(L, buff) || lua_pcal((L, 0, 0, 0);
		if (error) {
			fprintf(stderr, "%s\n", lua_tostring(L, -1));
			lua_pop(L, 1);
		}
	}
	lua_close(L);
	return 0;
}

头文件 lauxlib.h 声明了辅助库所提供的函数，其中所有的声明均以 luaL_ 开头。辅助库使用 lua.h 提供的 API 来进一步提供更高层次的抽象，特别是对标准库用到的相关机制进行抽象。

Lua 标准库没有定义任何 C 语言全局变量， 它将所有的状态都保存在动态的结构体 lua_State 中， Lua 中的所有函数都接收一个指向该结构的指针作为参数。这种设计使得 Lua 是可重入的，并且可以用于编写多线程代码。

函数 lua_newstate 用于创建一个新的 Lua 状态。当它创建一个新状态时，新环境中没有包含预定义的函数，甚至包括 print。 为了保持语言的简练，所有的标准库都被组织成为不同的包。头文件 lualib.h 声明了用于打开这些库的函数。函数 luaL_openlibs 用于打开所有的标准库。

创建好一个状态并在其中加载标准库后，就可以处理用户输入了。程序首先调用 luaL_loadstring 来编译用户输入的每一行内容。如果没有错误，则返回0，并向栈中压如编译得到的函数。然后，程序调用函数 lua_pcall 从栈中弹出编译后的函数，并以保护模式运行。与函数 luaL_loadstring 类似，如果没有错误发生，则函数 lua_pcall 返回0；当发生错误时，两个函数都会向栈中压如一条错误信息。随后我们可以通过函数 lua_tostring 获取错误信息，并在打印出错误信息后使用函数 lua_pop 将其从栈中删除。