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

skips can be nested (why not?).

This commit is contained in:
Roberto Ierusalimschy 1997-03-05 10:32:41 -03:00
parent a8a15ff1bd
commit ec422ec7d0
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
iolib.c
View File

@ -115,8 +115,14 @@ static void io_read (void)
int c = NEED_OTHER; int c = NEED_OTHER;
luaI_addchar(0); luaI_addchar(0);
while (*p) { while (*p) {
if (*p == '{' || *p == '}') { if (*p == '{') {
inskip = (*p == '{'); inskip++;
p++;
}
else if (*p == '}') {
if (inskip == 0)
lua_error("unbalanced `{...}' in read pattern");
inskip--;
p++; p++;
} }
else { else {
@ -125,7 +131,7 @@ static void io_read (void)
if (c == NEED_OTHER) c = getc(lua_infile); if (c == NEED_OTHER) c = getc(lua_infile);
m = (c == EOF) ? 0 : singlematch((char)c, p); m = (c == EOF) ? 0 : singlematch((char)c, p);
if (m) { if (m) {
if (!inskip) luaI_addchar(c); if (inskip == 0) luaI_addchar(c);
c = NEED_OTHER; c = NEED_OTHER;
} }
switch (*ep) { switch (*ep) {