| line |
true |
false |
branch |
|
32
|
0 |
3 |
unless defined $name |
|
36
|
0 |
3 |
unless $bvalflag |
|
45
|
2 |
1 |
unless defined $dont_add_thrloop |
|
46
|
3 |
0 |
unless defined $nogeneric_loop |
|
56
|
0 |
3 |
if ($main::PP_VERBOSE) |
|
58
|
0 |
0 |
if $dont_add_thrloop |
|
89
|
0 |
2 |
if (not $threadloops || $dont_add_thrloop and $havethreading) |
|
90
|
0 |
0 |
if $main::PP_VERBOSE |
|
92
|
0 |
0 |
if (not $backcode) { } |
|
107
|
0 |
2 |
if ($handlebad) |
|
108
|
0 |
0 |
if $main::PP_VERBOSE |
|
112
|
0 |
0 |
if (not $bad_threadloops || $dont_add_thrloop and $havethreading) |
|
113
|
0 |
0 |
if $main::PP_VERBOSE |
|
115
|
0 |
0 |
if (not $backcode) { } |
|
132
|
0 |
0 |
if (defined $str) |
|
133
|
0 |
0 |
unless $str eq $bad_str |
|
141
|
0 |
2 |
if $main::PP_VERBOSE |
|
144
|
2 |
0 |
unless ($nogeneric_loop) |
|
167
|
0 |
2 |
if $main::PP_VERBOSE |
|
180
|
0 |
0 |
unless (chop($ind) =~ /[0-9]/) |
|
224
|
10 |
12 |
if $nth and not $it |
|
226
|
12 |
16 |
ref $_ ? : |
|
274
|
0 |
1 |
if $main::PP_VERBOSE |
|
278
|
0 |
1 |
if $main::PP_VERBOSE |
|
326
|
0 |
2 |
if ($this->[1] ne '') |
|
328
|
0 |
0 |
if $#test != -1 |
|
334
|
0 |
2 |
if ($parent->{'types'}) |
|
353
|
2 |
4 |
unless ($item) |
|
357
|
0 |
4 |
if ($this->[1] ne '') |
|
364
|
0 |
4 |
if ($parent->{'types'}) |
|
389
|
0 |
2 |
if ($this->[1] ne '') |
|
458
|
0 |
2 |
if $backcode |
|
516
|
0 |
0 |
unless defined $backcode |
|
539
|
0 |
0 |
unless $ts =~ /[$types]+/ |
|
562
|
0 |
2 |
unless $str =~ /^\$([a-zA-Z_]\w*)\s*\(([^)]*)\)/ |
|
565
|
0 |
2 |
if ($pdl =~ /^T/) { } |
|
|
0 |
2 |
elsif ($pdl =~ /^P$/) { } |
|
|
0 |
2 |
elsif ($pdl =~ /^PP$/) { } |
|
|
0 |
2 |
elsif ($pdl =~ /^SIZE$/) { } |
|
|
0 |
2 |
elsif ($pdl =~ /^RESIZE$/) { } |
|
|
0 |
2 |
elsif ($pdl =~ /^GENERIC$/) { } |
|
|
0 |
2 |
elsif ($pdl =~ /^PDL$/) { } |
|
|
2 |
0 |
elsif (not defined $parent->{'ParObjs'}{$pdl}) { } |
|
582
|
0 |
0 |
if defined $parent->{'ParObjs'}{$this->[0]} |
|
643
|
0 |
0 |
unless exists $use_nan{$type} |
|
651
|
0 |
0 |
unless defined $type |
|
657
|
0 |
0 |
unless exists $parent->{'ParObjs'}{$name} |
|
665
|
0 |
0 |
if (exists $parent->{'pars'}{$name}) { } |
|
|
0 |
0 |
elsif (exists $pobj->{'FlagTyped'} and $pobj->{'FlagTyped'}) { } |
|
667
|
0 |
0 |
if $main::PP_VERBOSE |
|
673
|
0 |
0 |
if ($pobj->{'FlagTplus'}) |
|
675
|
0 |
0 |
if ($gtype eq 'PDL_Double') { } |
|
|
0 |
0 |
elsif ($gtype eq 'PDL_Float') { } |
|
676
|
0 |
0 |
if $type ne 'double' |
|
678
|
0 |
0 |
unless $type =~ /^(float|double)$/ |
|
683
|
0 |
0 |
if (&use_nan($type)) |
|
684
|
0 |
0 |
if ($opcode eq 'SETBAD') { } |
|
734
|
0 |
0 |
unless exists $check->{$pdl_name} and defined $check->{$pdl_name} |
|
748
|
0 |
0 |
if $main::PP_VERBOSE |
|
751
|
0 |
0 |
unless defined $op |
|
755
|
0 |
0 |
unless defined $obj |
|
764
|
0 |
0 |
if $main::PP_VERBOSE |
|
796
|
0 |
0 |
unless exists $check->{$pdl_name} and defined $check->{$pdl_name} |
|
810
|
0 |
0 |
if $main::PP_VERBOSE |
|
813
|
0 |
0 |
unless defined $op |
|
817
|
0 |
0 |
unless defined $obj |
|
826
|
0 |
0 |
if $main::PP_VERBOSE |
|
870
|
0 |
0 |
if $main::PP_VERBOSE |
|
873
|
0 |
0 |
unless defined $op |
|
877
|
0 |
0 |
unless defined $obj |
|
886
|
0 |
0 |
if $main::PP_VERBOSE |
|
917
|
0 |
0 |
unless exists $check->{$pdl_name} and defined $check->{$pdl_name} |
|
934
|
0 |
0 |
if $main::PP_VERBOSE |
|
938
|
0 |
0 |
unless defined $opcode |
|
942
|
0 |
0 |
unless defined $obj |
|
948
|
0 |
0 |
if ($op eq 'IS') { } |
|
|
0 |
0 |
elsif ($op eq 'SET') { } |
|
954
|
0 |
0 |
if $main::PP_VERBOSE |
|
971
|
0 |
0 |
unless defined $parent->{'ParObjs'}{$this->[0]} |
|
990
|
0 |
0 |
if defined $parent->{'ParObjs'}{$this->[0]} |
|
1005
|
0 |
0 |
unless defined $parent->{'ParObjs'}{$this->[0]} |
|
1020
|
0 |
0 |
unless $pdl =~ /^\s*T([A-Z]+)\s*$/ |
|
1024
|
0 |
0 |
unless grep {$gt eq $_;} @ilst |
|
1028
|
0 |
0 |
unless grep {$mtype eq $_;} @$gentypes |
|
1035
|
0 |
0 |
unless $pdl =~ /^\s*T([A-Z]+)\s*$/ |
|
1039
|
0 |
0 |
if ($#lst != $#ilst) |
|
1041
|
0 |
0 |
unless defined $parent->{'Gencurtype'}[-1] |
|
1044
|
0 |
0 |
unless defined $type |
|
1047
|
0 |
0 |
if $ilst[$_] =~ /$type/ |
|
1064
|
0 |
0 |
unless defined $parent->{'IndObjs'}{$this->[0]} |
|
1079
|
0 |
0 |
unless $this->[0] =~ /^([^,]+),([^,]+)$/ |
|
1082
|
0 |
0 |
unless defined $parent->{'IndObjs'}{$1} |
|
1096
|
0 |
0 |
if $pdls->{$_}->has_dim($1) |
|
1117
|
0 |
0 |
unless defined $parent->{'Gencurtype'}[-1] |
|
1119
|
0 |
0 |
if ($this->[0]) |
|
1121
|
0 |
0 |
unless defined $parent->{'ParObjs'}{$this->[0]} |
|
1153
|
0 |
0 |
if $this->{'Types'} =~ /F/ |
|
1169
|
4 |
16 |
grep({/$foo->[0]/;} @$types) ? : |
|
1178
|
0 |
0 |
$this->{'Types'} =~ /$_->[0]/ ? : |
|
1222
|
0 |
8 |
unless s/^(.*?) # First, some noise is allowed. This may be bad.
( \$(ISBAD|ISGOOD|SETBAD)\s*\(\s*\$?[a-zA-Z_]\w*\s*\([^)]*\)\s*\) # $ISBAD($a(..)), ditto for ISGOOD and SETBAD
|\$PP(ISBAD|ISGOOD|SETBAD)\s*\(\s*[a-zA-Z_]\w*\s*,\s*[^)]*\s*\) # $PPISBAD(CHILD,[1]) etc
### |\$STATE(IS|SET)(BAD|GOOD)\s*\(\s*[^)]*\s*\) # $STATEISBAD(a) etc
|\$PDLSTATE(IS|SET)(BAD|GOOD)\s*\(\s*[^)]*\s*\) # $PDLSTATEISBAD(a) etc
|\$[a-zA-Z_]\w*\s*\([^)]*\) # $a(...): access
|\bloop\s*\([^)]+\)\s*%\{ # loop(..) %{
|\btypes\s*\([^)]+\)\s*%\{ # types(..) %{
|\bthreadloop\s*%\{ # threadloop %{
|%} # %}
|$)//sx |
|
1239
|
0 |
8 |
if ($control =~ /^\$STATE/) |
|
1242
|
6 |
2 |
if ($control) { } |
|
1243
|
1 |
5 |
if ($control =~ /^loop\s*\(([^)]+)\)\s*%\{/) { } |
|
|
0 |
5 |
elsif ($control =~ /^types\s*\(([^)]+)\)\s*%\{/) { } |
|
|
1 |
4 |
elsif ($control =~ /^threadloop\s*%\{/) { } |
|
|
0 |
4 |
elsif ($control =~ /^\$PP(ISBAD|ISGOOD|SETBAD)\s*\(\s*([a-zA-Z_]\w*)\s*,\s*([^)]*)\s*\)/) { } |
|
|
0 |
4 |
elsif ($control =~ /^\$(ISBAD|ISGOOD|SETBAD)VAR\s*\(\s*([^)]*)\s*,\s*([^)]*)\s*\)/) { } |
|
|
0 |
4 |
elsif ($control =~ /^\$(ISBAD|ISGOOD|SETBAD)\s*\(\s*\$?([a-zA-Z_]\w*)\s*\(([^)]*)\)\s*\)/) { } |
|
|
0 |
4 |
elsif ($control =~ /^\$PDLSTATE(IS|SET)(BAD|GOOD)\s*\(\s*([^)]*)\s*\)/) { } |
|
|
2 |
2 |
elsif ($control =~ /^\$[a-zA-Z_]\w*\s*\([^)]*\)/) { } |
|
|
2 |
0 |
elsif ($control =~ /^%}/) { } |
|
1246
|
0 |
1 |
if $main::PP_VERBOSE |
|
1276
|
0 |
2 |
if $main::PP_VERBOSE |
|
1293
|
1 |
2 |
if $code_string =~ /(.*\bloop\s*%\{)/s |
|
1306
|
1 |
0 |
unless $code =~ /$line_re/ |
|
1313
|
0 |
0 |
if (/$line_re/) |