lang/cem/libcc.ansi/stdlib/atof.c

   1 /*
   2  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3  * See the copyright notice in the ACK home directory, in the file "Copyright".
   4  */
   5 /* $Id: atof.c,v 1.3 1994/06/24 11:53:14 ceriel Exp $ */
   6
   7 #include        <stdlib.h>
   8 #include        <errno.h>
   9
  10 double
  11 atof(const char *nptr)
  12 {
  13         double d;
  14         int e = errno;
  15
  16         d = strtod(nptr, (char **) NULL);
  17         errno = e;
  18         return d;
  19 }