Intravision/reactos
1
0
Fork 0
mirror of https://github.com/reactos/reactos.git synced 2025-03-01 03:45:16 +00:00
Code Issues Projects Releases Packages Wiki Activity
reactos/sdk/include/ucrt/tgmath.h

650 lines
19 KiB
C
Raw Permalink Blame History

//
// tgmath.h
//
// Copyright (c) Microsoft Corporation. All rights reserved.
//
// The type-generic math library.
//
#pragma once
#ifndef _TGMATH
#define _TGMATH
#include <corecrt.h>
#if (_CRT_HAS_CXX17 == 1) && !defined(_CRT_USE_C_TGMATH_H)
#include <ctgmath>
#else // ^^^^ /std:c++17 ^^^^ // vvvv _CRT_USE_C_TGMATH_H vvvv
#include <math.h>
#include <complex.h>
#if _CRT_HAS_C11 == 0
#ifndef _CRT_SILENCE_NONCONFORMING_TGMATH_H
#pragma message(_CRT_WARNING_MESSAGE("UCRT4000", \
"This header does not conform to the C99 standard. " \
"C99 functionality is available when compiling in C11 mode or higher (/std:c11). " \
"Functionality equivalent to the type-generic functions provided by tgmath.h is available " \
"in <ctgmath> when compiling as C++. " \
"If compiling in C++17 mode or higher (/std:c++17), this header will automatically include <ctgmath> instead. " \
"You can define _CRT_SILENCE_NONCONFORMING_TGMATH_H to acknowledge that you have received this warning."))
#endif // _CRT_SILENCE_NONCONFORMING_TGMATH_H
#else // ^^^^ Default C Support ^^^^ // vvvv C11 Support vvvv
#pragma warning(push)
#pragma warning(disable: _UCRT_DISABLED_WARNINGS)
_UCRT_DISABLE_CLANG_WARNINGS
_CRT_BEGIN_C_HEADER
#define __tgmath_resolve_real_binary_op(X, Y) _Generic((X), \
long double: 0.0l, \
\
default: _Generic((Y), \
long double: 0.0l, \
default: 0.0 \
), \
\
float: _Generic((Y), \
long double: 0.0l, \
default: 0.0, \
float: 0.0f \
) \
)
#define fabs(X) _Generic((X), \
_Lcomplex: cabsl, \
_Fcomplex: cabsf, \
_Dcomplex: cabs, \
long double: fabsl, \
float: fabsf, \
default: fabs \
)(X)
#define exp(X) _Generic((X), \
_Lcomplex: cexpl, \
_Fcomplex: cexpf, \
_Dcomplex: cexp, \
long double: expl, \
float: expf, \
default: exp \
)(X)
#define log(X) _Generic((X), \
_Lcomplex: clogl, \
_Fcomplex: clogf, \
_Dcomplex: clog, \
long double: logl, \
float: logf, \
default: log \
)(X)
// C99 Complex types currently not supported. Complex types do not cast/promote implicitly - need inline helper functions.
inline _Lcomplex __cpowl_lc_dc(_Lcomplex const __lc, _Dcomplex const __dc)
{
return cpowl(__lc, _LCbuild(__dc._Val[0], __dc._Val[1]));
}
inline _Lcomplex __cpowl_dc_lc(_Dcomplex const __dc, _Lcomplex const __lc)
{
return cpowl(_LCbuild(__dc._Val[0], __dc._Val[1]), __lc);
}
inline _Lcomplex __cpowl_lc_fc(_Lcomplex const __lc, _Fcomplex const __fc)
{
return cpowl(__lc, _LCbuild(__fc._Val[0], __fc._Val[1]));
}
inline _Lcomplex __cpowl_fc_lc(_Fcomplex const __fc, _Lcomplex const __lc)
{
return cpowl(_LCbuild(__fc._Val[0], __fc._Val[1]), __lc);
}
inline _Lcomplex __cpowl_lc_l(_Lcomplex const __lc, long double const __l)
{
return cpowl(__lc, _LCbuild(__l, 0.0));
}
inline _Lcomplex __cpowl_l_lc(long double const __l, _Lcomplex const __lc)
{
return cpowl(_LCbuild(__l, 0.0), __lc);
}
inline _Lcomplex __cpowl_lc_d(_Lcomplex const __lc, double const __d)
{
return cpowl(__lc, _LCbuild(__d, 0.0));
}
inline _Lcomplex __cpowl_d_lc(double const __d, _Lcomplex const __lc)
{
return cpowl(_LCbuild(__d, 0.0), __lc);
}
inline _Lcomplex __cpowl_lc_f(_Lcomplex const __lc, float const __f)
{
return cpowl(__lc, _LCbuild(__f, 0.0));
}
inline _Lcomplex __cpowl_f_lc(float const __f, _Lcomplex const __lc)
{
return cpowl(_LCbuild(__f, 0.0), __lc);
}
inline _Lcomplex __cpowl_dc_l(_Dcomplex const __dc, long double const __l)
{
return cpowl(_LCbuild(__dc._Val[0], __dc._Val[1]), _LCbuild(__l, 0.0));
}
inline _Lcomplex __cpowl_l_dc(long double const __l, _Dcomplex const __dc)
{
return cpowl(_LCbuild(__l, 0.0), _LCbuild(__dc._Val[0], __dc._Val[1]));
}
inline _Lcomplex __cpowl_fc_l(_Fcomplex const __fc, long double const __l)
{
return cpowl(_LCbuild(__fc._Val[0], __fc._Val[1]), _LCbuild(__l, 0.0));
}
inline _Lcomplex __cpowl_l_fc(long double const __l, _Fcomplex const __fc)
{
return cpowl(_LCbuild(__l, 0.0), _LCbuild(__fc._Val[0], __fc._Val[1]));
}
inline _Dcomplex __cpow_dc_fc(_Dcomplex const __dc, _Fcomplex const __fc)
{
return cpow(__dc, _Cbuild(__fc._Val[0], __fc._Val[1]));
}
inline _Dcomplex __cpow_fc_dc(_Fcomplex const __fc, _Dcomplex const __dc)
{
return cpow(_Cbuild(__fc._Val[0], __fc._Val[1]), __dc);
}
inline _Dcomplex __cpow_dc_d(_Dcomplex const __dc, double const __d)
{
return cpow(__dc, _Cbuild(__d, 0.0));
}
inline _Dcomplex __cpow_d_dc(double const __d, _Dcomplex const __dc)
{
return cpow(_Cbuild(__d, 0.0), __dc);
}
inline _Dcomplex __cpow_dc_f(_Dcomplex const __dc, float const __f)
{
return cpow(__dc, _Cbuild(__f, 0.0));
}
inline _Dcomplex __cpow_f_dc(float const __f, _Dcomplex const __dc)
{
return cpow(_Cbuild(__f, 0.0), __dc);
}
inline _Dcomplex __cpow_fc_d(_Fcomplex const __fc, double const __d)
{
return cpow(_Cbuild(__fc._Val[0], __fc._Val[1]), _Cbuild(__d, 0.0));
}
inline _Dcomplex __cpow_d_fc(double const __d, _Fcomplex const __fc)
{
return cpow(_Cbuild(__d, 0.0), _Cbuild(__fc._Val[0], __fc._Val[1]));
}
inline _Fcomplex __cpowf_fc_f(_Fcomplex const __fc, float const __f)
{
return cpowf(__fc, _FCbuild(__f, 0.0f));
}
inline _Fcomplex __cpowf_f_fc(float const __f, _Fcomplex const __fc)
{
return cpowf(_FCbuild(__f, 0.0f), __fc);
}
#define pow(X, Y) _Generic((X), \
_Lcomplex: _Generic((Y), \
_Lcomplex: cpowl, \
_Fcomplex: __cpowl_lc_fc, \
_Dcomplex: __cpowl_lc_dc, \
long double: __cpowl_lc_l, \
default: __cpowl_lc_d, \
float: __cpowl_lc_f \
), \
\
_Fcomplex: _Generic((Y), \
_Lcomplex: __cpowl_fc_lc, \
_Fcomplex: cpowf, \
_Dcomplex: __cpow_fc_dc, \
long double: __cpowl_fc_l, \
default: __cpow_fc_d, \
float: __cpowf_fc_f \
), \
\
_Dcomplex: _Generic((Y), \
_Lcomplex: __cpowl_dc_lc, \
_Fcomplex: __cpow_dc_fc, \
_Dcomplex: cpow, \
long double: __cpowl_dc_l, \
default: __cpow_dc_d, \
float: __cpow_dc_f \
), \
\
long double: _Generic((Y), \
_Lcomplex: __cpowl_l_lc, \
_Fcomplex: __cpowl_l_fc, \
_Dcomplex: __cpowl_l_dc, \
default: powl \
), \
\
float: _Generic((Y), \
_Lcomplex: __cpowl_f_lc, \
_Fcomplex: __cpowf_f_fc, \
_Dcomplex: __cpow_f_dc, \
long double: powl, \
default: pow, \
float: powf \
), \
\
default: _Generic((Y), \
_Lcomplex: __cpowl_d_lc, \
_Fcomplex: __cpow_d_fc, \
_Dcomplex: __cpow_d_dc, \
long double: powl, \
default: pow \
) \
)(X, Y)
#define sqrt(X) _Generic((X), \
_Lcomplex: csqrtl, \
_Fcomplex: csqrtf, \
_Dcomplex: csqrt, \
long double: sqrtl, \
float: sqrtf, \
default: sqrt \
)(X)
#define sin(X) _Generic((X), \
_Lcomplex: csinl, \
_Fcomplex: csinf, \
_Dcomplex: csin, \
long double: sinl, \
float: sinf, \
default: sin \
)(X)
#define cos(X) _Generic((X), \
_Lcomplex: ccosl, \
_Fcomplex: ccosf, \
_Dcomplex: ccos, \
long double: cosl, \
float: cosf, \
default: cos \
)(X)
#define tan(X) _Generic((X), \
_Lcomplex: ctanl, \
_Fcomplex: ctanf, \
_Dcomplex: ctan, \
long double: tanl, \
float: tanf, \
default: tan \
)(X)
#define asin(X) _Generic((X), \
_Lcomplex: casinl, \
_Fcomplex: casinf, \
_Dcomplex: casin, \
long double: asinl, \
float: asinf, \
default: asin \
)(X)
#define acos(X) _Generic((X), \
_Lcomplex: cacosl, \
_Fcomplex: cacosf, \
_Dcomplex: cacos, \
long double: acosl, \
float: acosf, \
default: acos \
)(X)
#define atan(X) _Generic((X), \
_Lcomplex: catanl, \
_Fcomplex: catanf, \
_Dcomplex: catan, \
long double: atanl, \
float: atanf, \
default: atan \
)(X)
#define asinh(X) _Generic((X), \
_Lcomplex: casinhl, \
_Fcomplex: casinhf, \
_Dcomplex: casinh, \
long double: asinhl, \
float: asinhf, \
default: asinh \
)(X)
#define acosh(X) _Generic((X), \
_Lcomplex: cacoshl, \
_Fcomplex: cacoshf, \
_Dcomplex: cacosh, \
long double: acoshl, \
float: acoshf, \
default: acosh \
)(X)
#define atanh(X) _Generic((X), \
_Lcomplex: catanhl, \
_Fcomplex: catanhf, \
_Dcomplex: catanh, \
long double: atanhl, \
float: atanhf, \
default: atanh \
)(X)
#define atan2(X, Y) _Generic(__tgmath_resolve_real_binary_op((X), (Y)), \
long double: atan2l, \
float: atan2f, \
default: atan2 \
)(X, Y)
#define cbrt(X) _Generic((X), \
long double: cbrtl, \
float: cbrtf, \
default: cbrt \
)(X)
#define ceil(X) _Generic((X), \
long double: ceill, \
float: ceilf, \
default: ceil \
)(X)
#define copysign(X, Y) _Generic(__tgmath_resolve_real_binary_op((X), (Y)), \
long double: copysignl, \
float: copysignf, \
default: copysign \
)(X, Y)
#define erf(X) _Generic((X), \
long double: erfl, \
float: erff, \
default: erf \
)(X)
#define erfc(X) _Generic((X), \
long double: erfcl, \
float: erfcf, \
default: erfc \
)(X)
#define exp2(X) _Generic((X), \
long double: exp2l, \
float: exp2f, \
default: exp2 \
)(X)
#define expm1(X) _Generic((X), \
long double: expm1l, \
float: expm1f, \
default: expm1 \
)(X)
#define fdim(X, Y) _Generic(__tgmath_resolve_real_binary_op((X), (Y)), \
long double: fdiml, \
float: fdimf, \
default: fdim \
)(X, Y)
#define floor(X) _Generic((X), \
long double: floorl, \
float: floorf, \
default: floor \
)(X)
#define fma(X, Y, Z) _Generic(__tgmath_resolve_real_binary_op((X), __tgmath_resolve_real_binary_op((Y), (Z))), \
long double: fmal, \
float: fmaf, \
default: fma \
)(X, Y, Z)
#define fmax(X, Y) _Generic(__tgmath_resolve_real_binary_op((X), (Y)), \
long double: fmaxl, \
float: fmaxf, \
default: fmax \
)(X, Y)
#define fmin(X, Y) _Generic(__tgmath_resolve_real_binary_op((X), (Y)), \
long double: fminl, \
float: fminf, \
default: fmin \
)(X, Y)
#define fmod(X, Y) _Generic(__tgmath_resolve_real_binary_op((X), (Y)), \
long double: fmodl, \
float: fmodf, \
default: fmod \
)(X, Y)
#define frexp(X, INT_PTR) _Generic((X), \
long double: frexpl, \
float: frexpf, \
default: frexp \
)(X, INT_PTR)
#define hypot(X, Y) _Generic(__tgmath_resolve_real_binary_op((X), (Y)), \
long double: hypotl, \
float: hypotf, \
default: hypot \
)(X, Y)
#define ilogb(X) _Generic((X), \
long double: ilogbl, \
float: ilogbf, \
default: ilogb \
)(X)
#define ldexp(X, INT) _Generic((X), \
long double: ldexpl, \
float: ldexpf, \
default: ldexp \
)(X, INT)
#define lgamma(X) _Generic((X), \
long double: lgammal, \
float: lgammaf, \
default: lgamma \
)(X)
#define llrint(X) _Generic((X), \
long double: llrintl, \
float: llrintf, \
default: llrint \
)(X)
#define llround(X) _Generic((X), \
long double: llroundl, \
float: llroundf, \
default: llround \
)(X)
#define log10(X) _Generic((X), \
long double: log10l, \
float: log10f, \
default: log10 \
)(X)
#define log1p(X) _Generic((X), \
long double: log1pl, \
float: log1pf, \
default: log1p \
)(X)
#define log2(X) _Generic((X), \
long double: log2l, \
float: log2f, \
default: log2 \
)(X)
#define logb(X) _Generic((X), \
long double: logbl, \
float: logbf, \
default: logb \
)(X)
#define lrint(X) _Generic((X), \
long double: lrintl, \
float: lrintf, \
default: lrint \
)(X)
#define lround(X) _Generic((X), \
long double: lroundl, \
float: lroundf, \
default: lround \
)(X)
#define nearbyint(X) _Generic((X), \
long double: nearbyintl, \
float: nearbyintf, \
default: nearbyint \
)(X)
#define nextafter(X, Y) _Generic(__tgmath_resolve_real_binary_op((X), (Y)), \
long double: nextafterl, \
float: nextafterf, \
default: nextafter \
)(X, Y)
#define nexttoward(X, LONG_DOUBLE) _Generic((X), \
long double: nexttowardl, \
float: nexttowardf, \
default: nexttoward \
)(X, LONG_DOUBLE)
#define remainder(X, Y) _Generic(__tgmath_resolve_real_binary_op((X), (Y)), \
long double: remainderl, \
float: remainderf, \
default: remainder \
)(X, Y)
#define remquo(X, Y, INT_PTR) _Generic(__tgmath_resolve_real_binary_op((X), (Y)), \
long double: remquol, \
float: remquof, \
default: remquo \
)(X, Y, INT_PTR)
#define rint(X) _Generic((X), \
long double: rintl, \
float: rintf, \
default: rint \
)(X)
#define round(X) _Generic((X), \
long double: roundl, \
float: roundf, \
default: round \
)(X)
#define scalbln(X, LONG) _Generic((X), \
long double: scalblnl, \
float: scalblnf, \
default: scalbln \
)(X, LONG)
#define scalbn(X, INT) _Generic((X), \
long double: scalbnl, \
float: scalbnf, \
default: scalbn \
)(X, INT)
#define tgamma(X) _Generic((X), \
long double: tgammal, \
float: tgammaf, \
default: tgamma \
)(X)
#define trunc(X) _Generic((X), \
long double: truncl, \
float: truncf, \
default: trunc \
)(X)
inline double __carg_d(double const __d)
{
return carg(_Cbuild(__d, 0.0));
}
#define carg(X) _Generic((X), \
_Lcomplex: cargl, \
_Fcomplex: cargf, \
_Dcomplex: carg, \
default: __carg_d \
)(X)
inline _Dcomplex __conj_d(double const __d)
{
return conj(_Cbuild(__d, 0.0));
}
#define conj(X) _Generic((X), \
_Lcomplex: conjl, \
_Fcomplex: conjf, \
_Dcomplex: conj, \
default: __conj_d \
)(X)
inline double __creal_d(double const __d)
{
// The real part of a double casted to a double complex is just the double value.
return __d;
}
#define creal(X) _Generic((X), \
_Lcomplex: creall, \
_Fcomplex: crealf, \
_Dcomplex: creal, \
default: __creal_d \
)(X)
inline double __cimag_d(double const __d)
{
// The imaginary part of a double casted to a double complex is 0.
(void) __d;
return 0.0;
}
#define cimag(X) _Generic((X), \
_Lcomplex: cimagl, \
_Fcomplex: cimagf, \
_Dcomplex: cimag, \
default: __cimag_d \
)(X)
inline _Dcomplex __cproj_d(double const __d)
{
return cproj(_Cbuild(__d, 0.0));
}
#define cproj(X) _Generic((X), \
_Lcomplex: cprojl, \
_Fcomplex: cprojf, \
_Dcomplex: cproj, \
default: __cproj_d \
)(X)
_CRT_END_C_HEADER
_UCRT_RESTORE_CLANG_WARNINGS
#pragma warning(pop) // _UCRT_DISABLED_WARNINGS
#endif // _CRT_HAS_C11 == 0
#endif // (_CRT_HAS_CXX17 == 1) && !defined(_CRT_USE_C_TGMATH_H)
#endif // _TGMATH
Reference in a new issue View git blame Copy permalink