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

12
iolib.c
View File

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