Mercurial > hg > octave-nkf

comparison liboctave/lo-cieee.c @ 4102:cbac6756967e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-10-14 20:16:44 by jwe]
author jwe
date Mon, 14 Oct 2002 20:16:45 +0000
parents 9a2102864eb0
children 53ee020af847
comparison
equal deleted inserted replaced
4101:ea537559ab07 4102:cbac6756967e
49 49
50 #if defined (_AIX) && defined (__GNUG__) 50 #if defined (_AIX) && defined (__GNUG__)
51 #undef finite 51 #undef finite
52 #define finite(x) ((x) < DBL_MAX && (x) > -DBL_MAX) 52 #define finite(x) ((x) < DBL_MAX && (x) > -DBL_MAX)
53 #endif 53 #endif
54
55 /* Octave's idea of infinity. */
56 double octave_Inf;
57
58 /* Octave's idea of a missing value. */
59 double octave_NA;
60
61 /* Octave's idea of not a number. */
62 double octave_NaN;
63
64 int lo_ieee_hw;
65 int lo_ieee_lw;
54 66
55 #if defined (SCO) 67 #if defined (SCO)
56 68
57 int 69 int
58 isnan (double x) 70 isnan (double x)
114 lo_ieee_is_NaN_or_NA (double x) 126 lo_ieee_is_NaN_or_NA (double x)
115 { 127 {
116 return lo_ieee_isnan (x); 128 return lo_ieee_isnan (x);
117 } 129 }
118 130
131 double
132 lo_ieee_inf_value (void)
133 {
134 return octave_Inf;
135 }
136
137 double
138 lo_ieee_na_value (void)
139 {
140 return octave_NA;
141 }
142
143 double
144 lo_ieee_nan_value (void)
145 {
146 return octave_NaN;
147 }
148
119 /* 149 /*
120 ;;; Local Variables: *** 150 ;;; Local Variables: ***
121 ;;; mode: C++ *** 151 ;;; mode: C++ ***
122 ;;; End: *** 152 ;;; End: ***
123 */ 153 */