The R Project SVN R

Rev

Rev 24068 | Rev 29423 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 24068 Rev 25128
Line 49... Line 49...
49 
int R_IsNaN(double);		/* True for special NaN, *not* for NA */
 49 
int R_IsNaN(double);		/* True for special NaN, *not* for NA */
50 
int R_IsNaNorNA(double);	/* True for both */
 50 
int R_IsNaNorNA(double);	/* True for both */
51 
int R_finite(double);		/* True if none of NA, NaN, +/-Inf */
 51 
int R_finite(double);		/* True if none of NA, NaN, +/-Inf */
52 
 
 52 
 
53 
#define ISNA(x)	       R_IsNA(x)
 53 
#define ISNA(x)	       R_IsNA(x)
- 
 
 54 
#ifdef IEEE_754
- 
 
 55 
# define ISNAN(x) (isnan(x)!=0)
- 
 
 56 
#else
54 
#define ISNAN(x)       R_IsNaNorNA(x)
 57 
# define ISNAN(x)      R_IsNaNorNA(x)
- 
 
 58 
#endif
55 
#define R_FINITE(x)    R_finite(x)
 59 
#define R_FINITE(x)    R_finite(x)
56 
 
 60 
 
57 
#ifdef  __cplusplus
 61 
#ifdef  __cplusplus
58 
}
 62 
}
59 
#endif
 63 
#endif