cpython/Python/mystrtoul.c

169 lines
3.6 KiB
C
Raw Normal View History

1993-12-24 06:32:00 -04:00
/***********************************************************
2000-06-30 20:50:40 -03:00
Copyright (c) 2000, BeOpen.com.
Copyright (c) 1995-2000, Corporation for National Research Initiatives.
Copyright (c) 1990-1995, Stichting Mathematisch Centrum.
All rights reserved.
1993-12-24 06:32:00 -04:00
2000-06-30 20:50:40 -03:00
See the file "Misc/COPYRIGHT" for information on usage and
redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
1993-12-24 06:32:00 -04:00
******************************************************************/
#include "Python.h"
#if defined(__sgi) && defined(WITH_THREAD) && !defined(_SGI_MP_SOURCE)
#define _SGI_MP_SOURCE
#endif
1995-02-10 13:01:56 -04: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
/* strtol and strtoul, renamed to avoid conflicts */
1993-12-24 06:32:00 -04: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>
#ifndef DONT_HAVE_ERRNO_H
1993-12-24 06:32:00 -04:00
#include <errno.h>
#endif
1993-12-24 06:32:00 -04:00
unsigned long
1997-05-07 20:51:07 -03:00
PyOS_strtoul(str, ptr, base)
1993-12-24 06:32:00 -04: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 13:01:56 -04:00
while (*str && isspace(Py_CHARMASK(*str)))
1993-12-24 06:32:00 -04: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 19:27:02 -04:00
while ((c = Py_CHARMASK(*str)) != '\0')
1993-12-24 06:32:00 -04: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;
#ifndef MPW
if(base == 10) {
if(((long)(result - c) / base != (long)temp)) /* overflow */
ovf = 1;
}
else {
if ((result - c) / base != temp) /* overflow */
ovf = 1;
}
#endif
1993-12-24 06:32:00 -04:00
str++;
}
/* set pointer to point to the last character scanned */
if (ptr)
*ptr = str;
if (ovf)
{
result = (unsigned long) ~0L;
1993-12-24 06:32:00 -04:00
errno = ERANGE;
}
return result;
}
long
1997-05-07 20:51:07 -03:00
PyOS_strtol(str, ptr, base)
1993-12-24 06:32:00 -04:00
char * str;
char ** ptr;
int base;
{
long result;
char sign;
1995-02-10 13:01:56 -04:00
while (*str && isspace(Py_CHARMASK(*str)))
1993-12-24 06:32:00 -04:00
str++;
sign = *str;
if (sign == '+' || sign == '-')
str++;
1997-05-07 20:51:07 -03:00
result = (long) PyOS_strtoul(str, ptr, base);
1993-12-24 06:32:00 -04: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;
}