63 lines
1.2 KiB
C
63 lines
1.2 KiB
C
/*
|
|
* This file is part of the UCB release of Plan 9. It is subject to the license
|
|
* terms in the LICENSE file found in the top-level directory of this
|
|
* distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No
|
|
* part of the UCB release of Plan 9, including this file, may be copied,
|
|
* modified, propagated, or distributed except according to the terms contained
|
|
* in the LICENSE file.
|
|
*/
|
|
|
|
#include <u.h>
|
|
#include <libc.h>
|
|
|
|
int32_t
|
|
jehanne_atol(const char *s)
|
|
{
|
|
int32_t n;
|
|
int f, c;
|
|
|
|
n = 0;
|
|
f = 0;
|
|
while(*s == ' ' || *s == '\t')
|
|
s++;
|
|
if(*s == '-' || *s == '+') {
|
|
if(*s++ == '-')
|
|
f = 1;
|
|
while(*s == ' ' || *s == '\t')
|
|
s++;
|
|
}
|
|
if(s[0]=='0' && s[1]) {
|
|
if(s[1]=='x' || s[1]=='X'){
|
|
s += 2;
|
|
for(;;) {
|
|
c = *s;
|
|
if(c >= '0' && c <= '9')
|
|
n = n*16 + c - '0';
|
|
else
|
|
if(c >= 'a' && c <= 'f')
|
|
n = n*16 + c - 'a' + 10;
|
|
else
|
|
if(c >= 'A' && c <= 'F')
|
|
n = n*16 + c - 'A' + 10;
|
|
else
|
|
break;
|
|
s++;
|
|
}
|
|
} else
|
|
while(*s >= '0' && *s <= '7')
|
|
n = n*8 + *s++ - '0';
|
|
} else
|
|
while(*s >= '0' && *s <= '9')
|
|
n = n*10 + *s++ - '0';
|
|
if(f)
|
|
n = -n;
|
|
return n;
|
|
}
|
|
|
|
int
|
|
jehanne_atoi(const char *s)
|
|
{
|
|
|
|
return jehanne_atol(s);
|
|
}
|