1/**
 2 * This file has no copyright assigned and is placed in the Public Domain.
 3 * This file is part of the mingw-w64 runtime package.
 4 * No warranty is given; refer to the file DISCLAIMER.PD within this package.
 5 */
 6/*  Wide char wrapper for strtold
 7 *  Revision history:
 8 *  6 Nov 2002	Initial version.
 9 *  25 Aug 2006  Don't use strtold internal functions.
10 *
11 *  Contributor:   Danny Smith <dannysmith@users.sourceforege.net>
12 */
13
14 /* This routine has been placed in the public domain.*/
15
16#ifndef WIN32_LEAN_AND_MEAN
17#define WIN32_LEAN_AND_MEAN
18#endif
19#include <windows.h>
20#include <locale.h>
21#include <wchar.h>
22#include <stdlib.h>
23#include <string.h>
24#include <mbstring.h>
25
26#include "mb_wc_common.h"
27
28long double __mingw_wcstold (const wchar_t * __restrict__ wcs, wchar_t ** __restrict__ wcse)
29{
30  char * cs;
31  char * cse;
32  unsigned int i;
33  long double ret;
34  const unsigned int cp = ___lc_codepage_func();
35
36  /* Allocate enough room for (possibly) mb chars */
37  cs = (char *) malloc ((wcslen(wcs)+1) * MB_CUR_MAX);
38
39  if (cp == 0) /* C locale */
40    {
41      for (i = 0; (wcs[i] != 0) && wcs[i] <= 255; i++)
42        cs[i] = (char) wcs[i];
43      cs[i]  = '\0';
44    }
45  else
46    {
47      int nbytes = -1;
48      int mb_len = 0;
49      /* loop through till we hit null or invalid character */
50      for (i = 0; (wcs[i] != 0) && (nbytes != 0); i++)
51	{
52	  nbytes = WideCharToMultiByte(cp, WC_COMPOSITECHECK | WC_SEPCHARS,
53				       wcs + i, 1, cs + mb_len, MB_CUR_MAX,
54				       NULL, NULL);
55	  mb_len += nbytes;
56	}
57      cs[mb_len] = '\0';
58    }
59
60  ret =  strtold (cs, &cse);
61
62  if (wcse)
63    {
64      /* Make sure temp mbstring has 0 at cse.  */ 
65      *cse = '\0';
66      i = MultiByteToWideChar (cp, MB_ERR_INVALID_CHARS, cs, -1, NULL, 0);
67      if (i > 0)
68        i -= 1; /* Remove zero terminator from length.  */
69      *wcse = (wchar_t *) wcs + i;
70    }
71  free (cs);
72
73  return ret;
74}