BSD 1 development

[unix-history] / portlib / __prtint.c

__prtint(pobj, buf, base, signed, f, upper)
int     *pobj;
char    *buf;
int     base;
int     signed;
int     upper;
char    *(*f)();
{
       char            digs[15];
       register char   *dp;
       register int    k;
       register char   *p;

       dp = (*f)(pobj, &buf, base, signed, digs);

       if (dp == digs)
               *dp++ = 0;
       p = buf;
       while (dp != digs)
       {
               k = *--dp;
               if (k < 10)
                       k =+ '0';
               else
                       k =+ upper ? 'A' : 'a';
               *p++ = k;
       }
       *p = 0;
       return (p);
}


__prtshort(pobj, pbuf, base, signed, digs)
int     *pobj;
char    **pbuf;
int     base;
int     signed;
char    *digs;
{
       extern int      ldivr;
       register int    n;
       register char   *p;

       p = digs;
       n = *pobj;
       if (signed && n < 0)
       {
               n = -n;
               *(*pbuf)++ = '-';
       }
       while (n != 0)
       {
               n = ldiv(0, n, base);
               *p++ = ldivr;
       }
       return (p);
}