| line |
true |
false |
branch |
|
77
|
0 |
0 |
if $AUTOLOAD =~ /\bDESTROY$/
|
|
257
|
0 |
4 |
unless defined $rlist
|
|
261
|
5 |
0 |
if Perl::Tidy::Tokenizer::is_valid_token_type($item)
|
|
262
|
0 |
0 |
if Perl::Tidy::Tokenizer::is_keyword($item)
|
|
265
|
4 |
0 |
unless @unknown_items
|
|
267
|
0 |
0 |
if ($option_name)
|
|
274
|
0 |
0 |
if $die_on_error
|
|
292
|
0 |
654 |
if (not $rOpts->{'valign-exclusion-list'} and $rOpts->{'valign-inclusion-list'})
|
|
299
|
3 |
654 |
if ($rOpts->{'valign-exclusion-list'})
|
|
302
|
1 |
2 |
if ($rOpts->{'valign-inclusion-list'})
|
|
316
|
0 |
3 |
unless (@vxl)
|
|
323
|
1 |
2 |
if (defined $valign_control_hash{'*'})
|
|
329
|
3 |
0 |
if (%valign_control_hash)
|
|
374
|
0 |
0 |
if ($exact_match)
|
|
375
|
0 |
0 |
if ($error)
|
|
397
|
1310 |
6 |
unless %valign_control_hash
|
|
399
|
6 |
0 |
unless defined $align_ok
|
|
411
|
0 |
658 |
if (@arglist % 2)
|
|
476
|
540 |
1771 |
if @{$self->[13];}
|
|
517
|
0 |
0 |
if ($diagnostics_object)
|
|
526
|
0 |
0 |
if ($logger_object)
|
|
534
|
0 |
1 |
get_cached_line_type() ? :
|
|
545
|
264 |
4384 |
ref $indentation ? :
|
|
714
|
392 |
8118 |
ref $indentation ? :
|
|
729
|
50 |
8460 |
if $is_hanging_side_comment
|
|
735
|
717 |
7793 |
if ($is_block_comment) { }
|
|
744
|
78 |
7715 |
if ($self->[12] > 1)
|
|
752
|
46 |
8464 |
if ($forget_side_comment)
|
|
772
|
227 |
8283 |
if ($cached_line_type)
|
|
774
|
157 |
70 |
if ($rvertical_tightness_flags)
|
|
776
|
4 |
137 |
if ($cached_seqno and $rvertical_tightness_flags->{'_vt_seqno'} and $rvertical_tightness_flags->{'_vt_seqno'} == $cached_seqno)
|
|
788
|
4 |
0 |
unless $min_lines
|
|
789
|
4 |
0 |
unless $max_lines
|
|
790
|
3 |
1 |
if ($line_count >= $min_lines and $line_count <= $max_lines)
|
|
801
|
0 |
11 |
if ($cached_line_type == 3 and not $self->group_line_count and $cached_line_opening_flag < 2 and not $is_balanced_line)
|
|
811
|
0 |
8510 |
if ($level < 0)
|
|
816
|
15 |
5241 |
if ($level != $group_level or $group_maximum_line_length and $maximum_line_length != $group_maximum_line_length or $is_outdented or $is_block_comment and not $rOpts_valign_block_comments or not $is_block_comment || $rOpts_valign_side_comments || $rOpts_valign_code)
|
|
829
|
1084 |
2185 |
if @{$self->[13];}
|
|
837
|
187 |
3082 |
ref $indentation ? :
|
|
844
|
599 |
7911 |
if ($self->[15] eq "COMMENT")
|
|
845
|
90 |
509 |
if ($is_block_comment and $outdent_long_lines and $leading_space_count == $self->[19]) { }
|
|
858
|
509 |
0 |
if @{$self->[13];}
|
|
863
|
30 |
8390 |
if ($break_alignment_before and @{$rgroup_lines;})
|
|
872
|
13 |
8407 |
if ($is_terminal_ternary and @{$rgroup_lines;})
|
|
893
|
9 |
3 |
if ($rfields->[0] eq "else " and @{$rgroup_lines;} and $is_balanced_line)
|
|
912
|
4874 |
3546 |
if ($jmax <= 0) { }
|
|
919
|
388 |
4445 |
if (not $is_numeric and @{$rgroup_lines;} and not get_recoverable_spaces($rgroup_lines->[0]{'indentation'}))
|
|
926
|
352 |
36 |
if ($rgroup_lines->[0]{'jmax'} > 1 or $self->[17] > 3)
|
|
930
|
352 |
0 |
if @{$self->[13];}
|
|
939
|
596 |
31 |
if ($is_block_comment and $outdent_long_lines and not @{$rgroup_lines;})
|
|
954
|
4187 |
1 |
unless (@{$rgroup_lines;} or $is_numeric or get_recoverable_spaces($indentation))
|
|
984
|
3289 |
348 |
if ($jmax == 0 or $$rtokens[$jmax - 1] ne "#")
|
|
1035
|
1161 |
2476 |
if $list_seqno
|
|
1045
|
20 |
3617 |
if (defined $j_terminal_match) { }
|
|
|
144 |
3473 |
elsif ($level_end < $level or $is_closing_token{substr $rfields->[0], 0, 1}) { }
|
|
1047
|
20 |
0 |
if @{$self->[13];}
|
|
1055
|
144 |
0 |
if @{$self->[13];}
|
|
1095
|
0 |
38 |
unless $jmax == 1
|
|
1099
|
0 |
38 |
unless $rtokens->[0] eq "#"
|
|
1103
|
0 |
38 |
unless $rfields->[0] =~ /^\s*$/
|
|
1107
|
35 |
3 |
if $maximum_field_index <= $jmax
|
|
1149
|
1040 |
165 |
if ($is_comma_token{$raw_tok})
|
|
1156
|
26 |
1051 |
unless ($is_comma_token{$raw_tok})
|
|
1188
|
0 |
13 |
unless $old_line
|
|
1191
|
0 |
13 |
if (%valign_control_hash)
|
|
1193
|
0 |
0 |
unless defined $align_ok
|
|
1194
|
0 |
0 |
unless $align_ok
|
|
1213
|
13 |
1 |
if ($raw_tok eq "?")
|
|
1217
|
0 |
13 |
if $depth_question ne $group_level
|
|
1220
|
13 |
0 |
if ($$rfields_old[$j + 1] =~ /^(\?\s*)/) { }
|
|
1230
|
0 |
13 |
unless defined $jquestion
|
|
1255
|
13 |
0 |
if ($fields[0] =~ /^(:\s*)(.*)$/) { }
|
|
1264
|
13 |
0 |
if ($therest) { }
|
|
1278
|
0 |
13 |
unless $patterns[0] =~ s/^\:/?/
|
|
1285
|
1 |
12 |
if $jadd
|
|
1286
|
1 |
12 |
if $jadd
|
|
1296
|
0 |
0 |
if $jmax <= 0 or $tokens[0] eq "#"
|
|
1309
|
0 |
0 |
if $jadd
|
|
1310
|
0 |
0 |
if $jadd
|
|
1329
|
0 |
0 |
if $jadd
|
|
1330
|
0 |
0 |
if $jadd
|
|
1370
|
0 |
9 |
unless $old_line
|
|
1372
|
0 |
9 |
if $jmax <= 0
|
|
1374
|
0 |
9 |
if (%valign_control_hash)
|
|
1376
|
0 |
0 |
unless defined $align_ok
|
|
1377
|
0 |
0 |
unless $align_ok
|
|
1384
|
2 |
7 |
unless $rfields_old->[0] =~ /^(?:if|elsif|unless)\s*$/
|
|
1389
|
7 |
0 |
if ($tok_brace =~ /^\{(\d+)/) { }
|
|
1402
|
0 |
7 |
if ($tok_test ne $tok_paren)
|
|
1411
|
7 |
1 |
if ($tok eq $tok_brace)
|
|
1416
|
0 |
7 |
unless (defined $jbrace)
|
|
1431
|
0 |
7 |
if ($rfields_old->[0] =~ /^case\s*$/) { }
|
|
1484
|
102 |
1228 |
if ($jmax > $maximum_field_index)
|
|
1488
|
38 |
1292 |
if ($new_line->{'is_hanging_side_comment'}) { }
|
|
1498
|
0 |
1292 |
if ($base_line->{'is_hanging_side_comment'}) { }
|
|
1522
|
0 |
1292 |
if ($ci_prev != $ci_new and $imax_align >= 0 and $ci_new == 0 || $group_line_count > 1) { }
|
|
|
39 |
1253 |
elsif ($imax_align != $jlimit) { }
|
|
1541
|
1291 |
39 |
unless (defined $return_value)
|
|
1545
|
142 |
1149 |
if ($maximum_field_index != $jmax) { }
|
|
|
1135 |
14 |
elsif ($self->check_fit($new_line, $base_line) and !0) { }
|
|
1598
|
0 |
1149 |
if ($jmax_old ne $jmax)
|
|
1618
|
1149 |
2894 |
if ($j == 0)
|
|
1623
|
1330 |
2713 |
if $pad < 0
|
|
1626
|
14 |
2699 |
if ($pad > $padding_available)
|
|
1704
|
10 |
0 |
if ($rOpts_indent_columns)
|
|
1709
|
0 |
10 |
if ($level < 0)
|
|
1725
|
0 |
596 |
unless @{$rgroup_lines;}
|
|
1736
|
39 |
647 |
if ($excess > $max_excess)
|
|
1742
|
37 |
559 |
if ($max_excess > 0)
|
|
1744
|
37 |
0 |
if ($leading_space_count < 0)
|
|
1752
|
19 |
18 |
unless ($outdented_line_count)
|
|
1800
|
0 |
2649 |
unless @{$rgroup_lines;}
|
|
1815
|
596 |
2053 |
if ($group_type eq "COMMENT")
|
|
1837
|
301 |
1752 |
if @{$rgroups;} > 1
|
|
1840
|
222 |
1831 |
if ($saw_side_comment)
|
|
1852
|
1031 |
1022 |
if ($group_level > $self->[4])
|
|
1855
|
678 |
353 |
if (defined $level_jump) { }
|
|
1867
|
444 |
1609 |
$extra_indent_ok ? :
|
|
1873
|
70 |
1983 |
if $saw_signed_number and $rOpts_valign_signed_numbers
|
|
1877
|
12 |
2041 |
if $rOpts_valign_wide_equals
|
|
1904
|
94 |
1959 |
if (ref $object)
|
|
1933
|
2502 |
1135 |
if ($group_line_count == 0) { }
|
|
1948
|
0 |
1505 |
unless @{$rgroups;}
|
|
1949
|
0 |
1505 |
if $group_line_count <= 0
|
|
1962
|
0 |
2521 |
unless @{$rgroups;}
|
|
1963
|
19 |
2502 |
if $group_line_count <= 0
|
|
1970
|
295 |
2207 |
if ($jend - $jbeg == 1)
|
|
1975
|
0 |
295 |
if ($imax_pair > $imax_align)
|
|
1983
|
76 |
219 |
$jbeg > 0 ? :
|
|
1988
|
16 |
279 |
if ($is_marginal)
|
|
2001
|
0 |
1 |
if @{$rgroups;} <= 1
|
|
2032
|
0 |
2053 |
unless (@{$rlines;})
|
|
2047
|
2132 |
1505 |
unless ($group_line_count)
|
|
2049
|
26 |
2106 |
if ($new_line->{'end_group'})
|
|
2057
|
0 |
1505 |
unless (defined $jbeg)
|
|
2073
|
19 |
1486 |
if (defined $j_terminal_match)
|
|
2081
|
0 |
19 |
unless defined $col_matching_terminal
|
|
2104
|
38 |
1467 |
if ($new_line->{'is_hanging_side_comment'}) { }
|
|
|
247 |
1220 |
elsif ($new_line->{'jmax'} == 1) { }
|
|
2123
|
202 |
45 |
unless ($side_comment and $prev_comment)
|
|
2132
|
175 |
27 |
if not $is_numeric or $side_comment
|
|
2142
|
1330 |
175 |
if ($group_line_count)
|
|
2147
|
195 |
1135 |
if ($match_code != 2)
|
|
2153
|
19 |
1486 |
if (defined $j_terminal_match) { }
|
|
|
53 |
1433 |
elsif ($new_line->{'end_group'}) { }
|
|
2164
|
3 |
16 |
if ($group_line_count == 1)
|
|
2166
|
2 |
1 |
unless ($fixit)
|
|
2167
|
2 |
0 |
if (@{$rgroups;} > 1)
|
|
2175
|
2 |
17 |
if ($fixit)
|
|
2181
|
0 |
2 |
unless defined $col_now
|
|
2186
|
1 |
1 |
if ($col_now and $pad > 0 and $pad <= $padding_available)
|
|
2192
|
1 |
1 |
unless ($new_line->{'is_terminal_ternary'})
|
|
2246
|
0 |
21 |
if $imax_min >= @{$rfield_lengths;} or $imax_min >= @{$rfield_lengths_m;}
|
|
2255
|
12 |
9 |
$lensum >= $lensum_m ? :
|
|
2259
|
17 |
0 |
if ($line_m->{'list_type'} and $line->{'list_type'})
|
|
2268
|
0 |
47 |
if ($pat_m ne $pat and length $pat_m eq length $pat)
|
|
2273
|
2 |
45 |
if ($pat ne $pat_m)
|
|
2278
|
0 |
21 |
if (not $patterns_match and $lenmax > 2 * $lenmin)
|
|
2312
|
0 |
301 |
if $ng_max <= 0
|
|
2369
|
0 |
750 |
unless defined $istop
|
|
2370
|
0 |
750 |
if $istop > $imax
|
|
2373
|
301 |
449 |
if $ng == 0
|
|
2376
|
107 |
342 |
$imax > $imax_m ? :
|
|
2379
|
65 |
384 |
if ($istop_m < $imax_min)
|
|
2387
|
79 |
172 |
if ($jend == $jbeg and $jend_m == $jbeg_m and $ng == 1 || $istop_mm < 0 and $ng == $ng_max || $istop < 0 and not $line->{'j_terminal_match'} and $imax != $imax_m || $istop_m != $imax_m)
|
|
2403
|
53 |
26 |
if $imax_min < 0
|
|
2405
|
5 |
17 |
unless $rtokens->[0] =~ /^=\d/ or $list_type
|
|
2413
|
0 |
21 |
unless $pad_max
|
|
2420
|
98 |
293 |
if ($imax_min >= 0)
|
|
2424
|
0 |
175 |
if $tok ne $tok_m
|
|
2429
|
226 |
75 |
unless @icommon
|
|
2437
|
0 |
146 |
unless $Perl::Tidy::VerticalAligner::a->[0] <=> $Perl::Tidy::VerticalAligner::b->[0]
|
|
2451
|
38 |
62 |
if (defined $ng_last and $ng_beg == $ng_last and $i == $i_last)
|
|
2531
|
12 |
128 |
if not defined $ngb or $nge <= $ngb
|
|
2538
|
93 |
198 |
if ($move > 0) { }
|
|
|
0 |
198 |
elsif ($move < 0) { }
|
|
2544
|
0 |
22 |
if defined $rmax_move->{$ng} and $move > $rmax_move->{$ng} and not $is_good_alignment_token{$raw_tok}
|
|
2583
|
0 |
137 |
if $ng_end <= $ng_beg
|
|
2616
|
137 |
175 |
unless (defined $col_want)
|
|
2673
|
56 |
119 |
if ($top_level and $is_good_alignment_token{$raw_tok}) { }
|
|
2680
|
107 |
7 |
if (defined $is_good_alignment_token{$raw_tok} and $lines_total > 2 || $group_list_type && $jmax < $jmax_m && $top_level)
|
|
2698
|
71 |
36 |
if ($top_level)
|
|
2705
|
146 |
29 |
unless ($is_same_group)
|
|
2717
|
0 |
175 |
if ($is_big_gap)
|
|
2722
|
0 |
163 |
if ($col_want > $col_max or $col > $col_limit or $is_big_gap or $is_blocked)
|
|
2729
|
10 |
2 |
unless (defined $blocking_level[$ng])
|
|
2757
|
49 |
114 |
if ($col > $col_want)
|
|
2758
|
47 |
116 |
if ($col_max < $col_limit)
|
|
2762
|
128 |
9 |
if ($ng_end > $ng_first)
|
|
2792
|
0 |
543 |
unless defined $line_obj and defined $ridel and @{$ridel;}
|
|
2836
|
848 |
893 |
if (not $delete_me{$j}) { }
|
|
2843
|
543 |
350 |
unless (defined $jmin_del)
|
|
2864
|
1 |
542 |
if (defined $j_terminal_match and $jmin_del <= $j_terminal_match)
|
|
2869
|
76 |
467 |
if ($line_obj->{'list_seqno'})
|
|
2878
|
49 |
27 |
if ($rtokens_new->[0] =~ /^(=>|,)/)
|
|
2881
|
44 |
32 |
if (not $old_list_type or $old_list_type ne $new_list_type)
|
|
2941
|
9284 |
1683 |
if (defined $decoded_token{$tok})
|
|
2946
|
1322 |
361 |
if ($tok =~ /^(\D+)(\d+)([^\.]*)(\.(\d+))?$/)
|
|
2949
|
509 |
813 |
if $3
|
|
2950
|
71 |
1251 |
if $5
|
|
2975
|
0 |
2053 |
unless @{$rlines;}
|
|
2978
|
1373 |
680 |
if (@{$rlines;} == 1)
|
|
2995
|
1 |
679 |
if $jmax < 0
|
|
3011
|
79 |
1458 |
if ($rnew_lines->[$jl]{'end_group'})
|
|
3029
|
174 |
505 |
if $max_lev_diff
|
|
3075
|
3887 |
2216 |
if ($tok ne '#') { }
|
|
3076
|
2048 |
1839 |
if (not defined $lev_min) { }
|
|
3081
|
84 |
1755 |
if ($lev < $lev_min)
|
|
3082
|
305 |
1534 |
if ($lev > $lev_max)
|
|
3086
|
2009 |
207 |
unless ($saw_side_comment)
|
|
3098
|
637 |
5466 |
if (not defined $i_eq and $raw_tok eq "=")
|
|
3100
|
520 |
117 |
if ($lev eq $group_level)
|
|
3110
|
2048 |
168 |
if (defined $lev_min)
|
|
3112
|
182 |
1866 |
if ($lev_diff > $max_lev_diff)
|
|
3128
|
3118 |
561 |
if (defined $rhash_r->{$tok})
|
|
3133
|
1581 |
1537 |
if ($tok ne "#")
|
|
3142
|
39 |
1498 |
if ($nr == 0 and $nl > 0)
|
|
3163
|
268 |
1269 |
if (defined $i_eq_l and defined $i_eq_r)
|
|
3169
|
13 |
250 |
if ($tok_eq_l eq $tok_eq_r and $i_eq_l == 0 and $i_eq_r == 0 and substr($pat_eq_l, 0, 1) ne substr($pat_eq_r, 0, 1) || $ci_jump)
|
|
3231
|
357 |
401 |
if ($nlines > 2)
|
|
3238
|
3618 |
675 |
unless ($seen{$tok})
|
|
3246
|
659 |
437 |
if ($token_line_count{$tok} == $nlines)
|
|
3247
|
23 |
636 |
if (substr($tok, 0, 1) eq "?" or substr($tok, 0, 1) eq "{" and $tok =~ /^\{\d+if/)
|
|
3276
|
0 |
3887 |
if $tok eq "#"
|
|
3289
|
49 |
3838 |
if (%valign_control_hash)
|
|
3291
|
32 |
17 |
unless defined $align_ok
|
|
3302
|
163 |
3724 |
if ($dividing_token)
|
|
3303
|
132 |
31 |
if ($token_line_count{$tok} >= $nlines) { }
|
|
3326
|
334 |
3553 |
if (defined $delete_above_level)
|
|
3327
|
160 |
174 |
if ($lev > $delete_above_level) { }
|
|
3337
|
62 |
17 |
if ($deleted_assignment_token and $lev > $group_level || !$is_if_or{$raw_tok})
|
|
3352
|
18 |
1293 |
if $jj == $jbeg and $has_terminal_match and $nlines == 2
|
|
3358
|
840 |
3047 |
if ($delete_me and $tok_count == 1)
|
|
3363
|
305 |
535 |
if ($raw_tok eq ",")
|
|
3366
|
15 |
290 |
if defined $i_eq and $i < $i_eq
|
|
3370
|
80 |
225 |
if $lev <= $group_level
|
|
3374
|
136 |
704 |
if ($is_assignment{$raw_tok} and $lev == $group_level)
|
|
3381
|
13 |
123 |
if ($imax > 0 and $i == $imax) { }
|
|
3397
|
778 |
3109 |
if ($delete_me)
|
|
3401
|
618 |
160 |
if (not defined $delete_above_level or $lev < $delete_above_level)
|
|
3410
|
55 |
563 |
if ($raw_tok eq "=>")
|
|
3418
|
483 |
1733 |
if (@idel)
|
|
3461
|
101 |
657 |
if $nlines <= 1
|
|
3484
|
1942 |
173 |
unless ($saw_signed_number)
|
|
3488
|
3683 |
954 |
if (index($rpatterns->[$i], "n") == -1)
|
|
3490
|
72 |
882 |
if (index($field, "-") != -1 or index($field, "+") != -1)
|
|
3500
|
657 |
1458 |
if $jj == $jbeg
|
|
3504
|
102 |
1356 |
$imax_m < $imax ? :
|
|
3513
|
0 |
1458 |
if ($line->{'is_hanging_side_comment'}) { }
|
|
|
526 |
932 |
elsif ($list_type and $list_type eq $list_type_m) { }
|
|
3525
|
0 |
526 |
if ($ci_jump)
|
|
3531
|
0 |
1049 |
if ($tok ne $tok_m)
|
|
3548
|
32 |
891 |
if ($tok ne $tok_m)
|
|
3557
|
200 |
691 |
if ($pat_m ne $pat)
|
|
3563
|
188 |
703 |
if ($pat_m ne $pat)
|
|
3576
|
7 |
181 |
if ($match_code)
|
|
3577
|
6 |
1 |
if ($match_code == 1) { }
|
|
|
1 |
0 |
elsif ($match_code == 2) { }
|
|
3598
|
26 |
653 |
if (@{$rlines;} > @{$rnew_lines;})
|
|
3601
|
41 |
58 |
if ($line_t->{'is_hanging_side_comment'}) { }
|
|
3651
|
26 |
162 |
if ($alignment_token eq ',') { }
|
|
|
3 |
159 |
elsif ($alignment_token eq '(') { }
|
|
|
20 |
139 |
elsif ($alignment_token eq '=') { }
|
|
3655
|
3 |
23 |
if (not $tok =~ /[A-Za-z]/) { }
|
|
3670
|
3 |
0 |
if ($pad != 0) { }
|
|
3693
|
0 |
20 |
if (substr($pat_m, 0, 1) ne substr($pat, 0, 1)) { }
|
|
|
1 |
19 |
elsif ((index($pat_m, ',') != -1) ne (index($pat, ',') != -1)) { }
|
|
3720
|
1 |
0 |
if ($lev eq $group_level)
|
|
3752
|
181 |
664 |
if ($str =~ /^=>([^\.]*)/)
|
|
3786
|
703 |
1135 |
if $tok eq "#"
|
|
3787
|
90 |
1045 |
if ($i > 0 and $lev < $last_lev)
|
|
3790
|
87 |
616 |
unless ($is_monotonic)
|
|
3819
|
146 |
557 |
if ($all_monotonic and $tok_end =~ /^,/)
|
|
3833
|
703 |
1042 |
if $i > $imax
|
|
3834
|
0 |
1042 |
if $tok eq "#"
|
|
3838
|
0 |
1042 |
if $tok eq "#"
|
|
3841
|
591 |
451 |
if (not defined $lev_min) { }
|
|
3846
|
60 |
391 |
if ($lev < $lev_min)
|
|
3847
|
140 |
311 |
if ($lev > $lev_max)
|
|
3848
|
90 |
361 |
if ($lev < $last_lev)
|
|
3857
|
112 |
591 |
if (not defined $lev_min) { }
|
|
|
400 |
191 |
elsif ($lev_max == $lev_min) { }
|
|
3880
|
191 |
598 |
if $itok > $imax
|
|
3883
|
0 |
598 |
if $raw_tok eq "#"
|
|
3885
|
323 |
315 |
if $lev > $lev_test
|
|
3922
|
0 |
174 |
if $jmax <= 0
|
|
3987
|
138 |
36 |
if $all_monotonic
|
|
4040
|
93 |
252 |
if $depth > $MAX_DEPTH
|
|
4043
|
71 |
6 |
if ($jl >= 0 and defined $match_tree[$depth] and @{$match_tree[$depth];} and defined $levels_current[$depth])
|
|
4053
|
77 |
175 |
if (defined $match_tree[$depth])
|
|
4066
|
127 |
125 |
if (not defined $levels_next[$depth] or $depth > 0 and $levels_next[$depth] <= $levels_next[$depth - 1])
|
|
4104
|
5 |
241 |
if (@{$rlevs;} > $MAX_DEPTH)
|
|
4110
|
340 |
398 |
defined $item ? :
|
|
4112
|
340 |
398 |
defined $item ? :
|
|
4119
|
36 |
210 |
if ($jp == 0) { }
|
|
|
11 |
199 |
elsif ($rlines->[$jm]{'end_group'}) { }
|
|
|
0 |
199 |
elsif ($rlines->[$jp]{'is_hanging_side_comment'}) { }
|
|
4141
|
152 |
4 |
unless $def_current or $def_next
|
|
4142
|
46 |
215 |
if (not $def_current && $def_next or $token_patterns_current[$dep] ne $token_patterns_next[$dep])
|
|
4148
|
23 |
23 |
if ($dep > 0 and defined $match_tree[$dep - 1])
|
|
4169
|
35 |
37 |
unless defined $match_tree[$depth]
|
|
4174
|
0 |
55 |
unless (defined $np)
|
|
4180
|
40 |
15 |
if (not defined $np_now or $np != $np_now)
|
|
4207
|
36 |
0 |
if (defined $match_tree[0])
|
|
4212
|
36 |
65 |
unless @todo_list
|
|
4221
|
63 |
40 |
unless defined $nc_beg_p
|
|
4240
|
26 |
14 |
if ($nmin_mono > $nlines_p - 1)
|
|
4243
|
36 |
4 |
if ($nmin_non_mono > $nlines_p - 1)
|
|
4254
|
1 |
54 |
$is_monotonic ? :
|
|
4255
|
22 |
33 |
if ($nlines_c < $nmin) { }
|
|
4282
|
83 |
69 |
if ($lev > $level_keep)
|
|
4286
|
28 |
0 |
if (@idel)
|
|
4304
|
0 |
0 |
unless defined $val
|
|
4346
|
127 |
162 |
if (defined $line_1->{'j_terminal_match'} or $line_0->{'list_type'} or $line_1->{'is_hanging_side_comment'})
|
|
4386
|
185 |
30 |
if ($raw_tok and $lev == $group_level)
|
|
4387
|
149 |
36 |
unless ($raw_tokb)
|
|
4400
|
154 |
61 |
if ($j == 0)
|
|
4405
|
92 |
62 |
if ($raw_tok eq "=" and $lev == $group_level)
|
|
4409
|
5 |
87 |
if $j0_max_pad < 4
|
|
4413
|
52 |
163 |
if ($pad < 0)
|
|
4414
|
116 |
99 |
if ($pad > $max_pad)
|
|
4415
|
157 |
58 |
if ($is_good_marginal_alignment{$raw_tok} and not $line_ending_fat_comma) { }
|
|
4421
|
49 |
9 |
unless defined $jfirst_bad
|
|
4425
|
3 |
212 |
if ($pat_0 ne $pat_1 and length $pat_0 eq length $pat_1)
|
|
4429
|
45 |
170 |
if ($pat_0 ne $pat_1)
|
|
4435
|
24 |
21 |
unless defined $jfirst_bad
|
|
4436
|
44 |
1 |
if $is_marginal == 0
|
|
4437
|
13 |
32 |
if ($raw_tok eq "=")
|
|
4452
|
0 |
162 |
if $is_marginal == 0 and $line_ending_fat_comma
|
|
4465
|
25 |
6 |
if ($is_marginal == 1 and $saw_good_alignment || $max_pad < 3)
|
|
4475
|
0 |
162 |
if ($jmax_0 < 1 or $jmax_1 < 1) { }
|
|
4486
|
39 |
104 |
unless ($is_marginal or $sc_term0)
|
|
4492
|
1 |
38 |
if ($is_assignment{$raw_tokb})
|
|
4509
|
141 |
21 |
unless ($is_marginal)
|
|
4540
|
14 |
7 |
if ($is_assignment{$raw_tokb}) { }
|
|
|
0 |
7 |
elsif ($raw_tokb eq '=>') { }
|
|
|
0 |
7 |
elsif ($raw_tokb eq '=~') { }
|
|
4544
|
13 |
1 |
if ($sc_term0)
|
|
4557
|
0 |
0 |
if ($sc_term1 and $sc_term0)
|
|
4578
|
5 |
16 |
if ($saw_if_or)
|
|
4581
|
5 |
0 |
if ($sc_term0 and $sc_term1)
|
|
4587
|
0 |
16 |
if ($is_marginal and defined $jfirst_bad and $imax_align > $jfirst_bad - 1)
|
|
4597
|
14 |
7 |
if ($imax_align < 0 and defined $j0_eq_pad)
|
|
4599
|
0 |
0 |
if ($imax_next >= 0 || $imax_prev >= 0 || 0 and $j0_eq_pad >= -$j0_max_pad and $j0_eq_pad <= $j0_max_pad)
|
|
4639
|
0 |
0 |
unless ($rpatterns_0->[0] =~ /,/ or $rpatterns_1->[0] =~ /,/)
|
|
4663
|
0 |
444 |
unless @{$rlines;} and @{$rgroups;}
|
|
4666
|
385 |
59 |
unless ref $object
|
|
4669
|
46 |
13 |
unless $extra_indentation_spaces_wanted
|
|
4672
|
13 |
0 |
if ($min_spaces > 0)
|
|
4681
|
13 |
31 |
if $j == 0
|
|
4684
|
1 |
30 |
if ($object != $rlines->[$j]{'indentation'})
|
|
4691
|
30 |
1 |
$avail > $extra_indentation_spaces_wanted ? :
|
|
4705
|
0 |
31 |
if ($ngroups > 1 and $spaces < 0)
|
|
4708
|
13 |
18 |
if ($ng == 0 or $spaces < $extra_leading_spaces)
|
|
4749
|
12 |
210 |
if $is_hanging_side_comment
|
|
4760
|
0 |
210 |
unless $num5
|
|
4778
|
82 |
128 |
if $line_diff > $short_diff or not $rOpts_valign_side_comments
|
|
4787
|
18 |
110 |
if $level < $last_sc_level and $is_closing_block_type{substr $rfields->[0], 0, 1}
|
|
4791
|
4 |
106 |
if (my $cached_line_type = get_cached_line_type())
|
|
4804
|
0 |
4 |
if $cached_line_type == 2 or $cached_line_type == 4
|
|
4848
|
251 |
152 |
if ($line->{'rfield_lengths'}[$jmax])
|
|
4852
|
222 |
29 |
unless (defined $j_sc_beg)
|
|
4861
|
0 |
222 |
unless @todo
|
|
4868
|
6 |
204 |
if $ldiff > 5
|
|
4872
|
83 |
121 |
unless $sc_len
|
|
4882
|
122 |
100 |
$keep_it ? :
|
|
4887
|
24 |
198 |
@todo > 1 ? :
|
|
4896
|
222 |
24 |
if ($PASS == $MAX_PASS)
|
|
4911
|
4 |
300 |
if $PASS < $MAX_PASS and $is_hanging_side_comment
|
|
4922
|
246 |
54 |
unless (defined $column_limit)
|
|
4926
|
0 |
300 |
if $jmax <= 0
|
|
4930
|
13 |
287 |
if ($move > $avail)
|
|
4935
|
5 |
82 |
if ($move >= 0 and $j_sc_beg == 0 and $continuing_sc_flow)
|
|
4943
|
16 |
284 |
if ($is_hanging_side_comment)
|
|
4945
|
215 |
85 |
if ($move < $min_move)
|
|
4950
|
11 |
289 |
if ($move > $avail)
|
|
4953
|
8 |
292 |
if ($move < 0)
|
|
4956
|
49 |
251 |
if ($PASS < $MAX_PASS) { }
|
|
4960
|
23 |
26 |
if ($col > $max_comment_column and $col < $column_limit)
|
|
4982
|
222 |
3 |
if ($line->{'rfield_lengths'}[$jmax])
|
|
4989
|
222 |
0 |
if (defined $j_sc_last)
|
|
5025
|
0 |
42 |
unless $num
|
|
5032
|
26 |
16 |
@sorted % 2 ? :
|
|
5052
|
0 |
30 |
unless $rcol_hash
|
|
5058
|
0 |
30 |
if (not $signed and $unsigned)
|
|
5070
|
0 |
30 |
if ($signed + $unsigned != $nlines)
|
|
5096
|
18 |
27 |
if ($Nu > 0 and $Nu <= $rOpts_valign_signed_numbers_limit)
|
|
5106
|
18 |
12 |
if ($Nu > 0 and $Nu <= $rOpts_valign_signed_numbers_limit)
|
|
5110
|
9 |
21 |
unless (@unsigned_subgroups)
|
|
5131
|
102 |
0 |
if ($str =~ /^([^\s\,\)\]\}]*)/)
|
|
5133
|
33 |
69 |
if ($is_signed{$ix}) { }
|
|
5144
|
0 |
21 |
if ($max_signed_length <= $min_unsigned_length) { }
|
|
|
10 |
11 |
elsif ($max_signed_length > $max_unsigned_length) { }
|
|
5195
|
11 |
0 |
$excess ? :
|
|
5200
|
13 |
30 |
unless ($excess)
|
|
5202
|
15 |
28 |
if ($is_signed{$ix_m}) { }
|
|
5205
|
13 |
2 |
unless ($is_signed{$ix})
|
|
5206
|
8 |
5 |
if ($excess) { }
|
|
5215
|
9 |
19 |
if ($is_signed{$ix}) { }
|
|
5216
|
9 |
0 |
if ($excess_m) { }
|
|
5222
|
7 |
12 |
if ($excess_m xor $excess)
|
|
5230
|
1 |
10 |
if ($bad_count > $good_count)
|
|
5237
|
0 |
6 |
if ($median_unsigned_length >= $median_signed_length and $bad_count > 1 and $immobile_count > 1)
|
|
5259
|
0 |
56 |
if ($jcol >= $jmax)
|
|
5270
|
16 |
40 |
$jcol == 0 ? :
|
|
5275
|
56 |
0 |
if ($excess > 0)
|
|
5279
|
0 |
20 |
unless $movable_count
|
|
5286
|
22 |
12 |
if $excess_space{$ix_min} > 0 and $ix_min != $ix_first
|
|
5287
|
17 |
17 |
if $excess_space{$ix_max} > 0 and $ix_max != $ix_last
|
|
5294
|
0 |
20 |
if ($unsigned > $Nc * $rOpts_valign_signed_numbers_limit)
|
|
5305
|
0 |
56 |
if $excess_space{$ix} <= 0
|
|
5336
|
16 |
40 |
if ($pos_start_number > 0)
|
|
5338
|
0 |
16 |
if ($pos_start_number >= $len)
|
|
5354
|
0 |
16 |
if ($test_char1 ne $char_end_part1)
|
|
5365
|
56 |
0 |
if ($is_digit_char{$test_char2}) { }
|
|
5404
|
20 |
104 |
if ($n_count and $n_count > 1)
|
|
5410
|
0 |
104 |
if ($comma_count and $comma_count > 1)
|
|
5417
|
0 |
104 |
unless $len_pat1 and $len_field
|
|
5422
|
79 |
25 |
if ($ch eq "b")
|
|
5429
|
56 |
48 |
if ($ch eq '{') { }
|
|
5433
|
0 |
56 |
if $brace_count != 1
|
|
5439
|
18 |
38 |
if ($i_paren >= 0)
|
|
5443
|
38 |
18 |
if ($i_bracket >= 0 and $i_bracket < $i_opening)
|
|
5449
|
0 |
56 |
if ($i_brace >= 0 and $i_brace < $i_opening)
|
|
5453
|
56 |
0 |
if ($i_opening >= 0 and $i_opening < length($field) - 1) { }
|
|
5457
|
25 |
31 |
unless $ending_b
|
|
5469
|
0 |
48 |
unless ($ending_b)
|
|
5473
|
11 |
37 |
if $pos_equals < 0
|
|
5477
|
3 |
34 |
if $equals_count != 1
|
|
5479
|
8 |
26 |
if ($len_pat1 >= 2 and substr($pat1, -2, 2) eq '=b') { }
|
|
|
16 |
10 |
elsif ($len_pat1 >= 3 and substr($pat1, -3, 3) eq '=>b') { }
|
|
5492
|
0 |
80 |
if ($pos_start_number <= 0 or $pos_start_number >= $len_field)
|
|
5516
|
192 |
72 |
if ($next_char eq ',') { }
|
|
|
47 |
25 |
elsif ($next_char eq 'b') { }
|
|
|
25 |
0 |
elsif ($next_char eq '}') { }
|
|
5518
|
192 |
0 |
if ($icomma >= 0)
|
|
5526
|
47 |
0 |
if ($ispace >= 0)
|
|
5533
|
25 |
0 |
if ($field2 =~ /^([^\)\}\]]+)/)
|
|
5548
|
0 |
264 |
unless (length $field2_trim)
|
|
5557
|
2 |
262 |
unless ($field2_trim =~ /^[\d\.\+\-abcdefpx_]+$/i)
|
|
5596
|
0 |
70 |
unless $rOpts_valign_signed_numbers
|
|
5620
|
11 |
338 |
if ($jmax < $jmax_last)
|
|
5625
|
4 |
2 |
if $jcol < $jmax
|
|
5627
|
0 |
2 |
unless $rcol_hash
|
|
5628
|
0 |
0 |
if ($rcol_hash->{'signed_count'} and $rcol_hash->{'unsigned_count'})
|
|
5640
|
2 |
9 |
if ($jcol >= 0 and $column_info{$jcol})
|
|
5645
|
0 |
0 |
if ($col < $old_col and $rfields->[$jcol] =~ /^([+-]?)\d/ and $1 || $column_info{$jcol}{'signed_count'})
|
|
5658
|
0 |
0 |
if ($spaces_available >= $spaces_needed)
|
|
5677
|
55 |
730 |
if (defined $old_col and $old_col != $col)
|
|
5679
|
6 |
11 |
if $jcol_old < $jcol
|
|
5681
|
1 |
0 |
if ($rcol_hash->{'signed_count'} and $rcol_hash->{'unsigned_count'})
|
|
5715
|
755 |
30 |
if ($field_ok and $pattern)
|
|
5722
|
333 |
422 |
if ($posq < 0) { }
|
|
5733
|
310 |
445 |
if ($field_ok)
|
|
5737
|
124 |
186 |
if ($pat1)
|
|
5749
|
310 |
0 |
if ($field_ok)
|
|
5754
|
49 |
261 |
if ($is_plus_or_minus{$test_char})
|
|
5761
|
264 |
46 |
if ($is_digit_char{$test_char}) { }
|
|
5763
|
47 |
217 |
if ($sign) { }
|
|
5770
|
67 |
150 |
$pos_start_number ? :
|
|
5796
|
584 |
201 |
if (not $rcol_hash) { }
|
|
5799
|
500 |
84 |
unless $field_ok
|
|
5809
|
0 |
167 |
if (not $field_ok or $rcol_hash->{'pos_start_number'} ne $pos_start_number or $rcol_hash->{'char_end_part1'} ne $char_end_part1 or $rcol_hash->{'col'} ne $col)
|
|
5816
|
0 |
0 |
if ($rcol_hash->{'signed_count'} and $rcol_hash->{'unsigned_count'})
|
|
5836
|
118 |
167 |
if (not defined $rcol_hash) { }
|
|
5838
|
23 |
95 |
unless $field_ok
|
|
5840
|
12 |
83 |
$is_signed_number ? :
|
|
5859
|
35 |
132 |
if ($is_signed_number)
|
|
5871
|
29 |
1 |
if ($rcol_hash->{'signed_count'} and $rcol_hash->{'unsigned_count'})
|
|
5894
|
0 |
12 |
unless $rcol_hash
|
|
5905
|
0 |
12 |
if ($num != $nlines)
|
|
5953
|
18 |
32 |
if ($jcolp >= $jmax - 1) { }
|
|
|
9 |
23 |
elsif (not $current_alignment) { }
|
|
|
6 |
17 |
elsif (builtin::refaddr($alignment) != builtin::refaddr($current_alignment)) { }
|
|
5971
|
1 |
5 |
if ($starting_colp != $colp) { }
|
|
5981
|
3 |
2 |
if ($current_colp > $colp)
|
|
5985
|
3 |
0 |
if ($excess <= $padding_available)
|
|
6006
|
33 |
17 |
if ($pad > 0)
|
|
6015
|
13 |
20 |
if ($excess > 0)
|
|
6018
|
12 |
1 |
if ($excess <= $padding_available) { }
|
|
6025
|
1 |
0 |
if ($excess <= $padding_available) { }
|
|
6068
|
0 |
12 |
unless $rOpts_valign_wide_equals
|
|
6091
|
6 |
44 |
if ($jmax < $jmax_last)
|
|
6096
|
6 |
0 |
if $jcol < $jmax
|
|
6098
|
0 |
0 |
unless $rcol_hash
|
|
6099
|
0 |
0 |
if ($rcol_hash->{'max_width'} > $rcol_hash->{'min_width'})
|
|
6119
|
14 |
133 |
if (defined $old_col and $old_col != $col)
|
|
6121
|
14 |
0 |
if $jcol_old < $jcol
|
|
6123
|
0 |
0 |
if ($rcol_hash->{'max_width'} > $rcol_hash->{'min_width'})
|
|
6143
|
50 |
47 |
if (length $token > 1 and substr($token, 0, 1) eq "=" and $is_digit_char{substr $token, 1, 1})
|
|
6151
|
50 |
0 |
if ($pos >= 0 and $pos <= 2)
|
|
6157
|
109 |
38 |
if (not $rcol_hash) { }
|
|
6160
|
97 |
12 |
unless $len_equals_symbol
|
|
6170
|
0 |
38 |
if (not $len_equals_symbol or $rcol_hash->{'col'} ne $col)
|
|
6173
|
0 |
0 |
if ($rcol_hash->{'max_width'} > $rcol_hash->{'min_width'})
|
|
6191
|
12 |
38 |
if (not defined $rcol_hash) { }
|
|
6193
|
0 |
12 |
unless $len_equals_symbol
|
|
6209
|
9 |
29 |
if ($len_equals_symbol > $rcol_hash->{'max_width'})
|
|
6212
|
4 |
34 |
if ($len_equals_symbol < $rcol_hash->{'min_width'})
|
|
6226
|
12 |
0 |
if ($rcol_hash->{'max_width'} > $rcol_hash->{'min_width'})
|
|
6303
|
49 |
3588 |
if ($leading_space_count > $group_leader_length)
|
|
6311
|
0 |
3637 |
if (@alignments != $maximum_field_index + 1)
|
|
6330
|
3289 |
348 |
if $j == $maximum_field_index and !defined($rfields->[$j]) || $rfield_lengths->[$j] == 0
|
|
6339
|
0 |
5460 |
if ($do_not_align)
|
|
6340
|
0 |
0 |
$j < $maximum_field_index ? :
|
|
6349
|
9 |
5451 |
if ($rOpts_fixed_position_side_comment and $j == $maximum_field_index)
|
|
6353
|
9 |
0 |
if ($newpad >= 0)
|
|
6357
|
1604 |
3856 |
if ($pad > 0)
|
|
6361
|
5449 |
11 |
if ($rfield_lengths->[$j] > 0) { }
|
|
6407
|
0 |
16 |
unless (defined $imax_align)
|
|
6412
|
0 |
16 |
unless @idel
|
|
6424
|
0 |
16 |
if ($imax_align >= 0)
|
|
6523
|
1 |
2310 |
if ($cached_line_type)
|
|
6566
|
162 |
0 |
if ($rvertical_tightness_flags)
|
|
6573
|
93 |
69 |
if (not $cached_line_valid) { }
|
|
|
32 |
37 |
elsif ($cached_line_type == 1 or $cached_line_type == 3) { }
|
|
6591
|
14 |
18 |
if ($cached_line_opening_flag == 1)
|
|
6592
|
0 |
14 |
if (defined $open_or_close and $open_or_close == 1)
|
|
6605
|
0 |
20 |
if ($gap >= 0 and $maximum_line_length != $cached_line_maximum_length || defined $level_end && $level > $level_end)
|
|
6615
|
0 |
0 |
if ($test_line_length > $cached_line_maximum_length - 2)
|
|
6621
|
20 |
12 |
if ($gap >= 0 and defined $seqno_beg) { }
|
|
6650
|
33 |
4 |
if ($seqno_beg and $open_or_close == $cached_line_type || $cached_line_type == 2 && $open_or_close == 4 || !$open_or_close && $cached_line_type == 2 and $test_line_length <= $cached_line_maximum_length) { }
|
|
6704
|
4 |
29 |
if ($str =~ /^\);/ and $cached_line_text =~ /^[\)\}\]\s]*$/)
|
|
6730
|
3 |
1 |
if ($diff > 0 and length $seqno_string and length $last_nonblank_seqno_string == length $seqno_string)
|
|
6738
|
3 |
0 |
if (@seqno_now and @seqno_last and $seqno_now[-1] == $seqno_last[0] and $seqno_now[0] == $seqno_last[-1])
|
|
6748
|
3 |
0 |
if (length $ws == $diff and $ws =~ /^\s+$/)
|
|
6840
|
372 |
8138 |
if ($outdent_long_lines)
|
|
6846
|
11 |
361 |
if ($excess > 0)
|
|
6854
|
4 |
7 |
unless ($outdented_line_count)
|
|
6867
|
4969 |
3541 |
$leading_space_count > 0 ? :
|
|
6897
|
796 |
7714 |
if ($rvertical_tightness_flags)
|
|
6908
|
796 |
7714 |
defined $seqno_end ? :
|
|
6916
|
162 |
8348 |
if (length $cached_line_text)
|
|
6946
|
163 |
8347 |
if ($open_or_close)
|
|
6947
|
0 |
163 |
if ($open_or_close == 3 and not $line =~ /\{\s*$/ or $open_or_close == 4 and not $line =~ /\}\s*$/)
|
|
6957
|
8347 |
163 |
if (not $open_or_close or $side_comment_length > 0 or $is_outdented_line or not $line_length) { }
|
|
7013
|
2 |
2311 |
if (@valign_buffer)
|
|
7029
|
2 |
1 |
if ($valign_buffer_filling and $diff)
|
|
7035
|
7 |
0 |
if (length $ws == $diff and $ws =~ /^\s+$/)
|
|
7038
|
7 |
0 |
if ($leading_space_count >= $diff)
|
|
7070
|
2 |
8455 |
if $seqno_string and $valign_buffer_filling
|
|
7074
|
7 |
8450 |
if ($valign_buffer_filling) { }
|
|
7082
|
398 |
8059 |
if ($seqno_string)
|
|
7089
|
8 |
35 |
if (index($seqno_string, ":") != -1 and $seqno_string =~ /^\d+(\:+\d+)+$/ and not $args_to_D[0] =~ /^[\}\)\]\:\?]/)
|
|
7150
|
0 |
45 |
if (length $line != length($trimmed_line) + $leading_space_count)
|
|
7154
|
0 |
0 |
if ($leading_space_count <= 0)
|
|
7164
|
0 |
0 |
if ($leading_space_count_test < $leading_space_count)
|
|
7181
|
45 |
0 |
if ($rOpts_entab_leading_whitespace) { }
|
|
|
0 |
0 |
elsif ($rOpts_tabs and $level) { }
|
|
7200
|
0 |
0 |
if ($space_count < 0) { }
|
|
7203
|
0 |
0 |
unless ($line =~ /^\s*#/)
|
|
7239
|
45 |
8412 |
if ($require_tabs and $leading_space_count > 0)
|
|
7256
|
2 |
656 |
unless $logger_object
|
|
7259
|
23 |
633 |
if ($outdented_line_count > 0)
|
|
7266
|
7 |
16 |
if ($outdented_line_count > 1)
|