| line |
true |
false |
branch |
|
143
|
0 |
1 |
unless open IDLSAV, "<$name" |
|
151
|
0 |
1 |
if (@snames) |
|
243
|
0 |
1 |
unless sysread IDLSAV, $buf, 4 |
|
246
|
0 |
1 |
if $sig[0] ne "SR" |
|
249
|
1 |
0 |
if ($sig[1] == 1024 or $sig[1] == 4) { } |
|
285
|
0 |
9 |
unless sysread IDLSAV, $tbuf, 4 |
|
292
|
0 |
9 |
if ($p64) { } |
|
293
|
0 |
0 |
if $PDL::debug |
|
298
|
0 |
9 |
if $PDL::debug |
|
302
|
0 |
9 |
if $PDL::debug |
|
309
|
0 |
9 |
if $nexts{$next} |
|
318
|
8 |
1 |
if (defined $PDL::IO::IDL::types->[$type]) { } |
|
319
|
8 |
0 |
if (defined $PDL::IO::IDL::types->[$type][1]) { } |
|
320
|
0 |
8 |
if $PDL::debug or $PDL::IO::IDL::test |
|
322
|
0 |
8 |
if $PDL::debug |
|
329
|
0 |
9 |
if $PDL::debug or $PDL::IO::IDL::test |
|
409
|
1 |
0 |
if $version != 5 and $version != 6 |
|
444
|
0 |
5 |
unless (defined $PDL::IO::IDL::vtypes->[$type]) |
|
448
|
0 |
5 |
unless (defined $PDL::IO::IDL::vtypes->[$type][1]) |
|
453
|
0 |
5 |
if $PDL::debug |
|
455
|
3 |
2 |
if (($flags & 4) == 0 and ($flags & 32) == 0) { } |
|
456
|
0 |
3 |
if $PDL::debug |
|
461
|
0 |
3 |
if ($seven != 7) |
|
474
|
1 |
1 |
if (($flags & 32) == 0) { } |
|
480
|
0 |
1 |
if $indicator != 7 |
|
483
|
0 |
1 |
if $PDL::debug |
|
493
|
0 |
1 |
if $PDL::debug |
|
497
|
0 |
1 |
if $PDL::debug or $PDL::IO::IDL::test |
|
503
|
0 |
1 |
if ($PDL::IO::IDL::test and not $i % 100) |
|
537
|
1 |
0 |
if $arrdesc->{'ndims'} <= $n or $arrdesc->{'ndims'} == 0 or $arrdesc->{'ndims'} - $n == 1 and $arrdesc->{'dims'}[$n] == 1 |
|
540
|
0 |
0 |
if ($arrdesc->{'ndims'} - $n == 1) |
|
574
|
0 |
11 |
if $vals[0] != 8 |
|
588
|
0 |
11 |
if $nelem != $dims->prod |
|
604
|
0 |
1 |
if $PDL::IO::IDL::test |
|
610
|
1 |
0 |
if $name eq "" |
|
615
|
0 |
1 |
if $PDL::debug |
|
616
|
1 |
0 |
unless ($predef & 1) |
|
618
|
0 |
1 |
if $PDL::debug or $PDL::IO::IDL::test |
|
633
|
0 |
1 |
if $PDL::debug or $PDL::IO::IDL::test |
|
645
|
0 |
19 |
if $x & 32 |
|
646
|
9 |
10 |
if $x & 38 |
|
649
|
0 |
1 |
if $PDL::debug or $PDL::IO::IDL::test |
|
654
|
0 |
1 |
if $PDL::debug or $PDL::IO::IDL::test |
|
660
|
0 |
1 |
if $PDL::IO::IDL::test |
|
678
|
0 |
1 |
if $PDL::IO::IDL::test |
|
684
|
0 |
1 |
unless defined $sd |
|
688
|
0 |
1 |
unless $sname =~ /^\+/ |
|
700
|
0 |
19 |
if $PDL::debug |
|
702
|
0 |
19 |
unless defined $PDL::IO::IDL::vtypes->[$type] |
|
705
|
19 |
0 |
if (defined $PDL::IO::IDL::vtypes->[$type][1]) { } |
|
707
|
0 |
0 |
if $flags & 38 |
|
708
|
0 |
0 |
if $flags & 32 |
|
712
|
10 |
9 |
if (($flags & 4) == 0 and ($flags & 32) == 0) { } |
|
723
|
9 |
0 |
if (($flags & 32) == 0) { } |
|
730
|
0 |
9 |
if $PDL::debug |
|
801
|
0 |
0 |
if $dims->$#* > 1 |
|
833
|
0 |
21 |
if $PDL::debug |
|
834
|
21 |
0 |
if $swab |