上回说到 luaL_loadfile ,这次把它的调用展开到语法分析器 parser.
先一下它的函数定义
LUALIB_API int luaL_loadfile (lua_State *L, const char *filename) { LoadF lf; int status, readstatus; int c; int fnameindex = lua_gettop(L) + 1; /* index of filename on the stack */ if (filename == NULL) { lua_pushliteral(L, "=stdin"); lf.f = stdin; } else { lua_pushfstring(L, "@%s", filename); lf.f = fopen(filename, "r"); } if (lf.f == NULL) return errfile(L, fnameindex); /* unable to open file */ c = ungetc(getc(lf.f), lf.f); if (!(isspace(c) || isprint(c)) && lf.f != stdin) { /* binary file? */ fclose(lf.f); lf.f = fopen(filename, "rb"); /* reopen in binary mode */ if (lf.f == NULL) return errfile(L, fnameindex); /* unable to reopen file */ } status = lua_load(L, getF, &lf, lua_tostring(L, -1)); readstatus = ferror(lf.f); if (lf.f != stdin) fclose(lf.f); /* close file (even in case of errors) */ if (readstatus) { lua_settop(L, fnameindex); /* ignore results from `lua_load' */ return errfile(L, fnameindex); } lua_remove(L, fnameindex); return status; }
上来先定义一个 LoadF 数据结构。
typedef struct LoadF { FILE *f; char buff[LUAL_BUFFERSIZE]; } LoadF;
可以看到,里面一个 FILE 指针,一个字符串 buffer。
这会儿还看不出来这个结构体是干什么的。
接下来给 LoadF 结构体 lf 变量赋值。
如果 filename 为空,表示从 stdin 输入。
否则,打开文件 filename。
这里可以看到,lf 变量的 f 字段被赋值为打开的文件 FILE 。
之后读文件的第一个字符,判断文件是否为二进制文件,也就是已经编译了的 Lua 字节码文件。
如果是二进制文件,把原来的文件关闭。以二进制格式打开。
然后就是调用 lua_load 进行解析。
注意它的第二个和第三个参数分别为 getF, lf,一会儿下面会用到。
LUA_API int lua_load (lua_State *L, lua_Chunkreader reader, void *data, const char *chunkname) { ZIO z; int status; int c; lua_lock(L); if (!chunkname) chunkname = "?"; luaZ_init(&z, reader, data, chunkname); c = luaZ_lookahead(&z); status = luaD_protectedparser(L, &z, (c == LUA_SIGNATURE[0])); lua_unlock(L); return status; }
lua_load 的第二个参数是个函数指针,用来进行块读取。
函数指针的签名如下:
typedef const char * (*lua_Chunkreader) (lua_State *L, void *ud, size_t *sz);
这里传入的是 getF。
static const char *getF (lua_State *L, void *ud, size_t *size) { LoadF *lf = (LoadF *)ud; (void)L; if (feof(lf->f)) return NULL; *size = fread(lf->buff, 1, LUAL_BUFFERSIZE, lf->f); return (*size > 0) ? lf->buff : NULL; }
这个函数做的事情就是从 LoadF 结构体的 FILE 指针 f 中读取一个块到其 buff 中。
这里的 ud 就是上面 lua_load 传入的第三个参数。
回到 lua_load 函数。
看到里面有 lua_lock, lua_unlock,这是做线程同步的,现在不用管它。
接着调用 luaZ_init 来初始化 ZIO 结构体。
void luaZ_init (ZIO *z, lua_Chunkreader reader, void *data, const char *name) { z->reader = reader; z->data = data; z->name = name; z->n = 0; z->p = NULL; }
可以看到,在调用 luaZ_int 的时候把 reader 和 data 传过去了。
reader 和 data 就是 getF 和 lf。
在 luaZ_fill 可以看到一个 reader 的调用,
int luaZ_fill (ZIO *z) { size_t size; const char *buff = z->reader(NULL, z->data, &size); if (buff == NULL || size == 0) return EOZ; z->n = size - 1; z->p = buff; return char2int(*(z->p++)); }
这里通过 reader 来获取一个 buff。
这个 z->reader(NULL, z->data, &size) 的调用就相当于
getF(NULL, lf, &size)。
读数据这块就通了。
回到 lua_load 函数。
c = luaZ_lookahead(&z);
取第一个字符。
status = luaD_protectedparser(L, &z, (c == LUA_SIGNATURE[0]));
这里取第一个字符后,就是用来和保存的字节码的第一个字符进行对比。
编译器 dump 出来的字节码的头几个字符是 LUA_SIGNATURE
#define LUA_SIGNATURE "\033Lua" /* binary files start with "<esc>Lua" */
看下 luaD_protectedparser
int luaD_protectedparser (lua_State *L, ZIO *z, int bin) { struct SParser p; int status; ptrdiff_t oldtopr = savestack(L, L->top); /* save current top */ p.z = z; p.bin = bin; luaZ_initbuffer(L, &p.buff); status = luaD_rawrunprotected(L, f_parser, &p); luaZ_freebuffer(L, &p.buff); if (status != 0) { /* error? */ StkId oldtop = restorestack(L, oldtopr); seterrorobj(L, status, oldtop); } return status; }
这里上来定义了结构体变量 p。
/* ** Execute a protected parser. */ struct SParser { /* data to `f_parser' */ ZIO *z; Mbuffer buff; /* buffer to be used by the scanner */ int bin; };
接下来给结构体赋值。
luaZ_initbuffer(L, &p.buff); // 初始化 buff。
status = luaD_rawrunprotected(L, f_parser, &p); // 调用
luaD_rawrunprotected 的定义如下:
int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud) { struct lua_longjmp lj; lj.status = 0; lj.previous = L->errorJmp; /* chain new error handler */ L->errorJmp = &lj; if (setjmp(lj.b) == 0) (*f)(L, ud); L->errorJmp = lj.previous; /* restore old error handler */ return lj.status; }
这个主要是为把调用放到一个 C 语言版的 try catch 里去。
(*f)(L, ud); // 调用 f_parser
static void f_parser (lua_State *L, void *ud) { struct SParser *p; Proto *tf; Closure *cl; luaC_checkGC(L); p = cast(struct SParser *, ud); tf = p->bin ? luaU_undump(L, p->z, &p->buff) : luaY_parser(L, p->z, &p->buff); cl = luaF_newLclosure(L, 0, gt(L)); cl->l.p = tf; setclvalue(L->top, cl); incr_top(L); }
通过判断传入的是否为二进制格式而进行不同的处理:
如果是二进制则 luaU_undump
否则调用语法解析 luaY_parser 。
解析完后,放到闭包里,压栈。
通向语法解析 luaY_parser 之路已经打通。
在这之前,先看一下路上的其它风景。