stdlib/strtod.c

   1 /* Read decimal floating point numbers.
   2    This file is part of the GNU C Library.
   3    Copyright (C) 1995-2017 Free Software Foundation, Inc.
   4    Contributed by Ulrich Drepper <drepper@gnu.org>, 1995.
   5
   6    The GNU C Library is free software; you can redistribute it and/or
   7    modify it under the terms of the GNU Lesser General Public
   8    License as published by the Free Software Foundation; either
   9    version 2.1 of the License, or (at your option) any later version.
  10
  11    The GNU C Library is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14    Lesser General Public License for more details.
  15
  16    You should have received a copy of the GNU Lesser General Public
  17    License along with the GNU C Library; if not, see
  18    <http://www.gnu.org/licenses/>.  */
  19
  20 #include <stdlib.h>
  21 #include <wchar.h>
  22 #include <locale/localeinfo.h>
  23
  24
  25 #ifndef FLOAT
  26 # include <math_ldbl_opt.h>
  27 # define FLOAT double
  28 # ifdef USE_WIDE_CHAR
  29 #  define STRTOF wcstod
  30 #  define STRTOF_L __wcstod_l
  31 # else
  32 #  define STRTOF strtod
  33 #  define STRTOF_L __strtod_l
  34 # endif
  35 #endif
  36
  37 #ifdef USE_WIDE_CHAR
  38 # include <wctype.h>
  39 # define STRING_TYPE wchar_t
  40 #else
  41 # define STRING_TYPE char
  42 #endif
  43
  44 #define INTERNAL(x) INTERNAL1(x)
  45 #define INTERNAL1(x) __##x##_internal
  46
  47
  48 FLOAT
  49 INTERNAL (STRTOF) (const STRING_TYPE *nptr, STRING_TYPE **endptr, int group)
  50 {
  51   return INTERNAL(STRTOF_L) (nptr, endptr, group, _NL_CURRENT_LOCALE);
  52 }
  53 #if defined _LIBC
  54 libc_hidden_def (INTERNAL (STRTOF))
  55 #endif
  56
  57
  58 FLOAT
  59 #ifdef weak_function
  60 weak_function
  61 #endif
  62 STRTOF (const STRING_TYPE *nptr, STRING_TYPE **endptr)
  63 {
  64   return INTERNAL(STRTOF_L) (nptr, endptr, 0, _NL_CURRENT_LOCALE);
  65 }
  66 #if defined _LIBC
  67 libc_hidden_def (STRTOF)
  68 #endif
  69
  70 #ifdef LONG_DOUBLE_COMPAT
  71 # if LONG_DOUBLE_COMPAT(libc, GLIBC_2_0)
  72 #  ifdef USE_WIDE_CHAR
  73 compat_symbol (libc, wcstod, wcstold, GLIBC_2_0);
  74 compat_symbol (libc, __wcstod_internal, __wcstold_internal, GLIBC_2_0);
  75 #  else
  76 compat_symbol (libc, strtod, strtold, GLIBC_2_0);
  77 compat_symbol (libc, __strtod_internal, __strtold_internal, GLIBC_2_0);
  78 #  endif
  79 # endif
  80 #endif