/*
 * COPYRIGHT:   See COPYING in the top level directory
 * PROJECT:     ReactOS system libraries
 * FILE:        lib/crt/??????
 * PURPOSE:     Unknown
 * PROGRAMER:   Unknown
 * UPDATE HISTORY:
 *              25/11/05: Added license header
 */

#include <precomp.h>
#include <math.h>
#include <internal/ieee.h>


#define _FPCLASS_SNAN	0x0001	/* signaling NaN */
#define _FPCLASS_QNAN	0x0002	/* quiet NaN */
#define _FPCLASS_NINF	0x0004	/* negative infinity */
#define _FPCLASS_NN	0x0008	/* negative normal */
#define _FPCLASS_ND	0x0010	/* negative denormal */
#define _FPCLASS_NZ	0x0020	/* -0 */
#define _FPCLASS_PZ	0x0040	/* +0 */
#define _FPCLASS_PD	0x0080	/* positive denormal */
#define _FPCLASS_PN	0x0100	/* positive normal */
#define _FPCLASS_PINF	0x0200	/* positive infinity */


//#if __MINGW32_MAJOR_VERSION < 3 || __MINGW32_MINOR_VERSION < 3

#define FP_SNAN       0x0001  //    signaling NaN
#define	FP_QNAN       0x0002  //    quiet NaN
#define	FP_NINF       0x0004  //    negative infinity
#define FP_PINF       0x0200  //    positive infinity
#define FP_NDENORM    0x0008  //    negative denormalized non-zero
#define FP_PDENORM    0x0010  //    positive denormalized non-zero
#define FP_NZERO      0x0020  //    negative zero
#define FP_PZERO      0x0040  //    positive zero
#define FP_NNORM      0x0080  //    negative normalized non-zero
#define FP_PNORM      0x0100  //    positive normalized non-zero

//#endif

typedef int fpclass_t;

/*
 * @implemented
 */
fpclass_t _fpclass(double __d)
{
	union
	{
		double*	  __d;
		double_s*   d;
	} d;
	d.__d = &__d;

	if ( d.d->exponent == 0 ) {
		if ( d.d->mantissah == 0 &&  d.d->mantissal == 0 ) {
			if ( d.d->sign ==0 )
				return FP_NZERO;
			else
				return FP_PZERO;
		} else {
			if ( d.d->sign ==0 )
				return FP_NDENORM;
			else
				return FP_PDENORM;
		}
	}
	if (d.d->exponent == 0x7ff ) {
		if ( d.d->mantissah == 0 &&  d.d->mantissal == 0 ) {
			if ( d.d->sign ==0 )
				return FP_NINF;
			else
				return FP_PINF;
		}
		else if ( d.d->mantissah == 0 &&  d.d->mantissal != 0 ) {
			return FP_QNAN;
		}
		else if ( d.d->mantissah == 0 &&  d.d->mantissal != 0 ) {
			return FP_SNAN;
		}

	}
	return 0;
}