core: reader_eat_whitespace: Prepare for M2-Planet.

* src/reader.c (reader_eat_whitespace): Prepare for M2-Planet.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-07-16 21:37:41 +02:00
parent 9cbf29b70a
commit bd816cf29b
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273

View file

@ -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;
} }