Function io_readline

Source/Misc/lua/src/lua.c:12302–12319

static int io_readline (lua_State *L) {
FILE *f = *(FILE **)lua_touserdata(L, lua_upvalueindex(1));
int sucess;
if (f == NULL)  /* file is already closed? */
luaL_error(L, "file is already closed");
sucess = read_line(L, f);
if (ferror(f))
return luaL_error(L, "%s", strerror(errno));
if (sucess) return 1;
else {  /* EOF */
if (lua_toboolean(L, lua_upvalueindex(2))) {  /* generator created file? */
lua_settop(L, 0);
lua_pushvalue(L, lua_upvalueindex(1));
aux_close(L);  /* close it */
}
return 0;
}
}

/* }====================================================== */