nf_stringToDoubles.c File Reference

#include <stdlib.h>
#include <ctype.h>
#include "nf_utilities.h"

Go to the source code of this file.

Macros
#define	numberOfStaticDoubles   ( 100 * 1000 )
#define	valid_digit(c)

Functions
double *	nfu_stringToListOfDoubles (statusMessageReporting *smr, char const *str, char sep, int64_t *numberConverted, char **endCharacter, int useSystem_strtod)
double	nf_strtod (char const *str, char **endCharacter)
char *	nf_floatToShortestString (double value, int significantDigits, int favorEFormBy, int flags)

Macro Definition Documentation

numberOfStaticDoubles

#define numberOfStaticDoubles   ( 100 * 1000 )

Definition at line 19 of file nf_stringToDoubles.c.

valid_digit

#define valid_digit

(

c

)

Value:

( ( c ) >= '0' && ( c ) <= '9')

Definition at line 111 of file nf_stringToDoubles.c.

Referenced by nf_strtod().

Function Documentation

nf_floatToShortestString()

char * nf_floatToShortestString	(	double	value,
		int	significantDigits,
		int	favorEFormBy,
		int	flags )

Definition at line 176 of file nf_stringToDoubles.c.

                                                                                                   {
 
    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( !isfinite( value ) ) {
        sprintf( Fmt, "%%%sf", sign );
        sprintf( Str_e, Fmt, value );
        return( strdup( Str_e ) );
    }
 
    significantDigits--;
    if( significantDigits < 0 ) significantDigits = 0;
    if( significantDigits > 24 ) significantDigits = 24;
 
    sprintf( Fmt, "%%%s.%de", sign, significantDigits );
    sprintf( 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--;
    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++ ) ;
        sprintf( e1, "e%d", exponent );
 
        digitsRightOfPeriod_f = significantDigits - exponent;
        if( ( digitsRightOfPeriod_f > 25 ) || ( exponent > 50 ) ) return( strdup( Str_r ) );
        if( digitsRightOfPeriod_f < 0 ) digitsRightOfPeriod_f = 0;
 
        sprintf( Fmt, "%%%s.%df", sign, digitsRightOfPeriod_f );
        sprintf( 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--;
            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 ) );
}

Referenced by LUPI::Misc::doubleToShortestString().

nf_strtod()

double nf_strtod	(	char const *	str,
		char **	endCharacter )

Definition at line 115 of file nf_stringToDoubles.c.

                                                         {
 
    *endCharacter = (char *) str;
    char *ptr = *endCharacter;
 
    while( isspace( *ptr ) ) ++ptr;                         /* Skip leading white space, if any. */
 
    double sign = 1.0;                                      /* Get sign, if any. */
    if( *ptr == '-' ) {
        sign = -1.0;
        ++ptr; } 
    else if( *ptr == '+' ) {
        ++ptr;
    }
 
    double value = 0.0;                                     /* Get digits before decimal point or exponent, if any. */
    for( ; valid_digit( *ptr ); ++ptr ) value = value * 10.0 + ( *ptr - '0' );
 
    if( *ptr == '.' ) {                                     /* Get digits after decimal point, if any. */
        double invPow10 = 0.1;
        ++ptr;
        while( valid_digit( *ptr ) ) {
            value += ( *ptr - '0' ) * invPow10;
            invPow10 *= 0.1;
            ++ptr;
        }
    }
 
    if( ( *ptr == 'e' ) || ( *ptr == 'E' ) ) {              /* Handle exponent, if any. */
        int negativeExponent = 0;
 
        ++ptr;                                            /* Get sign of exponent, if any. */
        if( *ptr == '-' ) {
            negativeExponent = 1;
            ++ptr; }
        else if( *ptr == '+' ) {
            ++ptr;
        }
 
        unsigned int exponent = 0;                      /* Get digits of exponent. There must be at least 1. */
        for( ; valid_digit( *ptr ); ++ptr ) exponent = exponent * 10 + ( *ptr - '0' );
        if( exponent > 308 ) {
            return( strtod( str, endCharacter ) );
        }
 
        double scale = 1.0;                             /* Calculate scaling factor. */
        if( exponent == 0 ) negativeExponent = 0;
        while( exponent >= 50 ) { scale *= 1E50; exponent -= 50; }
        while( exponent >=  8 ) { scale *= 1E8;  exponent -=  8; }
        while( exponent >   0 ) { scale *= 10.0; exponent -=  1; }
 
        if( negativeExponent ) scale = 1.0 / scale;
        value *= scale;
    }
 
    *endCharacter = ptr;
    return( sign * value );
}

nfu_stringToListOfDoubles()

double * nfu_stringToListOfDoubles	(	statusMessageReporting *	smr,
		char const *	str,
		char	sep,
		int64_t *	numberConverted,
		char **	endCharacter,
		int	useSystem_strtod )

Definition at line 26 of file nf_stringToDoubles.c.

                                                    {
 
    if( strchr( "0123456789.+-eE", sep ) != NULL ) {
        smr_setReportError2( smr, nfu_SMR_libraryID, nfu_badInput, "Invalid sep ='%c'.", sep );
        return( NULL );
    }
 
    *numberConverted = 0;
    *endCharacter = (char *) str;
    if( isspace( sep ) ) sep = ' ';             /* Make it the space character if any white space as it simplifies logic below. */
    return( nfu_stringToListOfDoubles2( smr, str, sep, numberConverted, endCharacter, useSystem_strtod ) );
}

Referenced by MCGIDI::convertACE_URR_probabilityTablesFromGIDI(), ptwX_fromString(), and ptwXY_fromString().