Return to gcvt.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / rt

Annotation of 43BSD/contrib/icon/rt/gcvt.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * gcvt - Convert number to a string in buf.  If possible, ndigit significant
        !             3:  *  digits are produced, otherwise a form with an exponent is used.
        !             4:  */
        !             5: char   *ecvt();
        !             6: char *
        !             7: gcvt(number, ndigit, buf)
        !             8: double number;
        !             9: char *buf;
        !            10:    {
        !            11:    int sign, decpt;
        !            12:    register char *p1, *p2;
        !            13:    register i;
        !            14:    int junk;
        !            15: 
        !            16:    p1 = ecvt(number, ndigit, &decpt, &sign);
        !            17:    p2 = buf;
        !            18:    if (sign)
        !            19:       *p2++ = '-';
        !            20:    for (i=ndigit-1; i>0 && p1[i]=='0'; i--)
        !            21:       ndigit--;
        !            22:    if (decpt >= 0 && decpt-ndigit > 4
        !            23:       || decpt < 0 && decpt < -3) { /* use E-style */
        !            24:          decpt--;
        !            25:          *p2++ = *p1++;
        !            26:          *p2++ = '.';
        !            27:          for (i=1; i<ndigit; i++)
        !            28:             *p2++ = *p1++;
        !            29:          *p2++ = 'e';
        !            30:          if (decpt<0) {
        !            31:             decpt = -decpt;
        !            32:             *p2++ = '-';
        !            33:             }
        !            34:          if (decpt/10 > 0)
        !            35:             *p2++ = decpt/10 + '0';
        !            36:          *p2++ = decpt%10 + '0';
        !            37:       } else {
        !            38:          if (decpt<=0) {
        !            39:          /* if (*p1!='0') */
        !            40:          *p2++ = '0';
        !            41:          *p2++ = '.';
        !            42:          while (decpt<0) {
        !            43:             decpt++;
        !            44:             *p2++ = '0';
        !            45:             }
        !            46:          }
        !            47:          for (i=1; i<=ndigit; i++) {
        !            48:             *p2++ = *p1++;
        !            49:             if (i==decpt)
        !            50:                *p2++ = '.';
        !            51:             }
        !            52:       if (ndigit<decpt) {
        !            53:          while (ndigit++<decpt)
        !            54:             *p2++ = '0';
        !            55:          *p2++ = '.';
        !            56:          }
        !            57:    }
        !            58:    if (p2[-1]=='.')
        !            59:       *p2++ = '0';
        !            60:    *p2 = '\0';
        !            61:    return(buf);
        !            62:    }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.