#include "common.h"
-namespace IPDF
-{
+#define REAL_SINGLE 0
+#define REAL_DOUBLE 1
+#define REAL_LONG_DOUBLE 2
+#define REAL_SINGLE_FAST2SUM 3
+
+#ifndef REAL
+ #error "REAL was not defined!"
+#endif
-//#define REAL_FLOAT
-//#define REAL_DOUBLE
-#define REAL_HALF
+#if REAL >= REAL_SINGLE_FAST2SUM
+ #include "real_fast2sum.h"
+#endif //REAL
-#ifdef REAL_SINGLE
+namespace IPDF
+{
+ extern const char * g_real_name[];
+
+#if REAL == REAL_SINGLE
typedef float Real;
- inline float Float(Real r) {return r;}
-#elif defined REAL_DOUBLE
+#elif REAL == REAL_DOUBLE
typedef double Real;
- inline double Float(Real r) {return r;}
-#elif defined REAL_HALF
- struct Real
- {
- Real() = default;
- Real(double r) : value(r)
- {
- int & a = *((int*)(&value)); // um...
- // mask out extra bits in exponent
- //1000 1111 1000 0000 0000 0011 1111 1111
- // Endianness matters
- a &= 0xFFC001F1; //0x8F8003FF;
-
- }
-
- Real operator+(float f) const {return Real(value+f);}
- Real operator-(float f) const {return Real(value+f);}
- Real operator/(float f) const {return Real(value/f);}
- Real operator*(float f) const {return Real(value*f);}
- Real operator+(const Real & r) const {return Real(this->value + r.value);}
- Real operator-(const Real & r) const {return Real(this->value - r.value);}
- Real operator*(const Real & r) const {return Real(this->value * r.value);}
- Real operator/(const Real & r) const {return Real(this->value / r.value);}
- Real & operator+=(const Real & r) {this->value += r.value; return *this;}
- Real & operator-=(const Real & r) {this->value -= r.value; return *this;}
- Real & operator/=(const Real & r) {this->value /= r.value; return *this;}
- Real & operator*=(const Real & r) {this->value *= r.value; return *this;}
-
- float value;
- };
- inline float Float(Real r) {return r.value;}
-
- inline std::ostream & operator<<(std::ostream & os, Real & r) {return os << r.value;} // yuk
-
-#endif //REAL_HALF
-
+#elif REAL == REAL_LONG_DOUBLE
+ typedef long double Real;
+#elif REAL == REAL_SINGLE_FAST2SUM
+ typedef RealF2S<float> Real;
+ inline float Float(Real r) {return r.m_value;}
+
+#else
+ #error "Type of Real unspecified."
+#endif //REAL
+
+ // Allow us to call Float on the primative types
+ // Useful so I can template some things that could be either (a more complicated) Real or a primitive type
+ // Mostly in the testers.
+ inline float Float(float f) {return f;}
+ inline double Float(double f) {return f;}
+ inline double Float(long double f) {return double(f);}
}
#endif //_REAL_H