#define NOARGC  /* no argument count passing */›#define FIXARGC /* don't expect arg counts passed in */›/*›** atoib(s,b) - Convert s to "unsigned" integer in base b.›**              NOTE: This is a non-standard function.›*/›atoib(s, b) ›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);›$)››