stdlib/strtod.c

   1 /* Read decimal floating point numbers.
   2    This file is part of the GNU C Library.
   3    Copyright (C) 1995-2002, 2003, 2004, 2006 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, write to the Free
  18    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
  19    02111-1307 USA.  */
  20
  21 #include <stdlib.h>
  22 #include <wchar.h>
  23 #include <locale/localeinfo.h>
  24
  25
  26 #ifndef FLOAT
  27 # include <math_ldbl_opt.h>
  28 # define FLOAT double
  29 # ifdef USE_WIDE_CHAR
  30 #  define STRTOF wcstod
  31 #  define STRTOF_L __wcstod_l
  32 # else
  33 #  define STRTOF strtod
  34 #  define STRTOF_L __strtod_l
  35 # endif
  36 #endif
  37
  38 #ifdef USE_WIDE_CHAR
  39 # include <wctype.h>
  40 # define STRING_TYPE wchar_t
  41 #else
  42 # define STRING_TYPE char
  43 #endif
  44
  45 #define INTERNAL(x) INTERNAL1(x)
  46 #define INTERNAL1(x) __##x##_internal
  47
  48
  49 FLOAT
  50 INTERNAL (STRTOF) (nptr, endptr, group)
  51      const STRING_TYPE *nptr;
  52      STRING_TYPE **endptr;
  53      int group;
  54 {
  55   return INTERNAL(STRTOF_L) (nptr, endptr, group, _NL_CURRENT_LOCALE);
  56 }
  57 #if defined _LIBC
  58 libc_hidden_def (INTERNAL (STRTOF))
  59 #endif
  60
  61
  62 FLOAT
  63 #ifdef weak_function
  64 weak_function
  65 #endif
  66 STRTOF (nptr, endptr)
  67      const STRING_TYPE *nptr;
  68      STRING_TYPE **endptr;
  69 {
  70   return INTERNAL(STRTOF_L) (nptr, endptr, 0, _NL_CURRENT_LOCALE);
  71 }
  72
  73 #ifdef LONG_DOUBLE_COMPAT
  74 # if LONG_DOUBLE_COMPAT(libc, GLIBC_2_0)
  75 #  ifdef USE_WIDE_CHAR
  76 compat_symbol (libc, wcstod, wcstold, GLIBC_2_0);
  77 compat_symbol (libc, __wcstod_internal, __wcstold_internal, GLIBC_2_0);
  78 #  else
  79 compat_symbol (libc, strtod, strtold, GLIBC_2_0);
  80 compat_symbol (libc, __strtod_internal, __strtold_internal, GLIBC_2_0);
  81 #  endif
  82 # endif
  83 #endif