|
Server : Apache System : Linux server.lienzindia.com 4.18.0-348.7.1.el8_5.x86_64 #1 SMP Wed Dec 22 13:25:12 UTC 2021 x86_64 User : plutus ( 1007) PHP Version : 7.4.33 Disable Function : NONE Directory : /usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/ |
Upload File : |
require '_h2ph_pre.ph';
no warnings qw(redefine misc);
unless(defined(&_MATH_H)) {
eval 'sub _MATH_H () {1;}' unless defined(&_MATH_H);
require 'features.ph';
require 'bits/huge_val.ph';
if(defined(&__USE_ISOC99)) {
require 'bits/huge_valf.ph';
require 'bits/huge_vall.ph';
require 'bits/inf.ph';
require 'bits/nan.ph';
}
require 'bits/mathdef.ph';
eval 'sub __MATHCALL {
my($function,$suffix, $args) = @_;
eval q( &__MATHDECL ( &_Mdouble_,$function,$suffix, $args));
}' unless defined(&__MATHCALL);
eval 'sub __MATHDECL {
my($type, $function,$suffix, $args) = @_;
eval q( &__MATHDECL_1($type, $function,$suffix, $args); &__MATHDECL_1($type, &__CONCAT( &__,$function),$suffix, $args));
}' unless defined(&__MATHDECL);
eval 'sub __MATHCALLX {
my($function,$suffix, $args, $attrib) = @_;
eval q( &__MATHDECLX ( &_Mdouble_,$function,$suffix, $args, $attrib));
}' unless defined(&__MATHCALLX);
eval 'sub __MATHDECLX {
my($type, $function,$suffix, $args, $attrib) = @_;
eval q( &__MATHDECL_1($type, $function,$suffix, $args) &__attribute__ ($attrib); &__MATHDECL_1($type, &__CONCAT( &__,$function),$suffix, $args) &__attribute__ ($attrib));
}' unless defined(&__MATHDECLX);
eval 'sub __MATHDECL_1 {
my($type, $function,$suffix, $args) = @_;
eval q( &extern $type &__MATH_PRECNAME($function,$suffix) $args &__THROW);
}' unless defined(&__MATHDECL_1);
eval 'sub _Mdouble_ () {\'double\';}' unless defined(&_Mdouble_);
eval 'sub __MATH_PRECNAME {
my($name,$r) = @_;
eval q( &__CONCAT($name,$r));
}' unless defined(&__MATH_PRECNAME);
eval 'sub _Mdouble_BEGIN_NAMESPACE () { &__BEGIN_NAMESPACE_STD;}' unless defined(&_Mdouble_BEGIN_NAMESPACE);
eval 'sub _Mdouble_END_NAMESPACE () { &__END_NAMESPACE_STD;}' unless defined(&_Mdouble_END_NAMESPACE);
require 'bits/mathcalls.ph';
undef(&_Mdouble_) if defined(&_Mdouble_);
undef(&_Mdouble_BEGIN_NAMESPACE) if defined(&_Mdouble_BEGIN_NAMESPACE);
undef(&_Mdouble_END_NAMESPACE) if defined(&_Mdouble_END_NAMESPACE);
undef(&__MATH_PRECNAME) if defined(&__MATH_PRECNAME);
if(defined (&__USE_MISC) || defined (&__USE_ISOC99)) {
unless(defined(&_Mfloat_)) {
eval 'sub _Mfloat_ () {\'float\';}' unless defined(&_Mfloat_);
}
eval 'sub _Mdouble_ () { &_Mfloat_;}' unless defined(&_Mdouble_);
if(defined(&__STDC__)) {
eval 'sub __MATH_PRECNAME {
my($name,$r) = @_;
eval q($name &f$r);
}' unless defined(&__MATH_PRECNAME);
} else {
eval 'sub __MATH_PRECNAME {
my($name,$r) = @_;
eval q($name &f $r);
}' unless defined(&__MATH_PRECNAME);
}
eval 'sub _Mdouble_BEGIN_NAMESPACE () { &__BEGIN_NAMESPACE_C99;}' unless defined(&_Mdouble_BEGIN_NAMESPACE);
eval 'sub _Mdouble_END_NAMESPACE () { &__END_NAMESPACE_C99;}' unless defined(&_Mdouble_END_NAMESPACE);
require 'bits/mathcalls.ph';
undef(&_Mdouble_) if defined(&_Mdouble_);
undef(&_Mdouble_BEGIN_NAMESPACE) if defined(&_Mdouble_BEGIN_NAMESPACE);
undef(&_Mdouble_END_NAMESPACE) if defined(&_Mdouble_END_NAMESPACE);
undef(&__MATH_PRECNAME) if defined(&__MATH_PRECNAME);
if(((defined(&__STDC__) ? &__STDC__ : undef) - 0|| (defined(&__GNUC__) ? &__GNUC__ : undef) - 0) && (!defined (&__NO_LONG_DOUBLE_MATH) || defined (&__LDBL_COMPAT))) {
if(defined(&__LDBL_COMPAT)) {
if(defined(&__USE_ISOC99)) {
if(defined(&__REDIRECT_NTH)) {
}
}
undef(&__MATHDECL_1) if defined(&__MATHDECL_1);
eval 'sub __MATHDECL_2 {
my($type, $function,$suffix, $args, $alias) = @_;
eval q( &extern $type &__REDIRECT_NTH( &__MATH_PRECNAME($function,$suffix), $args, $alias));
}' unless defined(&__MATHDECL_2);
eval 'sub __MATHDECL_1 {
my($type, $function,$suffix, $args) = @_;
eval q( &__MATHDECL_2($type, $function,$suffix, $args, &__CONCAT($function,$suffix)));
}' unless defined(&__MATHDECL_1);
}
unless(defined(&_Mlong_double_)) {
eval 'sub _Mlong_double_ () {\'long double\';}' unless defined(&_Mlong_double_);
}
eval 'sub _Mdouble_ () {\'_Mlong_double_\';}' unless defined(&_Mdouble_);
if(defined(&__STDC__)) {
eval 'sub __MATH_PRECNAME {
my($name,$r) = @_;
eval q($name &l$r);
}' unless defined(&__MATH_PRECNAME);
} else {
eval 'sub __MATH_PRECNAME {
my($name,$r) = @_;
eval q($name &l $r);
}' unless defined(&__MATH_PRECNAME);
}
eval 'sub _Mdouble_BEGIN_NAMESPACE () { &__BEGIN_NAMESPACE_C99;}' unless defined(&_Mdouble_BEGIN_NAMESPACE);
eval 'sub _Mdouble_END_NAMESPACE () { &__END_NAMESPACE_C99;}' unless defined(&_Mdouble_END_NAMESPACE);
require 'bits/mathcalls.ph';
undef(&_Mdouble_) if defined(&_Mdouble_);
undef(&_Mdouble_BEGIN_NAMESPACE) if defined(&_Mdouble_BEGIN_NAMESPACE);
undef(&_Mdouble_END_NAMESPACE) if defined(&_Mdouble_END_NAMESPACE);
undef(&__MATH_PRECNAME) if defined(&__MATH_PRECNAME);
}
}
undef(&__MATHDECL_1) if defined(&__MATHDECL_1);
undef(&__MATHDECL) if defined(&__MATHDECL);
undef(&__MATHCALL) if defined(&__MATHCALL);
if(defined (&__USE_MISC) || defined (&__USE_XOPEN)) {
}
if(defined(&__USE_ISOC99)) {
eval("sub FP_NAN () { 0; }") unless defined(&FP_NAN);
eval("sub FP_INFINITE () { 1; }") unless defined(&FP_INFINITE);
eval("sub FP_ZERO () { 2; }") unless defined(&FP_ZERO);
eval("sub FP_SUBNORMAL () { 3; }") unless defined(&FP_SUBNORMAL);
eval("sub FP_NORMAL () { 4; }") unless defined(&FP_NORMAL);
if(defined(&__NO_LONG_DOUBLE_MATH)) {
eval 'sub fpclassify {
my($x) = @_;
eval q(($sizeof{$x} == $sizeof{\'float\'} ? &__fpclassifyf ($x) : &__fpclassify ($x)));
}' unless defined(&fpclassify);
} else {
eval 'sub fpclassify {
my($x) = @_;
eval q(($sizeof{$x} == $sizeof{\'float\'} ? &__fpclassifyf ($x) : $sizeof{$x} == $sizeof{\'double\'} ? &__fpclassify ($x) : &__fpclassifyl ($x)));
}' unless defined(&fpclassify);
}
if(defined(&__NO_LONG_DOUBLE_MATH)) {
eval 'sub signbit {
my($x) = @_;
eval q(($sizeof{$x} == $sizeof{\'float\'} ? &__signbitf ($x) : &__signbit ($x)));
}' unless defined(&signbit);
} else {
eval 'sub signbit {
my($x) = @_;
eval q(($sizeof{$x} == $sizeof{\'float\'} ? &__signbitf ($x) : $sizeof{$x} == $sizeof{\'double\'} ? &__signbit ($x) : &__signbitl ($x)));
}' unless defined(&signbit);
}
if(defined(&__NO_LONG_DOUBLE_MATH)) {
eval 'sub isfinite {
my($x) = @_;
eval q(($sizeof{$x} == $sizeof{\'float\'} ? &__finitef ($x) : &__finite ($x)));
}' unless defined(&isfinite);
} else {
eval 'sub isfinite {
my($x) = @_;
eval q(($sizeof{$x} == $sizeof{\'float\'} ? &__finitef ($x) : $sizeof{$x} == $sizeof{\'double\'} ? &__finite ($x) : &__finitel ($x)));
}' unless defined(&isfinite);
}
eval 'sub isnormal {
my($x) = @_;
eval q(( &fpclassify ($x) == &FP_NORMAL));
}' unless defined(&isnormal);
if(defined(&__NO_LONG_DOUBLE_MATH)) {
eval 'sub isnan {
my($x) = @_;
eval q(($sizeof{$x} == $sizeof{\'float\'} ? &__isnanf ($x) : &__isnan ($x)));
}' unless defined(&isnan);
} else {
eval 'sub isnan {
my($x) = @_;
eval q(($sizeof{$x} == $sizeof{\'float\'} ? &__isnanf ($x) : $sizeof{$x} == $sizeof{\'double\'} ? &__isnan ($x) : &__isnanl ($x)));
}' unless defined(&isnan);
}
if(defined(&__NO_LONG_DOUBLE_MATH)) {
eval 'sub isinf {
my($x) = @_;
eval q(($sizeof{$x} == $sizeof{\'float\'} ? &__isinff ($x) : &__isinf ($x)));
}' unless defined(&isinf);
} else {
eval 'sub isinf {
my($x) = @_;
eval q(($sizeof{$x} == $sizeof{\'float\'} ? &__isinff ($x) : $sizeof{$x} == $sizeof{\'double\'} ? &__isinf ($x) : &__isinfl ($x)));
}' unless defined(&isinf);
}
eval 'sub MATH_ERRNO () {1;}' unless defined(&MATH_ERRNO);
eval 'sub MATH_ERREXCEPT () {2;}' unless defined(&MATH_ERREXCEPT);
unless(defined(&__FAST_MATH__)) {
eval 'sub math_errhandling () {( &MATH_ERRNO | &MATH_ERREXCEPT);}' unless defined(&math_errhandling);
}
}
if(defined(&__USE_MISC)) {
eval("sub _IEEE_ () { -1; }") unless defined(&_IEEE_);
eval("sub _SVID_ () { 0; }") unless defined(&_SVID_);
eval("sub _XOPEN_ () { 1; }") unless defined(&_XOPEN_);
eval("sub _POSIX_ () { 2; }") unless defined(&_POSIX_);
eval("sub _ISOC_ () { 3; }") unless defined(&_ISOC_);
}
if(defined(&__USE_SVID)) {
if(defined(&__cplusplus)) {
} else {
}
if(defined(&__cplusplus)) {
} else {
}
eval 'sub X_TLOSS () {1.41484755040568800000e+16;}' unless defined(&X_TLOSS);
eval 'sub DOMAIN () {1;}' unless defined(&DOMAIN);
eval 'sub SING () {2;}' unless defined(&SING);
eval 'sub OVERFLOW () {3;}' unless defined(&OVERFLOW);
eval 'sub UNDERFLOW () {4;}' unless defined(&UNDERFLOW);
eval 'sub TLOSS () {5;}' unless defined(&TLOSS);
eval 'sub PLOSS () {6;}' unless defined(&PLOSS);
eval 'sub HUGE () {3.40282347e+38;}' unless defined(&HUGE);
} else {
if(defined(&__USE_XOPEN)) {
eval 'sub MAXFLOAT () {3.40282347e+38;}' unless defined(&MAXFLOAT);
}
}
if(defined (&__USE_BSD) || defined (&__USE_XOPEN)) {
eval 'sub M_E () {2.7182818284590452354;}' unless defined(&M_E);
eval 'sub M_LOG2E () {1.4426950408889634074;}' unless defined(&M_LOG2E);
eval 'sub M_LOG10E () {0.43429448190325182765;}' unless defined(&M_LOG10E);
eval 'sub M_LN2 () {0.69314718055994530942;}' unless defined(&M_LN2);
eval 'sub M_LN10 () {2.30258509299404568402;}' unless defined(&M_LN10);
eval 'sub M_PI () {3.14159265358979323846;}' unless defined(&M_PI);
eval 'sub M_PI_2 () {1.57079632679489661923;}' unless defined(&M_PI_2);
eval 'sub M_PI_4 () {0.78539816339744830962;}' unless defined(&M_PI_4);
eval 'sub M_1_PI () {0.31830988618379067154;}' unless defined(&M_1_PI);
eval 'sub M_2_PI () {0.63661977236758134308;}' unless defined(&M_2_PI);
eval 'sub M_2_SQRTPI () {1.12837916709551257390;}' unless defined(&M_2_SQRTPI);
eval 'sub M_SQRT2 () {1.41421356237309504880;}' unless defined(&M_SQRT2);
eval 'sub M_SQRT1_2 () {0.70710678118654752440;}' unless defined(&M_SQRT1_2);
}
if(defined(&__USE_GNU)) {
eval 'sub M_El () {2.7182818284590452353602874713526625;}' unless defined(&M_El);
eval 'sub M_LOG2El () {1.4426950408889634073599246810018921;}' unless defined(&M_LOG2El);
eval 'sub M_LOG10El () {0.4342944819032518276511289189166051;}' unless defined(&M_LOG10El);
eval 'sub M_LN2l () {0.6931471805599453094172321214581766;}' unless defined(&M_LN2l);
eval 'sub M_LN10l () {2.3025850929940456840179914546843642;}' unless defined(&M_LN10l);
eval 'sub M_PIl () {3.1415926535897932384626433832795029;}' unless defined(&M_PIl);
eval 'sub M_PI_2l () {1.5707963267948966192313216916397514;}' unless defined(&M_PI_2l);
eval 'sub M_PI_4l () {0.7853981633974483096156608458198757;}' unless defined(&M_PI_4l);
eval 'sub M_1_PIl () {0.3183098861837906715377675267450287;}' unless defined(&M_1_PIl);
eval 'sub M_2_PIl () {0.6366197723675813430755350534900574;}' unless defined(&M_2_PIl);
eval 'sub M_2_SQRTPIl () {1.1283791670955125738961589031215452;}' unless defined(&M_2_SQRTPIl);
eval 'sub M_SQRT2l () {1.4142135623730950488016887242096981;}' unless defined(&M_SQRT2l);
eval 'sub M_SQRT1_2l () {0.7071067811865475244008443621048490;}' unless defined(&M_SQRT1_2l);
}
if(defined (&__STRICT_ANSI__) && !defined (&__NO_MATH_INLINES)) {
eval 'sub __NO_MATH_INLINES () {1;}' unless defined(&__NO_MATH_INLINES);
}
if(defined (&__USE_ISOC99) && &__GNUC_PREREQ(2,97)) {
eval 'sub isgreater {
my($x, $y) = @_;
eval q( &__builtin_isgreater($x, $y));
}' unless defined(&isgreater);
eval 'sub isgreaterequal {
my($x, $y) = @_;
eval q( &__builtin_isgreaterequal($x, $y));
}' unless defined(&isgreaterequal);
eval 'sub isless {
my($x, $y) = @_;
eval q( &__builtin_isless($x, $y));
}' unless defined(&isless);
eval 'sub islessequal {
my($x, $y) = @_;
eval q( &__builtin_islessequal($x, $y));
}' unless defined(&islessequal);
eval 'sub islessgreater {
my($x, $y) = @_;
eval q( &__builtin_islessgreater($x, $y));
}' unless defined(&islessgreater);
eval 'sub isunordered {
my($u, $v) = @_;
eval q( &__builtin_isunordered($u, $v));
}' unless defined(&isunordered);
}
if(defined(&__USE_EXTERN_INLINES)) {
require 'bits/mathinline.ph';
}
if(defined(&__USE_ISOC99)) {
unless(defined(&isgreater)) {
eval 'sub isgreater {
my($x, $y) = @_;
eval q(( &__extension__ ({ &__typeof__($x) &__x = ($x); &__typeof__($y) &__y = ($y); ! &isunordered ( &__x, &__y) && &__x > &__y; })));
}' unless defined(&isgreater);
}
unless(defined(&isgreaterequal)) {
eval 'sub isgreaterequal {
my($x, $y) = @_;
eval q(( &__extension__ ({ &__typeof__($x) &__x = ($x); &__typeof__($y) &__y = ($y); ! &isunordered ( &__x, &__y) && &__x >= &__y; })));
}' unless defined(&isgreaterequal);
}
unless(defined(&isless)) {
eval 'sub isless {
my($x, $y) = @_;
eval q(( &__extension__ ({ &__typeof__($x) &__x = ($x); &__typeof__($y) &__y = ($y); ! &isunordered ( &__x, &__y) && &__x < &__y; })));
}' unless defined(&isless);
}
unless(defined(&islessequal)) {
eval 'sub islessequal {
my($x, $y) = @_;
eval q(( &__extension__ ({ &__typeof__($x) &__x = ($x); &__typeof__($y) &__y = ($y); ! &isunordered ( &__x, &__y) && &__x <= &__y; })));
}' unless defined(&islessequal);
}
unless(defined(&islessgreater)) {
eval 'sub islessgreater {
my($x, $y) = @_;
eval q(( &__extension__ ({ &__typeof__($x) &__x = ($x); &__typeof__($y) &__y = ($y); ! &isunordered ( &__x, &__y) && ( &__x < &__y || &__y < &__x); })));
}' unless defined(&islessgreater);
}
unless(defined(&isunordered)) {
eval 'sub isunordered {
my($u, $v) = @_;
eval q(( &__extension__ ({ &__typeof__($u) &__u = ($u); &__typeof__($v) &__v = ($v); &fpclassify ( &__u) == &FP_NAN || &fpclassify ( &__v) == &FP_NAN; })));
}' unless defined(&isunordered);
}
}
}
1;