Merge pull request #169 from KeenS/directive-reader
Ignore shebang only when it's at the first line and allow reader directi...
This commit is contained in:
commit
091dc9a668
35
src/read.c
35
src/read.c
|
@ -115,6 +115,39 @@ read_datum_comment(pic_state *pic, struct pic_port *port, char c)
|
||||||
return pic_undef_value();
|
return pic_undef_value();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static pic_value
|
||||||
|
read_directive(pic_state *pic, struct pic_port *port, char c)
|
||||||
|
{
|
||||||
|
UNUSED(pic);
|
||||||
|
|
||||||
|
c = next(port);
|
||||||
|
|
||||||
|
if (c == 'n') {
|
||||||
|
if(expect(port, "o-fold-case")){
|
||||||
|
/* :FIXME: set no-fold-case flag */
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
xfseek(port->file, -1, SEEK_CUR);
|
||||||
|
goto shebang;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else if (c == 'f') {
|
||||||
|
if(expect(port, "old-case")){
|
||||||
|
/* :FIXME: set fold-case flag */
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
xfseek(port->file, -1, SEEK_CUR);
|
||||||
|
goto shebang;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
shebang:
|
||||||
|
while(xfgetc(port->file) != '\n');
|
||||||
|
}
|
||||||
|
|
||||||
|
return pic_undef_value();
|
||||||
|
}
|
||||||
|
|
||||||
static pic_value
|
static pic_value
|
||||||
read_quote(pic_state *pic, struct pic_port *port, char c)
|
read_quote(pic_state *pic, struct pic_port *port, char c)
|
||||||
{
|
{
|
||||||
|
@ -586,7 +619,7 @@ read_dispatch(pic_state *pic, struct pic_port *port, char c)
|
||||||
|
|
||||||
switch (c) {
|
switch (c) {
|
||||||
case '!':
|
case '!':
|
||||||
return read_comment(pic, port, c);
|
return read_directive(pic, port, c);
|
||||||
case '|':
|
case '|':
|
||||||
return read_block_comment(pic, port, c);
|
return read_block_comment(pic, port, c);
|
||||||
case ';':
|
case ';':
|
||||||
|
|
Loading…
Reference in New Issue