godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

when printing floats in "e"-format, trailing zeros are significant!

Browse Source
This commit is contained in:
ceriel 1987-02-11 12:47:45 +00:00
parent 3a69039b73
commit 93ebbf2e71
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lang/basic/lib/print.c
View File

@ -31,25 +31,31 @@ _str(f,buffer)
double f;
char *buffer;
{
char *c;
c= buffer;
register char *c = buffer;
int eformat = 0;
if( f>=0){
if( f> 1.0e8)
if( f> 1.0e8) {
eformat = 1;
sprintf(buffer," %e",f);
}
else sprintf(buffer," %f",f);
c++;
}else {
if(-f> 1.0e8)
if(-f> 1.0e8) {
eformat = 1;
sprintf(buffer,"-%e",-f);
}
else sprintf(buffer,"-%f",-f);
}
for( ; *c && *c!= ' ';c++) ;
c--;
while( c>buffer && *c== '0')
{
*c= 0;c--;
if (! eformat) {
for( ; *c && *c!= ' ';c++) ;
c--;
while( c>buffer && *c== '0')
{
*c= 0;c--;
}
if( *c=='.') *c=0;
}
if( *c=='.') *c=0;
strcat(buffer," ");
}
_prfnum(f)