1 /* Copyright (C) 1991, 1992, 1994, 1995 Free Software Foundation, Inc.
4 NOTE: The canonical source of this file is maintained with the GNU C Library.
5 Bugs can be reported to bug-glibc@prep.ai.mit.edu.
7 This program is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the
9 Free Software Foundation; either version 2, or (at your option) any
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
26 # define USE_NUMBER_GROUPING
28 # define HAVE_LIMITS_H
50 #ifdef USE_NUMBER_GROUPING
51 # include "../locale/localeinfo.h"
54 /* Nonzero if we are defining `strtoul' or `strtouq', operating on
60 # define strtol strtoul
61 # define INT unsigned LONG int
64 /* If QUAD is defined, we are defining `strtoq' or `strtouq',
65 operating on `long long int's. */
68 # define strtoul strtouq
70 # define strtol strtoq
72 # define LONG long long
74 # define LONG_MIN LONG_LONG_MIN
76 # define LONG_MAX LONG_LONG_MAX
78 # define ULONG_MAX ULONG_LONG_MAX
79 # if __GNUC__ == 2 && __GNUC_MINOR__ < 7
80 /* Work around gcc bug with using this constant. */
81 static const unsigned long long int maxquad = ULONG_LONG_MAX;
83 # define ULONG_MAX maxquad
90 # define INTERNAL(x) INTERNAL1(x)
91 # define INTERNAL1(x) __##x##_internal
93 # define INTERNAL(x) __/**/x/**/_internal
96 #ifdef USE_NUMBER_GROUPING
97 /* This file defines a function to check for correct grouping. */
98 # include "grouping.h"
102 /* Convert NPTR to an `unsigned long int' or `long int' in base BASE.
103 If BASE is 0 the base is determined by the presence of a leading
104 zero, indicating octal or a leading "0x" or "0X", indicating hexadecimal.
105 If BASE is < 2 or > 36, it is reset to 10.
106 If ENDPTR is not NULL, a pointer to the character after the last
107 one converted is stored in *ENDPTR. */
110 INTERNAL (strtol) (nptr, endptr, base, group)
117 register unsigned LONG int cutoff;
118 register unsigned int cutlim;
119 register unsigned LONG int i;
120 register const char *s;
121 register unsigned char c;
122 const char *save, *end;
125 #ifdef USE_NUMBER_GROUPING
126 /* The thousands character of the current locale. */
128 /* The numeric grouping specification of the current locale,
129 in the format described in <locale.h>. */
130 const char *grouping;
134 grouping = _NL_CURRENT (LC_NUMERIC, GROUPING);
135 if (*grouping <= 0 || *grouping == CHAR_MAX)
139 /* Figure out the thousands separator character. */
140 if (mbtowc (&thousands, _NL_CURRENT (LC_NUMERIC, THOUSANDS_SEP),
141 strlen (_NL_CURRENT (LC_NUMERIC, THOUSANDS_SEP))) <= 0)
142 thousands = (wchar_t) *_NL_CURRENT (LC_NUMERIC, THOUSANDS_SEP);
143 if (thousands == L'\0')
151 if (base < 0 || base == 1 || base > 36)
156 /* Skip white space. */
162 /* Check for a sign. */
176 if (base == 16 && s[0] == '0' && toupper (s[1]) == 'X')
179 /* If BASE is zero, figure it out ourselves. */
183 if (toupper (s[1]) == 'X')
194 /* Save the pointer so we can check later if anything happened. */
197 #ifdef USE_NUMBER_GROUPING
200 /* Find the end of the digit string and check its grouping. */
202 for (c = *end; c != '\0'; c = *++end)
203 if (c != thousands && !isdigit (c) &&
204 (!isalpha (c) || toupper (c) - 'A' + 10 >= base))
209 end = correctly_grouped_prefix (s, end, thousands, grouping);
215 cutoff = ULONG_MAX / (unsigned LONG int) base;
216 cutlim = ULONG_MAX % (unsigned LONG int) base;
220 for (c = *s; c != '\0'; c = *++s)
226 else if (isalpha (c))
227 c = toupper (c) - 'A' + 10;
232 /* Check for overflow. */
233 if (i > cutoff || (i == cutoff && c > cutlim))
237 i *= (unsigned LONG int) base;
242 /* Check if anything actually happened. */
246 /* Store in ENDPTR the address of one character
247 past the last character we converted. */
249 *endptr = (char *) s;
252 /* Check for a value that is within the range of
253 `unsigned LONG int', but outside the range of `LONG int'. */
255 -(unsigned LONG int) LONG_MIN : (unsigned LONG int) LONG_MAX))
265 return negative ? LONG_MIN : LONG_MAX;
269 /* Return the result of the appropriate sign. */
270 return (negative ? -i : i);
273 /* There was no number to convert. */
275 *endptr = (char *) nptr;
279 /* External user entry point. */
282 strtol (nptr, endptr, base)
287 return INTERNAL (strtol) (nptr, endptr, base, 0);