1 | |
2 | |
3 | |
4 | |
5 | |
6 | |
7 | |
8 | |
9 | |
10 | |
11 | |
12 | |
13 | |
14 | |
15 | |
16 | |
17 | |
18 | |
19 | |
20 | |
21 | |
22 | |
23 | #ifndef _MATH_H |
24 | #define _MATH_H 1 |
25 | |
26 | #include <features.h> |
27 | |
28 | __BEGIN_DECLS |
29 | |
30 | |
31 | #include <bits/math-vector.h> |
32 | |
33 | |
34 | |
35 | #include <bits/huge_val.h> |
36 | #ifdef __USE_ISOC99 |
37 | # include <bits/huge_valf.h> |
38 | # include <bits/huge_vall.h> |
39 | |
40 | |
41 | # include <bits/inf.h> |
42 | |
43 | |
44 | # include <bits/nan.h> |
45 | #endif |
46 | |
47 | |
48 | #include <bits/mathdef.h> |
49 | |
50 | |
51 | |
52 | |
53 | |
54 | |
55 | #define __SIMD_DECL(function) __CONCAT (__DECL_SIMD_, function) |
56 | |
57 | #define __MATHCALL_VEC(function, suffix, args) \ |
58 | __SIMD_DECL (__MATH_PRECNAME (function, suffix)) \ |
59 | __MATHCALL (function, suffix, args) |
60 | |
61 | #define __MATHDECL_VEC(type, function,suffix, args) \ |
62 | __SIMD_DECL (__MATH_PRECNAME (function, suffix)) \ |
63 | __MATHDECL(type, function,suffix, args) |
64 | |
65 | #define __MATHCALL(function,suffix, args) \ |
66 | __MATHDECL (_Mdouble_,function,suffix, args) |
67 | #define __MATHDECL(type, function,suffix, args) \ |
68 | __MATHDECL_1(type, function,suffix, args); \ |
69 | __MATHDECL_1(type, __CONCAT(__,function),suffix, args) |
70 | #define __MATHCALLX(function,suffix, args, attrib) \ |
71 | __MATHDECLX (_Mdouble_,function,suffix, args, attrib) |
72 | #define __MATHDECLX(type, function,suffix, args, attrib) \ |
73 | __MATHDECL_1(type, function,suffix, args) __attribute__ (attrib); \ |
74 | __MATHDECL_1(type, __CONCAT(__,function),suffix, args) __attribute__ (attrib) |
75 | #define __MATHDECL_1(type, function,suffix, args) \ |
76 | extern type __MATH_PRECNAME(function,suffix) args __THROW |
77 | |
78 | #define _Mdouble_ double |
79 | #define __MATH_PRECNAME(name,r) __CONCAT(name,r) |
80 | #define __MATH_DECLARING_DOUBLE 1 |
81 | #define _Mdouble_BEGIN_NAMESPACE __BEGIN_NAMESPACE_STD |
82 | #define _Mdouble_END_NAMESPACE __END_NAMESPACE_STD |
83 | #include <bits/mathcalls.h> |
84 | #undef _Mdouble_ |
85 | #undef _Mdouble_BEGIN_NAMESPACE |
86 | #undef _Mdouble_END_NAMESPACE |
87 | #undef __MATH_PRECNAME |
88 | #undef __MATH_DECLARING_DOUBLE |
89 | |
90 | #ifdef __USE_ISOC99 |
91 | |
92 | |
93 | |
94 | |
95 | |
96 | # ifndef _Mfloat_ |
97 | # define _Mfloat_ float |
98 | # endif |
99 | # define _Mdouble_ _Mfloat_ |
100 | # define __MATH_PRECNAME(name,r) name##f##r |
101 | # define __MATH_DECLARING_DOUBLE 0 |
102 | # define _Mdouble_BEGIN_NAMESPACE __BEGIN_NAMESPACE_C99 |
103 | # define _Mdouble_END_NAMESPACE __END_NAMESPACE_C99 |
104 | # include <bits/mathcalls.h> |
105 | # undef _Mdouble_ |
106 | # undef _Mdouble_BEGIN_NAMESPACE |
107 | # undef _Mdouble_END_NAMESPACE |
108 | # undef __MATH_PRECNAME |
109 | # undef __MATH_DECLARING_DOUBLE |
110 | |
111 | # if !(defined __NO_LONG_DOUBLE_MATH && defined _LIBC) \ |
112 | || defined __LDBL_COMPAT \ |
113 | || defined _LIBC_TEST |
114 | # ifdef __LDBL_COMPAT |
115 | |
116 | # ifdef __USE_ISOC99 |
117 | extern float __nldbl_nexttowardf (float __x, long double __y) |
118 | __THROW __attribute__ ((__const__)); |
119 | # ifdef __REDIRECT_NTH |
120 | extern float __REDIRECT_NTH (nexttowardf, (float __x, long double __y), |
121 | __nldbl_nexttowardf) |
122 | __attribute__ ((__const__)); |
123 | extern double __REDIRECT_NTH (nexttoward, (double __x, long double __y), |
124 | nextafter) __attribute__ ((__const__)); |
125 | extern long double __REDIRECT_NTH (nexttowardl, |
126 | (long double __x, long double __y), |
127 | nextafter) __attribute__ ((__const__)); |
128 | # endif |
129 | # endif |
130 | |
131 | # undef __MATHDECL_1 |
132 | # define __MATHDECL_2(type, function,suffix, args, alias) \ |
133 | extern type __REDIRECT_NTH(__MATH_PRECNAME(function,suffix), \ |
134 | args, alias) |
135 | # define __MATHDECL_1(type, function,suffix, args) \ |
136 | __MATHDECL_2(type, function,suffix, args, __CONCAT(function,suffix)) |
137 | # endif |
138 | |
139 | |
140 | |
141 | |
142 | # ifndef _Mlong_double_ |
143 | # define _Mlong_double_ long double |
144 | # endif |
145 | # define _Mdouble_ _Mlong_double_ |
146 | # define __MATH_PRECNAME(name,r) name##l##r |
147 | # define __MATH_DECLARING_DOUBLE 0 |
148 | # define _Mdouble_BEGIN_NAMESPACE __BEGIN_NAMESPACE_C99 |
149 | # define _Mdouble_END_NAMESPACE __END_NAMESPACE_C99 |
150 | # define __MATH_DECLARE_LDOUBLE 1 |
151 | # include <bits/mathcalls.h> |
152 | # undef _Mdouble_ |
153 | # undef _Mdouble_BEGIN_NAMESPACE |
154 | # undef _Mdouble_END_NAMESPACE |
155 | # undef __MATH_PRECNAME |
156 | # undef __MATH_DECLARING_DOUBLE |
157 | |
158 | # endif |
159 | |
160 | #endif |
161 | #undef __MATHDECL_1 |
162 | #undef __MATHDECL |
163 | #undef __MATHCALL |
164 | |
165 | |
166 | #if defined __USE_MISC || defined __USE_XOPEN |
167 | |
168 | extern int signgam; |
169 | #endif |
170 | |
171 | |
172 | |
173 | #ifdef __USE_ISOC99 |
174 | |
175 | |
176 | |
177 | |
178 | |
179 | |
180 | |
181 | |
182 | |
183 | |
184 | |
185 | |
186 | |
187 | |
188 | |
189 | |
190 | |
191 | |
192 | |
193 | |
194 | |
195 | |
196 | |
197 | |
198 | |
199 | |
200 | |
201 | |
202 | |
203 | |
204 | |
205 | |
206 | |
207 | |
208 | |
209 | enum |
210 | { |
211 | FP_NAN = |
212 | # define FP_NAN 0 |
213 | FP_NAN, |
214 | FP_INFINITE = |
215 | # define FP_INFINITE 1 |
216 | FP_INFINITE, |
217 | FP_ZERO = |
218 | # define FP_ZERO 2 |
219 | FP_ZERO, |
220 | FP_SUBNORMAL = |
221 | # define FP_SUBNORMAL 3 |
222 | FP_SUBNORMAL, |
223 | FP_NORMAL = |
224 | # define FP_NORMAL 4 |
225 | FP_NORMAL |
226 | }; |
227 | |
228 | |
229 | |
230 | |
231 | |
232 | |
233 | # if __GNUC_PREREQ (4,4) && !defined __SUPPORT_SNAN__ \ |
234 | && !defined __OPTIMIZE_SIZE__ |
235 | # define fpclassify(x) __builtin_fpclassify (FP_NAN, FP_INFINITE, \ |
236 | FP_NORMAL, FP_SUBNORMAL, FP_ZERO, x) |
237 | # elif defined __NO_LONG_DOUBLE_MATH |
238 | # define fpclassify(x) \ |
239 | (sizeof (x) == sizeof (float) ? __fpclassifyf (x) : __fpclassify (x)) |
240 | # else |
241 | # define fpclassify(x) \ |
242 | (sizeof (x) == sizeof (float) \ |
243 | ? __fpclassifyf (x) \ |
244 | : sizeof (x) == sizeof (double) \ |
245 | ? __fpclassify (x) : __fpclassifyl (x)) |
246 | # endif |
247 | |
248 | |
249 | # if __GNUC_PREREQ (4,0) |
250 | # define signbit(x) \ |
251 | (sizeof (x) == sizeof (float) \ |
252 | ? __builtin_signbitf (x) \ |
253 | : sizeof (x) == sizeof (double) \ |
254 | ? __builtin_signbit (x) : __builtin_signbitl (x)) |
255 | # else |
256 | # ifdef __NO_LONG_DOUBLE_MATH |
257 | # define signbit(x) \ |
258 | (sizeof (x) == sizeof (float) ? __signbitf (x) : __signbit (x)) |
259 | # else |
260 | # define signbit(x) \ |
261 | (sizeof (x) == sizeof (float) \ |
262 | ? __signbitf (x) \ |
263 | : sizeof (x) == sizeof (double) \ |
264 | ? __signbit (x) : __signbitl (x)) |
265 | # endif |
266 | # endif |
267 | |
268 | |
269 | # if __GNUC_PREREQ (4,4) && !defined __SUPPORT_SNAN__ |
270 | # define isfinite(x) __builtin_isfinite (x) |
271 | # elif defined __NO_LONG_DOUBLE_MATH |
272 | # define isfinite(x) \ |
273 | (sizeof (x) == sizeof (float) ? __finitef (x) : __finite (x)) |
274 | # else |
275 | # define isfinite(x) \ |
276 | (sizeof (x) == sizeof (float) \ |
277 | ? __finitef (x) \ |
278 | : sizeof (x) == sizeof (double) \ |
279 | ? __finite (x) : __finitel (x)) |
280 | # endif |
281 | |
282 | |
283 | # if __GNUC_PREREQ (4,4) && !defined __SUPPORT_SNAN__ |
284 | # define isnormal(x) __builtin_isnormal (x) |
285 | # else |
286 | # define isnormal(x) (fpclassify (x) == FP_NORMAL) |
287 | # endif |
288 | |
289 | |
290 | |
291 | # if __GNUC_PREREQ (4,4) && !defined __SUPPORT_SNAN__ |
292 | # define isnan(x) __builtin_isnan (x) |
293 | # elif defined __NO_LONG_DOUBLE_MATH |
294 | # define isnan(x) \ |
295 | (sizeof (x) == sizeof (float) ? __isnanf (x) : __isnan (x)) |
296 | # else |
297 | # define isnan(x) \ |
298 | (sizeof (x) == sizeof (float) \ |
299 | ? __isnanf (x) \ |
300 | : sizeof (x) == sizeof (double) \ |
301 | ? __isnan (x) : __isnanl (x)) |
302 | # endif |
303 | |
304 | |
305 | # if __GNUC_PREREQ (4,4) && !defined __SUPPORT_SNAN__ |
306 | # define isinf(x) __builtin_isinf_sign (x) |
307 | # elif defined __NO_LONG_DOUBLE_MATH |
308 | # define isinf(x) \ |
309 | (sizeof (x) == sizeof (float) ? __isinff (x) : __isinf (x)) |
310 | # else |
311 | # define isinf(x) \ |
312 | (sizeof (x) == sizeof (float) \ |
313 | ? __isinff (x) \ |
314 | : sizeof (x) == sizeof (double) \ |
315 | ? __isinf (x) : __isinfl (x)) |
316 | # endif |
317 | |
318 | |
319 | # define MATH_ERRNO 1 |
320 | # define MATH_ERREXCEPT 2 |
321 | |
322 | |
323 | |
324 | |
325 | # ifndef __FAST_MATH__ |
326 | # define math_errhandling (MATH_ERRNO | MATH_ERREXCEPT) |
327 | # endif |
328 | |
329 | #endif |
330 | |
331 | #ifdef __USE_GNU |
332 | |
333 | # ifdef __NO_LONG_DOUBLE_MATH |
334 | # define issignaling(x) \ |
335 | (sizeof (x) == sizeof (float) ? __issignalingf (x) : __issignaling (x)) |
336 | # else |
337 | # define issignaling(x) \ |
338 | (sizeof (x) == sizeof (float) \ |
339 | ? __issignalingf (x) \ |
340 | : sizeof (x) == sizeof (double) \ |
341 | ? __issignaling (x) : __issignalingl (x)) |
342 | # endif |
343 | #endif |
344 | |
345 | #ifdef __USE_MISC |
346 | |
347 | typedef enum |
348 | { |
349 | _IEEE_ = -1, |
350 | _SVID_, |
351 | _XOPEN_, |
352 | _POSIX_, |
353 | _ISOC_ |
354 | } _LIB_VERSION_TYPE; |
355 | |
356 | |
357 | |
358 | |
359 | extern _LIB_VERSION_TYPE _LIB_VERSION; |
360 | #endif |
361 | |
362 | |
363 | #ifdef __USE_MISC |
364 | |
365 | |
366 | |
367 | |
368 | |
369 | # ifdef __cplusplus |
370 | struct __exception |
371 | # else |
372 | struct exception |
373 | # endif |
374 | { |
375 | int type; |
376 | char *name; |
377 | double arg1; |
378 | double arg2; |
379 | double retval; |
380 | }; |
381 | |
382 | # ifdef __cplusplus |
383 | extern int matherr (struct __exception *__exc) throw (); |
384 | # else |
385 | extern int matherr (struct exception *__exc); |
386 | # endif |
387 | |
388 | # define X_TLOSS 1.41484755040568800000e+16 |
389 | |
390 | |
391 | # define DOMAIN 1 |
392 | # define SING 2 |
393 | # define OVERFLOW 3 |
394 | # define UNDERFLOW 4 |
395 | # define TLOSS 5 |
396 | # define PLOSS 6 |
397 | |
398 | |
399 | # define HUGE 3.40282347e+38F |
400 | |
401 | #else |
402 | |
403 | # ifdef __USE_XOPEN |
404 | |
405 | # define MAXFLOAT 3.40282347e+38F |
406 | # endif |
407 | |
408 | #endif |
409 | |
410 | |
411 | |
412 | #if defined __USE_MISC || defined __USE_XOPEN |
413 | # define M_E 2.7182818284590452354 |
414 | # define M_LOG2E 1.4426950408889634074 |
415 | # define M_LOG10E 0.43429448190325182765 |
416 | # define M_LN2 0.69314718055994530942 |
417 | # define M_LN10 2.30258509299404568402 |
418 | # define M_PI 3.14159265358979323846 |
419 | # define M_PI_2 1.57079632679489661923 |
420 | # define M_PI_4 0.78539816339744830962 |
421 | # define M_1_PI 0.31830988618379067154 |
422 | # define M_2_PI 0.63661977236758134308 |
423 | # define M_2_SQRTPI 1.12837916709551257390 |
424 | # define M_SQRT2 1.41421356237309504880 |
425 | # define M_SQRT1_2 0.70710678118654752440 |
426 | #endif |
427 | |
428 | |
429 | |
430 | |
431 | #ifdef __USE_GNU |
432 | # define M_El 2.718281828459045235360287471352662498L |
433 | # define M_LOG2El 1.442695040888963407359924681001892137L |
434 | # define M_LOG10El 0.434294481903251827651128918916605082L |
435 | # define M_LN2l 0.693147180559945309417232121458176568L |
436 | # define M_LN10l 2.302585092994045684017991454684364208L |
437 | # define M_PIl 3.141592653589793238462643383279502884L |
438 | # define M_PI_2l 1.570796326794896619231321691639751442L |
439 | # define M_PI_4l 0.785398163397448309615660845819875721L |
440 | # define M_1_PIl 0.318309886183790671537767526745028724L |
441 | # define M_2_PIl 0.636619772367581343075535053490057448L |
442 | # define M_2_SQRTPIl 1.128379167095512573896158903121545172L |
443 | # define M_SQRT2l 1.414213562373095048801688724209698079L |
444 | # define M_SQRT1_2l 0.707106781186547524400844362104849039L |
445 | #endif |
446 | |
447 | |
448 | |
449 | |
450 | |
451 | #if defined __STRICT_ANSI__ && !defined __NO_MATH_INLINES |
452 | # define __NO_MATH_INLINES 1 |
453 | #endif |
454 | |
455 | #if defined __USE_ISOC99 && __GNUC_PREREQ(2,97) |
456 | |
457 | |
458 | |
459 | |
460 | |
461 | |
462 | # define isgreater(x, y) __builtin_isgreater(x, y) |
463 | # define isgreaterequal(x, y) __builtin_isgreaterequal(x, y) |
464 | # define isless(x, y) __builtin_isless(x, y) |
465 | # define islessequal(x, y) __builtin_islessequal(x, y) |
466 | # define islessgreater(x, y) __builtin_islessgreater(x, y) |
467 | # define isunordered(u, v) __builtin_isunordered(u, v) |
468 | #endif |
469 | |
470 | |
471 | #ifdef __USE_EXTERN_INLINES |
472 | # include <bits/mathinline.h> |
473 | #endif |
474 | |
475 | |
476 | |
477 | #if defined __FINITE_MATH_ONLY__ && __FINITE_MATH_ONLY__ > 0 |
478 | # include <bits/math-finite.h> |
479 | #endif |
480 | |
481 | #ifdef __USE_ISOC99 |
482 | |
483 | |
484 | |
485 | # ifndef isgreater |
486 | # define isgreater(x, y) \ |
487 | (__extension__ \ |
488 | ({ __typeof__(x) __x = (x); __typeof__(y) __y = (y); \ |
489 | !isunordered (__x, __y) && __x > __y; })) |
490 | # endif |
491 | |
492 | |
493 | # ifndef isgreaterequal |
494 | # define isgreaterequal(x, y) \ |
495 | (__extension__ \ |
496 | ({ __typeof__(x) __x = (x); __typeof__(y) __y = (y); \ |
497 | !isunordered (__x, __y) && __x >= __y; })) |
498 | # endif |
499 | |
500 | |
501 | # ifndef isless |
502 | # define isless(x, y) \ |
503 | (__extension__ \ |
504 | ({ __typeof__(x) __x = (x); __typeof__(y) __y = (y); \ |
505 | !isunordered (__x, __y) && __x < __y; })) |
506 | # endif |
507 | |
508 | |
509 | # ifndef islessequal |
510 | # define islessequal(x, y) \ |
511 | (__extension__ \ |
512 | ({ __typeof__(x) __x = (x); __typeof__(y) __y = (y); \ |
513 | !isunordered (__x, __y) && __x <= __y; })) |
514 | # endif |
515 | |
516 | |
517 | # ifndef islessgreater |
518 | # define islessgreater(x, y) \ |
519 | (__extension__ \ |
520 | ({ __typeof__(x) __x = (x); __typeof__(y) __y = (y); \ |
521 | !isunordered (__x, __y) && (__x < __y || __y < __x); })) |
522 | # endif |
523 | |
524 | |
525 | # ifndef isunordered |
526 | # define isunordered(u, v) \ |
527 | (__extension__ \ |
528 | ({ __typeof__(u) __u = (u); __typeof__(v) __v = (v); \ |
529 | fpclassify (__u) == FP_NAN || fpclassify (__v) == FP_NAN; })) |
530 | # endif |
531 | |
532 | #endif |
533 | |
534 | __END_DECLS |
535 | |
536 | |
537 | #endif |
538 | |