39 lines
899 B
C
39 lines
899 B
C
/*
|
|
* 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.
|
|
*/
|
|
|
|
static char sccsid[] = "@(#) fixstrtod.c 1.4 95/07/27 12:59:26";
|
|
|
|
#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;
|
|
}
|