diff liboctave/lo-mappers.cc @ 4074:a67f76924703

[project @ 2002-09-27 21:06:02 by jwe]
author jwe
date Fri, 27 Sep 2002 21:06:02 +0000
parents 2550915214e1
children efd8cd91857e
line wrap: on
line diff
--- a/liboctave/lo-mappers.cc
+++ b/liboctave/lo-mappers.cc
@@ -27,10 +27,6 @@
 #include <cfloat>
 #include <cmath>
 
-#if defined (HAVE_IEEEFP_H)
-#include <ieeefp.h>
-#endif
-
 #if defined (HAVE_SUNMATH_H)
 #include <sunmath.h>
 #endif
@@ -44,11 +40,6 @@
 
 #include "f77-fcn.h"
 
-#if defined (_AIX) && defined (__GNUG__)
-#undef finite
-#define finite(x) ((x) < DBL_MAX && (x) > -DBL_MAX)
-#endif
-
 #ifndef M_LOG10E
 #define M_LOG10E 0.43429448190325182765
 #endif
@@ -76,11 +67,7 @@
 double
 imag (double x)
 {
-#if defined (HAVE_ISNAN)
   return xisnan (x) ? octave_NaN : 0.0;
-#else
-  return 0.0;
-#endif
 }
 
 double
@@ -104,11 +91,7 @@
   else if (x > 0.0)
     tmp = 1.0;
 
-#if defined (HAVE_ISNAN)
   return xisnan (x) ? octave_NaN : tmp;
-#else
-  return tmp;
-#endif
 }
 
 // double -> bool mappers.
@@ -116,35 +99,19 @@
 bool
 xisnan (double x)
 {
-#if defined (HAVE_ISNAN)
-  return isnan (x) ? ! lo_ieee_is_NA (x) : false;
-#else
-  return false;
-#endif
+  return lo_ieee_isnan (x);
 }
 
 bool
 xfinite (double x)
 {
-#if defined (HAVE_FINITE)
-  return finite (x) != 0 && ! octave_is_NaN_or_NA (x);
-#elif defined (HAVE_ISINF)
-  return (! isinf (x) && ! octave_is_NaN_or_NA (x));
-#else
-  return ! octave_is_NaN_or_NA (x);
-#endif
+  return lo_ieee_finite (x);
 }
 
 bool
 xisinf (double x)
 {
-#if defined (HAVE_ISINF)
-  return isinf (x);
-#elif defined (HAVE_FINITE)
-  return (! (finite (x) || octave_is_NaN_or_NA (x)));
-#else
-  return false;
-#endif
+  return lo_ieee_isinf (x);
 }
 
 bool