| line |
true |
false |
branch |
|
42
|
0 |
8 |
unless $sb->{'songs'}[0]{'body'} |
|
48
|
0 |
8 |
if $main::options->{'verbose'} |
|
51
|
0 |
8 |
if $regtest |
|
55
|
24 |
8 |
unless defined $v and $v ne "" |
|
75
|
0 |
8 |
if ($ps->{'even-odd-pages'} and not $page % 2) |
|
85
|
10 |
14 |
if ($ps->{'pagealign-songs'} and not $page % 2) |
|
96
|
0 |
24 |
if ($sb->{'assets'}) |
|
120
|
0 |
0 |
$main::config->{'toc'}{'order'} eq 'alpha' ? : |
|
123
|
0 |
24 |
unless $main::options->{'toc'} // @book > 1 |
|
126
|
96 |
0 |
if exists $ctl->{$_} |
|
129
|
8 |
16 |
if $ctl->{'omit'} |
|
160
|
0 |
16 |
if $first_song_aligned |
|
163
|
12 |
0 |
if ($ps->{'even-odd-pages'} and $page % 2 and not $first_song_aligned) |
|
171
|
3 |
5 |
if ($ps->{'front-matter'}) |
|
174
|
0 |
3 |
unless $matter |
|
184
|
3 |
0 |
if $ps->{'even-odd-pages'} and not $page % 2 |
|
191
|
3 |
5 |
if ($ps->{'back-matter'}) |
|
193
|
0 |
3 |
unless $matter |
|
196
|
0 |
3 |
if $ps->{'even-odd-pages'} and $page % 2 |
|
208
|
3 |
5 |
if $pages_of{'front'} |
|
210
|
8 |
0 |
if $pages_of{'toc'} |
|
212
|
8 |
0 |
if $pages_of{'songbook'} |
|
214
|
3 |
5 |
if $pages_of{'back'} |
|
220
|
0 |
8 |
if $main::options->{'verbose'} |
|
223
|
8 |
0 |
if $main::options->{'csv'} |
|
225
|
0 |
8 |
if $verbose |
|
236
|
0 |
8 |
unless open my $fd, ">:utf8", &encode_utf8($csv) |
|
240
|
0 |
8 |
if $main::config->{'debug'}{'csv'} or $main::options->{'verbose'} |
|
249
|
328 |
0 |
unless ref $v eq "ARRAY" |
|
250
|
0 |
328 |
unless defined $v and defined $v->[0] |
|
252
|
328 |
0 |
unless $v =~ /[$sep"\n\r]/s |
|
259
|
9 |
24 |
if (@_ == 1) |
|
263
|
5 |
28 |
$pages > 1 ? : |
|
272
|
33 |
264 |
if $_->{'omit'} |
|
284
|
8 |
64 |
if $_->{'omit'} |
|
291
|
3 |
5 |
unless ($ctl->{'songsonly'}) |
|
296
|
3 |
0 |
if $pages_of->{'front'} |
|
301
|
3 |
0 |
if $pages_of->{'toc'} |
|
305
|
0 |
8 |
if $main::config->{'debug'}{'csv'} |
|
316
|
3 |
5 |
unless ($ctl->{'songsonly'}) |
|
321
|
3 |
0 |
if $pages_of->{'back'} |
|
325
|
0 |
8 |
if $main::config->{'debug'}{'csv'} or $main::options->{'verbose'} |
|
349
|
0 |
40 |
unless ($s->{'body'}) |
|
350
|
0 |
0 |
unless $s->{'source'}{'embedding'} |
|
351
|
0 |
0 |
unless $s->{'source'}{'embedding'} eq "pdf" |
|
357
|
0 |
0 |
if ($s->{'meta'}{'title'}[0] eq $s->{'source'}{'file'} and $p->{'Title'}) |
|
386
|
0 |
40 |
if $structured |
|
391
|
0 |
40 |
if ($main::config->{'instrument'}{'type'} eq 'keyboard') { } |
|
402
|
0 |
40 |
if defined $s->{'settings'}{'diagrampos'} |
|
419
|
360 |
0 |
unless $_ |
|
423
|
0 |
0 |
if (m[/]) { } |
|
|
0 |
0 |
elsif (is_corefont($_)) { } |
|
432
|
0 |
0 |
unless $pr->init_font($item) |
|
435
|
360 |
0 |
unless $_ |
|
439
|
0 |
40 |
if $fail |
|
441
|
0 |
40 |
if ($ps->{'labels'}{'comment'}) { } |
|
|
40 |
0 |
elsif ($ps->{'labels'}{'width'} eq 'auto') { } |
|
445
|
0 |
40 |
if ($s->{'labels'} and @{$s->{'labels'};}) { } |
|
452
|
0 |
0 |
if $t > $longest |
|
478
|
0 |
40 |
if $main::options->{'even-pages-number-left'} |
|
479
|
0 |
40 |
if $main::options->{'odd-pages-number-left'} |
|
482
|
40 |
0 |
if (defined $st and not $ps->{'titles-directive-ignore'}) |
|
488
|
0 |
0 |
unless defined $ps->{'formats'}{$class}{$_} |
|
489
|
0 |
0 |
unless (ref $ps->{'formats'}{$class}{$_} eq "ARRAY") |
|
493
|
0 |
0 |
unless (ref $ps->{'formats'}{$class}{$_}[0] eq "ARRAY") |
|
505
|
0 |
40 |
if ($st eq "left") |
|
508
|
0 |
40 |
if ($st eq "right") |
|
515
|
0 |
0 |
if ($value =~ /^(.+)\%$/) { } |
|
531
|
42 |
0 |
if ($ps->{'columns'} <= 1) |
|
534
|
0 |
42 |
if $main::config->{'debug'}{'spacing'} |
|
543
|
0 |
0 |
if $col < $ps->{'columns'} - 1 |
|
546
|
0 |
0 |
if $main::config->{'debug'}{'spacing'} |
|
560
|
16 |
26 |
$opts->{'prepend'} ? : |
|
567
|
32 |
10 |
if ($ps->{'even-odd-pages'}) |
|
571
|
5 |
27 |
if $ps->{'even-odd-pages'} < 0 |
|
577
|
34 |
8 |
if ($rightpage) { } |
|
601
|
16 |
26 |
$opts->{'roman'} ? : |
|
606
|
24 |
18 |
if ($thispage == 1) { } |
|
|
16 |
2 |
elsif ($thispage == $startpage) { } |
|
617
|
0 |
42 |
if ($bgpdf) |
|
619
|
0 |
0 |
if ($bgpdf =~ /^(.+):(\d+)$/) |
|
623
|
0 |
0 |
if (-s -r $fn) { } |
|
624
|
0 |
0 |
if $ps->{'even-odd-pages'} and not $rightpage |
|
636
|
0 |
42 |
if $ps->{'head-first-only'} and $class == 2 |
|
638
|
0 |
42 |
if ($spreadimage) |
|
656
|
144 |
0 |
if $vsp >= 0 and $y - $vsp >= $ps->{'_bottommargin'} |
|
658
|
0 |
0 |
if (++$col >= $ps->{'columns'}) |
|
668
|
0 |
40 |
if $lyrics_only or not $dctl->{'show'} |
|
671
|
24 |
16 |
if not defined $chords and $s->{'chords'} |
|
673
|
24 |
16 |
if ($chords) |
|
675
|
48 |
0 |
if (my $i = $s->{'chordsinfo'}{$_}) { } |
|
676
|
48 |
0 |
if $i->has_diagram |
|
683
|
16 |
24 |
unless @chords |
|
687
|
8 |
16 |
if ($thispage == 1) { } |
|
|
16 |
0 |
elsif ($thispage == $startpage) { } |
|
696
|
0 |
24 |
if ($show eq 'right' and $class <= 1) { } |
|
|
0 |
24 |
elsif ($show eq 'top' and $class <= 1) { } |
|
|
24 |
0 |
elsif ($show eq 'bottom' and $class <= 1 and $col == 0) { } |
|
|
0 |
0 |
elsif ($show eq 'below') { } |
|
718
|
0 |
0 |
unless @chords |
|
734
|
0 |
0 |
unless $h > 0 |
|
742
|
0 |
0 |
unless @chords |
|
759
|
0 |
24 |
unless $h > 0 |
|
772
|
0 |
24 |
if $main::config->{'debug'}{'spacing'} |
|
775
|
24 |
48 |
unless @chords |
|
781
|
0 |
24 |
if $main::config->{'debug'}{'spacing'} |
|
794
|
0 |
0 |
if $main::config->{'debug'}{'spacing'} |
|
797
|
0 |
0 |
unless @chords |
|
803
|
0 |
0 |
if $main::config->{'debug'}{'spacing'} |
|
813
|
0 |
160 |
@$redo ? : |
|
814
|
0 |
160 |
if ($elt->{'type'} eq 'image' and $elt->{'opts'}{'spread'}) { } |
|
|
0 |
160 |
elsif ($elt->{'type'} eq 'delegate' and $elt->{'subtype'} eq 'image' and $elt->{'data'}[0] =~ /\bspread=\d+\b$/) { } |
|
816
|
0 |
0 |
if ($spreadimage) { } |
|
820
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
829
|
0 |
0 |
if ($spreadimage) { } |
|
834
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
837
|
0 |
0 |
unless eval "require $pkg" |
|
855
|
0 |
24 |
if $source->{'file'} and $main::options->{'debug'} |
|
868
|
0 |
160 |
if ($elt->{'type'} eq "newpage") |
|
873
|
0 |
160 |
if ($elt->{'type'} eq "colb") |
|
878
|
40 |
120 |
if ($elt->{'type'} ne "set" and not $did++) |
|
880
|
40 |
0 |
unless $dctl->{'show'} eq "below" |
|
881
|
0 |
40 |
if $ps->{'showlayout'} or $main::config->{'debug'}{'spacing'} |
|
884
|
40 |
120 |
if ($elt->{'type'} eq "empty") |
|
887
|
0 |
40 |
if $s->{'structure'} eq "structured" |
|
888
|
24 |
16 |
if $vsp_ignorefirst |
|
889
|
0 |
16 |
if $main::config->{'debug'}{'spacing'} |
|
892
|
0 |
16 |
if $main::config->{'debug'}{'spacing'} |
|
896
|
120 |
0 |
unless ($elt->{'type'} =~ /^(?:control|set|ignore)$/) |
|
900
|
0 |
48 |
if ($elt->{'type'} eq "songline" or $elt->{'type'} eq "tabline" or $elt->{'type'} =~ /^comment(?:_box|_italic)?$/) |
|
904
|
0 |
72 |
if ($elt->{'context'} ne $curctx) |
|
912
|
72 |
0 |
if ($type eq 'songline') { } |
|
|
0 |
0 |
elsif ($type =~ /^comment/) { } |
|
|
0 |
0 |
elsif ($type eq 'tabline') { } |
|
913
|
0 |
72 |
$curctx eq 'chorus' ? : |
|
924
|
72 |
0 |
if ($elt->{'type'} eq "songline" and not $elt->{'indent'}) |
|
926
|
0 |
72 |
if (@$e > 1) |
|
936
|
0 |
72 |
if $main::config->{'debug'}{'spacing'} |
|
942
|
0 |
72 |
if ($elt->{'context'} eq "chorus") |
|
945
|
0 |
0 |
if ($style->{'bar'}{'offset'} and $style->{'bar'}{'width'}) |
|
954
|
0 |
0 |
unless $main::config->{'settings'}{'choruslabels'} |
|
958
|
0 |
72 |
if ($elt->{'type'} =~ /^comment/ and not $elt->{'indent'}) |
|
961
|
0 |
0 |
if ($elt->{'chords'}) |
|
1007
|
0 |
72 |
if $main::config->{'debug'}{'spacing'} |
|
1009
|
0 |
72 |
if $r |
|
1013
|
0 |
48 |
if ($elt->{'type'} eq "chorus") |
|
1017
|
0 |
0 |
if ($e->{'type'} eq 'songline') { } |
|
|
0 |
0 |
elsif ($e->{'type'} eq 'empty') { } |
|
1034
|
0 |
48 |
if ($elt->{'type'} eq "verse") |
|
1037
|
0 |
0 |
if ($e->{'type'} eq 'songline') { } |
|
|
0 |
0 |
elsif ($e->{'type'} eq 'empty') { } |
|
1054
|
0 |
48 |
if ($elt->{'type'} eq "gridline") |
|
1056
|
0 |
0 |
if $lyrics_only or not $ps->{'grids'}{'show'} |
|
1060
|
0 |
0 |
if $main::config->{'debug'}{'spacing'} |
|
1072
|
0 |
0 |
if $main::config->{'debug'}{'spacing'} |
|
1081
|
0 |
0 |
if $main::config->{'debug'}{'spacing'} |
|
1086
|
0 |
48 |
if ($elt->{'type'} eq "tab") |
|
1091
|
0 |
0 |
unless $e->{'type'} eq "tabline" |
|
1098
|
0 |
48 |
if ($elt->{'type'} eq "tabline") |
|
1102
|
0 |
0 |
if $main::config->{'debug'}{'spacing'} |
|
1107
|
0 |
0 |
if $main::config->{'debug'}{'spacing'} |
|
1112
|
0 |
48 |
if ($elt->{'type'} eq "delegate") |
|
1113
|
0 |
0 |
if ($elt->{'subtype'} =~ /^image(?:-(\w+))?$/) |
|
1117
|
0 |
0 |
unless eval "require $pkg" |
|
1121
|
0 |
0 |
if ($ps->{'columns'} > 1) { } |
|
1130
|
0 |
0 |
unless $res |
|
1137
|
0 |
48 |
if ($elt->{'type'} eq "image") |
|
1145
|
0 |
0 |
if $main::config->{'debug'}{'spacing'} |
|
1152
|
0 |
0 |
unless ($vsp =~ /^\d/) |
|
1161
|
0 |
0 |
if $main::config->{'debug'}{'spacing'} |
|
1166
|
0 |
48 |
if ($elt->{'type'} eq "svg") |
|
1182
|
0 |
0 |
if $main::config->{'debug'}{'svg'} or not @$o |
|
1183
|
0 |
0 |
unless (@$o) |
|
1195
|
0 |
0 |
$i == @$o ? : |
|
1215
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
1221
|
0 |
48 |
if ($elt->{'type'} eq "xform") |
|
1233
|
0 |
0 |
if ($ps->{'columns'} > 1) { } |
|
1243
|
0 |
0 |
if ($w * $scale > $pw) |
|
1246
|
0 |
0 |
if ($h * $scale > $ph) |
|
1256
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
1261
|
0 |
0 |
if $main::config->{'debug'}{'spacing'} |
|
1268
|
0 |
0 |
if $main::config->{'debug'}{'spacing'} |
|
1273
|
0 |
48 |
if ($elt->{'type'} eq "rechorus") |
|
1275
|
0 |
0 |
unless ($t->{'type'} =~ /^comment(?:_italic|_box)?$/) |
|
1279
|
0 |
0 |
if ($t->{'quote'} and $elt->{'chorus'}) { } |
|
|
0 |
0 |
elsif ($elt->{'chorus'} and $elt->{'chorus'}[0]{'type'} eq 'set' and $elt->{'chorus'}[0]{'name'} eq 'label') { } |
|
|
0 |
0 |
elsif ($t->{'tag'} and $t->{'type'} =~ /^comment(?:_(?:box|italic))?/) { } |
|
1286
|
0 |
0 |
if ($main::config->{'settings'}{'choruslabels'}) { } |
|
1293
|
0 |
0 |
if $ps->{'chorus'}{'recall'}{'tag'} ne "" |
|
1308
|
0 |
0 |
if ($ps->{'chorus'}{'recall'}{'choruslike'}) |
|
1317
|
0 |
0 |
if ($ps->{'chorus'}{'recall'}{'choruslike'}) |
|
1324
|
48 |
0 |
if ($elt->{'type'} eq "tocline") |
|
1327
|
0 |
48 |
if $main::config->{'debug'}{'spacing'} |
|
1332
|
0 |
48 |
if $main::config->{'debug'}{'spacing'} |
|
1336
|
0 |
0 |
if ($elt->{'type'} eq "diagrams") |
|
1341
|
0 |
0 |
if ($elt->{'type'} eq "control") |
|
1342
|
0 |
0 |
if ($elt->{'name'} =~ /^(text|chord|chorus|grid|toc|tab)-size$/) { } |
|
|
0 |
0 |
elsif ($elt->{'name'} =~ /^(text|chord|chorus|grid|toc|tab)-font$/) { } |
|
|
0 |
0 |
elsif ($elt->{'name'} =~ /^(text|chord|chorus|grid|toc|tab)-color$/) { } |
|
1343
|
0 |
0 |
if (defined $elt->{'value'}) { } |
|
1351
|
0 |
0 |
unless $ps->{'fonts'}{$1}{'size'} |
|
1356
|
0 |
0 |
if (defined $elt->{'value'}) { } |
|
1359
|
0 |
0 |
if ($fn =~ m[/] or $fn =~ /\.(ttf|otf)$/i) { } |
|
|
0 |
0 |
elsif (is_corefont($fn)) { } |
|
1387
|
0 |
0 |
if (defined $elt->{'value'}) { } |
|
1399
|
0 |
0 |
if ($elt->{'type'} eq "set") |
|
1400
|
0 |
0 |
if ($elt->{'name'} eq 'lyrics-only') { } |
|
|
0 |
0 |
elsif ($elt->{'name'} eq 'gridparams') { } |
|
|
0 |
0 |
elsif ($elt->{'name'} eq 'label') { } |
|
|
0 |
0 |
elsif ($elt->{'name'} eq 'context') { } |
|
|
0 |
0 |
elsif ($elt->{'name'} =~ /^pdf\.(.+)/) { } |
|
1402
|
0 |
0 |
unless $lyrics_only > 1 |
|
1409
|
0 |
0 |
if ($v[1]) { } |
|
1416
|
0 |
0 |
if $v[2] |
|
1417
|
0 |
0 |
if $v[3] |
|
1419
|
0 |
0 |
if ($ps->{'labels'}{'comment'} and $v[4] ne "") |
|
1429
|
0 |
0 |
if ($ps->{'labels'}{'comment'} and $elt->{'value'} ne "") |
|
1454
|
0 |
0 |
if ($elt->{'type'} eq "ignore") |
|
1464
|
0 |
40 |
if ($dctl->{'show'} eq "below") |
|
1471
|
2 |
3 |
if $ps->{'pagealign-songs'} > 1 and $pages % 2 and $opts->{'songindex'} < $opts->{'numsongs'} |
|
1486
|
32 |
10 |
if ($ps->{'even-odd-pages'}) |
|
1490
|
5 |
27 |
if $ps->{'even-odd-pages'} < 0 |
|
1496
|
34 |
8 |
if ($rightpage) { } |
|
1520
|
16 |
26 |
$opts->{'roman'} ? : |
|
1524
|
24 |
18 |
if ($thispage == 1) { } |
|
|
16 |
2 |
elsif ($thispage == $startpage) { } |
|
1535
|
42 |
0 |
if ($ps->{'headspace'}) |
|
1537
|
0 |
42 |
if $main::config->{'debug'}{'meta'} |
|
1544
|
42 |
0 |
if ($ps->{'footspace'}) |
|
1567
|
144 |
0 |
if $label eq "" or $ps->{'_indent'} == 0 |
|
1574
|
0 |
0 |
if ($align eq 'right') { } |
|
|
0 |
0 |
elsif ($align =~ /^cent(?:er|re)$/) { } |
|
1602
|
2 |
290 |
if (@stack) |
|
1608
|
3 |
302 |
if ($a =~ m[^<\s*/\s*(\w+)(.*)>$]) { } |
|
|
6 |
296 |
elsif ($a =~ /^<\s*(\w+)(.*)>$/) { } |
|
1612
|
3 |
0 |
if (@stack) { } |
|
1613
|
3 |
0 |
if ($stack[-1] =~ /^<\s*$k\b/) { } |
|
1634
|
2 |
290 |
if (@stack) |
|
1641
|
0 |
146 |
if (@stack) |
|
1698
|
0 |
72 |
if ($type =~ /^comment/) |
|
1702
|
0 |
0 |
if $opts{'indent'} |
|
1703
|
0 |
0 |
if $elt->{'indent'} |
|
1706
|
0 |
0 |
if ($elt->{'chords'}) |
|
1710
|
0 |
0 |
if ($chord eq '') { } |
|
1720
|
0 |
0 |
$ex ne '' ? : |
|
1724
|
0 |
72 |
if ($type eq "tabline") |
|
1727
|
0 |
0 |
if $opts{'indent'} |
|
1734
|
0 |
72 |
$elt->{'context'} eq 'chorus' ? : |
|
1741
|
0 |
72 |
if ($lyrics_only or $suppress_empty_chordsline and not has_visible_chords($elt)) |
|
1746
|
0 |
0 |
if $opts{'indent'} |
|
1747
|
0 |
0 |
if $elt->{'indent'} |
|
1752
|
0 |
0 |
$ex ne '' ? : |
|
1755
|
0 |
72 |
if ($chordscol or $inlinechords) { } |
|
|
0 |
72 |
elsif ($chordsunder) { } |
|
1756
|
0 |
0 |
if $ytext > $ychord |
|
1772
|
0 |
72 |
if $elt->{'indent'} |
|
1775
|
0 |
72 |
if $chordscol |
|
1776
|
0 |
72 |
if ($chordsx < 0) |
|
1779
|
0 |
72 |
if $opts{'indent'} |
|
1782
|
0 |
72 |
if ($inlinechords) |
|
1783
|
0 |
0 |
unless $inlinechords =~ /%[cs]/ |
|
1794
|
0 |
144 |
if ($chordscol and $chord ne '') { } |
|
1796
|
0 |
0 |
if ($chordscapo) |
|
1807
|
0 |
0 |
if $phrase eq "" |
|
1810
|
0 |
0 |
if defined $pre |
|
1813
|
0 |
0 |
unless defined $rest |
|
1830
|
144 |
0 |
if ($chord ne "") |
|
1833
|
0 |
144 |
if ($chord->info->is_annotation) { } |
|
|
0 |
144 |
elsif ($inlinechords) { } |
|
1835
|
0 |
0 |
if $inlinechords |
|
1847
|
0 |
144 |
if ($inlinechords) { } |
|
1852
|
0 |
144 |
if ($phrase =~ /^\s+$/) { } |
|
1859
|
0 |
144 |
if ($xt0 > $xt1) { } |
|
1861
|
0 |
0 |
if ($i < $n and not demarkup($phrase) =~ /\s$/ and not demarkup($phrases[$i + 1]) =~ /^\s/ and my $marker = $ps->{'split-marker'}) |
|
1871
|
0 |
0 |
unless UNIVERSAL::isa($marker, "ARRAY") |
|
1877
|
0 |
0 |
if $marker->[2] |
|
1882
|
0 |
0 |
unless $m |
|
1887
|
0 |
0 |
unless $m |
|
1890
|
0 |
0 |
if ($w) |
|
1895
|
0 |
0 |
if $xt0 > $x |
|
1906
|
0 |
72 |
if @chords |
|
1914
|
0 |
0 |
if exists $_[0]{'class'} |
|
1929
|
0 |
0 |
unless $fonts->{'grid'} |
|
1943
|
0 |
0 |
unless is_bar($elt->{'tokens'}[$i]) |
|
1952
|
0 |
0 |
if ($margin->[0]) |
|
1954
|
0 |
0 |
if ($elt->{'margin'}) |
|
1956
|
0 |
0 |
if ($t->{'chords'}) |
|
1973
|
0 |
0 |
if ($prevvoltastart and @tokens and $tokens[0]{'class'} eq "bar" and $tokens[0]{'align'}) |
|
1984
|
0 |
0 |
if ($token->{'class'} eq "bar") |
|
1986
|
0 |
0 |
if ($voltastart) |
|
1998
|
0 |
0 |
if $t eq "{" |
|
1999
|
0 |
0 |
if $t eq "}" |
|
2000
|
0 |
0 |
if $t eq "}{" |
|
2004
|
0 |
0 |
if $i > $firstbar |
|
2005
|
0 |
0 |
if $i == $lastbar |
|
2007
|
0 |
0 |
if ($t eq '|') { } |
|
|
0 |
0 |
elsif ($t eq '||') { } |
|
|
0 |
0 |
elsif ($t eq '|:') { } |
|
|
0 |
0 |
elsif ($t eq ':|') { } |
|
|
0 |
0 |
elsif ($t eq ':|:') { } |
|
|
0 |
0 |
elsif ($t eq '|.') { } |
|
|
0 |
0 |
elsif ($t eq ' %') { } |
|
2008
|
0 |
0 |
if ($token->{'volta'}) { } |
|
2009
|
0 |
0 |
if ($align) |
|
2048
|
0 |
0 |
if ($token->{'class'} eq "repeat2") |
|
2062
|
0 |
0 |
if $needcell |
|
2066
|
0 |
0 |
if ($token->{'class'} eq 'chord' or $token->{'class'} eq 'chords') { } |
|
|
0 |
0 |
elsif (exists $token->{'chord'}) { } |
|
|
0 |
0 |
elsif ($token->{'class'} eq 'slash') { } |
|
|
0 |
0 |
elsif ($token->{'class'} eq 'space') { } |
|
|
0 |
0 |
elsif ($token->{'class'} eq 'repeat1') { } |
|
2070
|
0 |
0 |
if $t eq "" |
|
2079
|
0 |
0 |
unless $token->{'class'} eq "chord" |
|
2082
|
0 |
0 |
unless $token eq "." |
|
2104
|
0 |
0 |
if ($x > $ps->{'papersize'}[0]) |
|
2111
|
0 |
0 |
if ($margin->[1] and $elt->{'comment'}) |
|
2113
|
0 |
0 |
if ($t->{'chords'}) |
|
2231
|
0 |
0 |
if ($elt->{'uri'} =~ /^id=(.+)/) { } |
|
|
0 |
0 |
elsif ($elt->{'uri'} =~ /^chord:(.*)/) { } |
|
|
0 |
0 |
elsif (not -s $elt->{'uri'}) { } |
|
2233
|
0 |
0 |
unless (exists $ChordPro::Output::PDF::assets->{$id}) |
|
2234
|
0 |
0 |
unless (exists $main::config->{'assets'}{$id}) |
|
2238
|
0 |
0 |
if ($a->{'src'} and not $a->{'data'}) |
|
2241
|
0 |
0 |
unless ($fd) |
|
2247
|
0 |
0 |
if ($info->{'error'}) |
|
2258
|
0 |
0 |
if ($main::config->{'debug'}{'images'}) |
|
2265
|
0 |
0 |
unless ($ChordPro::Output::PDF::assets->{$id}{'data'}) |
|
2278
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
2280
|
0 |
0 |
unless ($img) |
|
2287
|
0 |
0 |
if ($ps->{'columns'} > 1) { } |
|
2297
|
0 |
0 |
if ($opts->{'width'} and $opts->{'width'} =~ /^(\d+(?:\.\d+)?)\%$/) |
|
2300
|
0 |
0 |
if ($opts->{'height'} and $opts->{'height'} =~ /^(\d+(?:\.\d+)?)\%$/) |
|
2308
|
0 |
0 |
if ($main::config->{'debug'}{'x1'}) { } |
|
2311
|
0 |
0 |
if (defined $opts->{'scale'}) { } |
|
2315
|
0 |
0 |
if ($w > $pw) |
|
2318
|
0 |
0 |
if ($h * $scale > $ph) |
|
2326
|
0 |
0 |
if ($w > $pw) |
|
2329
|
0 |
0 |
if ($h * $scale > $ph) |
|
2332
|
0 |
0 |
if ($opts->{'scale'}) |
|
2338
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
2341
|
0 |
0 |
if ($opts->{'center'}) |
|
2343
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
2347
|
0 |
0 |
if (defined(my $tag = $i_tag // $opts->{'label'})) |
|
2365
|
0 |
0 |
if ($_ox =~ /^([-+]?[\d.]+)\%$/) |
|
2368
|
0 |
0 |
if ($_oy =~ /^([-+]?[\d.]+)\%$/) |
|
2371
|
0 |
0 |
if ($mirror) |
|
2372
|
0 |
0 |
if $_ox =~ /^-/ |
|
2373
|
0 |
0 |
if $_oy =~ /^-/ |
|
2377
|
0 |
0 |
if ($anchor eq 'column') { } |
|
|
0 |
0 |
elsif ($anchor eq 'page') { } |
|
|
0 |
0 |
elsif ($anchor eq 'paper') { } |
|
2396
|
0 |
0 |
if defined $ox |
|
2397
|
0 |
0 |
if defined $oy |
|
2398
|
0 |
0 |
if (ref $img eq 'placeholder') { } |
|
2403
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
2413
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
2417
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
2419
|
0 |
0 |
if ($anchor eq "float") |
|
2431
|
0 |
0 |
if ($elt->{'uri'} =~ /^id=(.+)/) { } |
|
|
0 |
0 |
elsif (not -s $elt->{'uri'}) { } |
|
2433
|
0 |
0 |
unless exists $ChordPro::Output::PDF::assets->{$1} |
|
2439
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
2441
|
0 |
0 |
unless ($img) |
|
2453
|
0 |
0 |
if (defined $opts->{'scale'}) { } |
|
2457
|
0 |
0 |
if ($w > $pw) |
|
2460
|
0 |
0 |
if ($h * $scale > $ph) |
|
2464
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
2467
|
0 |
0 |
if ($opts->{'center'}) |
|
2469
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
2472
|
0 |
0 |
if (defined(my $tag = $i_tag // $opts->{'label'})) |
|
2479
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
2481
|
0 |
0 |
if $main::config->{'debug'}{'images'} |
|
2499
|
48 |
0 |
unless ($vsp) |
|
2514
|
144 |
0 |
if ($elt->{'chords'}) |
|
2516
|
288 |
0 |
if defined $_ |
|
2526
|
0 |
0 |
if $elt->{'phrases'} |
|
2535
|
0 |
72 |
if ($elt->{'type'} =~ /^comment/) |
|
2539
|
0 |
72 |
if ($elt->{'type'} eq "tabline") |
|
2549
|
0 |
72 |
if $lyrics_only or $chordscol |
|
2551
|
0 |
72 |
if $suppress_empty_chordsline and not has_visible_chords($elt) |
|
2554
|
0 |
72 |
if $suppress_empty_lyricsline and not join("", @{$elt->{'phrases'};}) =~ /\S/ |
|
2556
|
0 |
72 |
if ($inlinechords) { } |
|
2557
|
0 |
0 |
if $csp > $vsp |
|
2573
|
0 |
184 |
unless $font->{'size'} |
|
2594
|
0 |
72 |
$elt->{'context'} eq 'chorus' ? : |
|
2605
|
0 |
72 |
$elt->{'context'} eq 'chorus' ? : |
|
2611
|
0 |
40 |
if (ref $cols eq "ARRAY") |
|
2615
|
40 |
0 |
if ($cols) { } |
|
2626
|
0 |
40 |
if (@cols) |
|
2630
|
0 |
0 |
if (not $_ or $_ eq '*') { } |
|
|
0 |
0 |
elsif (/^(\d+)%$/) { } |
|
2640
|
0 |
0 |
if $stars |
|
2643
|
0 |
0 |
if (not $_ or $_ eq '*') { } |
|
2655
|
40 |
0 |
unless $cols > 1 |
|
2721
|
0 |
0 |
if $chordscol |
|
2727
|
0 |
0 |
unless $off[$i] |
|
2736
|
0 |
0 |
if ($ps->{'_indent'}) |
|
2741
|
0 |
0 |
if ($ps->{'_indent'}) |
|
2753
|
0 |
11 |
if ($ENV{'CHORDPRO_PDF_API'}) |
|
2757
|
0 |
11 |
if ($lib) { } |
|
2758
|
0 |
0 |
unless (eval "require $lib") |
|
2762
|
0 |
0 |
if $verbose |
|
2766
|
0 |
11 |
unless eval "require $_" |
|
2768
|
0 |
11 |
if $verbose |
|
2772
|
0 |
11 |
unless $pdfapi |
|
2792
|
16 |
0 |
unless $_ |
|
2793
|
0 |
0 |
if (m[/]) { } |
|
2797
|
0 |
0 |
unless is_corefont($_) |
|
2803
|
0 |
16 |
if $_ |
|
2808
|
0 |
8 |
if $_ |
|
2811
|
8 |
0 |
unless $_ |
|
2816
|
8 |
0 |
unless defined $_ |
|
2822
|
8 |
0 |
unless defined $_ |
|
2826
|
8 |
0 |
unless defined $_ |
|
2831
|
0 |
8 |
if ($main::options->{'chord-grid-size'}) |
|
2840
|
8 |
0 |
unless (eval {
do {
$pdf->{'papersize'}[0]
}
}) |
|
2844
|
0 |
8 |
unless exists $ps{lc $pdf->{'papersize'}} |
|
2852
|
96 |
312 |
if /^(?:background|frame)$/ |
|
2884
|
48 |
126 |
unless exists $ps->{'formats'}{$classes[$i]}{$type} |
|
2895
|
0 |
126 |
unless $fmt |
|
2896
|
126 |
0 |
if (@$fmt == 3 and ref $fmt->[0] ne "ARRAY") |
|
2907
|
0 |
126 |
if (@$fmt % 3) |
|
2912
|
24 |
102 |
unless $rightpage |
|
2915
|
5 |
121 |
if ($fmt[0]) |
|
2917
|
5 |
0 |
if ($t ne "") |
|
2918
|
5 |
0 |
unless $havefont++ |
|
2924
|
80 |
46 |
if ($fmt[1]) |
|
2926
|
40 |
40 |
if ($t ne "") |
|
2927
|
40 |
0 |
unless $havefont++ |
|
2933
|
15 |
111 |
if ($fmt[2]) |
|
2935
|
15 |
0 |
if ($t ne "") |
|
2936
|
13 |
2 |
unless $havefont++ |
|
2964
|
72 |
72 |
if (@rchords and $chord) |
|
2968
|
0 |
72 |
if ($c =~ /^\*(.+)/) { } |
|
2976
|
0 |
72 |
if ($w > $m - $x) |
|
2982
|
144 |
0 |
if ($ex eq "") |
|
2991
|
0 |
144 |
if ($w > $m - $x and @rchords > 1) { } |
|
3002
|
0 |
144 |
if ($ex ne "") |
|
3003
|
0 |
0 |
if ($rphrases[-1] =~ /[[:alpha:]]$/ and $ex =~ /^[[:alpha:]]/ and $chord ne "") |
|
3013
|
0 |
0 |
if @$res > 1 |
|
3019
|
0 |
72 |
if @$res > 1 |
|
3025
|
0 |
0 |
unless length $text |
|
3085
|
0 |
0 |
if ($family =~ /^pdf\.fonts\.(.*)/) |
|
3087
|
0 |
0 |
if ($try) |
|
3090
|
0 |
0 |
if $main::config->{'debug'}{'svg'} |
|
3107
|
0 |
0 |
if ($try) { } |
|
3111
|
0 |
0 |
if $main::config->{'debug'}{'svg'} |
|
3126
|
0 |
0 |
if (@t == 1) |
|
3137
|
0 |
0 |
if ($has_sharp and $has_flat) |
|
3149
|
0 |
0 |
unless $this eq $font |
|
3152
|
0 |
0 |
unless $fs |
|
3155
|
0 |
0 |
$fs eq "\x{266d}" ? : |
|
3161
|
0 |
0 |
unless $main::config->{'debug'}{'fonts'} |
|
3164
|
0 |
0 |
if $verbose |