home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd2.bin / bbs / gnu / f2c-1993.04.28-src.lha / GNU / src / amiga / f2c-1993.04.28 / libI77 / fmtlib.c < prev    next >
C/C++ Source or Header  |  1993-04-28  |  582b  |  29 lines
  1. /*    @(#)fmtlib.c    1.2    */
  2. #define MAXINTLENGTH 23
  3. #ifdef KR_headers
  4. char *f__icvt(value,ndigit,sign, base) long value; int *ndigit,*sign;
  5.  register int base;
  6. #else
  7. char *f__icvt(long value, int *ndigit, int *sign, int base)
  8. #endif
  9. {    static char buf[MAXINTLENGTH+1];
  10.     register int i;
  11.     if(value>0) *sign=0;
  12.     else if(value<0)
  13.     {    value = -value;
  14.         *sign= 1;
  15.     }
  16.     else
  17.     {    *sign=0;
  18.         *ndigit=1;
  19.         buf[MAXINTLENGTH]='0';
  20.         return(&buf[MAXINTLENGTH]);
  21.     }
  22.     for(i=MAXINTLENGTH-1;value>0;i--)
  23.     {    *(buf+i)=(int)(value%base)+'0';
  24.         value /= base;
  25.     }
  26.     *ndigit=MAXINTLENGTH-1-i;
  27.     return(&buf[i+1]);
  28. }
  29.