| /* Test of <math.h> substitute in C++ mode. |
| Copyright (C) 2010-2021 Free Software Foundation, Inc. |
| |
| This program is free software: you can redistribute it and/or modify |
| it under the terms of the GNU General Public License as published by |
| the Free Software Foundation; either version 3 of the License, or |
| (at your option) any later version. |
| |
| This program is distributed in the hope that it will be useful, |
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| GNU General Public License for more details. |
| |
| You should have received a copy of the GNU General Public License |
| along with this program. If not, see <https://www.gnu.org/licenses/>. */ |
| |
| /* Written by Bruno Haible <bruno@clisp.org>, 2010. */ |
| |
| #define GNULIB_NAMESPACE gnulib |
| #include <config.h> |
| |
| #include <math.h> |
| |
| #include "signature.h" |
| |
| /* Signature check for a function that takes a real-floating argument. |
| Check that each overloaded function with the specified signature |
| exists in the GNULIB_NAMESPACE namespace. */ |
| #define REAL_FLOATING_CHECK(func,\ |
| rettype1, parameters1,\ |
| rettype2, parameters2,\ |
| rettype3, parameters3) \ |
| OVERLOADED_CHECK (func, rettype1, parameters1, _1); \ |
| OVERLOADED_CHECK (func, rettype2, parameters2, _2); \ |
| OVERLOADED_CHECK (func, rettype3, parameters3, _3) |
| #define OVERLOADED_CHECK(func, rettype, parameters, suffix) \ |
| static rettype (* _GL_UNUSED signature_check_ ## func ## suffix) parameters \ |
| = static_cast<rettype(*)parameters>(GNULIB_NAMESPACE::func) |
| |
| |
| /* Keep these checks in the same order as math.in.h! */ |
| |
| #if GNULIB_TEST_ACOSF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::acosf, float, (float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::acos, double, (double)); |
| #if GNULIB_TEST_ACOSL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::acosl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_ASINF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::asinf, float, (float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::asin, double, (double)); |
| #if GNULIB_TEST_ASINL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::asinl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_ATANF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::atanf, float, (float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::atan, double, (double)); |
| #if GNULIB_TEST_ATANL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::atanl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_ATAN2F |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::atan2f, float, (float, float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::atan2, double, (double, double)); |
| |
| #if GNULIB_TEST_CBRTF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::cbrtf, float, (float)); |
| #endif |
| #if GNULIB_TEST_CBRT |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::cbrt, double, (double)); |
| #endif |
| #if GNULIB_TEST_CBRTL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::cbrtl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_CEILF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::ceilf, float, (float)); |
| #endif |
| #if GNULIB_TEST_CEIL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::ceil, double, (double)); |
| #endif |
| #if GNULIB_TEST_CEILL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::ceill, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_COPYSIGNF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::copysignf, float, (float, float)); |
| #endif |
| #if GNULIB_TEST_COPYSIGN |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::copysign, double, (double, double)); |
| #endif |
| #if GNULIB_TEST_COPYSIGNL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::copysignl, long double, |
| (long double, long double)); |
| #endif |
| |
| #if GNULIB_TEST_COSF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::cosf, float, (float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::cos, double, (double)); |
| #if GNULIB_TEST_COSL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::cosl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_COSHF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::coshf, float, (float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::cosh, double, (double)); |
| |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::erf, double, (double)); |
| |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::erfc, double, (double)); |
| |
| #if GNULIB_TEST_EXPF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::expf, float, (float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::exp, double, (double)); |
| #if GNULIB_TEST_EXPL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::expl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_EXP2F |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::exp2f, float, (float)); |
| #endif |
| #if GNULIB_TEST_EXP2 |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::exp2, double, (double)); |
| #endif |
| #if GNULIB_TEST_EXP2L |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::exp2l, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_EXPM1F |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::expm1f, float, (float)); |
| #endif |
| #if GNULIB_TEST_EXPM1 |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::expm1, double, (double)); |
| #endif |
| #if GNULIB_TEST_EXPM1L |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::expm1l, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_FABSF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::fabsf, float, (float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::fabs, double, (double)); |
| #if GNULIB_TEST_FABSL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::fabsl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_FLOORF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::floorf, float, (float)); |
| #endif |
| #if GNULIB_TEST_FLOOR |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::floor, double, (double)); |
| #endif |
| #if GNULIB_TEST_FLOORL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::floorl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_FMAF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::fmaf, float, (float, float, float)); |
| #endif |
| #if GNULIB_TEST_FMA |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::fma, double, (double, double, double)); |
| #endif |
| #if GNULIB_TEST_FMAL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::fmal, long double, |
| (long double, long double, long double)); |
| #endif |
| |
| #if GNULIB_TEST_FMODF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::fmodf, float, (float, float)); |
| #endif |
| #if GNULIB_TEST_FMOD |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::fmod, double, (double, double)); |
| #endif |
| #if GNULIB_TEST_FMODL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::fmodl, long double, |
| (long double, long double)); |
| #endif |
| |
| #if GNULIB_TEST_FREXPF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::frexpf, float, (float, int *)); |
| #endif |
| #if GNULIB_TEST_FREXP |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::frexp, double, (double, int *)); |
| #endif |
| #if GNULIB_TEST_FREXPL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::frexpl, long double, (long double, int *)); |
| #endif |
| |
| #if GNULIB_TEST_HYPOTF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::hypotf, float, (float, float)); |
| #endif |
| #if GNULIB_TEST_HYPOT |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::hypot, double, (double, double)); |
| #endif |
| #if GNULIB_TEST_HYPOTL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::hypotl, long double, |
| (long double, long double)); |
| #endif |
| |
| #if GNULIB_TEST_ILOGBF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::ilogbf, int, (float)); |
| #endif |
| #if GNULIB_TEST_ILOGB |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::ilogb, int, (double)); |
| #endif |
| #if GNULIB_TEST_ILOGBL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::ilogbl, int, (long double)); |
| #endif |
| |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::j0, double, (double)); |
| |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::j1, double, (double)); |
| |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::jn, double, (int, double)); |
| |
| #if GNULIB_TEST_LDEXPF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::ldexpf, float, (float, int)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::ldexp, double, (double, int)); |
| #if GNULIB_TEST_LDEXPL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::ldexpl, long double, (long double, int)); |
| #endif |
| |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::lgamma, double, (double)); |
| |
| #if GNULIB_TEST_LOGF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::logf, float, (float)); |
| #endif |
| #if GNULIB_TEST_LOG |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::log, double, (double)); |
| #endif |
| #if GNULIB_TEST_LOGL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::logl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_LOG10F |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::log10f, float, (float)); |
| #endif |
| #if GNULIB_TEST_LOG10 |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::log10, double, (double)); |
| #endif |
| #if GNULIB_TEST_LOG10L |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::log10l, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_LOG1PF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::log1pf, float, (float)); |
| #endif |
| #if GNULIB_TEST_LOG1P |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::log1p, double, (double)); |
| #endif |
| #if GNULIB_TEST_LOG1PL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::log1pl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_LOG2F |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::log2f, float, (float)); |
| #endif |
| #if GNULIB_TEST_LOG2 |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::log2, double, (double)); |
| #endif |
| #if GNULIB_TEST_LOG2L |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::log2l, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_LOGBF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::logbf, float, (float)); |
| #endif |
| #if GNULIB_TEST_LOGB |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::logb, double, (double)); |
| #endif |
| #if GNULIB_TEST_LOGBL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::logbl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_MODFF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::modff, float, (float, float *)); |
| #endif |
| #if GNULIB_TEST_MODF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::modf, double, (double, double *)); |
| #endif |
| #if GNULIB_TEST_MODFL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::modfl, long double, |
| (long double, long double *)); |
| #endif |
| |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::nextafter, double, (double, double)); |
| |
| #if GNULIB_TEST_POWF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::powf, float, (float, float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::pow, double, (double, double)); |
| |
| #if GNULIB_TEST_REMAINDERF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::remainderf, float, (float, float)); |
| #endif |
| #if GNULIB_TEST_REMAINDER |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::remainder, double, (double, double)); |
| #endif |
| #if GNULIB_TEST_REMAINDERL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::remainderl, long double, |
| (long double, long double)); |
| #endif |
| |
| #if GNULIB_TEST_RINTF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::rintf, float, (float)); |
| #endif |
| #if GNULIB_TEST_RINT |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::rint, double, (double)); |
| #endif |
| #if GNULIB_TEST_RINTL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::rintl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_ROUNDF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::roundf, float, (float)); |
| #endif |
| #if GNULIB_TEST_ROUND |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::round, double, (double)); |
| #endif |
| #if GNULIB_TEST_ROUNDL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::roundl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_SINF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::sinf, float, (float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::sin, double, (double)); |
| #if GNULIB_TEST_SINL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::sinl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_SINHF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::sinhf, float, (float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::sinh, double, (double)); |
| |
| #if GNULIB_TEST_SQRTF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::sqrtf, float, (float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::sqrt, double, (double)); |
| #if GNULIB_TEST_SQRTL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::sqrtl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_TANF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::tanf, float, (float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::tan, double, (double)); |
| #if GNULIB_TEST_TANL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::tanl, long double, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_TANHF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::tanhf, float, (float)); |
| #endif |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::tanh, double, (double)); |
| |
| #if GNULIB_TEST_TRUNCF |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::truncf, float, (float)); |
| #endif |
| #if GNULIB_TEST_TRUNC |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::trunc, double, (double)); |
| #endif |
| #if GNULIB_TEST_TRUNCL |
| SIGNATURE_CHECK (GNULIB_NAMESPACE::truncl, long double, (long double)); |
| #endif |
| |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::y0, double, (double)); |
| |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::y1, double, (double)); |
| |
| //SIGNATURE_CHECK (GNULIB_NAMESPACE::yn, double, (int, double)); |
| |
| #if GNULIB_TEST_ISFINITE |
| # ifdef isfinite |
| # warning "isfinite should not be a macro in C++" |
| # endif |
| REAL_FLOATING_CHECK (isfinite, bool, (float), bool, (double), bool, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_ISINF |
| # ifdef isinf |
| # warning "isinf should not be a macro in C++" |
| # endif |
| REAL_FLOATING_CHECK (isinf, bool, (float), bool, (double), bool, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_ISNAN |
| # ifdef isnan |
| # warning "isnan should not be a macro in C++" |
| # endif |
| REAL_FLOATING_CHECK (isnan, bool, (float), bool, (double), bool, (long double)); |
| #endif |
| |
| #if GNULIB_TEST_SIGNBIT |
| # ifdef signbit |
| # warning "signbit should not be a macro in C++" |
| # endif |
| REAL_FLOATING_CHECK (signbit, bool, (float), bool, (double), bool, (long double)); |
| #endif |
| |
| |
| int |
| main () |
| { |
| } |