|
|
|
@ -206,11 +206,16 @@ static int aux_close (lua_State *L) {
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static int f_close (lua_State *L) {
|
|
|
|
|
tofile(L); /* make sure argument is an open stream */
|
|
|
|
|
return aux_close(L);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
static int io_close (lua_State *L) {
|
|
|
|
|
if (lua_isnone(L, 1)) /* no argument? */
|
|
|
|
|
lua_getfield(L, LUA_REGISTRYINDEX, IO_OUTPUT); /* use standard output */
|
|
|
|
|
tofile(L); /* make sure argument is an open stream */
|
|
|
|
|
return aux_close(L);
|
|
|
|
|
return f_close(L);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
@ -713,7 +718,7 @@ static const luaL_Reg iolib[] = {
|
|
|
|
|
** methods for file handles
|
|
|
|
|
*/
|
|
|
|
|
static const luaL_Reg flib[] = {
|
|
|
|
|
{"close", io_close},
|
|
|
|
|
{"close", f_close},
|
|
|
|
|
{"flush", f_flush},
|
|
|
|
|
{"lines", f_lines},
|
|
|
|
|
{"read", f_read},
|
|
|
|
|