core: reader_eat_whitespace: Prepare for M2-Planet.
* src/reader.c (reader_eat_whitespace): Prepare for M2-Planet.
This commit is contained in:
parent
9cbf29b70a
commit
bd816cf29b
12
src/reader.c
12
src/reader.c
|
@ -162,11 +162,15 @@ reader_eat_whitespace (int c)
|
||||||
c = readchar ();
|
c = readchar ();
|
||||||
if (c == ';')
|
if (c == ';')
|
||||||
return reader_eat_whitespace (reader_read_line_comment (c));
|
return reader_eat_whitespace (reader_read_line_comment (c));
|
||||||
if (c == '#' && (peekchar () == '!' || peekchar () == '|'))
|
if (c == '#')
|
||||||
{
|
{
|
||||||
c = readchar ();
|
int p = peekchar ();
|
||||||
reader_read_block_comment (c, readchar ());
|
if (p == '!' || p == '|')
|
||||||
return reader_eat_whitespace (readchar ());
|
{
|
||||||
|
c = readchar ();
|
||||||
|
reader_read_block_comment (c, readchar ());
|
||||||
|
return reader_eat_whitespace (readchar ());
|
||||||
|
}
|
||||||
}
|
}
|
||||||
return c;
|
return c;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue