home *** CD-ROM | disk | FTP | other *** search
- #define NOCCARGC /* no argument count passing */
- /*
- ** atoib(s,b) - Convert s to "unsigned" integer in base b.
- ** NOTE: This is a non-standard function.
- */
- static int n, digit;
-
- atoib(s, b) char *s; int b; {
- 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);
- }
-