Lua1.0 代码分析 inout.c

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);
 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 中再做分析。

/*
** Function to get the next character from the input file
*/
static int fileinput (void)
{
 int c = fgetc (fp);
 return (c == EOF ? 0 : c);
}

从文件句柄里读取一个字符

/*
** 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" 开头的字符串表示。

/*
** 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;
}

设置脚本中的函数到函数这个函数栈中。记录其文件名和函数地址。

Lua1.0 代码分析 inout.c

原文：http://my.oschina.net/xhan/blog/307797