/* Copyright (C) 1999-2018 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. The GNU C Library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with the GNU C Library; if not, see <http://www.gnu.org/licenses/>. */ #include <math.h> #include <stdlib.h> #include <wchar.h> #ifdef USE_WIDE_CHAR # define STRING_TYPE wchar_t # define STRTOLD wcstold_l # define __STRTOLD __wcstold_l # define __STRTOD __wcstod_l #else # define STRING_TYPE char # define STRTOLD strtold_l # define __STRTOLD __strtold_l # define __STRTOD __strtod_l #endif #define INTERNAL(x) INTERNAL1(x) #define INTERNAL1(x) __##x##_internal extern double INTERNAL (__STRTOD) (const STRING_TYPE *, STRING_TYPE **, int, locale_t); /* There is no `long double' type, use the `double' implementations. */ long double INTERNAL (__STRTOLD) (const STRING_TYPE *nptr, STRING_TYPE **endptr, int group, locale_t loc) { return INTERNAL (__STRTOD) (nptr, endptr, group, loc); } #ifndef USE_WIDE_CHAR libc_hidden_def (INTERNAL (__STRTOLD)) #endif long double weak_function __STRTOLD (const STRING_TYPE *nptr, STRING_TYPE **endptr, locale_t loc) { return INTERNAL (__STRTOD) (nptr, endptr, 0, loc); } #if defined _LIBC libc_hidden_def (__STRTOLD) libc_hidden_ver (__STRTOLD, STRTOLD) #endif weak_alias (__STRTOLD, STRTOLD)