1 /* Copyright (C) 1991, 92, 94, 95, 96 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU Library General Public License as
6 published by the Free Software Foundation; either version 2 of the
7 License, or (at your option) any later version.
9 The GNU C Library is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 Library General Public License for more details.
14 You should have received a copy of the GNU Library General Public
15 License along with the GNU C Library; see the file COPYING.LIB. If
16 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
17 Cambridge, MA 02139, USA. */
24 # define USE_NUMBER_GROUPING
26 # define HAVE_LIMITS_H
48 #ifdef USE_NUMBER_GROUPING
49 # include "../locale/localeinfo.h"
52 /* Nonzero if we are defining `strtoul' or `strtouq', operating on
58 # define INT unsigned LONG int
61 /* Determine the name. */
65 # define strtol wcstouq
67 # define strtol wcstoul
71 # define strtol strtouq
73 # define strtol strtoul
79 # define strtol wcstoq
81 # define strtol wcstol
85 # define strtol strtoq
90 /* If QUAD is defined, we are defining `strtoq' or `strtouq',
91 operating on `long long int's. */
93 # define LONG long long
95 # define LONG_MIN LONG_LONG_MIN
97 # define LONG_MAX LONG_LONG_MAX
99 # define ULONG_MAX ULONG_LONG_MAX
100 # if __GNUC__ == 2 && __GNUC_MINOR__ < 7
101 /* Work around gcc bug with using this constant. */
102 static const unsigned long long int maxquad = ULONG_LONG_MAX;
104 # define ULONG_MAX maxquad
110 # define ULONG_MAX ((unsigned long) ~(unsigned long) 0)
113 # define LONG_MAX ((long int) (ULONG_MAX >> 1))
120 # define L_(ch) L##ch
121 # define UCHAR_TYPE wint_t
122 # define STRING_TYPE wchar_t
123 # define ISSPACE(ch) iswspace (ch)
124 # define ISALPHA(ch) iswalpha (ch)
125 # define TOUPPER(ch) towupper (ch)
128 # define UCHAR_TYPE unsigned char
129 # define STRING_TYPE char
130 # define ISSPACE(ch) isspace (ch)
131 # define ISALPHA(ch) isalpha (ch)
132 # define TOUPPER(ch) toupper (ch)
136 # define INTERNAL(x) INTERNAL1(x)
137 # define INTERNAL1(x) __##x##_internal
138 # define WEAKNAME(x) WEAKNAME1(x)
140 # define INTERNAL(x) __/**/x/**/_internal
143 #ifdef USE_NUMBER_GROUPING
144 /* This file defines a function to check for correct grouping. */
145 # include "grouping.h"
149 /* Convert NPTR to an `unsigned long int' or `long int' in base BASE.
150 If BASE is 0 the base is determined by the presence of a leading
151 zero, indicating octal or a leading "0x" or "0X", indicating hexadecimal.
152 If BASE is < 2 or > 36, it is reset to 10.
153 If ENDPTR is not NULL, a pointer to the character after the last
154 one converted is stored in *ENDPTR. */
157 INTERNAL (strtol) (nptr, endptr, base, group)
158 const STRING_TYPE *nptr;
159 STRING_TYPE **endptr;
164 register unsigned LONG int cutoff;
165 register unsigned int cutlim;
166 register unsigned LONG int i;
167 register const STRING_TYPE *s;
168 register UCHAR_TYPE c;
169 const STRING_TYPE *save, *end;
172 #ifdef USE_NUMBER_GROUPING
173 /* The thousands character of the current locale. */
175 /* The numeric grouping specification of the current locale,
176 in the format described in <locale.h>. */
177 const char *grouping;
181 grouping = _NL_CURRENT (LC_NUMERIC, GROUPING);
182 if (*grouping <= 0 || *grouping == CHAR_MAX)
186 /* Figure out the thousands separator character. */
187 if (mbtowc (&thousands, _NL_CURRENT (LC_NUMERIC, THOUSANDS_SEP),
188 strlen (_NL_CURRENT (LC_NUMERIC, THOUSANDS_SEP))) <= 0)
189 thousands = (wchar_t) *_NL_CURRENT (LC_NUMERIC, THOUSANDS_SEP);
190 if (thousands == L'\0')
198 if (base < 0 || base == 1 || base > 36)
203 /* Skip white space. */
209 /* Check for a sign. */
215 else if (*s == L_('+'))
223 if (base == 16 && s[0] == L_('0') && TOUPPER (s[1]) == L_('X'))
226 /* If BASE is zero, figure it out ourselves. */
230 if (TOUPPER (s[1]) == L_('X'))
241 /* Save the pointer so we can check later if anything happened. */
244 #ifdef USE_NUMBER_GROUPING
247 /* Find the end of the digit string and check its grouping. */
249 for (c = *end; c != L_('\0'); c = *++end)
250 if (c != thousands && (c < L_('0') || c > L_('9'))
251 && (!ISALPHA (c) || TOUPPER (c) - L_('A') + 10 >= base))
256 end = correctly_grouped_prefix (s, end, thousands, grouping);
262 cutoff = ULONG_MAX / (unsigned LONG int) base;
263 cutlim = ULONG_MAX % (unsigned LONG int) base;
267 for (c = *s; c != L_('\0'); c = *++s)
271 if (c >= L_('0') && c <= L_('9'))
273 else if (ISALPHA (c))
274 c = TOUPPER (c) - L_('A') + 10;
279 /* Check for overflow. */
280 if (i > cutoff || (i == cutoff && c > cutlim))
284 i *= (unsigned LONG int) base;
289 /* Check if anything actually happened. */
293 /* Store in ENDPTR the address of one character
294 past the last character we converted. */
296 *endptr = (STRING_TYPE *) s;
299 /* Check for a value that is within the range of
300 `unsigned LONG int', but outside the range of `LONG int'. */
303 ? -((unsigned LONG int) (LONG_MIN + 1)) + 1
304 : (unsigned LONG int) LONG_MAX))
314 return negative ? LONG_MIN : LONG_MAX;
318 /* Return the result of the appropriate sign. */
319 return (negative ? -i : i);
322 /* We must handle a special case here: the base is 0 or 16 and the
323 first two characters are '0' and 'x', but the rest are no
324 hexadecimal digits. This is no error case. We return 0 and
325 ENDPTR points to the `x`. */
327 if (save - nptr >= 2 && TOUPPER (save[-1]) == L_('X')
328 && save[-2] == L_('0'))
329 *endptr = (STRING_TYPE *) &save[-1];
331 /* There was no number to convert. */
332 *endptr = (STRING_TYPE *) nptr;
337 /* External user entry point. */
339 strtol (nptr, endptr, base)
340 const STRING_TYPE *nptr;
341 STRING_TYPE **endptr;
344 return INTERNAL (strtol) (nptr, endptr, base, 0);
347 /* We need to weaken this symbol because some the the defined
348 functions do not come from ANSI. The indirection is necessary
349 because `strtol' might be a macro. */
350 #define weak_this(x) weak_symbol (x)