转载出处：http://my.oschina.net/xhan/blog/307797
inout.c 代码分析
主要看下对于文件的处理
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
/*** Function to open a file to be input unit.** Return 0 on success or 1 on error.*/int lua_openfile (char *fn){ lua_linenumber = 1; lua_setinput (fileinput); lua_setunput (fileunput); fp = fopen (fn, "r"); if (fp == NULL) return 1; if (lua_addfile (fn)) return 1; return 0;} |
传入脚本文件名，设置当前的输入行为1 设置文件读取和放回。 打开文件，设置文件句柄。 把文件加到文件列表里。lua_addfile 在 table.c 中定义，等到 table.c 中再做分析。
|
1
2
3
4
5
6
7
8
|
/*** Function to get the next character from the input file*/static int fileinput (void){ int c = fgetc (fp); return (c == EOF ? 0 : c);} |
从文件句柄里读取一个字符
|
1
2
3
4
5
6
7
|
/*** Function to unget the next character from to input file*/static void fileunput (int c){ ungetc (c, fp);} |
把一个字符放回文件句柄
int lua_openstring (char *s) 和 lua_openfile 差不多，只不过文件名用的是一个 “String" 开头的字符串表示。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
/*** Called to execute SETFUNCTION opcode, this function pushs a function into** function stack. Return 0 on success or 1 on error.*/int lua_pushfunction (int file, int function){ if (nfuncstack >= MAXFUNCSTACK-1) { lua_error ("function stack overflow"); return 1; } funcstack[nfuncstack].file = file; funcstack[nfuncstack].function = function; nfuncstack++; return 0;} |
设置脚本中的函数到函数这个函数栈中。记录其文件名和函数地址。