Function g_read

Source/Misc/lua/src/lua.c:12245–12289

static int g_read (lua_State *L, FILE *f, int first) {
int nargs = lua_gettop(L) - 1;
int success;
int n;
clearerr(f);
if (nargs == 0) {  /* no arguments? */
success = read_line(L, f);
n = first+1;  /* to return 1 result */
}
else {  /* ensure stack space for all results and for auxlib's buffer */
luaL_checkstack(L, nargs+LUA_MINSTACK, "too many arguments");
success = 1;
for (n = first; nargs-- && success; n++) {
if (lua_type(L, n) == LUA_TNUMBER) {
size_t l = (size_t)lua_tointeger(L, n);
success = (l == 0) ? test_eof(L, f) : read_chars(L, f, l);
}
else {
const char *p = lua_tostring(L, n);
luaL_argcheck(L, p && p[0] == '*', n, "invalid option");
switch (p[1]) {
case 'n':  /* number */
success = read_number(L, f);
break;
case 'l':  /* line */
success = read_line(L, f);
break;
case 'a':  /* file */
read_chars(L, f, ~((size_t)0));  /* read MAX_SIZE_T chars */
success = 1; /* always success */
break;
default:
return luaL_argerror(L, n, "invalid format");
}
}
}
}
if (ferror(f))
return pushresult(L, 0, NULL);
if (!success) {
lua_pop(L, 1);  /* remove last result */
lua_pushnil(L);  /* push nil instead */
}
return n - first;
}


static int io_read (lua_State *L) {