Mercurial > hg > octave-lyh
diff liboctave/lo-cieee.c @ 4102:cbac6756967e
[project @ 2002-10-14 20:16:44 by jwe]
author | jwe |
---|---|
date | Mon, 14 Oct 2002 20:16:45 +0000 |
parents | 9a2102864eb0 |
children | 53ee020af847 |
line wrap: on
line diff
--- a/liboctave/lo-cieee.c +++ b/liboctave/lo-cieee.c @@ -52,6 +52,18 @@ #define finite(x) ((x) < DBL_MAX && (x) > -DBL_MAX) #endif +/* Octave's idea of infinity. */ +double octave_Inf; + +/* Octave's idea of a missing value. */ +double octave_NA; + +/* Octave's idea of not a number. */ +double octave_NaN; + +int lo_ieee_hw; +int lo_ieee_lw; + #if defined (SCO) int @@ -116,6 +128,24 @@ return lo_ieee_isnan (x); } +double +lo_ieee_inf_value (void) +{ + return octave_Inf; +} + +double +lo_ieee_na_value (void) +{ + return octave_NA; +} + +double +lo_ieee_nan_value (void) +{ + return octave_NaN; +} + /* ;;; Local Variables: *** ;;; mode: C++ ***