lib/strtol.c

   1 /* Copyright (C) 1991, 1992 Free Software Foundation, Inc.
   2 This file is part of the GNU C Library.
   3
   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.
   8
   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.
  13
  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.  */
  18
  19 #ifdef HAVE_CONFIG_H
  20 #if defined (CONFIG_BROKETS)
  21 /* We use <config.h> instead of "config.h" so that a compilation
  22    using -I. -I$srcdir will use ./config.h rather than $srcdir/config.h
  23    (which it would do because it found this file in $srcdir).  */
  24 #include <config.h>
  25 #else
  26 #include "config.h"
  27 #endif
  28 #endif
  29
  30 #include <ctype.h>
  31 #include <errno.h>
  32
  33 #if HAVE_LIMITS_H
  34 #include <limits.h>
  35 #endif
  36 #ifndef ULONG_MAX
  37 #define LONG_MAX (~(1 << (sizeof (long) * 8 - 1)))
  38 #define LONG_MIN (-LONG_MAX-1)
  39 #define ULONG_MAX ((unsigned long) ~(unsigned long) 0)
  40 #endif
  41
  42 #if STDC_HEADERS
  43 #include <stddef.h>
  44 #include <stdlib.h>
  45 #else
  46 #define NULL 0
  47 extern int errno;
  48 #endif
  49
  50 #ifndef UNSIGNED
  51 #define UNSIGNED        0
  52 #endif
  53
  54 /* Convert NPTR to an `unsigned long int' or `long int' in base BASE.
  55    If BASE is 0 the base is determined by the presence of a leading
  56    zero, indicating octal or a leading "0x" or "0X", indicating hexadecimal.
  57    If BASE is < 2 or > 36, it is reset to 10.
  58    If ENDPTR is not NULL, a pointer to the character after the last
  59    one converted is stored in *ENDPTR.  */
  60 #if     UNSIGNED
  61 unsigned long int
  62 #define strtol  strtoul
  63 #else
  64 long int
  65 #endif
  66 strtol (nptr, endptr, base)
  67      const char *nptr;
  68      char **endptr;
  69      int base;
  70 {
  71   int negative;
  72   register unsigned long int cutoff;
  73   register unsigned int cutlim;
  74   register unsigned long int i;
  75   register const char *s;
  76   register unsigned char c;
  77   const char *save;
  78   int overflow;
  79
  80   if (base < 0 || base == 1 || base > 36)
  81     base = 10;
  82
  83   s = nptr;
  84
  85   /* Skip white space.  */
  86   while (isspace (*s))
  87     ++s;
  88   if (*s == '\0')
  89     goto noconv;
  90
  91   /* Check for a sign.  */
  92   if (*s == '-')
  93     {
  94       negative = 1;
  95       ++s;
  96     }
  97   else if (*s == '+')
  98     {
  99       negative = 0;
 100       ++s;
 101     }
 102   else
 103     negative = 0;
 104
 105   if (base == 16 && s[0] == '0' && toupper (s[1]) == 'X')
 106     s += 2;
 107
 108   /* If BASE is zero, figure it out ourselves.  */
 109   if (base == 0)
 110     {
 111       if (*s == '0')
 112         {
 113           if (toupper (s[1]) == 'X')
 114             {
 115               s += 2;
 116               base = 16;
 117             }
 118           else
 119             base = 8;
 120         }
 121       else
 122         base = 10;
 123     }
 124
 125   /* Save the pointer so we can check later if anything happened.  */
 126   save = s;
 127
 128   cutoff = ULONG_MAX / (unsigned long int) base;
 129   cutlim = ULONG_MAX % (unsigned long int) base;
 130
 131   overflow = 0;
 132   i = 0;
 133   for (c = *s; c != '\0'; c = *++s)
 134     {
 135       if (isdigit (c))
 136         c -= '0';
 137       else if (isalpha (c))
 138         c = toupper (c) - 'A' + 10;
 139       else
 140         break;
 141       if (c >= base)
 142         break;
 143       /* Check for overflow.  */
 144       if (i > cutoff || (i == cutoff && c > cutlim))
 145         overflow = 1;
 146       else
 147         {
 148           i *= (unsigned long int) base;
 149           i += c;
 150         }
 151     }
 152
 153   /* Check if anything actually happened.  */
 154   if (s == save)
 155     goto noconv;
 156
 157   /* Store in ENDPTR the address of one character
 158      past the last character we converted.  */
 159   if (endptr != NULL)
 160     *endptr = (char *) s;
 161
 162 #if     !UNSIGNED
 163   /* Check for a value that is within the range of
 164      `unsigned long int', but outside the range of `long int'.  */
 165   if (i > (negative ?
 166            -(unsigned long int) LONG_MIN : (unsigned long int) LONG_MAX))
 167     overflow = 1;
 168 #endif
 169
 170   if (overflow)
 171     {
 172       errno = ERANGE;
 173 #if     UNSIGNED
 174       return ULONG_MAX;
 175 #else
 176       return negative ? LONG_MIN : LONG_MAX;
 177 #endif
 178     }
 179
 180   /* Return the result of the appropriate sign.  */
 181   return (negative ? -i : i);
 182
 183 noconv:;
 184   /* There was no number to convert.  */
 185   if (endptr != NULL)
 186     *endptr = (char *) nptr;
 187   return 0L;
 188 }