conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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:
Yuichi Nishiwaki 2014-07-19 11:27:56 +09:00
parent b72487104e bbeee8f10e
commit 091dc9a668
1 changed files with 34 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/read.c
View File

@ -115,6 +115,39 @@ read_datum_comment(pic_state *pic, struct pic_port *port, char c)
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
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) {
case '!':
return read_comment(pic, port, c);
return read_directive(pic, port, c);
case '|':
return read_block_comment(pic, port, c);
case ';':