歡迎來到Linux教程網
Linux教程網
Linux教程網
Linux教程網
您现在的位置: Linux教程網 >> UnixLinux >  >> Linux編程 >> Linux編程

Lua4.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


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

Lua 語言 15 分鐘快速入門 http://www.linuxidc.com/Linux/2013-06/86582.htm

Lua程序設計(第2版)中文 PDF http://www.linuxidc.com/Linux/2013-03/81833.htm

Lua程序設計(第二版)閱讀筆記 http://www.linuxidc.com/Linux/2013-03/81834.htm

NetBSD 將支持用 Lua 腳本開發內核組件 http://www.linuxidc.com/Linux/2013-02/79527.htm

CentOS 編譯安裝 Lua LuaSocket http://www.linuxidc.com/Linux/2011-08/41105.htm

Programming In Lua 高清PDF中文版  http://www.linuxidc.com/Linux/2015-05/117362.htm

Lua 的詳細介紹:請點這裡
Lua 的下載地址:請點這裡

Copyright © Linux教程網 All Rights Reserved