Mercurial > octave-nkf

comparison liboctave/lo-ieee.h @ 4075:9a2102864eb0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-09-27 21:37:56 by jwe]
author jwe
date Fri, 27 Sep 2002 21:37:56 +0000
parents a67f76924703
children cbac6756967e
comparison
equal deleted inserted replaced
4074:a67f76924703 4075:9a2102864eb0
25 25
26 #ifdef __cplusplus 26 #ifdef __cplusplus
27 extern "C" { 27 extern "C" {
28 #endif 28 #endif
29 29
30 extern int lo_ieee_hw;
31 extern int lo_ieee_lw;
32
33 typedef union
34 {
35 double value;
36 unsigned int word[2];
37 } lo_ieee_double;
38
39 #define LO_IEEE_NA_HW 0x7ff00000
40 #define LO_IEEE_NA_LW 1954
41
30 // Octave's idea of infinity. 42 // Octave's idea of infinity.
31 extern double octave_Inf; 43 extern double octave_Inf;
32 44
33 // Octave's idea of not a number. 45 // Octave's idea of not a number.
34 extern double octave_NaN; 46 extern double octave_NaN;
36 // Octave's idea of a missing value. 48 // Octave's idea of a missing value.
37 extern double octave_NA; 49 extern double octave_NA;
38 50
39 extern void octave_ieee_init (void); 51 extern void octave_ieee_init (void);
40 52
41 extern int lo_ieee_is_NA (double);
42 extern int lo_ieee_is_NaN_or_NA (double);
43
44 #if defined (SCO) 53 #if defined (SCO)
45 extern int isnan (double); 54 extern int isnan (double);
46 extern int isinf (double); 55 extern int isinf (double);
47 #endif 56 #endif
48 57
49 extern int lo_ieee_isnan (double x); 58 extern int lo_ieee_isnan (double x);
50 extern int lo_ieee_finite (double x); 59 extern int lo_ieee_finite (double x);
51 extern int lo_ieee_isinf (double x); 60 extern int lo_ieee_isinf (double x);
61
62 extern int lo_ieee_is_NA (double);
63 extern int lo_ieee_is_NaN_or_NA (double);
52 64
53 #ifdef __cplusplus 65 #ifdef __cplusplus
54 } 66 }
55 #endif 67 #endif
56 68