home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 January / Chip_2001-01_cd1.bin / tema / mysql / mysql-3.23.28g-win-source.exe / strings / strto.c < prev    next >
C/C++ Source or Header  |  2000-08-31  |  5KB  |  205 lines
  1. /* Copyright (C) 2000 MySQL AB & MySQL Finland AB & TCX DataKonsult AB
  2.    
  3.    This library is free software; you can redistribute it and/or
  4.    modify it under the terms of the GNU Library General Public
  5.    License as published by the Free Software Foundation; either
  6.    version 2 of the License, or (at your option) any later version.
  7.    
  8.    This library is distributed in the hope that it will be useful,
  9.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  10.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11.    Library General Public License for more details.
  12.    
  13.    You should have received a copy of the GNU Library General Public
  14.    License along with this library; if not, write to the Free
  15.    Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  16.    MA 02111-1307, USA */
  17.  
  18. /*
  19.   strtol,strtoul,strtoll,strtoull
  20.   convert string to long, unsigned long, long long or unsigned long long.
  21.   strtoxx(char *src,char **ptr,int base)
  22.   converts the string pointed to by src to an long of appropriate long and
  23.   returnes it. It skips leading spaces and tabs (but not newlines, formfeeds,
  24.   backspaces), then it accepts an optional sign and a sequence of digits
  25.   in the specified radix.
  26.   If the value of ptr is not (char **)NULL, a pointer to the character
  27.   terminating the scan is returned in the location pointed to by ptr.
  28.   Trailing spaces will NOT be skipped.
  29.  
  30.   If an error is detected, the result will be LONG_MIN, 0 or LONG_MAX,
  31.   (or LONGLONG..)  and errno will be set to
  32.     EDOM    if there are no digits
  33.     ERANGE    if the result would overflow.
  34.   the ptr will be set to src.
  35.   This file is based on the strtol from the the GNU C Library.
  36.   it can be compiled with the UNSIGNED and/or LONGLONG flag set
  37. */
  38.  
  39. #include <global.h>
  40. #include "m_string.h"
  41. #include "m_ctype.h"
  42. #include "my_sys.h"            /* defines errno */
  43. #include <errno.h>
  44.  
  45. #ifdef LONGLONG
  46. #define UTYPE_MAX (~(ulonglong) 0)
  47. #define TYPE_MIN LONGLONG_MIN
  48. #define TYPE_MAX LONGLONG_MAX
  49. #define longtype longlong
  50. #define ulongtype ulonglong
  51. #ifdef UNSIGNED
  52. #define function ulongtype strtoull
  53. #else
  54. #define function longtype strtoll
  55. #endif
  56. #else
  57. #define UTYPE_MAX (ulong) ~0L
  58. #define TYPE_MIN LONG_MIN
  59. #define TYPE_MAX LONG_MAX
  60. #define longtype long
  61. #define ulongtype unsigned long
  62. #ifdef UNSIGNED
  63. #define function ulongtype strtoul
  64. #else
  65. #define function longtype strtol
  66. #endif
  67. #endif
  68.  
  69.  
  70. /* Convert NPTR to an `unsigned long int' or `long int' in base BASE.
  71.    If BASE is 0 the base is determined by the presence of a leading
  72.    zero, indicating octal or a leading "0x" or "0X", indicating hexadecimal.
  73.    If BASE is < 2 or > 36, it is reset to 10.
  74.    If ENDPTR is not NULL, a pointer to the character after the last
  75.    one converted is stored in *ENDPTR.    */
  76.  
  77.  
  78. function (const char *nptr,char **endptr,int base)
  79. {
  80.   int negative;
  81.   register ulongtype cutoff;
  82.   register unsigned int cutlim;
  83.   register ulongtype i;
  84.   register const char *s;
  85.   register unsigned char c;
  86.   const char *save;
  87.   int overflow;
  88.  
  89.   if (base < 0 || base == 1 || base > 36)
  90.     base = 10;
  91.  
  92.   s = nptr;
  93.  
  94.   /* Skip white space.    */
  95.   while (isspace (*s))
  96.     ++s;
  97.   if (*s == '\0')
  98.   {
  99.     goto noconv;
  100.   }
  101.  
  102.   /* Check for a sign.    */
  103.   if (*s == '-')
  104.   {
  105.     negative = 1;
  106.     ++s;
  107.   }
  108.   else if (*s == '+')
  109.   {
  110.     negative = 0;
  111.     ++s;
  112.   }
  113.   else
  114.     negative = 0;
  115.  
  116.   if (base == 16 && s[0] == '0' && toupper (s[1]) == 'X')
  117.     s += 2;
  118.  
  119.   /* If BASE is zero, figure it out ourselves.    */
  120.   if (base == 0)
  121.   {
  122.     if (*s == '0')
  123.     {
  124.       if (toupper (s[1]) == 'X')
  125.       {
  126.     s += 2;
  127.     base = 16;
  128.       }
  129.       else
  130.     base = 8;
  131.     }
  132.     else
  133.       base = 10;
  134.   }
  135.  
  136.   /* Save the pointer so we can check later if anything happened.  */
  137.   save = s;
  138.  
  139.   cutoff = UTYPE_MAX / (unsigned long int) base;
  140.   cutlim = (uint) (UTYPE_MAX % (unsigned long int) base);
  141.  
  142.   overflow = 0;
  143.   i = 0;
  144.   for (c = *s; c != '\0'; c = *++s)
  145.   {
  146.     if (isdigit (c))
  147.       c -= '0';
  148.     else if (isalpha (c))
  149.       c = toupper (c) - 'A' + 10;
  150.     else
  151.       break;
  152.     if (c >= base)
  153.       break;
  154.     /* Check for overflow.  */
  155.     if (i > cutoff || (i == cutoff && c > cutlim))
  156.       overflow = 1;
  157.     else
  158.     {
  159.       i *= (ulongtype) base;
  160.       i += c;
  161.     }
  162.   }
  163.  
  164.   /* Check if anything actually happened.  */
  165.   if (s == save)
  166.     goto noconv;
  167.  
  168.   /* Store in ENDPTR the address of one character
  169.      past the last character we converted.  */
  170.   if (endptr != NULL)
  171.     *endptr = (char *) s;
  172.  
  173. #ifndef UNSIGNED
  174.   /* Check for a value that is within the range of
  175.      `unsigned long int', but outside the range of `long int'.    */
  176.   if (negative)
  177.   {
  178.     if (i  > (ulongtype) TYPE_MIN)
  179.       overflow = 1;
  180.   }
  181.   else if (i > (ulongtype) TYPE_MAX)
  182.     overflow = 1;
  183. #endif
  184.  
  185.   if (overflow)
  186.   {
  187.     my_errno=ERANGE;
  188. #ifdef UNSIGNED
  189.     return UTYPE_MAX;
  190. #else
  191.     return negative ? TYPE_MIN : TYPE_MAX;
  192. #endif
  193.   }
  194.  
  195.   /* Return the result of the appropriate sign.  */
  196.   return (negative ? -((longtype) i) : i);
  197.  
  198. noconv:
  199.   /* There was no number to convert.  */
  200.   my_errno=EDOM;
  201.   if (endptr != NULL)
  202.     *endptr = (char *) nptr;
  203.   return 0L;
  204. }
  205.