1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
|
#[doc = "Operations and constants for `f32`"];
// PORT
import cmath::c_float::*;
import cmath::c_float_targ_consts::*;
// FIXME find out why these have to be exported explicitly
export add, sub, mul, div, rem, lt, le, gt, eq, eq, ne;
export is_positive, is_negative, is_nonpositive, is_nonnegative;
export is_zero, is_infinite, is_finite;
export NaN, is_NaN, infinity, neg_infinity;
export consts;
export logarithm;
export acos, asin, atan, atan2, cbrt, ceil, copysign, cos, cosh, floor;
export erf, erfc, exp, expm1, exp2, abs, abs_sub;
export mul_add, fmax, fmin, nextafter, frexp, hypot, ldexp;
export lgamma, ln, log_radix, ln1p, log10, log2, ilog_radix;
export modf, pow, round, sin, sinh, sqrt, tan, tanh, tgamma, trunc;
export signbit;
// These are not defined inside consts:: for consistency with
// the integer types
const NaN: f32 = 0.0_f32/0.0_f32;
const infinity: f32 = 1.0_f32/0.0_f32;
const neg_infinity: f32 = -1.0_f32/0.0_f32;
pure fn is_NaN(f: f32) -> bool { f != f }
pure fn add(x: f32, y: f32) -> f32 { ret x + y; }
pure fn sub(x: f32, y: f32) -> f32 { ret x - y; }
pure fn mul(x: f32, y: f32) -> f32 { ret x * y; }
pure fn div(x: f32, y: f32) -> f32 { ret x / y; }
pure fn rem(x: f32, y: f32) -> f32 { ret x % y; }
pure fn lt(x: f32, y: f32) -> bool { ret x < y; }
pure fn le(x: f32, y: f32) -> bool { ret x <= y; }
pure fn eq(x: f32, y: f32) -> bool { ret x == y; }
pure fn ne(x: f32, y: f32) -> bool { ret x != y; }
pure fn ge(x: f32, y: f32) -> bool { ret x >= y; }
pure fn gt(x: f32, y: f32) -> bool { ret x > y; }
// FIXME replace the predicates below with llvm intrinsics or calls
// to the libmath macros in the rust runtime for performance
// See Issue #1999
#[doc = "
Returns true if `x` is a positive number, including +0.0f320 and +Infinity
"]
pure fn is_positive(x: f32) -> bool
{ ret x > 0.0f32 || (1.0f32/x) == infinity; }
#[doc = "
Returns true if `x` is a negative number, including -0.0f320 and -Infinity
"]
pure fn is_negative(x: f32) -> bool
{ ret x < 0.0f32 || (1.0f32/x) == neg_infinity; }
#[doc = "
Returns true if `x` is a negative number, including -0.0f320 and -Infinity
This is the same as `f32::is_negative`.
"]
pure fn is_nonpositive(x: f32) -> bool {
ret x < 0.0f32 || (1.0f32/x) == neg_infinity;
}
#[doc = "
Returns true if `x` is a positive number, including +0.0f320 and +Infinity
This is the same as `f32::is_positive`.)
"]
pure fn is_nonnegative(x: f32) -> bool {
ret x > 0.0f32 || (1.0f32/x) == infinity;
}
#[doc = "
Returns true if `x` is a zero number (positive or negative zero)
"]
pure fn is_zero(x: f32) -> bool {
ret x == 0.0f32 || x == -0.0f32;
}
#[doc = "Returns true if `x`is an infinite number"]
pure fn is_infinite(x: f32) -> bool {
ret x == infinity || x == neg_infinity;
}
#[doc = "Returns true if `x`is a finite number"]
pure fn is_finite(x: f32) -> bool {
ret !(is_NaN(x) || is_infinite(x));
}
// FIXME add is_normal, is_subnormal, and fpclassify
// also see Issue #1999
/* Module: consts */
mod consts {
// FIXME replace with mathematical constants from cmath
// (requires Issue #1433 to fix)
#[doc = "Archimedes' constant"]
const pi: f32 = 3.14159265358979323846264338327950288_f32;
#[doc = "pi/2.0"]
const frac_pi_2: f32 = 1.57079632679489661923132169163975144_f32;
#[doc = "pi/4.0"]
const frac_pi_4: f32 = 0.785398163397448309615660845819875721_f32;
#[doc = "1.0/pi"]
const frac_1_pi: f32 = 0.318309886183790671537767526745028724_f32;
#[doc = "2.0/pi"]
const frac_2_pi: f32 = 0.636619772367581343075535053490057448_f32;
#[doc = "2.0/sqrt(pi)"]
const frac_2_sqrtpi: f32 = 1.12837916709551257389615890312154517_f32;
#[doc = "sqrt(2.0)"]
const sqrt2: f32 = 1.41421356237309504880168872420969808_f32;
#[doc = "1.0/sqrt(2.0)"]
const frac_1_sqrt2: f32 = 0.707106781186547524400844362104849039_f32;
#[doc = "Euler's number"]
const e: f32 = 2.71828182845904523536028747135266250_f32;
#[doc = "log2(e)"]
const log2_e: f32 = 1.44269504088896340735992468100189214_f32;
#[doc = "log10(e)"]
const log10_e: f32 = 0.434294481903251827651128918916605082_f32;
#[doc = "ln(2.0)"]
const ln_2: f32 = 0.693147180559945309417232121458176568_f32;
#[doc = "ln(10.0)"]
const ln_10: f32 = 2.30258509299404568401799145468436421_f32;
}
pure fn signbit(x: f32) -> int {
if is_negative(x) { ret 1; } else { ret 0; }
}
#[cfg(target_os="linux")]
#[cfg(target_os="macos")]
#[cfg(target_os="win32")]
pure fn logarithm(n: f32, b: f32) -> f32 {
ret log2(n) / log2(b);
}
#[cfg(target_os="freebsd")]
pure fn logarithm(n: f32, b: f32) -> f32 {
// FIXME check if it is good to use log2 instead of ln here;
// in theory should be faster since the radix is 2
// See Issue #2000
ret ln(n) / ln(b);
}
#[cfg(target_os="freebsd")]
pure fn log2(n: f32) -> f32 {
ret ln(n) / consts::ln_2;
}
//
// Local Variables:
// mode: rust
// fill-column: 78;
// indent-tabs-mode: nil
// c-basic-offset: 4
// buffer-file-coding-system: utf-8-unix
// End:
//
|
