nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

details.

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1998-08-30 17:25:24 -03:00
parent 22c2704842
commit b04294d3d8
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
liolib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 1.22 1998/08/21 17:43:44 roberto Exp roberto $ ** $Id: liolib.c,v 1.23 1998/08/24 20:14:56 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
*/ */
@@ -195,6 +195,8 @@ static void read_until (FILE *f, int lim) {
} }
if (l > 0 || c == lim) /* read anything? */ if (l > 0 || c == lim) /* read anything? */
lua_pushlstring(luaL_buffer(), l); lua_pushlstring(luaL_buffer(), l);
else
lua_pushnil();
} }
static void io_read (void) { static void io_read (void) {
@@ -204,7 +206,7 @@ static void io_read (void) {
luaL_resetbuffer(); luaL_resetbuffer();
if (p == NULL) /* default: read a line */ if (p == NULL) /* default: read a line */
read_until(f, '\n'); read_until(f, '\n');
else if (p[0] == '.' && p[1] == '*' && p[2] == 0) /* p = ".*" */ else if (strcmp(p, ".*") == 0)
read_until(f, EOF); read_until(f, EOF);
else { else {
int l = 0; /* number of chars read in buffer */ int l = 0; /* number of chars read in buffer */