mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
82 lines
2.1 KiB
82 lines
2.1 KiB
/***
|
|
*wtof.c - convert wchar_t string to floating point number
|
|
*
|
|
* Copyright (c) 1985-2001, Microsoft Corporation. All rights reserved.
|
|
*
|
|
*Purpose:
|
|
* Converts a wide character string into a floating point number.
|
|
*
|
|
*Revision History:
|
|
* 05-18-00 GB written.
|
|
* 08-29-00 GB Fixed buffer overrun.
|
|
* 02-19-01 GB added _alloca and Check for return value of _malloc_crt
|
|
*
|
|
*******************************************************************************/
|
|
#ifndef _POSIX_
|
|
|
|
#ifndef _UNICODE
|
|
#define _UNICODE
|
|
#endif
|
|
|
|
#include <cruntime.h>
|
|
#include <internal.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
#include <dbgint.h>
|
|
#include <errno.h>
|
|
#include <malloc.h>
|
|
/***
|
|
*double wtof(ptr) - convert wide char string to floating point number
|
|
*
|
|
*Purpose:
|
|
* atof recognizes an optional string of whitespace, 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.
|
|
*
|
|
*Entry:
|
|
* ptr - pointer to wide char string to convert
|
|
*
|
|
*Exit:
|
|
* returns floating point value of wide character representation
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
double __cdecl _wtof(
|
|
const wchar_t *ptr
|
|
)
|
|
{
|
|
char *cptr;
|
|
int malloc_flag = 0;
|
|
size_t len;
|
|
double retval;
|
|
while (iswspace(*ptr))
|
|
ptr++;
|
|
|
|
len = wcstombs(NULL, ptr, 0);
|
|
__try{
|
|
cptr = (char *)_alloca((len+1) * sizeof(wchar_t));
|
|
}
|
|
__except(1){ //EXCEPTION_EXECUTE_HANDLER
|
|
_resetstkoflw();
|
|
if ((cptr = (char *)_malloc_crt((len+1) * sizeof(wchar_t))) == NULL)
|
|
{
|
|
errno = ENOMEM;
|
|
return 0.0;
|
|
}
|
|
malloc_flag = 1;
|
|
}
|
|
// UNDONE: check for errors
|
|
// Add one to len so as to null terminate cptr.
|
|
wcstombs(cptr, ptr, len+1);
|
|
retval = atof(cptr);
|
|
if (malloc_flag)
|
|
_free_crt(cptr);
|
|
|
|
return retval;
|
|
}
|
|
#endif
|