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
35 # define __set_errno(val) errno = (val)
52 #ifdef USE_NUMBER_GROUPING
53 # include "../locale/localeinfo.h"
56 /* Nonzero if we are defining `strtoul' or `strtouq', operating on
62 # define INT unsigned LONG int
65 /* Determine the name. */
69 # define strtol wcstouq
71 # define strtol wcstoul
75 # define strtol strtouq
77 # define strtol strtoul
83 # define strtol wcstoq
85 # define strtol wcstol
89 # define strtol strtoq
94 /* If QUAD is defined, we are defining `strtoq' or `strtouq',
95 operating on `long long int's. */
97 # define LONG long long
99 # define LONG_MIN LONG_LONG_MIN
101 # define LONG_MAX LONG_LONG_MAX
103 # define ULONG_MAX ULONG_LONG_MAX
104 # if __GNUC__ == 2 && __GNUC_MINOR__ < 7
105 /* Work around gcc bug with using this constant. */
106 static const unsigned long long int maxquad
= ULONG_LONG_MAX
;
108 # define ULONG_MAX maxquad
114 # define ULONG_MAX ((unsigned long) ~(unsigned long) 0)
117 # define LONG_MAX ((long int) (ULONG_MAX >> 1))
124 # define L_(ch) L##ch
125 # define UCHAR_TYPE wint_t
126 # define STRING_TYPE wchar_t
127 # define ISSPACE(ch) iswspace (ch)
128 # define ISALPHA(ch) iswalpha (ch)
129 # define TOUPPER(ch) towupper (ch)
132 # define UCHAR_TYPE unsigned char
133 # define STRING_TYPE char
134 # define ISSPACE(ch) isspace (ch)
135 # define ISALPHA(ch) isalpha (ch)
136 # define TOUPPER(ch) toupper (ch)
140 # define INTERNAL(x) INTERNAL1(x)
141 # define INTERNAL1(x) __##x##_internal
142 # define WEAKNAME(x) WEAKNAME1(x)
144 # define INTERNAL(x) __/**/x/**/_internal
147 #ifdef USE_NUMBER_GROUPING
148 /* This file defines a function to check for correct grouping. */
149 # include "grouping.h"
153 /* Convert NPTR to an `unsigned long int' or `long int' in base BASE.
154 If BASE is 0 the base is determined by the presence of a leading
155 zero, indicating octal or a leading "0x" or "0X", indicating hexadecimal.
156 If BASE is < 2 or > 36, it is reset to 10.
157 If ENDPTR is not NULL, a pointer to the character after the last
158 one converted is stored in *ENDPTR. */
161 INTERNAL (strtol
) (nptr
, endptr
, base
, group
)
162 const STRING_TYPE
*nptr
;
163 STRING_TYPE
**endptr
;
168 register unsigned LONG
int cutoff
;
169 register unsigned int cutlim
;
170 register unsigned LONG
int i
;
171 register const STRING_TYPE
*s
;
172 register UCHAR_TYPE c
;
173 const STRING_TYPE
*save
, *end
;
176 #ifdef USE_NUMBER_GROUPING
177 /* The thousands character of the current locale. */
179 /* The numeric grouping specification of the current locale,
180 in the format described in <locale.h>. */
181 const char *grouping
;
185 grouping
= _NL_CURRENT (LC_NUMERIC
, GROUPING
);
186 if (*grouping
<= 0 || *grouping
== CHAR_MAX
)
190 /* Figure out the thousands separator character. */
191 if (mbtowc (&thousands
, _NL_CURRENT (LC_NUMERIC
, THOUSANDS_SEP
),
192 strlen (_NL_CURRENT (LC_NUMERIC
, THOUSANDS_SEP
))) <= 0)
193 thousands
= (wchar_t) *_NL_CURRENT (LC_NUMERIC
, THOUSANDS_SEP
);
194 if (thousands
== L
'\0')
202 if (base
< 0 || base
== 1 || base
> 36)
207 /* Skip white space. */
213 /* Check for a sign. */
219 else if (*s
== L_('+'))
227 if (base
== 16 && s
[0] == L_('0') && TOUPPER (s
[1]) == L_('X'))
230 /* If BASE is zero, figure it out ourselves. */
234 if (TOUPPER (s
[1]) == L_('X'))
245 /* Save the pointer so we can check later if anything happened. */
248 #ifdef USE_NUMBER_GROUPING
251 /* Find the end of the digit string and check its grouping. */
253 for (c
= *end
; c
!= L_('\0'); c
= *++end
)
254 if ((wchar_t) c
!= thousands
255 && ((wchar_t) c
< L_('0') || (wchar_t) c
> L_('9'))
256 && (!ISALPHA (c
) || (int) (TOUPPER (c
) - L_('A') + 10) >= base
))
261 end
= correctly_grouped_prefix (s
, end
, thousands
, grouping
);
267 cutoff
= ULONG_MAX
/ (unsigned LONG
int) base
;
268 cutlim
= ULONG_MAX
% (unsigned LONG
int) base
;
272 for (c
= *s
; c
!= L_('\0'); c
= *++s
)
276 if (c
>= L_('0') && c
<= L_('9'))
278 else if (ISALPHA (c
))
279 c
= TOUPPER (c
) - L_('A') + 10;
284 /* Check for overflow. */
285 if (i
> cutoff
|| (i
== cutoff
&& c
> cutlim
))
289 i
*= (unsigned LONG
int) base
;
294 /* Check if anything actually happened. */
298 /* Store in ENDPTR the address of one character
299 past the last character we converted. */
301 *endptr
= (STRING_TYPE
*) s
;
304 /* Check for a value that is within the range of
305 `unsigned LONG int', but outside the range of `LONG int'. */
308 ? -((unsigned LONG
int) (LONG_MIN
+ 1)) + 1
309 : (unsigned LONG
int) LONG_MAX
))
315 __set_errno (ERANGE
);
319 return negative
? LONG_MIN
: LONG_MAX
;
323 /* Return the result of the appropriate sign. */
324 return (negative
? -i
: i
);
327 /* We must handle a special case here: the base is 0 or 16 and the
328 first two characters are '0' and 'x', but the rest are no
329 hexadecimal digits. This is no error case. We return 0 and
330 ENDPTR points to the `x`. */
332 if (save
- nptr
>= 2 && TOUPPER (save
[-1]) == L_('X')
333 && save
[-2] == L_('0'))
334 *endptr
= (STRING_TYPE
*) &save
[-1];
336 /* There was no number to convert. */
337 *endptr
= (STRING_TYPE
*) nptr
;
342 /* External user entry point. */
347 strtol (nptr
, endptr
, base
)
348 const STRING_TYPE
*nptr
;
349 STRING_TYPE
**endptr
;
352 return INTERNAL (strtol
) (nptr
, endptr
, base
, 0);