ecvt.c File Reference

#include <precomp.h>

Include dependency graph for ecvt.c:

Go to the source code of this file.

Macros
#define	NUMBER_EFMT   18 /* sign, dot, null, 15 for alignment */

Functions
char *	_ecvt (double value, int ndigits, int *decpt, int *sign)

Macro Definition Documentation

NUMBER_EFMT

#define NUMBER_EFMT   18 /* sign, dot, null, 15 for alignment */

Definition at line 10 of file ecvt.c.

Function Documentation

_ecvt()

char * _ecvt	(	double	value,
		int	ndigits,
		int *	decpt,
		int *	sign
	)

Definition at line 16 of file ecvt.c.

{
  static char ecvtbuf[DBL_MAX_10_EXP + 10];
  char *cvtbuf, *s, *d;
 
  if (ndigits < 0) ndigits = 0;
  s = cvtbuf = (char*)malloc(ndigits + NUMBER_EFMT);
  d = ecvtbuf;
 
  *sign = 0;
  *decpt = 0;
 
  if (cvtbuf == NULL)
  {
    return NULL;
  }
 
  sprintf(cvtbuf, "%-+.*E", ndigits, value);
  /* Treat special values */
  if (strncmp(s, "NaN", 3) == 0)
  {
    memcpy(ecvtbuf, s, 4);
  }
  else if (strncmp(s + 1, "Inf", 3) == 0)
  {
    memcpy(ecvtbuf, s, 5);
  }
  else
  {
    /* Set the sign */
    if (*s && *s == '-')
    {
      *sign = 1;
    }
    s++;
    /* Copy the first digit */
    if (*s && *s != '.')
    {
      if (d - ecvtbuf < ndigits)
      {
        *d++ = *s++;
      }
      else
      {
        s++;
      }
    }
    /* Skip the decimal point */
    if (*s && *s == '.')
    {
      s++;
    }
    /* Copy fractional digits */
    while (*s && *s != 'E')
    {
      if (d - ecvtbuf < ndigits)
      {
        *d++ = *s++;
      }
      else
      {
        s++;
      }
    }
    /* Skip the exponent */
    if (*s && *s == 'E')
    {
      s++;
    }
    /* Set the decimal point to the exponent value plus the one digit we copied */
    *decpt = atoi(s) + 1;
    /* Handle special decimal point cases */
    if (cvtbuf[1] == '0')
    {
      *decpt = 0;
    }
    if (ndigits < 1)
    {
      /* Need enhanced precision*/
      char* tbuf = (char*)malloc(NUMBER_EFMT);
      if (tbuf == NULL)
      {
        free(cvtbuf);
        return NULL;
      }
      sprintf(tbuf, "%-+.*E", ndigits + 2, value);
      if (tbuf[1] >= '5')
      {
        (*decpt)++;
      }
      free(tbuf);
    }
    /* Pad with zeroes */
    while (d - ecvtbuf < ndigits)
    {
      *d++ = '0';
    }
    /* Terminate */
    *d = '\0';
  }
  free(cvtbuf);
  return ecvtbuf;
}