1 /* A GNU-like <math.h>.
3 Copyright (C) 2002-2003, 2007 Free Software Foundation, Inc.
5 This program is free software: you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 3 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */
20 /* The include_next requires a split double-inclusion guard. */
21 #@INCLUDE_NEXT@ @NEXT_MATH_H@
27 /* The definition of GL_LINK_WARNING is copied here. */
38 If x finite and nonzero: 0.5 <= |mantissa| < 1.0.
39 If x is zero: mantissa = x, exp = 0.
40 If x is infinite or NaN: mantissa = x, exp unspecified.
41 Store exp in *EXPPTR and return mantissa. */
44 # define frexp rpl_frexp
45 extern double frexp (double x, int *expptr);
47 #elif defined GNULIB_POSIXCHECK
50 (GL_LINK_WARNING ("frexp is unportable - " \
51 "use gnulib module frexp for portability"), \
56 #if @GNULIB_MATHL@ || !@HAVE_DECL_ACOSL@
57 extern long double acosl (long double x);
59 #if !@GNULIB_MATHL@ && defined GNULIB_POSIXCHECK
62 (GL_LINK_WARNING ("acosl is unportable - " \
63 "use gnulib module mathl for portability"), \
68 #if @GNULIB_MATHL@ || !@HAVE_DECL_ASINL@
69 extern long double asinl (long double x);
71 #if !@GNULIB_MATHL@ && defined GNULIB_POSIXCHECK
74 (GL_LINK_WARNING ("asinl is unportable - " \
75 "use gnulib module mathl for portability"), \
80 #if @GNULIB_MATHL@ || !@HAVE_DECL_ATANL@
81 extern long double atanl (long double x);
83 #if !@GNULIB_MATHL@ && defined GNULIB_POSIXCHECK
86 (GL_LINK_WARNING ("atanl is unportable - " \
87 "use gnulib module mathl for portability"), \
93 # if !@HAVE_DECL_CEILF@
94 # define ceilf rpl_ceilf
95 extern float ceilf (float x);
97 #elif defined GNULIB_POSIXCHECK
100 (GL_LINK_WARNING ("ceilf is unportable - " \
101 "use gnulib module ceilf for portability"), \
106 # if !@HAVE_DECL_CEILL@
107 # define ceill rpl_ceill
108 extern long double ceill (long double x);
110 #elif defined GNULIB_POSIXCHECK
113 (GL_LINK_WARNING ("ceill is unportable - " \
114 "use gnulib module ceill for portability"), \
119 #if @GNULIB_MATHL@ || !@HAVE_DECL_COSL@
120 extern long double cosl (long double x);
122 #if !@GNULIB_MATHL@ && defined GNULIB_POSIXCHECK
125 (GL_LINK_WARNING ("cosl is unportable - " \
126 "use gnulib module mathl for portability"), \
131 #if @GNULIB_MATHL@ || !@HAVE_DECL_EXPL@
132 extern long double expl (long double x);
134 #if !@GNULIB_MATHL@ && defined GNULIB_POSIXCHECK
137 (GL_LINK_WARNING ("expl is unportable - " \
138 "use gnulib module mathl for portability"), \
144 # if !@HAVE_DECL_FLOORF@
145 # define floorf rpl_floorf
146 extern float floorf (float x);
148 #elif defined GNULIB_POSIXCHECK
151 (GL_LINK_WARNING ("floorf is unportable - " \
152 "use gnulib module floorf for portability"), \
157 # if !@HAVE_DECL_FLOORL@
158 # define floorl rpl_floorl
159 extern long double floorl (long double x);
161 #elif defined GNULIB_POSIXCHECK
164 (GL_LINK_WARNING ("floorl is unportable - " \
165 "use gnulib module floorl for portability"), \
173 If x finite and nonzero: 0.5 <= |mantissa| < 1.0.
174 If x is zero: mantissa = x, exp = 0.
175 If x is infinite or NaN: mantissa = x, exp unspecified.
176 Store exp in *EXPPTR and return mantissa. */
177 #if @GNULIB_FREXPL@ && @REPLACE_FREXPL@
178 # define frexpl rpl_frexpl
180 #if (@GNULIB_FREXPL@ && @REPLACE_FREXPL@) || !@HAVE_DECL_FREXPL@
181 extern long double frexpl (long double x, int *expptr);
183 #if !@GNULIB_FREXPL@ && defined GNULIB_POSIXCHECK
185 # define frexpl(x,e) \
186 (GL_LINK_WARNING ("frexpl is unportable - " \
187 "use gnulib module frexpl for portability"), \
192 /* Return x * 2^exp. */
193 #if @GNULIB_LDEXPL@ && @REPLACE_LDEXPL@
194 # define ldexpl rpl_ldexpl
196 #if (@GNULIB_LDEXPL@ && @REPLACE_LDEXPL@) || !@HAVE_DECL_LDEXPL@
197 extern long double ldexpl (long double x, int exp);
199 #if !@GNULIB_LDEXPL@ && defined GNULIB_POSIXCHECK
201 # define ldexpl(x,e) \
202 (GL_LINK_WARNING ("ldexpl is unportable - " \
203 "use gnulib module ldexpl for portability"), \
208 #if @GNULIB_MATHL@ || !@HAVE_DECL_LOGL@
209 extern long double logl (long double x);
211 #if !@GNULIB_MATHL@ && defined GNULIB_POSIXCHECK
214 (GL_LINK_WARNING ("logl is unportable - " \
215 "use gnulib module mathl for portability"), \
221 # if !@HAVE_DECL_ROUNDF@
223 # define roundf rpl_roundf
224 extern float roundf (float x);
226 #elif defined GNULIB_POSIXCHECK
229 (GL_LINK_WARNING ("roundf is unportable - " \
230 "use gnulib module roundf for portability"), \
235 # if !@HAVE_DECL_ROUND@
237 # define round rpl_round
238 extern double round (double x);
240 #elif defined GNULIB_POSIXCHECK
243 (GL_LINK_WARNING ("round is unportable - " \
244 "use gnulib module round for portability"), \
249 # if !@HAVE_DECL_ROUNDL@
251 # define roundl rpl_roundl
252 extern long double roundl (long double x);
254 #elif defined GNULIB_POSIXCHECK
257 (GL_LINK_WARNING ("roundl is unportable - " \
258 "use gnulib module roundl for portability"), \
263 #if @GNULIB_MATHL@ || !@HAVE_DECL_SINL@
264 extern long double sinl (long double x);
266 #if !@GNULIB_MATHL@ && defined GNULIB_POSIXCHECK
269 (GL_LINK_WARNING ("sinl is unportable - " \
270 "use gnulib module mathl for portability"), \
275 #if @GNULIB_MATHL@ || !@HAVE_DECL_SQRTL@
276 extern long double sqrtl (long double x);
278 #if !@GNULIB_MATHL@ && defined GNULIB_POSIXCHECK
281 (GL_LINK_WARNING ("sqrtl is unportable - " \
282 "use gnulib module mathl for portability"), \
287 #if @GNULIB_MATHL@ || !@HAVE_DECL_TANL@
288 extern long double tanl (long double x);
290 #if !@GNULIB_MATHL@ && defined GNULIB_POSIXCHECK
293 (GL_LINK_WARNING ("tanl is unportable - " \
294 "use gnulib module mathl for portability"), \
300 # if !@HAVE_DECL_TRUNCF@
301 # define truncf rpl_truncf
302 extern float truncf (float x);
304 #elif defined GNULIB_POSIXCHECK
307 (GL_LINK_WARNING ("truncf is unportable - " \
308 "use gnulib module truncf for portability"), \
313 # if !@HAVE_DECL_TRUNC@
314 # define trunc rpl_trunc
315 extern double trunc (double x);
317 #elif defined GNULIB_POSIXCHECK
320 (GL_LINK_WARNING ("trunc is unportable - " \
321 "use gnulib module trunc for portability"), \
326 # if !@HAVE_DECL_TRUNCL@
327 # define truncl rpl_truncl
328 extern long double truncl (long double x);
330 #elif defined GNULIB_POSIXCHECK
333 (GL_LINK_WARNING ("truncl is unportable - " \
334 "use gnulib module truncl for portability"), \
339 #if @GNULIB_ISFINITE@
340 # if !@HAVE_DECL_ISFINITE@
341 extern int gl_isfinitef (float x);
342 extern int gl_isfinited (double x);
343 extern int gl_isfinitel (long double x);
345 # define isfinite(x) \
346 (sizeof (x) == sizeof (long double) ? gl_isfinitel (x) : \
347 sizeof (x) == sizeof (double) ? gl_isfinited (x) : \
350 #elif defined GNULIB_POSIXCHECK
351 /* How to override a macro? */
356 # if @REPLACE_SIGNBIT@
358 extern int gl_signbitf (float arg);
359 extern int gl_signbitd (double arg);
360 extern int gl_signbitl (long double arg);
361 # if __GNUC__ >= 2 && !__STRICT_ANSI__
362 # if defined FLT_SIGNBIT_WORD && defined FLT_SIGNBIT_BIT
363 # define gl_signbitf(arg) \
364 ({ union { float _value; \
365 unsigned int _word[(sizeof (float) + sizeof (unsigned int) - 1) / sizeof (unsigned int)]; \
368 (_m._word[FLT_SIGNBIT_WORD] >> FLT_SIGNBIT_BIT) & 1; \
371 # if defined DBL_SIGNBIT_WORD && defined DBL_SIGNBIT_BIT
372 # define gl_signbitd(arg) \
373 ({ union { double _value; \
374 unsigned int _word[(sizeof (double) + sizeof (unsigned int) - 1) / sizeof (unsigned int)]; \
377 (_m._word[DBL_SIGNBIT_WORD] >> DBL_SIGNBIT_BIT) & 1; \
380 # if defined LDBL_SIGNBIT_WORD && defined LDBL_SIGNBIT_BIT
381 # define gl_signbitl(arg) \
382 ({ union { long double _value; \
383 unsigned int _word[(sizeof (long double) + sizeof (unsigned int) - 1) / sizeof (unsigned int)]; \
386 (_m._word[LDBL_SIGNBIT_WORD] >> LDBL_SIGNBIT_BIT) & 1; \
390 # define signbit(x) \
391 (sizeof (x) == sizeof (long double) ? gl_signbitl (x) : \
392 sizeof (x) == sizeof (double) ? gl_signbitd (x) : \
395 #elif defined GNULIB_POSIXCHECK
396 /* How to override a macro? */
404 #endif /* _GL_MATH_H */
405 #endif /* _GL_MATH_H */