Lua4.0 解释器入口

原创
2015/08/20 12:52
阅读数 5.4K

开始解释器了。

解释器的入口文件为 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

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

展开阅读全文
打赏
1
44 收藏
分享
加载中
晓寒博主

引用来自“银杏花下”的评论

必须要点赞,编译器和解释器一类的文章比较少,读取其源码有助于了解一个语言的本质,希望博主能够一直分析下去。另外对前几楼说解释器或者操作系统这类源码从低版本看是争取的,能够看到一个语言如何完善以及功能添加的
谢谢。
2015/08/31 18:44
回复
举报
必须要点赞,编译器和解释器一类的文章比较少,读取其源码有助于了解一个语言的本质,希望博主能够一直分析下去。另外对前几楼说解释器或者操作系统这类源码从低版本看是争取的,能够看到一个语言如何完善以及功能添加的
2015/08/31 16:19
回复
举报
晓寒博主

引用来自“mickelfeng”的评论

3
2015/08/21 13:07
回复
举报
晓寒博主

引用来自“ruki”的评论

4.0 36
嗯,4.0。
2015/08/21 13:07
回复
举报
晓寒博主

引用来自“南湖船老大”的评论

这文章也太老了吧
文章所写的东西版本是挺老的,文章本身不老,才写了没多久。
2015/08/21 13:06
回复
举报
晓寒博主

引用来自“Altman”的评论

4.0?。。。虽然我们还在用5.1,但是4.0也太老了吧
嗯,是挺老的。不过,也还挺有意思的。
2015/08/21 13:05
回复
举报
晓寒博主

引用来自“IM鑫爷”的评论

都5.3了,咋还在用4.0。。
这是代码阅读,从 1.0 一直走过来的。
2015/08/21 13:05
回复
举报
晓寒博主

引用来自“jinqiu”的评论

不明觉厉
谢谢
2015/08/21 13:03
回复
举报
晓寒博主

引用来自“少帮主”的评论

4.0 ?
嗯,4.0。
2015/08/21 13:03
回复
举报
3
2015/08/21 11:25
回复
举报
更多评论
打赏
16 评论
44 收藏
1
分享
返回顶部
顶部