diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2013-03-16 18:10:18 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2013-03-16 18:10:18 -0300 |
| commit | 76492b4bb27a8695483449c433f4104df7b778ed (patch) | |
| tree | e268e64c0fbff972c4e30371e2f0285dce8dccd5 /liolib.c | |
| parent | 75250a237cb620ef44b344c07398b8a27bdcddc2 (diff) | |
| download | lua-76492b4bb27a8695483449c433f4104df7b778ed.tar.gz lua-76492b4bb27a8695483449c433f4104df7b778ed.tar.bz2 lua-76492b4bb27a8695483449c433f4104df7b778ed.zip | |
macro 'lua_checkmode' + typos in comments
Diffstat (limited to 'liolib.c')
| -rw-r--r-- | liolib.c | 12 |
1 files changed, 10 insertions, 2 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: liolib.c,v 2.107 2011/11/14 16:55:35 roberto Exp roberto $ | 2 | ** $Id: liolib.c,v 2.108 2011/11/25 12:50:03 roberto Exp roberto $ |
| 3 | ** Standard I/O (and system) library | 3 | ** Standard I/O (and system) library |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -29,6 +29,14 @@ | |||
| 29 | #include "lualib.h" | 29 | #include "lualib.h" |
| 30 | 30 | ||
| 31 | 31 | ||
| 32 | #if !defined(lua_checkmode) | ||
| 33 | |||
| 34 | /* | ||
| 35 | ** this macro can accept other 'modes' for 'fopen' besides the standard ones | ||
| 36 | */ | ||
| 37 | #define lua_checkmode(mode) 0 | ||
| 38 | |||
| 39 | #endif | ||
| 32 | 40 | ||
| 33 | /* | 41 | /* |
| 34 | ** {====================================================== | 42 | ** {====================================================== |
| @@ -217,7 +225,7 @@ static int io_open (lua_State *L) { | |||
| 217 | if (!(mode[i] != '\0' && strchr("rwa", mode[i++]) != NULL && | 225 | if (!(mode[i] != '\0' && strchr("rwa", mode[i++]) != NULL && |
| 218 | (mode[i] != '+' || ++i) && /* skip if char is '+' */ | 226 | (mode[i] != '+' || ++i) && /* skip if char is '+' */ |
| 219 | (mode[i] != 'b' || ++i) && /* skip if char is 'b' */ | 227 | (mode[i] != 'b' || ++i) && /* skip if char is 'b' */ |
| 220 | (mode[i] == '\0'))) | 228 | (mode[i] == '\0')) && !lua_checkmode(mode)) |
| 221 | return luaL_error(L, "invalid mode " LUA_QS | 229 | return luaL_error(L, "invalid mode " LUA_QS |
| 222 | " (should match " LUA_QL("[rwa]%%+?b?") ")", mode); | 230 | " (should match " LUA_QL("[rwa]%%+?b?") ")", mode); |
| 223 | p->f = fopen(filename, mode); | 231 | p->f = fopen(filename, mode); |