fpclass.h

Go to the documentation of this file.

 
#ifndef _RWSTD_FPCLASS_H_INCLUDED
#define _RWSTD_FPCLASS_H_INCLUDED
 
#include <rw/_defs.h>
 
#include <float.h>   // for _finite(), _fpclass(), _isnan(), _copysign()
#include <math.h>    // for isfinite(), isnan(), isinf(), signbit()
 
#ifdef _RWSTD_FORCE_IEEEFP_H
#  include <ieeefp.h>   // for fpclass(), isnan()
#endif   // _RWSTD_FORCE_IEEEFP_H
 
 
#if defined (_MSC_VER)
 
 
inline bool
__rw_isfinite (double val)
{
    return !!_finite (val);
}
 
 
inline bool
__rw_signbit (double val)
{
    return 0 > _copysign (1., val);
}
 
 
inline bool
__rw_isinf (double val)
{
    const int fpc = _fpclass (val);
 
    if (_FPCLASS_NINF == fpc) {
        // verify that __rw_signbit() correctly determines
        // the sign of negative infinity
        _RWSTD_ASSERT (__rw_signbit (val));
        return true;
    }
    else if (_FPCLASS_PINF == fpc) {
        // verify that __rw_signbit() correctly determines
        // the sign of positive infinity
        _RWSTD_ASSERT (!__rw_signbit (val));
        return true;
    }
 
    return false;
}
 
 
inline bool
__rw_isnan (double val)
{
    return !!_isnan (val);
}
 
 
inline bool __rw_isqnan (double val)
{
    return _FPCLASS_QNAN == _fpclass (val);
}
 
 
inline bool __rw_issnan (double val)
{
    return _FPCLASS_SNAN == _fpclass (val);
}
 
 
#elif defined (_RWSTD_OS_SUNOS)
 
inline bool
__rw_isfinite (double val)
{
    return !!finite (val);
}
 
 
inline bool
__rw_signbit (double val)
{
    // implement own signbit() to avoid dragging in libm or libsunmath
    return _RWSTD_REINTERPRET_CAST (const _RWSTD_UINT64_T&, val) >> 63;
}
 
 
inline bool
__rw_isinf (double val)
{
    const int fpc = fpclass (val);
 
    if (FP_NINF == fpc) {
        // verify that __rw_signbit() correctly determines
        // the sign of negative infinity
        _RWSTD_ASSERT (__rw_signbit (val));
        return true;
    }
    else if (FP_PINF == fpc) {
        // verify that __rw_signbit() correctly determines
        // the sign of positive infinity
        _RWSTD_ASSERT (!__rw_signbit (val));
        return true;
    }
 
    return false;
}
 
 
inline bool
__rw_isnan (double val)
{
    return 0 != isnan (val);
}
 
 
inline bool
__rw_isqnan (double val)
{
    return FP_QNAN == fpclass (val);
}
 
 
inline bool
__rw_issnan (double val)
{
    return FP_SNAN == fpclass (val);
}
 
 
#elif defined (fpclassify)
 
 
inline bool
__rw_isfinite (double val)
{
    return !!isfinite (val);
}
 
 
inline bool
__rw_signbit (double val)
{
    return !!signbit (val);
}
 
 
inline bool
__rw_isinf (double val)
{
    return !!isinf (val);
}
 
 
inline bool
__rw_isnan (double val)
{
    return !!isnan (val);
}
 
 
inline bool
__rw_isqnan (double)
{
    return false;
}
 
 
inline bool
__rw_issnan (double)
{
    return false;
}
 
#else
 
inline bool __rw_isfinite (double) { return true; }
 
inline bool __rw_signbit (double) { return false; }
 
inline bool __rw_isinf (double) { return false; }
 
inline bool __rw_isnan (double) { return false; }
 
inline bool __rw_isqnan (double) { return false; }
 
inline bool __rw_issnan (double) { return false; }
 
#endif
 
 
inline bool __rw_isfinite (float) { return true; }
 
inline bool __rw_signbit (float) { return false; }
 
inline bool __rw_isinf (float) { return false; }
 
inline bool __rw_isnan (float) { return false; }
 
inline bool __rw_isqnan (float) { return false; }
 
inline bool __rw_issnan (float) { return false; }
 
 
#ifndef _RWSTD_NO_LONG_DOUBLE
 
#  if _RWSTD_DBL_SIZE == _RWSTD_LDBL_SIZE
 
inline bool __rw_isfinite (long double x) { return __rw_isfinite (double (x)); }
 
inline bool __rw_signbit (long double x) { return __rw_signbit (double (x)); }
 
inline bool __rw_isinf (long double x) { return __rw_isinf (double (x)); }
 
inline bool __rw_isnan (long double x) { return __rw_isnan (double (x)); }
 
inline bool __rw_isqnan (long double x) { return __rw_isqnan (double (x)); }
 
inline bool __rw_issnan (long double x) { return __rw_issnan (double (x)); }
 
#  else   // _RWSTD_DBL_SIZE != _RWSTD_LDBL_SIZE
 
inline bool __rw_isfinite (long double) { return true; }
 
inline bool __rw_signbit (long double) { return false; }
 
inline bool __rw_isinf (long double) { return false; }
 
inline bool __rw_isnan (long double) { return false; }
 
inline bool __rw_isqnan (long double) { return false; }
 
inline bool __rw_issnan (long double) { return false; }
 
#  endif   // _RWSTD_DBL_SIZE == _RWSTD_LDBL_SIZE
 
#endif   // _RWSTD_NO_LONG_DOUBLE
 
 
#endif   // _RWSTD_FPCLASS_H_INCLUDED