Return to gcvt.c CVS log

Up to [CSRG BSD Unix] / 40BSD / libc / stdio

Annotation of 40BSD/libc/stdio/gcvt.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * gcvt  - Floating output conversion to
                      3:  * minimal length string
                      4:  */
                      5: 
                      6: char   *ecvt();
                      7: 
                      8: char *
                      9: gcvt(number, ndigit, buf)
                     10: double number;
                     11: char *buf;
                     12: {
                     13:        int sign, decpt;
                     14:        register char *p1, *p2;
                     15:        register i;
                     16: 
                     17:        p1 = ecvt(number, ndigit, &decpt, &sign);
                     18:        p2 = buf;
                     19:        if (sign)
                     20:                *p2++ = '-';
                     21:        for (i=ndigit-1; i>0 && p1[i]=='0'; i--)
                     22:                ndigit--;
                     23:        if (decpt >= 0 && decpt-ndigit > 4
                     24:         || decpt < 0 && decpt < -3) { /* use E-style */
                     25:                decpt--;
                     26:                *p2++ = *p1++;
                     27:                *p2++ = '.';
                     28:                for (i=1; i<ndigit; i++)
                     29:                        *p2++ = *p1++;
                     30:                *p2++ = 'e';
                     31:                if (decpt<0) {
                     32:                        decpt = -decpt;
                     33:                        *p2++ = '-';
                     34:                } else
                     35:                        *p2++ = '+';
                     36:                *p2++ = decpt/10 + '0';
                     37:                *p2++ = decpt%10 + '0';
                     38:        } else {
                     39:                if (decpt<=0) {
                     40:                        if (*p1!='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--;
                     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.