g_xfmt.c File Reference

#include "gdtoaimp.h"

Include dependency graph for g_xfmt.c:

Go to the source code of this file.

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

Function Documentation

g_xfmt()

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

Definition at line 61 of file g_xfmt.c.

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

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

    L = (UShort*)V;
    sign = L[_0] & 0x8000;
    bits[1] = (ULong)(L[_1] << 16) | L[_2];
    bits[0] = (ULong)(L[_3] << 16) | L[_4];
    if((ex = L[_0] & 0x7fff) != 0)
    {
        if(ex == 0x7fff)
        {
            /* Infinity or NaN */
            if(bits[0] | bits[1])
            {
                {
                    b = strcp(buf, "NaN");
                }
            }
            else
            {
                b = buf;
                if(sign)
                {
                    {
                        *b++ = '-';
                    }
                }
                b = strcp(b, "Infinity");
            }
            return b;
        }
        i = STRTOG_Normal;
    }
    else if(bits[0] | bits[1])
    {
        i = STRTOG_Denormal;
        ex = 1;
    }
    else
    {
        b = buf;
#ifndef IGNORE_ZERO_SIGN
        if(sign)
        {
            {
                *b++ = '-';
            }
        }
#endif
        *b++ = '0';
        *b = 0;
        return b;
    }
    ex -= 0x3fff + 63;
    mode = 2;
    if(ndig <= 0)
    {
        if(bufsize < 32)
        {
            {
                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.