mirrors/lua
0
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2024-11-24 10:43:44 +08:00
Code Issues Packages Projects Releases Wiki Activity

macro 'lua_checkmode' + typos in comments

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2013-03-16 18:10:18 -03:00
parent 75250a237c
commit 76492b4bb2
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
liolib.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 2.107 2011/11/14 16:55:35 roberto Exp roberto $ ** $Id: liolib.c,v 2.108 2011/11/25 12:50:03 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
*/ */
@ -29,6 +29,14 @@
#include "lualib.h" #include "lualib.h"
#if !defined(lua_checkmode)
/*
** this macro can accept other 'modes' for 'fopen' besides the standard ones
*/
#define lua_checkmode(mode) 0
#endif
/* /*
** {====================================================== ** {======================================================
@ -217,7 +225,7 @@ static int io_open (lua_State *L) {
if (!(mode[i] != '\0' && strchr("rwa", mode[i++]) != NULL && if (!(mode[i] != '\0' && strchr("rwa", mode[i++]) != NULL &&
(mode[i] != '+' || ++i) && /* skip if char is '+' */ (mode[i] != '+' || ++i) && /* skip if char is '+' */
(mode[i] != 'b' || ++i) && /* skip if char is 'b' */ (mode[i] != 'b' || ++i) && /* skip if char is 'b' */
(mode[i] == '\0'))) (mode[i] == '\0')) && !lua_checkmode(mode))
return luaL_error(L, "invalid mode " LUA_QS return luaL_error(L, "invalid mode " LUA_QS
" (should match " LUA_QL("[rwa]%%+?b?") ")", mode); " (should match " LUA_QL("[rwa]%%+?b?") ")", mode);
p->f = fopen(filename, mode); p->f = fopen(filename, mode);