1 files changed, 115 insertions, 0 deletions
diff --git a/private/crt32/convert/wcstod.c b/private/crt32/convert/wcstod.c
new file mode 100644
index 000000000..18db8b193
--- /dev/null
+++ b/private/crt32/convert/wcstod.c
@@ -0,0 +1,115 @@
+/***
+*wcstod.c - convert wide char string to floating point number
+*
+*	Copyright (c) 1985-1991, Microsoft Corporation. All rights reserved.
+*
+*Purpose:
+*	Convert character string to floating point number
+*
+*Revision History:
+*	06-15-92  KRS	Created from strtod.c.
+*	11-06-92  KRS	Fix bugs in wctomb() loop.
+*
+*******************************************************************************/
+
+#include <cruntime.h>
+#include <stdlib.h>
+#include <fltintrn.h>
+#include <string.h>
+#include <ctype.h>
+#include <errno.h>
+#include <math.h>
+
+/***
+*double wcstod(nptr, endptr) - convert wide string to double
+*
+*Purpose:
+*	wcstod recognizes an optional string of tabs and spaces,
+*	then an optional sign, then a string of digits optionally
+*	containing a decimal point, then an optional e or E followed
+*	by an optionally signed integer, and converts all this to
+*	to a floating point number.  The first unrecognized
+*	character ends the string, and is pointed to by endptr.
+*
+*Entry:
+*	nptr - pointer to wide string to convert
+*
+*Exit:
+*	returns value of wide character string
+*	wchar_t **endptr - if not NULL, points to character which stopped
+*			the scan
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+double _CALLTYPE1 wcstod (
+	const wchar_t *nptr,
+	REG2 wchar_t **endptr
+	)
+{
+
+#ifdef	MTHREAD
+	struct _flt answerstruct;
+#endif
+
+	FLT	 answer;
+	double	     tmp;
+	unsigned int flags;
+	REG1 wchar_t *ptr = (wchar_t *) nptr;
+	char * cptr;
+	int retval, len;
+	int clen = 0;
+
+	/* scan past leading space/tab characters */
+
+	while (iswspace(*ptr))
+		ptr++;
+
+	cptr = (char *)malloc((wcslen(ptr)+1) * sizeof(wchar_t));
+	// UNDONE: check for errors
+	for (len = 0; ptr[len]; len++)
+	    {
+	    if ((retval = wctomb(cptr+len,ptr[len]))<=0)
+		break;
+	    clen += retval;
+	    }
+	cptr[clen++] = '\0';
+
+	/* let _fltin routine do the rest of the work */
+
+#ifdef	MTHREAD
+	/* ok to take address of stack variable here; fltin2 knows to use ss */
+	answer = _fltin2( &answerstruct, cptr, clen, 0, 0);
+#else
+	answer = _fltin(cptr, clen, 0, 0);
+#endif
+
+	if ( endptr != NULL )
+		*endptr = (wchar_t *) ptr + answer->nbytes;
+		/* UNDONE: assumes no multi-byte chars in string */
+
+	flags = answer->flags;
+	if ( flags & (512 | 64)) {
+		/* no digits found or invalid format:
+		   ANSI says return 0.0, and *endptr = nptr */
+		tmp = 0.0;
+		if ( endptr != NULL )
+			*endptr = (wchar_t *) nptr;
+	}
+	else if ( flags & (128 | 1) ) {
+		if ( *ptr == '-' )
+			tmp = -HUGE_VAL;	/* negative overflow */
+		else
+			tmp = HUGE_VAL; 	/* positive overflow */
+		errno = ERANGE;
+	}
+	else if ( flags & 256 ) {
+		tmp = 0.0;			/* underflow */
+		errno = ERANGE;
+	}
+	else
+		tmp = answer->dval;
+
+	return(tmp);
+}