stdlib/strtod.c

   1 /* Read decimal floating point numbers.
   2    This file is part of the GNU C Library.
   3    Copyright (C) 1995-2014 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) (nptr, endptr, group)
  50      const STRING_TYPE *nptr;
  51      STRING_TYPE **endptr;
  52      int group;
  53 {
  54   return INTERNAL(STRTOF_L) (nptr, endptr, group, _NL_CURRENT_LOCALE);
  55 }
  56 #if defined _LIBC
  57 libc_hidden_def (INTERNAL (STRTOF))
  58 #endif
  59
  60
  61 FLOAT
  62 #ifdef weak_function
  63 weak_function
  64 #endif
  65 STRTOF (nptr, endptr)
  66      const STRING_TYPE *nptr;
  67      STRING_TYPE **endptr;
  68 {
  69   return INTERNAL(STRTOF_L) (nptr, endptr, 0, _NL_CURRENT_LOCALE);
  70 }
  71 #if defined _LIBC
  72 libc_hidden_def (STRTOF)
  73 #endif
  74
  75 #ifdef LONG_DOUBLE_COMPAT
  76 # if LONG_DOUBLE_COMPAT(libc, GLIBC_2_0)
  77 #  ifdef USE_WIDE_CHAR
  78 compat_symbol (libc, wcstod, wcstold, GLIBC_2_0);
  79 compat_symbol (libc, __wcstod_internal, __wcstold_internal, GLIBC_2_0);
  80 #  else
  81 compat_symbol (libc, strtod, strtold, GLIBC_2_0);
  82 compat_symbol (libc, __strtod_internal, __strtold_internal, GLIBC_2_0);
  83 #  endif
  84 # endif
  85 #endif