/********************************************Documentation of symbols defined by Math::MPFINV_IS_DOUBLE : Automatically defined by Makefile.PL iff$Config{nvtype} is 'double'.NV_IS_LONG_DOUBLE : Automatically defined by Makefile.PL iff$Config{nvtype} is 'long double'.NV_IS_FLOAT128 : Automatically defined by Makefile.PL iff$Config{nvtype} is __float128If NV_IS_FLOAT128 is defined we include thequadmath.h header.NOTE: mpfr_get/set_float128 are NOT necessarilyavailable when this symbol is defined.MPFR_WANT_FLOAT128 : Defined by Makefile.PL if $have_float128 isset to a true value. $have_float128 can be setto a true value by either editing the Makefile.PLappropriately or by specifying F128=1 in theMakefile.PL's @ARGV.The quadmath.h header is included if this symbolis defined.NOTE: If MPFR_WANT_FLOAT128 is defined, it isassumed that the mpfr library was built with__float128 support - ie was configured with the'--enable-float128' option.MPFR_WANT_FLOAT128 must NOT be defined if thempfr library has NOT been built with __float128support.MPFR_WANT_FLOAT128 does not imply that NV_IS_FLOAT128has been defined - perhaps we have definedMPFR_WANT_FLOAT128 solely because we wish to makeuse of the Math::Float128-Math::MPFR interface.MPFI_CAN_PASS_FLOAT128 : Defined only when both MPFR_WANT_FLOAT128 andNV_IS_FLOAT128 is defined, and then only if the mpfrlibrary is at version 4.0.0 or later. (There was no__float128 support in the mpfr library prior to4.0.0.)DANGER: The assumption is that if MPFR_WANT_FLOAT128is defined then the mpfr library has been builtwith __float128 support, which won't be the case ifthe mpfr library wasn't configured with'--enable-float128'.I haven't yet found a way of managing this - it'sinstead left up to the person building Math::MPFR toNOT define MATH_MPFR_WANT_FLOAT128 unless mpfr WASconfigured with --enable-float128.MATH_MPFI_NEED_LONG_LONG_INT: Defined by Makefile.PL if$Config{ivsize} >= 8 && $Config{ivtype} is not'long' && $use_64_bit_int (in the Makefile.PL)has not been set to -1. This symbol will also bedefined if $use_64_bit_int is set to 1.The setting of this symbol is taken to imply thatthe mpc/mpfr _uj/_sj functions are needed forconverting mpfr integer values to perl integers.Conversely, if the symbol is not defined, thenthe implication is that the _uj/sj functions arenot needed (because the _ui/_si functions, whichare alway available) provide the samefunctionality) - and therefore those _uj/_sjfunctions are then not made available._WIN32_BIZARRE_INFNAN : Defined (on Windows only) when the perl version(as expressed by $]) is less than 5.022.These earlier perl versions generally stringifiedNaNs as (-)1.#IND and Infs as (-)1.#INF.********************************************/#if defined MATH_MPFI_NEED_LONG_LONG_INT#ifndef _MSC_VER#include <inttypes.h>#endif#endif/** In mpfr-4.1.0, the _Float128 type is exposed in mpfr.h if MPFR_WANT_FLOAT128 is defined.* We fall back to defining it to __float128 if the _Float128 type is unknown.*/#if defined(MPFR_WANT_FLOAT128) && defined(__GNUC__) && !defined(__FLT128_MAX__) && !defined(_BITS_FLOATN_H)#define _Float128 __float128#endif#include <mpfi.h>#include <mpfi_io.h>#include <float.h>#if defined(MPFR_WANT_FLOAT128) || defined(NV_IS_FLOAT128)#include <quadmath.h>#if defined(NV_IS_FLOAT128) && defined(MPFR_WANT_FLOAT128) && defined(MPFR_VERSION) && MPFR_VERSION >= MPFR_VERSION_NUM(4,0,0)#define MPFI_CAN_PASS_FLOAT128#endif#if defined(__MINGW32__) && !defined(__MINGW64__)typedef__float128 float128 __attribute__ ((aligned(32)));#elif defined(__MINGW64__) || (defined(DEBUGGING) && defined(NV_IS_DOUBLE))typedef__float128 float128 __attribute__ ((aligned(8)));#elsetypedef__float128 float128;#endif#endif#if LDBL_MANT_DIG == 106#define REQUIRED_LDBL_MANT_DIG 2098#else#define REQUIRED_LDBL_MANT_DIG LDBL_MANT_DIG#endif#ifdef OLDPERL#define SvUOK SvIsUV#endif#ifndef Newx# define Newx(v,n,t) New(0,v,n,t)#endif#ifndef Newxz# define Newxz(v,n,t) Newz(0,v,n,t)#endif/* A perl bug in perl-5.20 onwards can break &PL_sv_yes and ** &PL_sv_no. In the overload subs we therefore instead ** use SvTRUE_nomg_NN where possible, which is available ** beginning with perl-5.18.0. ** Otherwise we continue using &PL_sv_yes as original ** ** See See https://github.com/sisyphus/math-decimal64/pull/1 */#if defined SvTRUE_nomg_NN#define SWITCH_ARGS SvTRUE_nomg_NN(third)#else#define SWITCH_ARGS third==&PL_sv_yes#endif#ifndef __gmpfr_default_rounding_mode#define __gmpfr_default_rounding_mode mpfr_get_default_rounding_mode()#endif#define SV_IS_IOK(x) \SvIOK(x)#define SV_IS_POK(x) \SvPOK(x)#define SV_IS_NOK(x) \SvNOK(x)#define NOK_POK_DUALVAR_CHECK \if(SvNOK(b)) { \nok_pok++; \if(SvIV(get_sv("Math::MPFI::NOK_POK", 0))) \warn("Scalar passed to %s is both NV and PV. Using PV (string) value"/******************************************************************************My (sisyphus) MS Visual Studio builds are unable to resolve some (comparison)routines - eg mpfi_cmp, mpfi_cmp_d, mpfi_cmp_fr, ....They can however resolve the "_default" versions - namely mpfi_cmp_default,mpfi_cmp_d_default, mpfi_cmp_fr_default, etc.So, until a better solution is found, I define (below) the following symbolsfor both compilers (like Visual Studio) that can't find the non-"default"forms, and those that can.******************************************************************************/#ifndef _MSC_VER/* Unchanged - ie defined to be what was originally used */#define MPFI_CMP_UI(x,y) mpfi_cmp_ui(x,y)#define MPFI_CMP_SI(x,y) mpfi_cmp_si(x,y)#define MPFI_CMP_FR(x,y) mpfi_cmp_fr(x,y)#define MPFI_CMP_D(x,y) mpfi_cmp_d(x,y)#define MPFI_CMP_Z(x,y) mpfi_cmp_z(x,y)#define MPFI_CMP_Q(x,y) mpfi_cmp_q(x,y)#define MPFI_CMP(x,y) mpfi_cmp(x,y)#define MPFI_IS_STRICTLY_NEG(x) mpfi_is_strictly_neg(x)#define MPFI_IS_STRICTLY_POS(x) mpfi_is_strictly_pos(x)#define MPFI_IS_NEG(x) mpfi_is_neg(x)#define MPFI_IS_POS(x) mpfi_is_pos(x)#define MPFI_IS_NONNEG(x) mpfi_is_nonneg(x)#define MPFI_IS_NONPOS(x) mpfi_is_nonpos(x)#define MPFI_IS_ZERO_PORTABLE(x) mpfi_is_zero(x)#else/* Defined to use the "_default" rendition */#define MPFI_CMP_UI(x,y) mpfi_cmp_ui_default(x,y)#define MPFI_CMP_SI(x,y) mpfi_cmp_si_default(x,y)#define MPFI_CMP_FR(x,y) mpfi_cmp_fr_default(x,y)#define MPFI_CMP_D(x,y) mpfi_cmp_d_default(x,y)#define MPFI_CMP_Z(x,y) mpfi_cmp_z_default(x,y)#define MPFI_CMP_Q(x,y) mpfi_cmp_q_default(x,y)#define MPFI_CMP(x,y) mpfi_cmp_default(x,y)#define MPFI_IS_STRICTLY_NEG(x) mpfi_is_strictly_neg_default(x)#define MPFI_IS_STRICTLY_POS(x) mpfi_is_strictly_pos_default(x)#define MPFI_IS_NEG(x) mpfi_is_neg_default(x)#define MPFI_IS_POS(x) mpfi_is_pos_default(x)#define MPFI_IS_NONNEG(x) mpfi_is_nonneg_default(x)#define MPFI_IS_NONPOS(x) mpfi_is_nonpos_default(x)#define MPFI_IS_ZERO_PORTABLE(x) mpfi_is_zero_default(x)#endif