programming in lua 之 lua api函数

《programming in lua 》的第24章讲C语言的API函数。

那么什么叫做lua解释器？

书中的意思lua解释器就是除了lua脚本和lua库之外的C语言程序。

lua脚本(由用户输入的字符串或文件组成) <-----> lua解释器 <-------->lua库（比如V5.1.4版本的库）

=======================================================================================

这章的第一节就写了个lua解释器的例子，由于例子中有头文件，所以就是介绍了头文件：

lua.h:所有在 lua.h 中被定义的都有一个 lua_前缀.

lauxlib.h 定义了辅助库（auxlib）提供的函数都以 luaL_打头( .lauxlib.h通过调用lua.H形成更高的抽象），比如：

LUALIB_API int luaL_loadbuffer (lua_State *L, const char *buff, size_t size,
const char *name) {
LoadS ls;
ls.s = buff;
ls.size = size;
return lua_load(L, getS, &ls, name);
}

======================================================================================================================

对于下面的一般解释器都有的东东：

/*下面这句等价于L = luaL_newstate();*/
L = lua_open();

luaopen_base(L);

/* 下面这句等价于luaL_loadstring(L, LUA_SCRIPT) || lua_pcall(L, 0, LUA_MULTRET, 0);*/
error = luaL_dostring(L, LUA_SCRIPT);</span>

书中给出了具体解释：

函数 lua_open 创建一个新环境（或 state）。lua_open 创建一个新的环境时，这个环

境并不包括预定义的函数，甚至是 print。为了保持 Lua 的苗条，所有的标准库以单独的

包提供，所以如果你不需要就不会强求你使用它们。头文件 lualib.h 定义了打开这些库

的函数。例如，调用 luaopen_io，以创建 io table并注册 I/O函数（io.read,io.write等等）

到 Lua 环境中。

创建一个 state 并将标准库载入之后，就可以着手解释用户的输入了。对于用户输入

的每一行，C 程序首先调用 luaL_loadbuffer 编译这些 Lua 代码。如果没有错误，这个调

用返回零并把编译之后的 chunk 压入栈。（记住，我们将在下一节中讨论魔法般的栈）之

后，C 程序调用 lua_pcall，它将会把 chunk 从栈中弹出并在保护模式下运行它。和

luaL_laodbuffer 一样，lua_pcall 在没有错误的情况下返回零。在有错误的情况下，这两

个函数都将一条错误消息压入栈；我们可以用 lua_tostring 来得到这条信息、输出它，用

lua_pop 将它从栈中删除

========================================

第二节讲了堆栈。

操作堆栈用到了一下api函数：

压栈 lua_push*

查询 lua_is*

获取lua_to*

lua_gettop 获取堆栈元素个数

lua_settop 设置堆栈元素个数

lua_pop

这时候疑问来了，理解这些函数的最好方法就是弄个简单例子试一试，那么如何得知堆栈里面的内容都是啥呢？

于是作者给了一个函数stackDump，让所有的堆栈元素一览无余。

甚至还给出了具体的例子，真是太贴心了。

#include <stdio.h>
#include <lua.h>

static void stackDump (lua_State *L) {
int i;
int top = lua_gettop(L);
for (i = 1; i <= top; i++) {  /* repeat for each level */
int t = lua_type(L, i);
switch (t) {

case LUA_TSTRING:  /* strings */
printf("`%s'", lua_tostring(L, i));
break;

case LUA_TBOOLEAN:  /* booleans */
printf(lua_toboolean(L, i) ? "true" : "false");
break;

case LUA_TNUMBER:  /* numbers */
printf("%g", lua_tonumber(L, i));
break;

default:  /* other values */
printf("%s", lua_typename(L, t));
break;

}
printf("  ");  /* put a separator */
}
printf("\n");   /* end the listing */
}

int main (void) {
lua_State *L = lua_open();
lua_pushboolean(L, 1); lua_pushnumber(L, 10);
lua_pushnil(L); lua_pushstring(L, "hello");
stackDump(L);
/* true  10  nil  `hello'  */

lua_pushvalue(L, -4); stackDump(L);
/* true  10  nil  `hello'  true  */

lua_replace(L, 3); stackDump(L);
/* true  10  true  `hello'  */

lua_settop(L, 6); stackDump(L);
/* true  10  true  `hello'  nil  nil  */

lua_remove(L, -3); stackDump(L);
/* true  10  true  nil  nil  */

lua_settop(L, -5); stackDump(L);
/* true  */

lua_close(L);
return 0;
}