| line |
true |
false |
branch |
|
200
|
79 |
0 |
unless @_ > 1 and $_[0] =~ /^\[/ |
|
202
|
0 |
0 |
if grep {not /^\s*\[.*\]\s*$/;} @_ |
|
210
|
0 |
0 |
unless @_ > 1 and $_[0] =~ /^\[/ |
|
212
|
0 |
0 |
if grep {not /^\s*\[.*\]\s*$/;} @_ |
|
220
|
0 |
0 |
unless @$subarr > $ind |
|
237
|
11 |
1 |
if defined $power |
|
243
|
1 |
8 |
if $initial =~ /Skip this/ |
|
245
|
1 |
7 |
if (($what eq 'if') ne defined $else) { } |
|
|
5 |
2 |
elsif ($what eq 'if') { } |
|
256
|
0 |
0 |
unless $ENV{'AUTOMATED_TESTING'} |
|
272
|
0 |
94 |
unless eval "use vars '\$${sym}'; 1" |
|
277
|
0 |
121 |
if ($use_dollars_in_argsign) |
|
279
|
0 |
0 |
if ($pre =~ /^(v?vector|fordiv|sumdiv|plothexport)\(/) { } |
|
280
|
0 |
0 |
unless $pre =~ /^\w+\s*\([^,]*,\s*([\$\w]+)\s*,/ |
|
283
|
0 |
0 |
unless $pre =~ /^\w+\s*\(\s*([\$\w]+)\s*,/ |
|
295
|
150 |
0 |
unless $r =~ /\bMod\(/ |
|
307
|
33 |
703 |
if $noans eq "print" |
|
339
|
15 |
721 |
if ($in =~ /^\\p\s*(\d+)/) { } |
|
|
0 |
721 |
elsif ($in =~ /^\\pb\s*(\d+)/) { } |
|
|
1 |
720 |
elsif ($in =~ /^\\ps\s*(\d+)/) { } |
|
|
0 |
720 |
elsif ($in =~ /\\/) { } |
|
|
0 |
720 |
elsif ($in =~ /^(\w+)\s*\([^()]*\)\s*=/ and 0) { } |
|
|
0 |
720 |
elsif ($in =~ /!(?![\(\w])|\'/) { } |
|
401
|
0 |
720 |
if ($in =~ /\[[^\]]*;/) { } |
|
|
1 |
719 |
elsif ($in =~ /Skip this `(.*)'/) { } |
|
|
0 |
719 |
elsif ($in =~ /&for\s*\([^\)]*$/) { } |
|
|
0 |
719 |
elsif ($in =~ /(^|[\(=,])%/) { } |
|
|
26 |
693 |
elsif ($in =~ /\b(get(heap|stack)|Total time spent.*gettime)\b/) { } |
|
|
9 |
684 |
elsif ($in =~ /
(
\b
( if | goto | label | input | break
# | while | until
| gettime | default
)
\b
|
(\w+) \s* \( \s* (?: (?!\d)\w+ \s* (?:, \s* (?!\d)\w+ \s* )* )? \) \s* =(?!=)
|
\b install \s* \( \s* (\w+) \s* , [^()]* \)
|
\b
(
my _
)?
(?: p? print $or_matrix ) \(
( \[ | (1 ,)? PARImat )
| # Too many parens: will not be wrapped in sub{...}
\b forprime .* \){5}
)
/x) { } |
|
|
1 |
683 |
elsif ($userfun and $in =~ / \b ($userfun) \s* \( /x) { } |
|
|
1 |
682 |
elsif ($installed and $in =~ / \b ($installed) \s* \( /x) { } |
|
|
2 |
680 |
elsif ($in =~ /\b(nonesuch now|nfisincl$or_matrix)\b/) { } |
|
|
0 |
680 |
elsif ($in =~ /\$?\b($skipvars_rx)\b/) { } |
|
|
0 |
680 |
elsif ($in =~ /$skip_fun_rx/) { } |
|
439
|
4 |
5 |
if (defined $3) |
|
442
|
1 |
8 |
if (defined $4) |
|
443
|
0 |
1 |
if (defined $installed) { } |
|
450
|
0 |
9 |
if ($1 eq 'default' and $in =~ /^default\s*\(\s*echo\s*,\s*0\s*\)\s*(;\s*)?$/) { } |
|
451
|
0 |
0 |
if ($rest =~ s/\A.*?^default\s*\(\s*echo\s*,\s*0\s*\)\s*(;\s*)?$//ms) { } |
|
452
|
0 |
0 |
if ($rest =~ s/\A(.*?)^default\s*\(\s*echo\s*,\s*(?!0\b)\S[^\n]*\)\s*(;\s*)?$//ms) { } |
|
454
|
0 |
0 |
if ($cmd =~ /(?:^|;)\s*(?:print|error)\(/ or $userfun and $cmd =~ / \b ($userfun) \s* \( /x) { } |
|
456
|
0 |
0 |
if ($cmd =~ /^\s*(\w+)\s*\($matched_par\)\s*=(?!=)/) |
|
458
|
0 |
0 |
if (defined $userfun) { } |
|
468
|
0 |
0 |
unless eval {
do {
&parse_as_gp($cmd, sub ($) {
"main::" . (CORE::shift());
}
, "echo");
1
}
} |
|
471
|
0 |
0 |
if (defined $Err) { } |
|
515
|
687 |
33 |
unless $in =~ /\b(my_)?print\b/ |
|
516
|
0 |
720 |
if ($in =~ /~/) |
|
520
|
0 |
720 |
if ($in =~ /->/) |
|
524
|
40 |
680 |
if ($RET) |
|
529
|
4 |
716 |
if ($RET and $in =~ /(?:^|;)\$?(\w+)\([^()]*\)=(?!=)/) |
|
531
|
1 |
3 |
if ($in =~ /\b(print|error|$ourvars_rx)\b/) |
|
535
|
0 |
1 |
if ($1 eq 'print') { } |
|
540
|
0 |
1 |
if (defined $userfun) { } |
|
552
|
39 |
680 |
if $RET |
|
553
|
1 |
679 |
if ($in =~ /^\s*alias\s*\(\s*(\w+)\s*,\s*(\w+)\s*\)$/) |
|
559
|
25 |
654 |
if (not $in =~ /\w\(/) { } |
|
|
45 |
609 |
elsif ($in =~ /\b(elllseries|binomial|mathilbert|intnum|intfuncinit|intfuncinit)\b|\bint\w/) { } |
|
571
|
32 |
13 |
if $in =~ /\bint\w/ |
|
584
|
674 |
5 |
unless ($in =~ /\b(hermite|mathnf|until)\s*\(/) |
|
590
|
0 |
679 |
if ($skip_eval and $in =~ /\beval\(/g) |
|
596
|
679 |
0 |
if $seen_now{'oo'} or &Math::Pari::pari_version_exp() < 2009000 |
|
599
|
2 |
677 |
if $in =~ /\bdireuler\b/ |
|
601
|
0 |
679 |
if ($in =~ /\.((?!\d|(?<=\d\.)e-?\d)\w+(?![\w"]))/) |
|
604
|
0 |
679 |
if ($in =~ /(?
|
|
614
|
2 |
76 |
unless $seen{$2} and $seen{$2} eq " " or $in =~ /\"/ |
|
735
|
2 |
675 |
if ($in =~ s/([,\(]\s*)&(\$(\w+)\s*)(?=[,\)])/$1$2/) |
|
744
|
82 |
595 |
$noans ? : |
|
752
|
75 |
602 |
if ($newvars) |
|
762
|
595 |
82 |
if defined $res and ref $res |
|
764
|
14 |
663 |
if ($doprint) { } |
|
765
|
0 |
14 |
if ($in =~ /my_texprint/) { } |
|
770
|
1 |
13 |
if ($have_floats) |
|
785
|
79 |
584 |
if ($have_floats || $in =~ /^(sinh?|solve)\b/ and ref $res) { } |
|
788
|
79 |
0 |
if (defined $rres and not $rres =~ /\n/) |
|
794
|
24 |
55 |
if ($rout =~ /\[.*[-+,;]\s/ or $rout =~ /\bQfb\b/) |
|
796
|
24 |
0 |
if defined $res |
|
797
|
24 |
0 |
if defined $res |
|
799
|
24 |
0 |
if defined $res |
|
801
|
17 |
62 |
if ($in =~ /\b(zeta|bin|comprealraw|frac|lseriesell|powrealraw|pollegendre|legendre|suminf|ellinit)\b/) { } |
|
809
|
79 |
0 |
if defined $res |
|
827
|
8 |
669 |
if ($@) |
|
828
|
0 |
8 |
if ($@ =~ /^Undefined subroutine &main::(\w+)/ and $not_yet_defined{$1}) { } |
|
|
0 |
8 |
elsif ($@ =~ /high resolution graphics disabled/ and 0 >= &Math::Pari::have_graphics()) { } |
|
|
0 |
8 |
elsif ($@ =~ /pari_daemon without waitpid & setsid is not yet implemented/) { } |
|
|
8 |
0 |
elsif ($@ =~ /gnuplot-like plotting environment not loaded yet/ and $skip_gnuplot) { } |
|
845
|
547 |
122 |
if (defined $rres and defined $re_out) |
|
848
|
31 |
547 |
if $how |
|
850
|
0 |
578 |
if ($@ and $@ =~ /regexp too big/) |
|
856
|
516 |
62 |
if $cmp |
|
860
|
0 |
669 |
if (not $noans and defined $re_out and not defined $rres && $cmp) { } |
|
|
516 |
153 |
elsif (not $noans and defined $re_out) { } |
|
|
0 |
153 |
elsif (not $noans and !defined($rres) || &filter_res($rres) ne &filter_res($rout)) { } |
|
|
0 |
153 |
elsif ($doprint and $printout ne $rout) { } |
|
893
|
0 |
0 |
if ($@) { } |
|
903
|
0 |
0 |
if $in =~ /^\\p\s*(\d+)$/ |
|
923
|
105 |
126 |
ref $_ ? : |
|
925
|
67 |
59 |
if $nl |
|
931
|
0 |
0 |
ref $_ ? : |
|
933
|
0 |
0 |
if $nl |
|
939
|
0 |
0 |
ref $_ ? : |
|
941
|
0 |
0 |
if $nl |
|
948
|
15 |
0 |
unless $_[1] |
|
954
|
0 |
0 |
unless $_[1] |
|
965
|
1 |
0 |
unless eval {
do {
&plothsizes()
}
} |