version 1.3, 1998/12/08 22:03:02
|
version 1.5, 2000/07/30 19:56:06
|
Line 32 char* ecvt(double x, int len, int* exp,
|
Line 32 char* ecvt(double x, int len, int* exp,
|
{ |
{ |
int i, j; |
int i, j; |
double z; |
double z; |
fprintf(stderr, "using own ecvt\n"); |
|
|
|
if(len > (MAXCONV-1)) len = MAXCONV-1; |
if(len > (MAXCONV-1)) len = MAXCONV-1; |
|
|
Line 57 char* ecvt(double x, int len, int* exp,
|
Line 56 char* ecvt(double x, int len, int* exp,
|
for(i=0; i < len; i++) |
for(i=0; i < len; i++) |
{ |
{ |
z=floor(x); |
z=floor(x); |
|
if(z<0) z = 0; |
scratch[i]='0'+(char)((int)z); |
scratch[i]='0'+(char)((int)z); |
x = (x-z)*10; |
x = (x-z)*10; |
} |
} |
Line 95 int main(int argc, char ** argv)
|
Line 95 int main(int argc, char ** argv)
|
printf("ecvt Test: %f -> %s, %d, %d\n",9e0,conv,a,b); |
printf("ecvt Test: %f -> %s, %d, %d\n",9e0,conv,a,b); |
} |
} |
#endif |
#endif |
|
|