Change uses of `long' keyword throughout to use `LONG' macro.
[kopensolaris-gnu/glibc.git] / stdlib / strtol.c
1 /* Copyright (C) 1991, 1992, 1994, 1995 Free Software Foundation, Inc.
2
3 This file is part of the GNU C Library.
4
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public License as
7 published by the Free Software Foundation; either version 2 of the
8 License, or (at your option) any later version.
9
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13 Library General Public License for more details.
14
15 You should have received a copy of the GNU Library General Public
16 License along with the GNU C Library; see the file COPYING.LIB.  If
17 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
18 Cambridge, MA 02139, USA.  */
19
20 #include <ctype.h>
21 #include <limits.h>
22 #include <stddef.h>
23 #include <stdlib.h>
24
25
26 /* Nonzero if we are defining `strtoul' or `strtouq', operating on unsigned
27    integers.  */
28 #ifndef UNSIGNED
29 #define UNSIGNED        0
30 #endif
31
32 /* If QUAD is defined, we are defining `strtoq' or `strtouq',
33    operating on `long long int's.  */
34 #ifdef QUAD
35 #if UNSIGNED
36 #define strtoul         strtouq
37 #else
38 #define strtol          strtoq
39 #endif
40 #define LONG            long long
41 #undef  LONG_MIN
42 #define LONG_MIN        LONG_LONG_MIN
43 #undef  LONG_MAX
44 #define LONG_MAX        LONG_LONG_MAX
45 #undef  ULONG_MAX
46 #define ULONG_MAX       ULONG_LONG_MAX
47 #else
48 #define LONG    long
49 #endif
50
51 /* Convert NPTR to an `unsigned long int' or `long int' in base BASE.
52    If BASE is 0 the base is determined by the presence of a leading
53    zero, indicating octal or a leading "0x" or "0X", indicating hexadecimal.
54    If BASE is < 2 or > 36, it is reset to 10.
55    If ENDPTR is not NULL, a pointer to the character after the last
56    one converted is stored in *ENDPTR.  */
57 #if     UNSIGNED
58 unsigned LONG int
59 #define strtol  strtoul
60 #else
61 LONG int
62 #endif
63 strtol (nptr, endptr, base)
64      const char *nptr;
65      char **endptr;
66      int base;
67 {
68   int negative;
69   register unsigned LONG int cutoff;
70   register unsigned int cutlim;
71   register unsigned LONG int i;
72   register const char *s;
73   register unsigned char c;
74   const char *save;
75   int overflow;
76
77   if (base < 0 || base == 1 || base > 36)
78     base = 10;
79
80   s = nptr;
81
82   /* Skip white space.  */
83   while (isspace (*s))
84     ++s;
85   if (*s == '\0')
86     goto noconv;
87
88   /* Check for a sign.  */
89   if (*s == '-')
90     {
91       negative = 1;
92       ++s;
93     }
94   else if (*s == '+')
95     {
96       negative = 0;
97       ++s;
98     }
99   else
100     negative = 0;
101
102   if (base == 16 && s[0] == '0' && toupper (s[1]) == 'X')
103     s += 2;
104
105   /* If BASE is zero, figure it out ourselves.  */
106   if (base == 0)
107     if (*s == '0')
108       {
109         if (toupper (s[1]) == 'X')
110           {
111             s += 2;
112             base = 16;
113           }
114         else
115           base = 8;
116       }
117     else
118       base = 10;
119
120   /* Save the pointer so we can check later if anything happened.  */
121   save = s;
122
123   cutoff = ULONG_MAX / (unsigned LONG int) base;
124   cutlim = ULONG_MAX % (unsigned LONG int) base;
125
126   overflow = 0;
127   i = 0;
128   for (c = *s; c != '\0'; c = *++s)
129     {
130       if (isdigit (c))
131         c -= '0';
132       else if (isalpha (c))
133         c = toupper (c) - 'A' + 10;
134       else
135         break;
136       if (c >= base)
137         break;
138       /* Check for overflow.  */
139       if (i > cutoff || (i == cutoff && c > cutlim))
140         overflow = 1;
141       else
142         {
143           i *= (unsigned LONG int) base;
144           i += c;
145         }
146     }
147
148   /* Check if anything actually happened.  */
149   if (s == save)
150     goto noconv;
151
152   /* Store in ENDPTR the address of one character
153      past the last character we converted.  */
154   if (endptr != NULL)
155     *endptr = (char *) s;
156
157 #if     !UNSIGNED
158   /* Check for a value that is within the range of
159      `unsigned LONG int', but outside the range of `LONG int'.  */
160   if (i > (negative ?
161            -(unsigned LONG int) LONG_MIN : (unsigned LONG int) LONG_MAX))
162     overflow = 1;
163 #endif
164
165   if (overflow)
166     {
167       errno = ERANGE;
168 #if     UNSIGNED
169       return ULONG_MAX;
170 #else
171       return negative ? LONG_MIN : LONG_MAX;
172 #endif
173     }
174
175   /* Return the result of the appropriate sign.  */
176   return (negative ? -i : i);
177
178 noconv:
179   /* There was no number to convert.  */
180   if (endptr != NULL)
181     *endptr = (char *) nptr;
182   return 0L;
183 }