Return to gcvt.c CVS log

Up to [CSRG BSD Unix] / 43BSD / lib / libc / gen

Annotation of 43BSD/lib/libc/gen/gcvt.c, revision 1.1.1.1

1.1       root        1: #if defined(LIBC_SCCS) && !defined(lint)
                      2: static char sccsid[] = "@(#)gcvt.c     5.2 (Berkeley) 3/9/86";
                      3: #endif LIBC_SCCS and not lint
                      4: 
                      5: /*
                      6:  * gcvt  - Floating output conversion to
                      7:  * minimal length string
                      8:  */
                      9: 
                     10: char   *ecvt();
                     11: 
                     12: char *
                     13: gcvt(number, ndigit, buf)
                     14: double number;
                     15: char *buf;
                     16: {
                     17:        int sign, decpt;
                     18:        register char *p1, *p2;
                     19:        register i;
                     20: 
                     21:        p1 = ecvt(number, ndigit, &decpt, &sign);
                     22:        p2 = buf;
                     23:        if (sign)
                     24:                *p2++ = '-';
                     25:        for (i=ndigit-1; i>0 && p1[i]=='0'; i--)
                     26:                ndigit--;
                     27:        if (decpt >= 0 && decpt-ndigit > 4
                     28:         || decpt < 0 && decpt < -3) { /* use E-style */
                     29:                decpt--;
                     30:                *p2++ = *p1++;
                     31:                *p2++ = '.';
                     32:                for (i=1; i<ndigit; i++)
                     33:                        *p2++ = *p1++;
                     34:                *p2++ = 'e';
                     35:                if (decpt<0) {
                     36:                        decpt = -decpt;
                     37:                        *p2++ = '-';
                     38:                } else
                     39:                        *p2++ = '+';
                     40:                *p2++ = decpt/10 + '0';
                     41:                *p2++ = decpt%10 + '0';
                     42:        } else {
                     43:                if (decpt<=0) {
                     44:                        if (*p1!='0')
                     45:                                *p2++ = '.';
                     46:                        while (decpt<0) {
                     47:                                decpt++;
                     48:                                *p2++ = '0';
                     49:                        }
                     50:                }
                     51:                for (i=1; i<=ndigit; i++) {
                     52:                        *p2++ = *p1++;
                     53:                        if (i==decpt)
                     54:                                *p2++ = '.';
                     55:                }
                     56:                if (ndigit<decpt) {
                     57:                        while (ndigit++<decpt)
                     58:                                *p2++ = '0';
                     59:                        *p2++ = '.';
                     60:                }
                     61:        }
                     62:        if (p2[-1]=='.')
                     63:                p2--;
                     64:        *p2 = '\0';
                     65:        return(buf);
                     66: }

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