![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ecvt.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine|
Return to ecvt.c CVS log | Up to [gforth] / gforth / engine |
| version 1.7, 2000/09/23 15:47:07 | version 1.8, 2007/02/09 19:07:35 |
|---|---|
| Line 33 char* ecvt(double x, int len, int* exp, | Line 33 char* ecvt(double x, int len, int* exp, |
| int i, j; | int i, j; |
| double z; | double z; |
| if (isnan(x)) { | |
| *sign=0; | |
| *exp=0; | |
| return "nan"; | |
| } | |
| if (isinf(x)) { | |
| *sign=0; /* this mimics the glibc ecvt */ | |
| *exp=0; | |
| if (x<0) | |
| return "-inf"; | |
| else | |
| return "inf"; | |
| } | |
| if(len > (MAXCONV-1)) len = MAXCONV-1; | if(len > (MAXCONV-1)) len = MAXCONV-1; |
| if(x<0) | if(x<0) |