93 lines
1.2 KiB
C
93 lines
1.2 KiB
C
#include <stdlib.h>
|
|
#include <errno.h>
|
|
#include <limits.h>
|
|
|
|
unsigned long
|
|
strtoul(const char *nptr, char **endptr, int base)
|
|
{
|
|
const char *p;
|
|
unsigned long n, nn;
|
|
int c, ovfl, neg, v, ndig;
|
|
|
|
p = (char*)nptr;
|
|
neg = 0;
|
|
n = 0;
|
|
ndig = 0;
|
|
ovfl = 0;
|
|
|
|
/*
|
|
* White space
|
|
*/
|
|
for(;;p++){
|
|
switch(*p){
|
|
case ' ':
|
|
case '\t':
|
|
case '\n':
|
|
case '\f':
|
|
case '\r':
|
|
case '\v':
|
|
continue;
|
|
}
|
|
break;
|
|
}
|
|
|
|
/*
|
|
* Sign
|
|
*/
|
|
if(*p=='-' || *p=='+')
|
|
if(*p++ == '-')
|
|
neg = 1;
|
|
|
|
/*
|
|
* Base
|
|
*/
|
|
if(base==0){
|
|
if(*p != '0')
|
|
base = 10;
|
|
else{
|
|
base = 8;
|
|
if(p[1]=='x' || p[1]=='X'){
|
|
p += 2;
|
|
base = 16;
|
|
}
|
|
}
|
|
}else if(base==16 && *p=='0'){
|
|
if(p[1]=='x' || p[1]=='X')
|
|
p += 2;
|
|
}else if(base<0 || 36<base)
|
|
goto Return;
|
|
|
|
/*
|
|
* Non-empty sequence of digits
|
|
*/
|
|
for(;; p++,ndig++){
|
|
c = *p;
|
|
v = base;
|
|
if('0'<=c && c<='9')
|
|
v = c - '0';
|
|
else if('a'<=c && c<='z')
|
|
v = c - 'a' + 10;
|
|
else if('A'<=c && c<='Z')
|
|
v = c - 'A' + 10;
|
|
if(v >= base)
|
|
break;
|
|
nn = n*base + v;
|
|
if(nn < n)
|
|
ovfl = 1;
|
|
n = nn;
|
|
}
|
|
|
|
Return:
|
|
if(ndig == 0)
|
|
p = nptr;
|
|
if(endptr)
|
|
*endptr = (char *)p;
|
|
if(ovfl){
|
|
errno = ERANGE;
|
|
return ULONG_MAX;
|
|
}
|
|
if(neg)
|
|
return -n;
|
|
return n;
|
|
}
|