/*?
?*?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.cv?1.2?1998/09/14?18:39:44?stanton?Exp?$
?*/

#include?

#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;
}