/* 

  * fixstrtod.c --

  *

  *	Source code for the "fixstrtod" procedure.  This procedure is

  *	used in place of strtod under Solaris 2.4, in order to fix

  *	a bug where the "end" pointer gets set incorrectly.

  *

  * Copyright (c) 1995 Sun Microsystems, Inc.

  *

  * See the file "license.terms" for information on usage and redistribution

  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.

  *

  * RCS: @(#) $Id: fixstrtod.c,v 1.2 1998/09/14 18:39:44 stanton Exp $

  */

 #include <stdio.h>

 #undef strtod

 /*

  * Declare strtod explicitly rather than including stdlib.h, since in

  * somes systems (e.g. SunOS 4.1.4) stdlib.h doesn't declare strtod.

  */

 extern double strtod();

 double

 fixstrtod(string, endPtr)

     char *string;

     char **endPtr;

 {

     double d;

     d = strtod(string, endPtr);

     if ((endPtr != NULL) && (*endPtr != string) && ((*endPtr)[-1] == 0)) {

 	*endPtr -= 1;

     }

     return d;

 }