mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-22 12:51:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

other modules may need FILEHANDLE definition

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2004-05-28 15:35:05 -03:00
parent e9844a4f1d
commit 0733c83b8c
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
liolib.c
View File

@ -1,5 +1,5 @@
/*
** $Id: liolib.c,v 2.51 2004/05/10 20:26:37 roberto Exp roberto $
** $Id: liolib.c,v 2.52 2004/05/28 18:32:51 roberto Exp roberto $
** Standard I/O (and system) library
** See Copyright Notice in lua.h
*/
@ -30,8 +30,6 @@
*/
#define FILEHANDLE "FILE*"
#define IO_INPUT 1
#define IO_OUTPUT 2
@ -54,14 +52,14 @@ static int pushresult (lua_State *L, int i, const char *filename) {
static FILE **topfile (lua_State *L, int findex) {
FILE **f = (FILE **)luaL_checkudata(L, findex, FILEHANDLE);
FILE **f = (FILE **)luaL_checkudata(L, findex, LUA_FILEHANDLE);
if (f == NULL) luaL_argerror(L, findex, "bad file");
return f;
}
static int io_type (lua_State *L) {
FILE **f = (FILE **)luaL_checkudata(L, 1, FILEHANDLE);
FILE **f = (FILE **)luaL_checkudata(L, 1, LUA_FILEHANDLE);
if (f == NULL) lua_pushnil(L);
else if (*f == NULL)
lua_pushliteral(L, "closed file");
@ -88,7 +86,7 @@ static FILE *tofile (lua_State *L, int findex) {
static FILE **newfile (lua_State *L) {
FILE **pf = (FILE **)lua_newuserdata(L, sizeof(FILE *));
*pf = NULL; /* file handle is currently `closed' */
luaL_getmetatable(L, FILEHANDLE);
luaL_getmetatable(L, LUA_FILEHANDLE);
lua_setmetatable(L, -2);
return pf;
}
@ -193,7 +191,7 @@ static int io_readline (lua_State *L);
static void aux_lines (lua_State *L, int idx, int close) {
lua_getfield(L, LUA_REGISTRYINDEX, FILEHANDLE);
lua_getfield(L, LUA_REGISTRYINDEX, LUA_FILEHANDLE);
lua_pushvalue(L, idx);
lua_pushboolean(L, close); /* close/not close file when finished */
lua_pushcclosure(L, io_readline, 3);
@ -460,7 +458,7 @@ static const luaL_reg flib[] = {
static void createmeta (lua_State *L) {
luaL_newmetatable(L, FILEHANDLE); /* create new metatable for file handles */
luaL_newmetatable(L, LUA_FILEHANDLE); /* create metatable for file handles */
/* create (and set) default files */
*newfile(L) = stdin;
lua_rawseti(L, -2, IO_INPUT);

6
lualib.h
View File

@ -1,5 +1,5 @@
/*
** $Id: lualib.h,v 1.28 2003/03/18 12:24:26 roberto Exp roberto $
** $Id: lualib.h,v 1.29 2004/03/24 15:46:49 roberto Exp roberto $
** Lua standard libraries
** See Copyright Notice in lua.h
*/
@ -16,6 +16,10 @@
#endif
/* Key to file-handle type */
#define LUA_FILEHANDLE "FILE*"
#define LUA_COLIBNAME "coroutine"
LUALIB_API int luaopen_base (lua_State *L);