Subversion Repositories openrisc

//#include <math.h>

double modf(double x, double *iptr);    // Our local version of modf()

#define CVTBUFSIZE 80

static char CVTBUF[CVTBUFSIZE];

static char *cvt(double arg, int ndigits, int *decpt, int *sign, char *buf,

                 int eflag)

{

        int r2;

        double fi, fj;

        char *p, *p1;

        if (ndigits < 0)

                ndigits = 0;

        if (ndigits >= CVTBUFSIZE - 1)

                ndigits = CVTBUFSIZE - 2;

        r2 = 0;

        *sign = 0;

        p = &buf[0];

        if (arg < 0) {

                *sign = 1;

                arg = -arg;

        }

        arg = modf(arg, &fi);

        p1 = &buf[CVTBUFSIZE];

        if (fi != 0) {

                p1 = &buf[CVTBUFSIZE];

                while (fi != 0) {

                        fj = modf(fi / 10, &fi);

                        *--p1 = (int)((fj + .03) * 10) + '0';

                        r2++;

                }

                while (p1 < &buf[CVTBUFSIZE])

                        *p++ = *p1++;

        } else if (arg > 0) {

                while ((fj = arg * 10) < 1) {

                        arg = fj;

                        r2--;

                }

        }

        p1 = &buf[ndigits];

        if (eflag == 0)

                p1 += r2;

        *decpt = r2;

        if (p1 < &buf[0]) {

                buf[0] = '\0';

                return buf;

        }

        while (p <= p1 && p < &buf[CVTBUFSIZE]) {

                arg *= 10;

                arg = modf(arg, &fj);

                *p++ = (int)fj + '0';

        }

        if (p1 >= &buf[CVTBUFSIZE]) {

                buf[CVTBUFSIZE - 1] = '\0';

                return buf;

        }

        p = p1;

        *p1 += 5;

        while (*p1 > '9') {

                *p1 = '0';

                if (p1 > buf)

                        ++ * --p1;

                else {

                        *p1 = '1';

                        (*decpt)++;

                        if (eflag == 0) {

                                if (p > buf)

                                        *p = '0';

                                p++;

                        }

                }

        }

        *p = '\0';

        return buf;

}

char *ecvt(double arg, int ndigits, int *decpt, int *sign)

{

        return cvt(arg, ndigits, decpt, sign, CVTBUF, 1);

}

char *ecvtbuf(double arg, int ndigits, int *decpt, int *sign, char *buf)

{

        return cvt(arg, ndigits, decpt, sign, buf, 1);

}

char *fcvt(double arg, int ndigits, int *decpt, int *sign)

{

        return cvt(arg, ndigits, decpt, sign, CVTBUF, 0);

}

char *fcvtbuf(double arg, int ndigits, int *decpt, int *sign, char *buf)

{

        return cvt(arg, ndigits, decpt, sign, buf, 0);

}