Return to gcvt.c CVS log

Up to [Research Unix] / researchv9 / libc / stdio

Annotation of researchv9/libc/stdio/gcvt.c, revision 1.1

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

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