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

write +inf.0, -inf.0, +nan.0, ...

This commit is contained in:
Yuichi Nishiwaki 2014-07-26 18:03:51 +09:00
parent fcd332be9f
commit 8f419c5eab
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/write.c
View File

@ -2,6 +2,8 @@
* See Copyright Notice in picrin.h * See Copyright Notice in picrin.h
*/ */
#include <math.h>
#include "picrin.h" #include "picrin.h"
#include "picrin/port.h" #include "picrin/port.h"
#include "picrin/pair.h" #include "picrin/pair.h"
@ -185,6 +187,7 @@ write_core(struct writer_control *p, pic_value obj)
size_t i; size_t i;
xh_entry *e; xh_entry *e;
int c; int c;
float f;
/* shared objects */ /* shared objects */
if (pic_vtype(obj) == PIC_VTYPE_HEAP if (pic_vtype(obj) == PIC_VTYPE_HEAP
@ -257,7 +260,14 @@ write_core(struct writer_control *p, pic_value obj)
} }
break; break;
case PIC_TT_FLOAT: case PIC_TT_FLOAT:
xfprintf(file, "%f", pic_float(obj)); f = pic_float(obj);
if (isnan(f)) {
xfprintf(file, signbit(f) ? "-nan.0" : "+nan.0");
} else if (isinf(f)) {
xfprintf(file, signbit(f) ? "-inf.0" : "+inf.0");
} else {
xfprintf(file, "%f", pic_float(obj));
}
break; break;
case PIC_TT_INT: case PIC_TT_INT:
xfprintf(file, "%d", pic_int(obj)); xfprintf(file, "%d", pic_int(obj));