strto.c
上传用户:romrleung
上传日期:2022-05-23
资源大小:18897k
文件大小:5k
源码类别:

MySQL数据库

开发平台:

Visual C++

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