/*?
?*?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.
?*/

#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（char?*?char?**）;

double
fixstrtod（
????char?*string
????char?**endPtr）
{
????double?d;
????d?=?strtod（string?endPtr）;
????if?（（endPtr?!=?NULL）?&&?（*endPtr?!=?string）?&&?（（*endPtr）[-1]?==?0））?{
	*endPtr?-=?1;
????}
????return?d;
}