转载

【每日一博】Lua 4.0 解释器入口

开始解释器了。

解释器的入口文件为 lua.c，在文件中找到 C 语言的 main。

int main (int argc, char *argv[]) {   struct Options opt;   int status;   opt.toclose = 0;   getstacksize(argc, argv, &opt);  /* handle option `-s' */   L = lua_open(opt.stacksize);  /* create state */   userinit();  /* open libraries */   register_getargs(argv);  /* create `getargs' function */   status = handle_argv(argv+1, &opt);   if (opt.toclose)     lua_close(L);   return status; }

设置结构体 struct Options 的栈尺寸 stacksize。

struct Options 结构体的定义如下：

/* ** global options */ struct Options {   int toclose;   int stacksize; };

在 getstacksize 中给 stacksize 赋值。需要命令行传入 "-s" 参数。

lua_open 新建 lua_State L。

userinit 注册库。

register_getargs 注册获取命令行输入参数的函数 getargs。

handle_argv 程序执行。

toclose 如果为 1 的话，在程序退出前调用 lua

返回程序执行的状态。

分别看下其中的调用：

static void getstacksize (int argc, char *argv[], struct Options *opt) {   if (argc >= 2 && argv[1][0] == '-' && argv[1][1] == 's') {     int stacksize = atoi(&argv[1][2]);     if (stacksize <= 0) {       fprintf(stderr, "lua: invalid stack size ('%.20s')/n", &argv[1][2]);       exit(EXIT_FAILURE);     }     opt->stacksize = stacksize;   }   else     opt->stacksize = 0;  /* no stack size */ }

如果命令行参数中有 "-s" ，取它后面的值作为 struct Options 的 stacksize。

static void userinit (void) {   lua_baselibopen(L);   lua_iolibopen(L);   lua_strlibopen(L);   lua_mathlibopen(L);   lua_dblibopen(L);   /* add your libraries here */ }

这个是调用各种库的注册函数。

接下来是注册 getargs 函数

static void register_getargs (char *argv[]) {   lua_pushuserdata(L, argv);   lua_pushcclosure(L, l_getargs, 1);   lua_setglobal(L, "getargs"); }

把命令行参数压栈，把函数 l_getargs 压栈，设置给 Lua 变量 getargs。

然后在 Lua 代码里调用 getargs 就会调用 l_getargs 这个 C 函数了。

l_getargs 这个函数调用的时候执行过程如下：

static void getargs (char *argv[]) {   int i;   lua_newtable(L);   for (i=0; argv[i]; i++) {     /* arg[i] = argv[i] */     lua_pushnumber(L, i);     lua_pushstring(L, argv[i]);     lua_settable(L, -3);   }   /* arg.n = maximum index in table `arg' */   lua_pushstring(L, "n");   lua_pushnumber(L, i-1);   lua_settable(L, -3); } static int l_getargs (lua_State *l) {   char **argv = (char **)lua_touserdata(l, -1);   getargs(argv);   return 1; }

从栈上取得一个 userdata，从中通过 getargs 取得所有的命令行参数。

取得的命令行参数都存在于一个 Lua table 中。

handle_argv 分析命令行参数，主流程执行。

程序主体部分是一个大的循环判断，以解析各个参数。

manual_input 用来进行交互模式的处理，其它的文件及字符串处理由 ldo 进行。

manual_input 程序也是一个循环，通过调用 ldo(lua_dostring, buffer) 来执行用户的输入。

ldo 如下所示：

static int ldo (int (*f)(lua_State *l, const char *), const char *name) {   int res;   handler h = lreset();   int top = lua_gettop(L);   res = f(L, name);  /* dostring | dofile */   lua_settop(L, top);  /* remove eventual results */   signal(SIGINT, h);  /* restore old action */   /* Lua gives no message in such cases, so lua.c provides one */   if (res == LUA_ERRMEM) {     fprintf(stderr, "lua: memory allocation error/n");   }   else if (res == LUA_ERRERR)     fprintf(stderr, "lua: error in error message/n");   return res; }

第一个参数是个函数指针，可以传入 lua_dofile，lua_dostring 分别来对应文件输入和字符串输入。

第二个参数根据第一个函数指针的不同而可代表不同的意思: 文件名或者字符串。

通过调用 lreset() 设置中断信号处理程序。

调用结束时 signal(SIGINT, h) 来恢复中断信号处理。

解释器入口就说到这里。

----------------------------------------

到目前为止的问题：

> lua_dofile，lua_dostring

----------------------------------------

正文到此结束