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

bug: when `read' fails it must return nil (and not no value)

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2000-12-22 15:32:28 -02:00
parent f8a0fd268e
commit 6af005ec20
2 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bugs
View File

@ -245,3 +245,8 @@ Wed Nov 29 09:51:44 EDT 2000
>> parser does not accept a `;' after a `return'
(by lhf; since 4.0b)
** liolib.c
Fri Dec 22 15:30:42 EDT 2000
>> when `read' fails it must return nil (and not no value)
(by cassino; since at least 3.1)

21
liolib.c
View File

@ -1,5 +1,5 @@
/*
** $Id: liolib.c,v 1.94 2000/12/18 13:42:19 roberto Exp roberto $
** $Id: liolib.c,v 1.95 2000/12/22 16:57:13 roberto Exp roberto $
** Standard I/O (and system) library
** See Copyright Notice in lua.h
*/
@ -318,6 +318,7 @@ static int io_read (lua_State *L) {
IOCtrl *ctrl = (IOCtrl *)lua_touserdata(L, -1);
int lastarg = lua_gettop(L) - 1;
int firstarg = 1;
int success;
FILE *f = gethandle(L, ctrl, firstarg);
int n;
if (f) firstarg++;
@ -330,8 +331,8 @@ static int io_read (lua_State *L) {
}
else /* ensure stack space for all results and for auxlib's buffer */
luaL_checkstack(L, lastarg-firstarg+1+LUA_MINSTACK, "too many arguments");
for (n = firstarg; n<=lastarg; n++) {
int success;
success = 1;
for (n = firstarg; n<=lastarg && success; n++) {
if (lua_isnumber(L, n))
success = read_chars(L, f, (size_t)lua_tonumber(L, n));
else {
@ -343,8 +344,8 @@ static int io_read (lua_State *L) {
else {
switch (p[1]) {
case 'n': /* number */
if (!read_number(L, f)) goto endloop; /* read fails */
continue; /* number is already pushed; avoid the "pushstring" */
success = read_number(L, f);
break;
case 'l': /* line */
success = read_line(L, f);
break;
@ -361,11 +362,11 @@ static int io_read (lua_State *L) {
}
}
}
if (!success) {
lua_pop(L, 1); /* remove last result */
break; /* read fails */
}
} endloop:
}
if (!success) {
lua_pop(L, 1); /* remove last result */
lua_pushnil(L); /* push nil instead */
}
return n - firstarg;
}