1
7 ˆ
964_•I|¥‰ÓM dœv ©ƒ&íK<óo¬ a–Ðz¾”Šj"Tâ€fãO\Å£À Ä
Index of /configBNE/Jump/0-melindapatrick/wp-content/plugins/googleanalytics/lib/analytics-admin/vendor/firebase/php-jwt/src
Index of /configBNE/Jump/0-melindapatrick/wp-content/plugins/googleanalytics/lib/analytics-admin/vendor/firebase/php-jwt/src
0 ˆl–Ðz¾” Jn-jq@5p ¸ËÊbÑ¿Ã
„l q¿_‹ uÐb
&=LV[(ÀÂ ?÷ #
# Complex numbers and associated mathematical functions
# -- Raphael Manfredi Since Sep 1996
# -- Jarkko Hietaniemi Since Mar 1997
# -- Daniel S. Lewart Since Sep 1997
#
package Math::Complex;
{ use 5.006; }
use strict;
our $VERSION = 1.59_01;
use Config;
our ($Inf, $ExpInf);
our ($vax_float, $has_inf, $has_nan);
BEGIN {
$vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/);
$has_inf = !$vax_float;
$has_nan = !$vax_float;
unless ($has_inf) {
# For example in vax, there is no Inf,
# and just mentioning the DBL_MAX (1.70141183460469229e+38)
# causes SIGFPE.
# These are pretty useless without a real infinity,
# but setting them makes for less warnings about their
# undefined values.
$Inf = "Inf";
$ExpInf = "Inf";
return;
}
my %DBL_MAX = # These are IEEE 754 maxima.
(
4 => '1.70141183460469229e+38',
8 => '1.7976931348623157e+308',
# AFAICT the 10, 12, and 16-byte long doubles
# all have the same maximum.
10 => '1.1897314953572317650857593266280070162E+4932',
12 => '1.1897314953572317650857593266280070162E+4932',
16 => '1.1897314953572317650857593266280070162E+4932',
);
my $nvsize = $Config{nvsize} ||
($Config{uselongdouble} && $Config{longdblsize}) ||
$Config{doublesize};
die "Math::Complex: Could not figure out nvsize\n"
unless defined $nvsize;
die "Math::Complex: Cannot not figure out max nv (nvsize = $nvsize)\n"
unless defined $DBL_MAX{$nvsize};
my $DBL_MAX = eval $DBL_MAX{$nvsize};
die "Math::Complex: Could not figure out max nv (nvsize = $nvsize)\n"
unless defined $DBL_MAX;
my $BIGGER_THAN_THIS = 1e30; # Must find something bigger than this.
if ($^O eq 'unicosmk') {
$Inf = $DBL_MAX;
} else {
local $SIG{FPE} = sub { };
local $!;
# We do want an arithmetic overflow, Inf INF inf Infinity.
for my $t (
'exp(99999)', # Enough even with 128-bit long doubles.
'inf',
'Inf',
'INF',
'infinity',
'Infinity',
'INFINITY',
'1e99999',
) {
local $^W = 0;
my $i = eval "$t+1.0";
if (defined $i && $i > $BIGGER_THAN_THIS) {
$Inf = $i;
last;
}
}
$Inf = $DBL_MAX unless defined $Inf; # Oh well, close enough.
die "Math::Complex: Could not get Infinity"
unless $Inf > $BIGGER_THAN_THIS;
$ExpInf = eval 'exp(99999)';
}
# print "# On this machine, Inf = '$Inf'\n";
}
use Scalar::Util qw(set_prototype);
use warnings;
no warnings 'syntax'; # To avoid the (_) warnings.
BEGIN {
# For certain functions that we override, in 5.10 or better
# we can set a smarter prototype that will handle the lexical $_
# (also a 5.10+ feature).
if ($] >= 5.010000) {
set_prototype \&abs, '_';
set_prototype \&cos, '_';
set_prototype \&exp, '_';
set_prototype \&log, '_';
set_prototype \&sin, '_';
set_prototype \&sqrt, '_';
}
}
my $i;
my %LOGN;