forked from KolibriOS/kolibrios
23 lines
511 B
C++
23 lines
511 B
C++
|
#include "stdio.h"
|
||
|
|
#include "stdlib.h"
|
||
|
|
#include "ctype.h"
|
||
|
|
|
||
|
|
/*
|
||
|
|
** atoib(s,b) - Convert s to "unsigned" integer in base b.
|
||
|
|
** NOTE: This is a non-standard function.
|
||
|
|
*/
|
||
|
|
int atoib(char *s,int b)
|
||
|
|
{
|
||
|
|
int n, digit;
|
||
|
|
n = 0;
|
||
|
|
while(isspace(*s)) ++s;
|
||
|
|
while((digit = (127 & *s++)) >= '0') {
|
||
|
|
if(digit >= 'a') digit -= 87;
|
||
|
|
else if(digit >= 'A') digit -= 55;
|
||
|
|
else digit -= '0';
|
||
|
|
if(digit >= b) break;
|
||
|
|
n = b * n + digit;
|
||
|
|
}
|
||
|
|
return (n);
|
||
|
|
}
|