1993-12-24 10:32:00 +00:00
|
|
|
/***********************************************************
|
1995-01-04 19:12:13 +00:00
|
|
|
Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
|
|
|
|
The Netherlands.
|
1993-12-24 10:32:00 +00:00
|
|
|
|
|
|
|
All Rights Reserved
|
|
|
|
|
1996-10-25 14:44:06 +00:00
|
|
|
Permission to use, copy, modify, and distribute this software and its
|
|
|
|
documentation for any purpose and without fee is hereby granted,
|
1993-12-24 10:32:00 +00:00
|
|
|
provided that the above copyright notice appear in all copies and that
|
1996-10-25 14:44:06 +00:00
|
|
|
both that copyright notice and this permission notice appear in
|
1993-12-24 10:32:00 +00:00
|
|
|
supporting documentation, and that the names of Stichting Mathematisch
|
1996-10-25 14:44:06 +00:00
|
|
|
Centrum or CWI or Corporation for National Research Initiatives or
|
|
|
|
CNRI not be used in advertising or publicity pertaining to
|
|
|
|
distribution of the software without specific, written prior
|
|
|
|
permission.
|
1993-12-24 10:32:00 +00:00
|
|
|
|
1996-10-25 14:44:06 +00:00
|
|
|
While CWI is the initial source for this software, a modified version
|
|
|
|
is made available by the Corporation for National Research Initiatives
|
|
|
|
(CNRI) at the Internet address ftp://ftp.python.org.
|
|
|
|
|
|
|
|
STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
|
|
|
|
REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
|
|
|
|
MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
|
|
|
|
CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
|
|
|
|
DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
|
|
|
|
PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
|
|
|
|
TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
|
|
|
|
PERFORMANCE OF THIS SOFTWARE.
|
1993-12-24 10:32:00 +00:00
|
|
|
|
|
|
|
******************************************************************/
|
|
|
|
|
1994-08-01 11:34:53 +00:00
|
|
|
#include "config.h"
|
|
|
|
|
1995-02-10 17:01:56 +00:00
|
|
|
/* Convert a possibly signed character to a nonnegative int */
|
|
|
|
/* XXX This assumes characters are 8 bits wide */
|
|
|
|
#ifdef __CHAR_UNSIGNED__
|
|
|
|
#define Py_CHARMASK(c) (c)
|
|
|
|
#else
|
|
|
|
#define Py_CHARMASK(c) ((c) & 0xff)
|
|
|
|
#endif
|
|
|
|
|
1994-08-01 11:34:53 +00:00
|
|
|
/* strtol and strtoul, renamed to avoid conflicts */
|
|
|
|
|
1993-12-24 10:32:00 +00:00
|
|
|
/*
|
|
|
|
** strtoul
|
|
|
|
** This is a general purpose routine for converting
|
|
|
|
** an ascii string to an integer in an arbitrary base.
|
|
|
|
** Leading white space is ignored. If 'base' is zero
|
|
|
|
** it looks for a leading 0, 0x or 0X to tell which
|
|
|
|
** base. If these are absent it defaults to 10.
|
|
|
|
** Base must be 0 or between 2 and 36 (inclusive).
|
|
|
|
** If 'ptr' is non-NULL it will contain a pointer to
|
|
|
|
** the end of the scan.
|
|
|
|
** Errors due to bad pointers will probably result in
|
|
|
|
** exceptions - we don't check for them.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <ctype.h>
|
|
|
|
#include <errno.h>
|
|
|
|
|
|
|
|
unsigned long
|
1997-05-07 23:51:07 +00:00
|
|
|
PyOS_strtoul(str, ptr, base)
|
1993-12-24 10:32:00 +00:00
|
|
|
register char * str;
|
|
|
|
char ** ptr;
|
|
|
|
int base;
|
|
|
|
{
|
|
|
|
register unsigned long result; /* return value of the function */
|
|
|
|
register int c; /* current input character */
|
|
|
|
register unsigned long temp; /* used in overflow testing */
|
|
|
|
int ovf; /* true if overflow occurred */
|
|
|
|
|
|
|
|
result = 0;
|
|
|
|
ovf = 0;
|
|
|
|
|
|
|
|
/* catch silly bases */
|
|
|
|
if (base != 0 && (base < 2 || base > 36))
|
|
|
|
{
|
|
|
|
if (ptr)
|
|
|
|
*ptr = str;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* skip leading white space */
|
1995-02-10 17:01:56 +00:00
|
|
|
while (*str && isspace(Py_CHARMASK(*str)))
|
1993-12-24 10:32:00 +00:00
|
|
|
str++;
|
|
|
|
|
|
|
|
/* check for leading 0 or 0x for auto-base or base 16 */
|
|
|
|
switch (base)
|
|
|
|
{
|
|
|
|
case 0: /* look for leading 0, 0x or 0X */
|
|
|
|
if (*str == '0')
|
|
|
|
{
|
|
|
|
str++;
|
|
|
|
if (*str == 'x' || *str == 'X')
|
|
|
|
{
|
|
|
|
str++;
|
|
|
|
base = 16;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
base = 8;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
base = 10;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case 16: /* skip leading 0x or 0X */
|
|
|
|
if (*str == '0' && (*(str+1) == 'x' || *(str+1) == 'X'))
|
|
|
|
str += 2;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* do the conversion */
|
1996-12-05 23:27:02 +00:00
|
|
|
while ((c = Py_CHARMASK(*str)) != '\0')
|
1993-12-24 10:32:00 +00:00
|
|
|
{
|
|
|
|
if (isdigit(c) && c - '0' < base)
|
|
|
|
c -= '0';
|
|
|
|
else
|
|
|
|
{
|
|
|
|
if (isupper(c))
|
|
|
|
c = tolower(c);
|
|
|
|
if (c >= 'a' && c <= 'z')
|
|
|
|
c -= 'a' - 10;
|
|
|
|
else /* non-"digit" character */
|
|
|
|
break;
|
|
|
|
if (c >= base) /* non-"digit" character */
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
temp = result;
|
|
|
|
result = result * base + c;
|
1994-08-01 11:34:53 +00:00
|
|
|
#ifndef MPW
|
1997-12-15 17:27:35 +00:00
|
|
|
if(base == 10) {
|
|
|
|
if(((long)(result - c) / base != temp)) /* overflow */
|
|
|
|
ovf = 1;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
if ((result - c) / base != temp) /* overflow */
|
|
|
|
ovf = 1;
|
|
|
|
}
|
1994-08-01 11:34:53 +00:00
|
|
|
#endif
|
1993-12-24 10:32:00 +00:00
|
|
|
str++;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* set pointer to point to the last character scanned */
|
|
|
|
if (ptr)
|
|
|
|
*ptr = str;
|
|
|
|
if (ovf)
|
|
|
|
{
|
1997-04-09 19:24:53 +00:00
|
|
|
result = (unsigned long) ~0L;
|
1993-12-24 10:32:00 +00:00
|
|
|
errno = ERANGE;
|
|
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
long
|
1997-05-07 23:51:07 +00:00
|
|
|
PyOS_strtol(str, ptr, base)
|
1993-12-24 10:32:00 +00:00
|
|
|
char * str;
|
|
|
|
char ** ptr;
|
|
|
|
int base;
|
|
|
|
{
|
|
|
|
long result;
|
|
|
|
char sign;
|
|
|
|
|
1995-02-10 17:01:56 +00:00
|
|
|
while (*str && isspace(Py_CHARMASK(*str)))
|
1993-12-24 10:32:00 +00:00
|
|
|
str++;
|
|
|
|
|
|
|
|
sign = *str;
|
|
|
|
if (sign == '+' || sign == '-')
|
|
|
|
str++;
|
|
|
|
|
1997-05-07 23:51:07 +00:00
|
|
|
result = (long) PyOS_strtoul(str, ptr, base);
|
1993-12-24 10:32:00 +00:00
|
|
|
|
|
|
|
/* Signal overflow if the result appears negative,
|
|
|
|
except for the largest negative integer */
|
|
|
|
if (result < 0 && !(sign == '-' && result == -result)) {
|
|
|
|
errno = ERANGE;
|
|
|
|
result = 0x7fffffff;
|
|
|
|
}
|
|
|
|
|
|
|
|
if (sign == '-')
|
|
|
|
result = -result;
|
|
|
|
|
|
|
|
return result;
|
|
|
|
}
|