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

read +INF.0, +InF.0, +Nan.0, ...

This commit is contained in:
Yuichi Nishiwaki 2014-07-26 16:56:27 +09:00
parent 27b157fb19
commit fcd332be9f
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/read.c
View File

@ -69,6 +69,18 @@ isdelim(char c)
return c == EOF || strchr("();,|\" \t\n\r", c) != NULL; /* ignores "#", "'" */ return c == EOF || strchr("();,|\" \t\n\r", c) != NULL; /* ignores "#", "'" */
} }
static bool
strcaseeq(const char *s1, const char *s2)
{
char a, b;
while ((a = *s1++) * (b = *s2++)) {
if (tolower(a) != tolower(b))
return false;
}
return a == b;
}
static pic_value static pic_value
read_comment(pic_state *pic, struct pic_port *port, char c) read_comment(pic_state *pic, struct pic_port *port, char c)
{ {
@ -262,10 +274,10 @@ read_minus(pic_state *pic, struct pic_port *port, char c)
} }
else { else {
sym = read_symbol(pic, port, c); sym = read_symbol(pic, port, c);
if (pic_eq_p(sym, pic_sym_value(pic_intern_cstr(pic, "-inf.0")))) { if (strcaseeq(pic_symbol_name(pic, pic_sym(sym)), "-inf.0")) {
return pic_float_value(-INFINITY); return pic_float_value(-INFINITY);
} }
if (pic_eq_p(sym, pic_sym_value(pic_intern_cstr(pic, "-nan.0")))) { if (strcaseeq(pic_symbol_name(pic, pic_sym(sym)), "-nan.0")) {
return pic_float_value(-NAN); return pic_float_value(-NAN);
} }
return sym; return sym;
@ -282,10 +294,10 @@ read_plus(pic_state *pic, struct pic_port *port, char c)
} }
else { else {
sym = read_symbol(pic, port, c); sym = read_symbol(pic, port, c);
if (pic_eq_p(sym, pic_sym_value(pic_intern_cstr(pic, "+inf.0")))) { if (strcaseeq(pic_symbol_name(pic, pic_sym(sym)), "+inf.0")) {
return pic_float_value(INFINITY); return pic_float_value(INFINITY);
} }
if (pic_eq_p(sym, pic_sym_value(pic_intern_cstr(pic, "+nan.0")))) { if (strcaseeq(pic_symbol_name(pic, pic_sym(sym)), "+nan.0")) {
return pic_float_value(NAN); return pic_float_value(NAN);
} }
return read_symbol(pic, port, c); return read_symbol(pic, port, c);