Mercurial > octave-nkf

comparison liboctave/lo-mappers.h @ 11586:12df7854fa7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from source files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:24:59 -0500
parents ab231f944252
children 8fb563d14d2f
comparison
equal deleted inserted replaced
11585:1473d0cf86d2 11586:12df7854fa7c
27 #include <limits> 27 #include <limits>
28 28
29 #include "oct-cmplx.h" 29 #include "oct-cmplx.h"
30 #include "lo-math.h" 30 #include "lo-math.h"
31 31
32 // Double Precision 32 // Double Precision
33 extern OCTAVE_API double xtrunc (double x); 33 extern OCTAVE_API double xtrunc (double x);
34 inline double xcopysign (double x, double y) { return copysign (x, y); } 34 inline double xcopysign (double x, double y) { return copysign (x, y); }
35 inline double xceil (double x) { return ceil (x); } 35 inline double xceil (double x) { return ceil (x); }
36 extern OCTAVE_API double xfloor (double x); 36 extern OCTAVE_API double xfloor (double x);
37 inline double arg (double x) { return atan2 (0.0, x); } 37 inline double arg (double x) { return atan2 (0.0, x); }
40 inline double imag (double) { return 0.0; } 40 inline double imag (double) { return 0.0; }
41 inline double real (double x) { return x; } 41 inline double real (double x) { return x; }
42 extern OCTAVE_API double xround (double x); 42 extern OCTAVE_API double xround (double x);
43 extern OCTAVE_API double xroundb (double x); 43 extern OCTAVE_API double xroundb (double x);
44 extern OCTAVE_API double signum (double x); 44 extern OCTAVE_API double signum (double x);
45 extern OCTAVE_API double xlog2 (double x); 45 extern OCTAVE_API double xlog2 (double x);
46 extern OCTAVE_API Complex xlog2 (const Complex& x); 46 extern OCTAVE_API Complex xlog2 (const Complex& x);
47 extern OCTAVE_API double xlog2 (double x, int& exp); 47 extern OCTAVE_API double xlog2 (double x, int& exp);
48 extern OCTAVE_API Complex xlog2 (const Complex& x, int& exp); 48 extern OCTAVE_API Complex xlog2 (const Complex& x, int& exp);
49 extern OCTAVE_API double xexp2 (double x); 49 extern OCTAVE_API double xexp2 (double x);
50 50
51 // These are used by the BOOL_OP macros in mx-op-defs.h. 51 // These are used by the BOOL_OP macros in mx-op-defs.h.
113 extern OCTAVE_API bool octave_is_NaN_or_NA (const Complex& x); 113 extern OCTAVE_API bool octave_is_NaN_or_NA (const Complex& x);
114 114
115 extern OCTAVE_API Complex xmin (const Complex& x, const Complex& y); 115 extern OCTAVE_API Complex xmin (const Complex& x, const Complex& y);
116 extern OCTAVE_API Complex xmax (const Complex& x, const Complex& y); 116 extern OCTAVE_API Complex xmax (const Complex& x, const Complex& y);
117 117
118 // Single Precision 118 // Single Precision
119 extern OCTAVE_API float xtrunc (float x); 119 extern OCTAVE_API float xtrunc (float x);
120 inline float xcopysign (float x, float y) { return copysignf (x, y); } 120 inline float xcopysign (float x, float y) { return copysignf (x, y); }
121 inline float xceil (float x) { return ceilf (x); } 121 inline float xceil (float x) { return ceilf (x); }
122 inline float xfloor (float x) { return floorf (x); } 122 inline float xfloor (float x) { return floorf (x); }
123 inline float arg (float x) { return atan2f (0.0f, x); } 123 inline float arg (float x) { return atan2f (0.0f, x); }
126 inline float imag (float) { return 0.0f; } 126 inline float imag (float) { return 0.0f; }
127 inline float real (float x) { return x; } 127 inline float real (float x) { return x; }
128 extern OCTAVE_API float xround (float x); 128 extern OCTAVE_API float xround (float x);
129 extern OCTAVE_API float xroundb (float x); 129 extern OCTAVE_API float xroundb (float x);
130 extern OCTAVE_API float signum (float x); 130 extern OCTAVE_API float signum (float x);
131 extern OCTAVE_API float xlog2 (float x); 131 extern OCTAVE_API float xlog2 (float x);
132 extern OCTAVE_API FloatComplex xlog2 (const FloatComplex& x); 132 extern OCTAVE_API FloatComplex xlog2 (const FloatComplex& x);
133 extern OCTAVE_API float xlog2 (float x, int& exp); 133 extern OCTAVE_API float xlog2 (float x, int& exp);
134 extern OCTAVE_API FloatComplex xlog2 (const FloatComplex& x, int& exp); 134 extern OCTAVE_API FloatComplex xlog2 (const FloatComplex& x, int& exp);
135 extern OCTAVE_API float xexp2 (float x); 135 extern OCTAVE_API float xexp2 (float x);
136 136
137 #if defined (HAVE_CMATH_ISNANF) 137 #if defined (HAVE_CMATH_ISNANF)
212 xisinteger (float x) 212 xisinteger (float x)
213 { 213 {
214 return xfinite (x) && x == xround (x); 214 return xfinite (x) && x == xround (x);
215 } 215 }
216 216
217 // Test for negative sign. 217 // Test for negative sign.
218 extern OCTAVE_API bool xnegative_sign (double x); 218 extern OCTAVE_API bool xnegative_sign (double x);
219 extern OCTAVE_API bool xnegative_sign (float x); 219 extern OCTAVE_API bool xnegative_sign (float x);
220 220
221 // Some old rounding functions. 221 // Some old rounding functions.
222 222