#define NOARGC  /* no arg count passing */›#define FIXARGC /* don't expect arg counts passed in */›#include <stdio.h>›/*›** otoi -- convert unsigned octal string to integer nbr›**          returns field size, else ERR on error›*/›otoi(octstr, nbr)  ›char *octstr;  ›int *nbr;  ›$(›  int d,t; d=0;›  *nbr=0;›  while((*octstr>='0')&(*octstr<='7')) ›    $(›    t=*nbr;›    t=(t<<3) + (*octstr++ - '0');›    if ((t>=0)&(*nbr<0)) return ERR;›    d++; *nbr=t;›    $)›  return d;›$)›