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
49 #ifdef USE_NUMBER_GROUPING
50 # include "../locale/localeinfo.h"
53 /* Nonzero if we are defining `strtoul' or `strtouq', operating on
59 # define INT unsigned LONG int
62 /* Determine the name. */
66 # define strtol wcstouq
68 # define strtol wcstoul
72 # define strtol strtouq
74 # define strtol strtoul
80 # define strtol wcstoq
82 # define strtol wcstol
86 # define strtol strtoq
91 /* If QUAD is defined, we are defining `strtoq' or `strtouq',
92 operating on `long long int's. */
94 # define LONG long long
96 # define LONG_MIN LONG_LONG_MIN
98 # define LONG_MAX LONG_LONG_MAX
100 # define ULONG_MAX ULONG_LONG_MAX
101 # if __GNUC__ == 2 && __GNUC_MINOR__ < 7
102 /* Work around gcc bug with using this constant. */
103 static const unsigned long long int maxquad = ULONG_LONG_MAX;
105 # define ULONG_MAX maxquad
111 # define ULONG_MAX ((unsigned long) ~(unsigned long) 0)
114 # define LONG_MAX ((long int) (ULONG_MAX >> 1))
121 # define L_(ch) L##ch
122 # define UCHAR_TYPE wint_t
123 # define STRING_TYPE wchar_t
124 # define ISSPACE(ch) iswspace (ch)
125 # define ISALPHA(ch) iswalpha (ch)
126 # define TOUPPER(ch) towupper (ch)
129 # define UCHAR_TYPE unsigned char
130 # define STRING_TYPE char
131 # define ISSPACE(ch) isspace (ch)
132 # define ISALPHA(ch) isalpha (ch)
133 # define TOUPPER(ch) toupper (ch)
137 # define INTERNAL(x) INTERNAL1(x)
138 # define INTERNAL1(x) __##x##_internal
139 # define WEAKNAME(x) WEAKNAME1(x)
141 # define INTERNAL(x) __/**/x/**/_internal
144 #ifdef USE_NUMBER_GROUPING
145 /* This file defines a function to check for correct grouping. */
146 # include "grouping.h"
150 /* Convert NPTR to an `unsigned long int' or `long int' in base BASE.
151 If BASE is 0 the base is determined by the presence of a leading
152 zero, indicating octal or a leading "0x" or "0X", indicating hexadecimal.
153 If BASE is < 2 or > 36, it is reset to 10.
154 If ENDPTR is not NULL, a pointer to the character after the last
155 one converted is stored in *ENDPTR. */
158 INTERNAL (strtol) (nptr, endptr, base, group)
159 const STRING_TYPE *nptr;
160 STRING_TYPE **endptr;
165 register unsigned LONG int cutoff;
166 register unsigned int cutlim;
167 register unsigned LONG int i;
168 register const STRING_TYPE *s;
169 register UCHAR_TYPE c;
170 const STRING_TYPE *save, *end;
173 #ifdef USE_NUMBER_GROUPING
174 /* The thousands character of the current locale. */
176 /* The numeric grouping specification of the current locale,
177 in the format described in <locale.h>. */
178 const char *grouping;
182 grouping = _NL_CURRENT (LC_NUMERIC, GROUPING);
183 if (*grouping <= 0 || *grouping == CHAR_MAX)
187 /* Figure out the thousands separator character. */
188 if (mbtowc (&thousands, _NL_CURRENT (LC_NUMERIC, THOUSANDS_SEP),
189 strlen (_NL_CURRENT (LC_NUMERIC, THOUSANDS_SEP))) <= 0)
190 thousands = (wchar_t) *_NL_CURRENT (LC_NUMERIC, THOUSANDS_SEP);
191 if (thousands == L'\0')
199 if (base < 0 || base == 1 || base > 36)
204 /* Skip white space. */
210 /* Check for a sign. */
216 else if (*s == L_('+'))
224 if (base == 16 && s[0] == L_('0') && TOUPPER (s[1]) == L_('X'))
227 /* If BASE is zero, figure it out ourselves. */
231 if (TOUPPER (s[1]) == L_('X'))
242 /* Save the pointer so we can check later if anything happened. */
245 #ifdef USE_NUMBER_GROUPING
248 /* Find the end of the digit string and check its grouping. */
250 for (c = *end; c != L_('\0'); c = *++end)
251 if (c != thousands && (c < L_('0') || c > L_('9'))
252 && (!ISALPHA (c) || TOUPPER (c) - L_('A') + 10 >= base))
257 end = correctly_grouped_prefix (s, end, thousands, grouping);
263 cutoff = ULONG_MAX / (unsigned LONG int) base;
264 cutlim = ULONG_MAX % (unsigned LONG int) base;
268 for (c = *s; c != L_('\0'); c = *++s)
272 if (c >= L_('0') && c <= L_('9'))
274 else if (ISALPHA (c))
275 c = TOUPPER (c) - L_('A') + 10;
280 /* Check for overflow. */
281 if (i > cutoff || (i == cutoff && c > cutlim))
285 i *= (unsigned LONG int) base;
290 /* Check if anything actually happened. */
294 /* Store in ENDPTR the address of one character
295 past the last character we converted. */
297 *endptr = (STRING_TYPE *) s;
300 /* Check for a value that is within the range of
301 `unsigned LONG int', but outside the range of `LONG int'. */
304 ? -((unsigned LONG int) (LONG_MIN + 1)) + 1
305 : (unsigned LONG int) LONG_MAX))
315 return negative ? LONG_MIN : LONG_MAX;
319 /* Return the result of the appropriate sign. */
320 return (negative ? -i : i);
323 /* We must handle a special case here: the base is 0 or 16 and the
324 first two characters are '0' and 'x', but the rest are no
325 hexadecimal digits. This is no error case. We return 0 and
326 ENDPTR points to the `x`. */
328 if (save - nptr >= 2 && TOUPPER (save[-1]) == L_('X')
329 && save[-2] == L_('0'))
330 *endptr = (STRING_TYPE *) &save[-1];
332 /* There was no number to convert. */
333 *endptr = (STRING_TYPE *) nptr;
338 /* External user entry point. */
340 strtol (nptr, endptr, base)
341 const STRING_TYPE *nptr;
342 STRING_TYPE **endptr;
345 return INTERNAL (strtol) (nptr, endptr, base, 0);
348 /* We need to weaken this symbol because some the the defined
349 functions do not come from ANSI. The indirection is necessary
350 because `strtol' might be a macro. */
351 #define weak_this(x) weak_symbol (x)