home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / AROSdev.lha / AROS / compiler / clib / strtoul.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-09  |  2.9 KB  |  151 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: strtoul.c,v 1.1 1996/12/12 16:07:06 aros Exp $
  4.  
  5.     Desc: ANSI C function strtoul()
  6.     Lang: english
  7. */
  8. #include <ctype.h>
  9. #include <errno.h>
  10. #include <limits.h>
  11.  
  12. /*****************************************************************************
  13.  
  14.     NAME */
  15. #include <stdlib.h>
  16.  
  17.     unsigned long strtoul (
  18.  
  19. /*  SYNOPSIS */
  20.     const char * str,
  21.     char      ** endptr,
  22.     int         base)
  23.  
  24. /*  FUNCTION
  25.     Convert a string of digits into an integer according to the
  26.     given base.
  27.  
  28.     INPUTS
  29.     str - The string which should be converted. Leading
  30.         whitespace are ignored. The number may be prefixed
  31.         by a '+' or '-'. If base is above 10, then the
  32.         alphabetic characters from 'A' are used to specify
  33.         digits above 9 (ie. 'A' or 'a' is 10, 'B' or 'b' is
  34.         11 and so on until 'Z' or 'z' is 35).
  35.     endptr - If this is non-NULL, then the address of the first
  36.         character after the number in the string is stored
  37.         here.
  38.     base - The base for the number. May be 0 or between 2 and 36,
  39.         including both. 0 means to autodetect the base. strtoul()
  40.         selects the base by inspecting the first characters
  41.         of the string. If they are "0x", then base 16 is
  42.         assumed. If they are "0", then base 8 is assumed. Any
  43.         other digit will assume base 10. This is like in C.
  44.  
  45.         If you give base 16, then an optional "0x" may
  46.         precede the number in the string.
  47.  
  48.     RESULT
  49.     The value of the string. The first character after the number
  50.     is returned in *endptr, if endptr is non-NULL. If no digits can
  51.     be converted, *endptr contains str (if non-NULL) and 0 is
  52.     returned.
  53.  
  54.     NOTES
  55.  
  56.     EXAMPLE
  57.     // Returns 1, ptr points to the 0-Byte
  58.     strtoul ("  \t +0x1", &ptr, 0);
  59.  
  60.     // Returns 15. ptr points to the a
  61.     strtoul ("017a", &ptr, 0);
  62.  
  63.     // Returns 215 (5*36 + 35)
  64.     strtoul ("5z", &ptr, 36);
  65.  
  66.     BUGS
  67.  
  68.     SEE ALSO
  69.     labs(), fabs(), strtol()
  70.  
  71.     INTERNALS
  72.  
  73.     HISTORY
  74.     12.12.1996 digulla created
  75.  
  76. ******************************************************************************/
  77. {
  78.     unsigned long val    = 0;
  79.     int       digit;
  80.     char      c;
  81.  
  82.     if (base < 0 || base == 1 || base > 36)
  83.     {
  84.     errno = EINVAL;
  85.  
  86.     if (endptr)
  87.         *endptr = (char *)str;
  88.  
  89.     return 0;
  90.     }
  91.  
  92.     while (isspace (*str))
  93.     str ++;
  94.  
  95.     if (*str)
  96.     {
  97.     if (*str == '+' || *str == '-')
  98.         c = *str ++;
  99.  
  100.     /* Assume base ? */
  101.     if (!base)
  102.     {
  103.         if (*str == '0') /* Base 8 or 16 */
  104.         {
  105.         if (tolower(str[1]) == 'x')
  106.             base = 16;
  107.         else
  108.             base = 8;
  109.         }
  110.         else /* Any other digit: Base 10 (decimal) */
  111.         base = 10;
  112.     }
  113.  
  114.     while (*str)
  115.     {
  116.         if (isalnum (*str))
  117.         {
  118.         digit = tolower (*str) - '0';
  119.  
  120.         if (digit > 9)
  121.             digit -= 'a' - '0' - 10;
  122.  
  123.         if (digit >= base)
  124.             break;
  125.  
  126.         if (val > ((ULONG_MAX - digit) / base)
  127.             || (val * base) > (ULONG_MAX - digit)
  128.         )
  129.         {
  130.             errno = ERANGE;
  131.             val = ULONG_MAX;
  132.             break;
  133.         }
  134.  
  135.         val = (val * base) + digit;
  136.         }
  137.         else
  138.         break;
  139.     }
  140.  
  141.     if (c == '-')
  142.         val = -val;
  143.     }
  144.  
  145.     if (endptr)
  146.     *endptr = (char *)str;
  147.  
  148.     return val;
  149. } /* strtoul */
  150.  
  151.