lib/libc/locale/_wcstod.h

   1 /* $NetBSD: _wcstod.h,v 1.4 2013/05/17 12:55:57 joerg Exp $ */
   2
   3 /*-
   4  * Copyright (c) 2002 Tim J. Robbins
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * aINre met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26  * SUCH DAMAGE.
  27  *
  28  * Original version ID:
  29  *   FreeBSD: /repoman/r/ncvs/src/lib/libc/locale/wcstod.c,v 1.4 2004/04/07 09:47:56 tjr Exp
  30  *   NetBSD: wcstod.c,v 1.8 2006/04/13 01:25:13 tnozaki Exp
  31  */
  32
  33 /*
  34  * function template for wcstof, wcstod, wcstold.
  35  *
  36  * parameters:
  37  *      _FUNCNAME    : function name
  38  *      _RETURN_TYPE : return type
  39  *      _STRTOD_FUNC : real conversion function
  40  */
  41 #ifndef __WCSTOD_H_
  42 #define __WCSTOD_H_
  43
  44 #include <locale.h>
  45 #include "setlocale_local.h"
  46 #define INT_NAME_(pre, middle, post) pre ## middle ## post
  47 #define INT_NAME(pre, middle, post) INT_NAME_(pre, middle, post)
  48
  49 /*
  50  * Convert a string to a double-precision number.
  51  *
  52  * This is the wide-character counterpart of strto{f,d,ld}(). So that
  53  * we do not have to duplicate the code of strto{f,d,ld}() here,
  54  * we convert the supplied wide-character string to multibyte and
  55  * call strto{f,d,ld}() on the result.
  56  * This assumes that the multibyte encoding is compatible with ASCII
  57  * for at least the digits, radix character and letters.
  58  */
  59 static _RETURN_TYPE
  60 INT_NAME(_int_, _FUNCNAME, _l)(const wchar_t * __restrict nptr,
  61                            wchar_t ** __restrict endptr, locale_t loc)
  62 {
  63         const wchar_t *src, *start;
  64         _RETURN_TYPE val;
  65         char *buf, *end;
  66         size_t bufsiz, len;
  67
  68         _DIAGASSERT(nptr != NULL);
  69         /* endptr may be null */
  70
  71         src = nptr;
  72         while (iswspace_l((wint_t)*src, loc) != 0)
  73                 ++src;
  74         if (*src == L'\0')
  75                 goto no_convert;
  76
  77         /*
  78          * Convert the supplied numeric wide-char. string to multibyte.
  79          *
  80          * We could attempt to find the end of the numeric portion of the
  81          * wide-char. string to avoid converting unneeded characters but
  82          * choose not to bother; optimising the uncommon case where
  83          * the input string contains a lot of text after the number
  84          * duplicates a lot of strto{f,d,ld}()'s functionality and
  85          * slows down the most common cases.
  86          */
  87         start = src;
  88         len = wcstombs_l(NULL, src, 0, loc);
  89         if (len == (size_t)-1)
  90                 /* errno = EILSEQ */
  91                 goto no_convert;
  92
  93         _DIAGASSERT(len > 0);
  94
  95         bufsiz = len;
  96         buf = (void *)malloc(bufsiz + 1);
  97         if (buf == NULL)
  98                 /* errno = ENOMEM */
  99                 goto no_convert;
 100
 101         len = wcstombs_l(buf, src, bufsiz + 1, loc);
 102
 103         _DIAGASSERT(len == bufsiz);
 104         _DIAGASSERT(buf[len] == '\0');
 105
 106         /* Let strto{f,d,ld}() do most of the work for us. */
 107         val = _STRTOD_FUNC(buf, &end, loc);
 108         if (buf == end) {
 109                 free(buf);
 110                 goto no_convert;
 111         }
 112
 113         /*
 114          * We only know where the number ended in the _multibyte_
 115          * representation of the string. If the caller wants to know
 116          * where it ended, count multibyte characters to find the
 117          * corresponding position in the wide-char string.
 118          */
 119         if (endptr != NULL)
 120                 /* XXX Assume each wide char is one byte. */
 121                 *endptr = __UNCONST(start + (size_t)(end - buf));
 122
 123         free(buf);
 124
 125         return val;
 126
 127 no_convert:
 128         if (endptr != NULL)
 129                 *endptr = __UNCONST(nptr);
 130         return 0;
 131 }
 132
 133 _RETURN_TYPE
 134 INT_NAME(, _FUNCNAME, )(const wchar_t * __restrict nptr,
 135     wchar_t ** __restrict endptr)
 136 {
 137         return INT_NAME(_int_, _FUNCNAME, _l)(nptr, endptr, _current_locale());
 138 }
 139
 140 _RETURN_TYPE
 141 INT_NAME(, _FUNCNAME, _l)(const wchar_t * __restrict nptr,
 142     wchar_t ** __restrict endptr, locale_t loc)
 143 {
 144         return INT_NAME(_int_, _FUNCNAME, _l)(nptr, endptr, loc);
 145 }
 146 #endif /*__WCSTOD_H_*/