nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

better control over closed files

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1997-09-23 11:12:44 -03:00
parent d6c867ea50
commit 3c820d622e
1 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
liolib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: $ ** $Id: liolib.c,v 1.1 1997/09/16 19:25:59 roberto Exp roberto $
** Standard I/O (and system) library ** Standard I/O (and system) library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -42,6 +42,7 @@ int pclose();
int lua_tagio; int lua_tagio;
static int closedtag;
static void pushresult (int i) static void pushresult (int i)
@@ -59,8 +60,12 @@ static void pushresult (int i)
static FILE *getfile (char *name) static FILE *getfile (char *name)
{ {
lua_Object f = lua_getglobal(name); lua_Object f = lua_getglobal(name);
if (!lua_isuserdata(f) || lua_tag(f) != lua_tagio) if (!lua_isuserdata(f) || lua_tag(f) != lua_tagio) {
luaL_verror("global variable %s is not a file handle", name); if (lua_tag(f) == closedtag)
luaL_verror("file %s has been closed", name);
else
luaL_verror("global variable %s is not a file handle", name);
}
return lua_getuserdata(f); return lua_getuserdata(f);
} }
@@ -71,6 +76,8 @@ static void closefile (char *name)
if (f == stdin || f == stdout) return; if (f == stdin || f == stdout) return;
if (pclose(f) == -1) if (pclose(f) == -1)
fclose(f); fclose(f);
lua_pushobject(lua_getglobal(name));
lua_settag(closedtag);
} }
@@ -348,6 +355,7 @@ static struct luaL_reg iolib[] = {
void lua_iolibopen (void) void lua_iolibopen (void)
{ {
lua_tagio = lua_newtag(); lua_tagio = lua_newtag();
closedtag = lua_newtag();
setfile(stdin, "_INPUT"); setfile(stdin, "_INPUT");
setfile(stdout, "_OUTPUT"); setfile(stdout, "_OUTPUT");
setfile(stdin, "_STDIN"); setfile(stdin, "_STDIN");