g_Qfmt.c File Reference

#include "gdtoaimp.h"

Include dependency graph for g_Qfmt.c:

Go to the source code of this file.

Functions
char *	g_Qfmt (char *buf, void *V, int ndig, unsigned bufsize)

Function Documentation

g_Qfmt()

char* g_Qfmt	(	char *	buf,
		void *	V,
		int	ndig,
		unsigned	bufsize
	)

Definition at line 59 of file g_Qfmt.c.

{
    static FPI fpi = {113, 1 - 16383 - 113 + 1, 32766 - 16383 - 113 + 1, 1, 0};
    char *b, *s, *se;
    ULong bits[4], *L, sign;
    int decpt, ex, i, mode;

    if(ndig < 0)
    {
        {
            ndig = 0;
        }
    }
    if(bufsize < (unsigned)ndig + 10)
    {
        {
            return 0;
        }
    }

    L = (ULong*)V;
    sign = L[_0] & 0x80000000L;
    bits[3] = L[_0] & 0xffff;
    bits[2] = L[_1];
    bits[1] = L[_2];
    bits[0] = L[_3];
    b = buf;
    if((ex = (L[_0] & 0x7fff0000L) >> 16) != 0)
    {
        if(ex == 0x7fff)
        {
            /* Infinity or NaN */
            if(bits[0] | bits[1] | bits[2] | bits[3])
            {
                {
                    b = strcp(b, "NaN");
                }
            }
            else
            {
                b = buf;
                if(sign)
                {
                    {
                        *b++ = '-';
                    }
                }
                b = strcp(b, "Infinity");
            }
            return b;
        }
        i = STRTOG_Normal;
        bits[3] |= 0x10000;
    }
    else if(bits[0] | bits[1] | bits[2] | bits[3])
    {
        i = STRTOG_Denormal;
        ex = 1;
    }
    else
    {
#ifndef IGNORE_ZERO_SIGN
        if(sign)
        {
            {
                *b++ = '-';
            }
        }
#endif
        *b++ = '0';
        *b = 0;
        return b;
    }
    ex -= 0x3fff + 112;
    mode = 2;
    if(ndig <= 0)
    {
        if(bufsize < 48)
        {
            {
                return 0;
            }
        }
        mode = 0;
    }
    s = gdtoa(&fpi, ex, bits, &i, mode, ndig, &decpt, &se);
    return g__fmt(buf, s, se, decpt, sign);
}

References g__fmt(), gdtoa(), strcp, STRTOG_Denormal, and STRTOG_Normal.