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

Ignore shebang only when it's at the first line and allow reader directives at other places whlile ignores them for now

This commit is contained in:
Sunrim KIM (keen) 2014-07-17 21:30:54 +09:00
parent 124ad994b2
commit fe30beadf1
1 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
src/read.c
View File

@ -114,6 +114,35 @@ 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)
{
c = next(port);
if (c == 'n') {
if(expect(port, "o-fold-case")){
/* :FIXME: set no-fold-case flag */
}
else{
goto abort;
}
}
else if (c == 'f') {
if(expect(port, "old-case")){
/* :FIXME: set fold-case flag */
}
else{
goto abort;
}
}
else{
abort:
pic_error(pic, "unknown directive");
}
return pic_undef_value();
}
static pic_value
read_quote(pic_state *pic, struct pic_port *port, char c)
{
@ -541,7 +570,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 ';':
@ -675,6 +704,13 @@ pic_parse_file(pic_state *pic, FILE *file)
port->flags = PIC_PORT_OUT | PIC_PORT_TEXT;
port->status = PIC_PORT_OPEN;
if(xfgetc(port->file) == '#' && xfgetc(port->file) == '!'){
while(xfgetc(port->file) != '\n');
}
else{
xfseek(port->file, 0, SEEK_SET);
}
return pic_parse(pic, port);
}