/***********************************************************
* You can use all the programs on  www.c-program-example.com
* for personal and learning purposes. For permissions to use the
* programs for commercial purposes,
* contact [email protected]
* To find more C programs, do visit www.c-program-example.com
* and browse!
* 
*                      Happy Coding
***********************************************************/

#include <ctype.h>
#include <limits.h>
#include <float.h>
#include <signal.h>
#include <stdio.h>

int my_atof(char *string, double *pnumber) {
 /* Convert char string to double data type. */
 double retval;
 double one_tenth = 0.1;
 double ten = 10.0;
 double zero = 0.0;
 int found_digits = 0;
 int is_negative = 0;
 char *num;

 /* Check pointers. */
 if (pnumber == 0) {
  return 0;
 }
 if (string == 0) {
  *pnumber = zero;
  return 0;
 }
 retval = zero;

 num = string;

 /* Advance past white space. */
 while (isspace(*num))
  num++;

 /* Check for sign. */
 if (*num == '+')
  num++;
 else if (*num == '-') {
  is_negative = 1;
  num++;
 }
 /* Calculate the integer part. */
 while (isdigit(*num)) {
  found_digits = 1;
  retval *= ten;
  retval += *num - '0';
  num++;
 }

 /* Calculate the fractional part. */
 if (*num == '.') {
  double scale = one_tenth;
  num++;
  while (isdigit(*num)) {
   found_digits = 1;
   retval += scale * (*num - '0');
   num++;
   scale *= one_tenth;
  }
 }
 /* If this is not a number, return error condition. */
 if (!found_digits) {
  *pnumber = zero;
  return 0;
 }
 /* If all digits of integer & fractional part are 0, return 0.0 */
 if (retval == zero) {
  *pnumber = zero;
  return 1; /* Not an error condition, and no need to
   * continue. */
 }
 /* Process the exponent (if any) */
 if ((*num == 'e') || (*num == 'E')) {
  int neg_exponent = 0;
  int get_out = 0;
  long index;
  long exponent = 0;
  double getting_too_big = DBL_MAX * one_tenth;
  double getting_too_small = DBL_MIN * ten;

  num++;
  if (*num == '+')
   num++;
  else if (*num == '-') {
   num++;
   neg_exponent = 1;
  }
  /* What if the exponent is empty?  Return the current result. */
  if (!isdigit(*num)) {
   if (is_negative)
    retval = -retval;

   *pnumber = retval;

   return (1);
  }
  /* Convert char exponent to number <= 2 billion. */
  while (isdigit(*num) && (exponent < LONG_MAX / 10)) {
   exponent *= 10;
   exponent += *num - '0';
   num++;
  }

  /* Compensate for the exponent. */
  if (neg_exponent) {
   for (index = 1; index <= exponent && !get_out; index++)
    if (retval < getting_too_small) {
     get_out = 1;
     retval = DBL_MIN;
    } else
     retval *= one_tenth;
  } else
   for (index = 1; index <= exponent && !get_out; index++) {
    if (retval > getting_too_big) {
     get_out = 1;
     retval = DBL_MAX;
    } else
     retval *= ten;
   }
 }
 if (is_negative)
  retval = -retval;

 *pnumber = retval;

 return (1);
}

double atof(char *s) {
 double d = 0.0;
 if (!my_atof(s, &d)) {
#ifdef DEBUG
  fputs("Error converting string in [sic] atof()", stderr);
#endif
  raise(SIGFPE);
 }
 return d;
}

#ifdef UNIT_TEST
char *strings[] = {
 "1.0e43",
 "999.999",
 "123.456e-9",
 "-1.2e-3",
 "1.2e-3",
 "-1.2E3",
 "-1.2e03",
 "cat",
 "",
 0
};
int main(void)
{
 int i = 0;
 for (; *strings[i]; i++)
 printf("atof(%s) = %gn", strings[i], atof(strings[i]));
 return 0;
}
#endif

Read more Similar C Programs
C Basic
C Strings
K and R C Programs Exercise

You can easily select the code by double clicking on the code area above.

To get regular updates on new C programs, you can Follow @c_program

You can discuss these programs on our Facebook Page. Start a discussion right now,

our page!

Share this program with your Facebook friends now! by liking it

(you can send this program to your friend using this button)

Like to get updates right inside your feed reader? Grab our feed!