Gabriele Cosmo
136 lines
4.6 KiB
C++
136 lines
4.6 KiB
C++
/*
|
|
# <<BEGIN-copyright>>
|
|
# <<END-copyright>>
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
#include <float.h>
|
|
#include <cmath>
|
|
|
|
#include "nf_utilities.h"
|
|
|
|
#if defined __cplusplus
|
|
namespace GIDI {
|
|
using namespace GIDI;
|
|
#endif
|
|
|
|
#define numberOfStaticDoubles ( 100 * 1000 )
|
|
|
|
static nfu_status nfu_stringToListOfDoubles2( char const *str, int64_t *numberConverted, double **doublePtr, char **endCharacter );
|
|
/*
|
|
========================================================================
|
|
*/
|
|
nfu_status nfu_stringToListOfDoubles( char const *str, int64_t *numberConverted, double **doublePtr, char **endCharacter ) {
|
|
|
|
*numberConverted = 0;
|
|
*doublePtr = NULL;
|
|
return( nfu_stringToListOfDoubles2( str, numberConverted, doublePtr, endCharacter ) );
|
|
}
|
|
/*
|
|
========================================================================
|
|
*/
|
|
static nfu_status nfu_stringToListOfDoubles2( char const *str, int64_t *numberConverted, double **doublePtr, char **endCharacter ) {
|
|
|
|
int64_t i1, i2, numberConverted_initial = *numberConverted;
|
|
double staticDoubles[numberOfStaticDoubles];
|
|
nfu_status status = nfu_Okay;
|
|
|
|
for( i1 = 0; i1 < numberOfStaticDoubles; i1++, (*numberConverted)++ ) {
|
|
staticDoubles[i1] = strtod( str, endCharacter );
|
|
if( str == (char const *) *endCharacter ) {
|
|
if( *numberConverted > 0 ) {
|
|
if( ( *doublePtr = (double *) nfu_malloc( (size_t) *numberConverted * sizeof( double ) ) ) == NULL ) status = nfu_mallocError;
|
|
}
|
|
break;
|
|
}
|
|
str = (char const *) *endCharacter;
|
|
}
|
|
|
|
if( ( status == nfu_Okay ) && ( *doublePtr == NULL ) ) status = nfu_stringToListOfDoubles2( str, numberConverted, doublePtr, endCharacter );
|
|
if( *doublePtr != NULL ) {
|
|
double *doublePtr2 = &((*doublePtr)[numberConverted_initial]);
|
|
|
|
for( i2 = 0; i2 < i1; i2++, doublePtr2++ ) *doublePtr2 = staticDoubles[i2];
|
|
}
|
|
return( status );
|
|
}
|
|
/*
|
|
============================================================
|
|
*/
|
|
char *nf_floatToShortestString( double value, int significantDigits, int favorEFormBy, int flags ) {
|
|
|
|
int n1, ne, nf, digitsRightOfPeriod_f, exponent;
|
|
char Str_e[512], Str_f[512], *Str_r = Str_e, Fmt[32], *e1, *e2;
|
|
const char *sign = "";
|
|
|
|
if( flags & nf_floatToShortestString_includeSign ) sign = "+";
|
|
|
|
if( !std::isfinite( value ) ) {
|
|
snprintf( Fmt, sizeof Fmt, "%%%sf", sign );
|
|
snprintf( Str_e, sizeof Str_e, Fmt, value );
|
|
return( strdup( Str_e ) );
|
|
}
|
|
|
|
significantDigits--;
|
|
if( significantDigits < 0 ) significantDigits = 0;
|
|
if( significantDigits > 24 ) significantDigits = 24;
|
|
|
|
snprintf( Fmt, sizeof Fmt, "%%%s.%de", sign, significantDigits );
|
|
snprintf( Str_e, sizeof Str_e, Fmt, value );
|
|
|
|
e1 = strchr( Str_e, 'e' );
|
|
if( significantDigits == 0 ) {
|
|
if( *(e1 - 1) != '.' ) {
|
|
char *e3;
|
|
|
|
e2 = strchr( e1, 0 );
|
|
e3 = e2 + 1;
|
|
for( ; e2 != e1; e2--, e3-- ) *e3 = *e2;
|
|
*(e1++) = '.';
|
|
}
|
|
}
|
|
*e1 = 0;
|
|
n1 = (int) strlen( Str_e ) - 1;
|
|
if( flags & nf_floatToShortestString_trimZeros ) while( Str_e[n1] == '0' ) n1--; // Loop checking, 11.06.2015, T. Koi
|
|
ne = flags & nf_floatToShortestString_keepPeriod;
|
|
if( !( flags & nf_floatToShortestString_keepPeriod ) ) if( Str_e[n1] == '.' ) n1--;
|
|
n1++;
|
|
Str_e[n1] = 0;
|
|
|
|
e1++;
|
|
exponent = (int) strtol( e1, &e2, 10 );
|
|
if( exponent != 0 ) { /* If 0, the exponent was "e+00". */
|
|
for( e1 = Str_e; *e1 != 0; e1++ ) ;
|
|
snprintf( e1, sizeof Str_e, "e%d", exponent );
|
|
|
|
digitsRightOfPeriod_f = significantDigits - exponent;
|
|
if( ( digitsRightOfPeriod_f > 25 ) || ( exponent > 50 ) ) return( strdup( Str_r ) );
|
|
if( digitsRightOfPeriod_f < 0 ) digitsRightOfPeriod_f = 0;
|
|
|
|
snprintf( Fmt, sizeof Fmt, "%%%s.%df", sign, digitsRightOfPeriod_f );
|
|
snprintf( Str_f, sizeof Str_f, Fmt, value );
|
|
|
|
ne = (int) strlen( Str_e );
|
|
nf = (int) strlen( Str_f );
|
|
if( strchr( Str_f, '.' ) != NULL ) { /* '.' in string. */
|
|
if( flags & nf_floatToShortestString_trimZeros ) while( Str_f[nf-1] == '0' ) nf--; // Loop checking, 11.06.2015, T. Koi
|
|
if( Str_f[nf-1] == '.' ) {
|
|
if( !( flags & nf_floatToShortestString_keepPeriod ) ) nf--;
|
|
} }
|
|
else { /* Maybe we want a '.' else it looks like an integer, "12345." vs "12345". */
|
|
if( flags & nf_floatToShortestString_keepPeriod ) {
|
|
Str_f[nf] = '.';
|
|
nf++;
|
|
}
|
|
}
|
|
Str_f[nf] = 0;
|
|
|
|
if( ( nf + favorEFormBy ) < ne ) Str_r = Str_f;
|
|
}
|
|
return( strdup( Str_r ) );
|
|
}
|
|
|
|
#if defined __cplusplus
|
|
}
|
|
#endif
|