Lua1.1 输入准备
接着看 main 调用，在库打开之后，会调用 lua_dostring 或 lua_dofile。
lua_dostring 是从标准输入读取 lua 代码。
lua_dofile 是从文件读取 lua 代码，我们来看下这两种有什么区别。
lua_dostring
调用 lua_openstring，
opcode.c:
/*
** Generate opcode stored on string and execute global statement. Return 0 on
** success or 1 on error.
*/
int lua_dostring (char *string)
{
if (lua_openstring (string)) return 1;
if (lua_parse ()) return 1;
lua_closestring();
return 0;
}
打开输入字符串，语法分析，之后关闭输入。
我们看下 lua_openstring 做了什么
inout.c 文件中
/*
** Function to open a string to be input unit
*/
int lua_openstring (char *s)
{
lua_linenumber = 1;
lua_setinput (stringinput);
st = s;
{
char sn[64];
sprintf (sn, "String: %10.10s...", s);
if (lua_addfile (sn)) return 1;
}
return 0;
}
设置开始行号为 1
给词法分析器设置输入 lua_setinput （lex.c 中）。
把输入的字符串地址保存在 st
把文件名保存到文件名数组中去 lua_addfile （table.c 中）。
void lua_setinput (Input fn)
{
current = ' ';
input = fn;
}
设置当前字符，和 input 回调。这里是 stringinput
inout.c 文件中：
/*
** Function to get the next character from the input string
*/
static int stringinput (void)
{
st++;
return (*(st-1));
}
注释里已经说的很清楚了，从输入的字符串中取得一个字符。
lua_addfile 把文件添加到文件数组中。
table.c 文件
/*
** Add a file name at file table, checking overflow. This function also set
** the external variable "lua_filename" with the function filename set.
** Return 0 on success or 1 on error.
*/
int lua_addfile (char *fn)
{
if (lua_nfile >= MAXFILE-1)
{
lua_error ("too many files");
return 1;
}
if ((lua_file[lua_nfile++] = strdup (fn)) == NULL)
{
lua_error ("not enough memory");
return 1;
}
return 0;
}
再看看 lua_dofile 是做什么的。
opcode.c 文件中：
/*
** Open file, generate opcode and execute global statement. Return 0 on
** success or 1 on error.
*/
int lua_dofile (char *filename)
{
if (lua_openfile (filename)) return 1;
if (lua_parse ()) { lua_closefile (); return 1; }
lua_closefile ();
return 0;
}
打开文件，语法分析，关闭文件。
inout.c 文件中
/*
** 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);
fp = fopen (fn, "r");
if (fp == NULL) return 1;
if (lua_addfile (fn)) return 1;
return 0;
}
设置行号，设置词法分析的输入，
这里调用的还是 lex.c 中的 lua_setinput。经过这样的处理，词法分析的时候已经没有标准输入或者文件输入的概念，词法分析只管在需要的时候从函数输入指针取字符，不同的输入在这里已经是透明的了。
打开文件，之后 lua_addfile ， 把文件名保存到文件名数组中。
inout.c
/*
** Function to get the next character from the input file
*/
static int fileinput (void)
{
int c = fgetc (fp);
return (c == EOF ? 0 : c);
}
从文件中读出一个字符。如果已经到文件结束，返回 0 。
到这里，词法分析的输入已经准备好了。
通过分析代码我们可以看到，不管是 lua_dostring 或者是 lua_dofile，都调用了 lua_parse。