rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

small optimizations

This commit is contained in:
Roberto Ierusalimschy 2003-02-11 13:24:52 -02:00
parent d674626392
commit 5085f09ce5
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
liolib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 2.29 2002/12/20 10:26:33 roberto Exp roberto $ ** $Id: liolib.c,v 2.30 2003/01/17 15:27:28 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
*/ */
@ -499,6 +499,8 @@ static const luaL_reg flib[] = {
{"seek", f_seek}, {"seek", f_seek},
{"write", f_write}, {"write", f_write},
{"close", io_close}, {"close", io_close},
{"__gc", io_gc},
{"__tostring", io_tostring},
{NULL, NULL} {NULL, NULL}
}; };
@ -506,15 +508,6 @@ static const luaL_reg flib[] = {
static void createmeta (lua_State *L) { static void createmeta (lua_State *L) {
lua_pushliteral(L, FILEHANDLE); lua_pushliteral(L, FILEHANDLE);
lua_newtable(L); /* push new metatable for file handles */ lua_newtable(L); /* push new metatable for file handles */
/* close files when collected */
lua_pushliteral(L, "__gc");
lua_pushvalue(L, -2); /* push metatable (will be upvalue for `gc' method) */
lua_pushcclosure(L, io_gc, 1);
lua_rawset(L, -3); /* metatable.__gc = io_gc */
lua_pushliteral(L, "__tostring");
lua_pushvalue(L, -2); /* push metatable */
lua_pushcclosure(L, io_tostring, 1);
lua_rawset(L, -3);
/* file methods */ /* file methods */
lua_pushliteral(L, "__index"); lua_pushliteral(L, "__index");
lua_pushvalue(L, -2); /* push metatable */ lua_pushvalue(L, -2); /* push metatable */