| line |
true |
false |
branch |
|
93
|
0 |
0 |
if ($s =~ /\r\n?$/) { } |
|
100
|
0 |
0 |
if (not $attr) { } |
|
103
|
0 |
0 |
if ($attr & $A_BOLD) |
|
104
|
0 |
0 |
if ($attr & $A_REVERSE) |
|
105
|
0 |
0 |
if ($attr & $A_UNDERLINE) |
|
118
|
0 |
0 |
if ($have_Term_ReadKey) { } |
|
133
|
0 |
0 |
if ($c eq "\e") { } |
|
136
|
0 |
0 |
unless (defined $c) |
|
137
|
0 |
0 |
if ($c eq 'A') |
|
138
|
0 |
0 |
if ($c eq 'B') |
|
139
|
0 |
0 |
if ($c eq 'C') |
|
140
|
0 |
0 |
if ($c eq 'D') |
|
141
|
0 |
0 |
if ($c eq '2') |
|
142
|
0 |
0 |
if ($c eq '3') |
|
143
|
0 |
0 |
if ($c eq '5') |
|
144
|
0 |
0 |
if ($c eq '6') |
|
145
|
0 |
0 |
if ($c eq 'Z') |
|
146
|
0 |
0 |
if ($c eq 'O') |
|
148
|
0 |
0 |
if ($c eq 'A') |
|
149
|
0 |
0 |
if ($c eq 'B') |
|
150
|
0 |
0 |
if ($c eq 'C') |
|
151
|
0 |
0 |
if ($c eq 'D') |
|
152
|
0 |
0 |
if ($c eq 'F') |
|
153
|
0 |
0 |
if ($c eq 'H') |
|
156
|
0 |
0 |
if ($c eq '[') |
|
158
|
0 |
0 |
if ($c eq 'A') |
|
159
|
0 |
0 |
if ($c eq 'B') |
|
160
|
0 |
0 |
if ($c eq 'C') |
|
161
|
0 |
0 |
if ($c eq 'D') |
|
162
|
0 |
0 |
if ($c eq 'F') |
|
163
|
0 |
0 |
if ($c eq 'H') |
|
164
|
0 |
0 |
if ($c eq 'M') |
|
175
|
0 |
0 |
if ($low3bits == 3) { } |
|
178
|
0 |
0 |
if ($event_type & 64) { } |
|
185
|
0 |
0 |
if ($c =~ /\d/) |
|
186
|
0 |
0 |
if ($c1 eq '~') { } |
|
187
|
0 |
0 |
if ($c eq '2') { } |
|
|
0 |
0 |
elsif ($c eq '3') { } |
|
|
0 |
0 |
elsif ($c eq '5') { } |
|
|
0 |
0 |
elsif ($c eq '6') { } |
|
195
|
0 |
0 |
if $c1 eq ';' |
|
203
|
0 |
0 |
if $c1 eq 'R' |
|
209
|
0 |
0 |
if ($c eq 'Z') |
|
251
|
0 |
0 |
if ($newcol == 0) { } |
|
|
0 |
0 |
elsif ($newcol > $icol) { } |
|
|
0 |
0 |
elsif ($newcol < $icol) { } |
|
255
|
0 |
0 |
if ($newrow > $irow) { } |
|
|
0 |
0 |
elsif ($newrow < $irow) { } |
|
269
|
0 |
0 |
if ($ENV{'CLUI_MOUSE'} eq 'OFF') |
|
270
|
0 |
0 |
if ($IsMouseMode) |
|
273
|
0 |
0 |
if ($EncodingString) |
|
275
|
0 |
0 |
unless open TTYIN, '<:bytes', '/dev/tty' |
|
284
|
0 |
0 |
unless ($IsMouseMode) |
|
287
|
0 |
0 |
if ($EncodingString) |
|
289
|
0 |
0 |
unless open TTYIN, "<$EncodingString", '/dev/tty' |
|
299
|
0 |
0 |
unless ($SpeakUpSilentFile) |
|
300
|
0 |
0 |
if ($IsSpeakUpSilent) |
|
303
|
0 |
0 |
if (open S, '>', $SpeakUpSilentFile) |
|
309
|
0 |
0 |
unless ($SpeakUpSilentFile) |
|
310
|
0 |
0 |
unless ($IsSpeakUpSilent) |
|
313
|
0 |
0 |
if (open S, '>', $SpeakUpSilentFile) |
|
320
|
0 |
0 |
if ($ENV{'CLUI_MOUSE'} eq 'OFF') |
|
322
|
0 |
0 |
if ($InitscrAlreadyRun) |
|
324
|
0 |
0 |
if (not $mouse_mode and $IsMouseMode) { } |
|
|
0 |
0 |
elsif ($mouse_mode and not $IsMouseMode) { } |
|
325
|
0 |
0 |
unless leave_mouse_mode() |
|
327
|
0 |
0 |
unless enter_mouse_mode() |
|
330
|
0 |
0 |
if (not $speakup_silent and $IsSpeakUpSilent) { } |
|
|
0 |
0 |
elsif ($speakup_silent and not $IsSpeakUpSilent) { } |
|
331
|
0 |
0 |
unless leave_speakup_silent() |
|
333
|
0 |
0 |
unless enter_speakup_silent() |
|
339
|
0 |
0 |
unless open TTY, ">$EncodingString", '/dev/tty' |
|
341
|
0 |
0 |
unless ($have_Term_ReadKey) |
|
343
|
0 |
0 |
if ($mouse_mode) { } |
|
349
|
0 |
0 |
if ($speakup_silent and not $IsSpeakUpSilent) |
|
350
|
0 |
0 |
unless open TTYIN, "<$encoding_string", '/dev/tty' |
|
353
|
0 |
0 |
if ($have_Term_ReadKey) { } |
|
356
|
0 |
0 |
if ($^O =~ /^FreeBSD$/i) { } |
|
367
|
0 |
0 |
if ($InitscrAlreadyRun > 1) |
|
368
|
0 |
0 |
if ($IsMouseMode and not $WasMouseMode) { } |
|
|
0 |
0 |
elsif (not $IsMouseMode and $WasMouseMode) { } |
|
371
|
0 |
0 |
if ($IsSpeakUpSilent and not $WasSpeakUpSilent) { } |
|
|
0 |
0 |
elsif (not $IsSpeakUpSilent and $WasSpeakUpSilent) { } |
|
379
|
0 |
0 |
if ($IsSpeakUpSilent) |
|
380
|
0 |
0 |
if ($have_Term_ReadKey) { } |
|
385
|
0 |
0 |
if $Stty |
|
|
0 |
0 |
if ($^O =~ /^FreeBSD$/i) { } |
|
386
|
0 |
0 |
if $Stty |
|
398
|
0 |
0 |
unless ($size_changed) |
|
399
|
0 |
0 |
if ($have_Term_ReadKey) { } |
|
|
0 |
0 |
elsif ($have_Term_Size) { } |
|
409
|
0 |
0 |
if (@OtherLines) |
|
424
|
0 |
0 |
if ($@) |
|
440
|
0 |
0 |
unless $question |
|
445
|
0 |
0 |
if (defined $default) { } |
|
457
|
0 |
0 |
if ($c eq "\r") |
|
458
|
0 |
0 |
if ($size_changed) |
|
461
|
0 |
0 |
if ($c == $KEY_LEFT) { } |
|
|
0 |
0 |
elsif ($c == $KEY_RIGHT) { } |
|
|
0 |
0 |
elsif ($c == $KEY_DELETE) { } |
|
|
0 |
0 |
elsif ($c eq "\cH" or $c eq "\177") { } |
|
|
0 |
0 |
elsif ($c eq "\cC") { } |
|
|
0 |
0 |
elsif ($c eq "\cX" or $c eq "\cD") { } |
|
|
0 |
0 |
elsif ($c eq "\cA" or $c == $KEY_HOME) { } |
|
|
0 |
0 |
elsif ($c eq "\cE" or $c == $KEY_END) { } |
|
|
0 |
0 |
elsif ($c eq "\f") { } |
|
|
0 |
0 |
elsif ($SpecialKey{$c}) { } |
|
|
0 |
0 |
elsif (ord $c >= 32) { } |
|
462
|
0 |
0 |
if ($i > 0) |
|
464
|
0 |
0 |
$silent ? : |
|
|
0 |
0 |
if ($i < $n) |
|
466
|
0 |
0 |
if ($i < $n) |
|
468
|
0 |
0 |
$silent ? : |
|
472
|
0 |
0 |
if ($i > 0) |
|
474
|
0 |
0 |
unless ($silent) |
|
476
|
0 |
0 |
$silent ? : |
|
490
|
0 |
0 |
$silent ? : |
|
491
|
0 |
0 |
unless ($silent) |
|
493
|
0 |
0 |
$silent ? : |
|
504
|
0 |
0 |
unless (open DEBUG, '>>/tmp/clui.log') |
|
518
|
0 |
0 |
unless @list |
|
534
|
0 |
0 |
if (wantarray) { } |
|
536
|
0 |
0 |
if ($firstlinelength < $maxcols - 30) { } |
|
|
0 |
0 |
elsif ($firstlinelength < $maxcols - 16) { } |
|
|
0 |
0 |
elsif ($firstlinelength < $maxcols - 9) { } |
|
545
|
0 |
0 |
if ($nrows >= $maxrows) { } |
|
550
|
0 |
0 |
if ($nrows >= $maxrows) { } |
|
554
|
0 |
0 |
if ($nrows >= $maxrows) |
|
556
|
0 |
0 |
unless (@list) |
|
558
|
0 |
0 |
wantarray ? : |
|
570
|
0 |
0 |
if ($size_changed) |
|
572
|
0 |
0 |
if ($nrows >= $maxrows) |
|
574
|
0 |
0 |
unless (@list) |
|
576
|
0 |
0 |
wantarray ? : |
|
582
|
0 |
0 |
if ($c eq 'q' or $c eq "\cD" or $c eq "\cX") { } |
|
|
0 |
0 |
elsif ($c eq "\t" and $this_cell < $#list) { } |
|
|
0 |
0 |
elsif ($c eq 'l' || $c == $KEY_RIGHT and $this_cell < $#list and $irow[$this_cell] == $irow[$this_cell + 1]) { } |
|
|
0 |
0 |
elsif ($c eq "\cH" || $c == $KEY_BTAB and $this_cell > 0) { } |
|
|
0 |
0 |
elsif ($c eq 'h' || $c == $KEY_LEFT and $this_cell > 0 and $irow[$this_cell] == $irow[$this_cell - 1]) { } |
|
|
0 |
0 |
elsif ($c eq 'j' || $c == $KEY_DOWN and $irow < $nrows) { } |
|
|
0 |
0 |
elsif ($c eq 'k' || $c == $KEY_UP and $irow > 1) { } |
|
|
0 |
0 |
elsif ($c eq "\f") { } |
|
|
0 |
0 |
elsif ($c eq "\cC") { } |
|
|
0 |
0 |
elsif ($c eq "\r") { } |
|
|
0 |
0 |
elsif ($c eq ' ') { } |
|
|
0 |
0 |
elsif ($c eq '?') { } |
|
584
|
0 |
0 |
if ($clue_has_been_given) |
|
587
|
0 |
0 |
if ($re_clue) { } |
|
594
|
0 |
0 |
wantarray ? : |
|
598
|
0 |
0 |
wantarray ? : |
|
617
|
0 |
0 |
if $icol[$inew] < $mid_col |
|
622
|
0 |
0 |
if $new_mid_col >= $mid_col |
|
623
|
0 |
0 |
if $icol[$inew + 1] <= $icol[$inew] |
|
626
|
0 |
0 |
if ($new_mid_col - $mid_col > $left_of_target) |
|
634
|
0 |
0 |
if $irow[$inew] < $irow[$this_cell] |
|
638
|
0 |
0 |
unless $icol[$inew] |
|
640
|
0 |
0 |
if $new_mid_col <= $mid_col |
|
643
|
0 |
0 |
if ($mid_col - $new_mid_col > $right_of_target) |
|
648
|
0 |
0 |
if ($size_changed) |
|
650
|
0 |
0 |
if ($nrows >= $maxrows) |
|
652
|
0 |
0 |
unless (@list) |
|
655
|
0 |
0 |
wantarray ? : |
|
666
|
0 |
0 |
if (wantarray) { } |
|
668
|
0 |
0 |
if ($marked[$i] or $i == $this_cell) |
|
677
|
0 |
0 |
if ($remaining - length($_) < 4) { } |
|
683
|
0 |
0 |
unless ($dotsprinted) |
|
684
|
0 |
0 |
if ($remaining - length($last) > 0) { } |
|
|
0 |
0 |
elsif ($remaining > 2) { } |
|
696
|
0 |
0 |
if (wantarray) { } |
|
702
|
0 |
0 |
if (wantarray) |
|
723
|
0 |
0 |
if ($l[$i] > $maxcols - 1) |
|
724
|
0 |
0 |
if ($icol + $l[$i] >= $maxcols) |
|
725
|
0 |
0 |
if ($irow > $maxrows) |
|
728
|
0 |
0 |
if ($list[$i] eq $choice) |
|
734
|
0 |
0 |
unless $i == $this_cell |
|
737
|
0 |
0 |
if ($notherlines and $nrows + $notherlines < $maxrows) |
|
746
|
0 |
0 |
if ($marked[$i]) |
|
747
|
0 |
0 |
if ($i == $this_cell) |
|
749
|
0 |
0 |
if ($marked[$i] or $i == $this_cell) |
|
754
|
0 |
0 |
if ($erase_rows) |
|
755
|
0 |
0 |
if ($erase_rows > $maxrows) |
|
766
|
0 |
0 |
if ($IsMouseMode) |
|
770
|
0 |
0 |
if ($size_changed) |
|
772
|
0 |
0 |
if ($nrows < $maxrows) |
|
776
|
0 |
0 |
if ($c == $KEY_LEFT and $i > 0) { } |
|
|
0 |
0 |
elsif ($c == $KEY_RIGHT) { } |
|
|
0 |
0 |
elsif ($c eq "\cH" or $c eq "\177") { } |
|
|
0 |
0 |
elsif ($c eq "\cC") { } |
|
|
0 |
0 |
elsif ($c eq "\cX" or $c eq "\cD") { } |
|
|
0 |
0 |
elsif ($c eq "\cA") { } |
|
|
0 |
0 |
elsif ($c eq "\cE") { } |
|
|
0 |
0 |
elsif ($c eq "\f") { } |
|
|
0 |
0 |
elsif ($SpecialKey{$c}) { } |
|
|
0 |
0 |
elsif (ord $c >= 32) { } |
|
778
|
0 |
0 |
if ($i < $n) |
|
780
|
0 |
0 |
if ($i > 0) |
|
791
|
0 |
0 |
unless (@s) |
|
812
|
0 |
0 |
if ($nchoices == 1 or $nchoices and $nrows < $maxrows) |
|
821
|
0 |
0 |
if ($nchoices) { } |
|
822
|
0 |
0 |
if ($s) { } |
|
842
|
0 |
0 |
if ($ENV{'CLUI_DIR'} =~ /off/i) |
|
843
|
0 |
0 |
unless ($question) |
|
847
|
0 |
0 |
if (dbmopen %CHOICES, &dbm_file(), 384) { } |
|
850
|
0 |
0 |
if ($! eq 'Resource temporarily unavailable') { } |
|
857
|
0 |
0 |
if (wantarray) { } |
|
862
|
0 |
0 |
if ($ENV{'CLUI_DIR'} =~ /off/i) |
|
863
|
0 |
0 |
unless ($question) |
|
866
|
0 |
0 |
if (dbmopen %CHOICES, &dbm_file(), 384) { } |
|
869
|
0 |
0 |
if ($! eq 'Resource temporarily unavailable') { } |
|
879
|
0 |
0 |
if ($ENV{'CLUI_DIR'} =~ /off/i) |
|
881
|
0 |
0 |
if ($ENV{'CLUI_DIR'}) { } |
|
891
|
0 |
0 |
if ($LastEventWasPress) |
|
892
|
0 |
0 |
unless $y >= $TopRow |
|
899
|
0 |
0 |
if ($irow[$i] == $mouse_row) |
|
901
|
0 |
0 |
if ($icol[$i] < $mouse_col and $icol[$i] + length($list[$i]) >= $mouse_col) |
|
905
|
0 |
0 |
if $irow[$i] > $mouse_row |
|
909
|
0 |
0 |
unless $found |
|
912
|
0 |
0 |
if ($button_pressed == 1 and not $button_drag) { } |
|
|
0 |
0 |
elsif ($button_pressed == 3 and not $button_drag) { } |
|
919
|
0 |
0 |
if ($i != $this_cell) |
|
927
|
0 |
0 |
if ($_[0] eq 'ask') |
|
931
|
0 |
0 |
if ($ENV{'CLUI_MOUSE'} eq 'OFF') { } |
|
936
|
0 |
0 |
if ($_[0] =~ /^mult/) |
|
940
|
0 |
0 |
if ($ENV{'CLUI_MOUSE'} eq 'OFF') { } |
|
950
|
0 |
0 |
unless $question |
|
|
0 |
0 |
unless -t STDERR |
|
956
|
0 |
0 |
if ($response eq "\cC") |
|
960
|
0 |
0 |
if $response =~ /[yYnN]/ |
|
964
|
0 |
0 |
if ($response =~ /^[yY]/) { } |
|
972
|
0 |
0 |
if ($response =~ /^[yY]/) { } |
|
981
|
0 |
0 |
if ($argc == 0) { } |
|
|
0 |
0 |
elsif ($argc == 2) { } |
|
|
0 |
0 |
elsif ($argc == 1) { } |
|
989
|
0 |
0 |
unless (open F, ">$file") |
|
993
|
0 |
0 |
unless (open F, "< $file") |
|
1000
|
0 |
0 |
if (-d $file) |
|
1001
|
0 |
0 |
if (-B _ and -s _) |
|
1002
|
0 |
0 |
if (-T _ and not -w _) |
|
1005
|
0 |
0 |
if ($file =~ m[/]) { } |
|
1018
|
0 |
0 |
unless (-d $rcsdir) |
|
1019
|
0 |
0 |
if (-d _ and not -w _) |
|
1022
|
0 |
0 |
if ($rcs_ok and -f $rcsfile and not -f $file) |
|
1032
|
0 |
0 |
if ($rcs_ok and -T $file) |
|
1033
|
0 |
0 |
if (not -f $rcsfile) { } |
|
1036
|
0 |
0 |
if ($msg) |
|
1043
|
0 |
0 |
if ($msg) |
|
1052
|
0 |
0 |
if (not open(LOG, ">> $rcslog")) { } |
|
1055
|
0 |
0 |
if (not $pid) |
|
1058
|
0 |
0 |
if ($pid == 0) |
|
1078
|
0 |
0 |
if (open TTY, ">$EncodingString", '/dev/tty') { } |
|
1092
|
0 |
0 |
if (not $text and $title =~ /\.doc$/i and -r $title) { } |
|
|
0 |
0 |
elsif (not $text and -T $title and open F, "< $title") { } |
|
1093
|
0 |
0 |
if ($wvText) |
|
1098
|
0 |
0 |
if ($antiword) |
|
1101
|
0 |
0 |
if ($catdoc) |
|
1108
|
0 |
0 |
if $nlines++ > $maxrows |
|
1109
|
0 |
0 |
if ($nlines > 0.6 * $maxrows) { } |
|
1117
|
0 |
0 |
if ($#lines < 21) { } |
|
1122
|
0 |
0 |
unless (open TMP, ">$tmp") |
|
1131
|
0 |
0 |
unless $text |
|
1137
|
0 |
0 |
if (3 > scalar @rows) |
|
1142
|
0 |
0 |
if ($titlelength > $maxcols - 35) { } |
|
1151
|
0 |
0 |
if ($c eq 'q' or $c eq "\cX" or $c eq "\cW" or $c eq "\cZ" or $c eq "\cC" or $c eq "\034\\") { } |
|
|
0 |
0 |
elsif ($c eq "\r") { } |
|
|
0 |
0 |
elsif ($c eq "\f") { } |
|
1167
|
0 |
0 |
if -x $f |
|
1171
|
0 |
1 |
if ($Eflite_FH) { } |
|
|
0 |
1 |
elsif ($Espeak_PID) { } |
|
1177
|
0 |
0 |
unless length $text |
|
1179
|
0 |
0 |
if ($SpeakMode{'dot'}) |
|
1183
|
0 |
0 |
if ($Eflite_FH) { } |
|
|
0 |
0 |
elsif ($Espeak) { } |
|
1184
|
0 |
0 |
if (length $text == 1) { } |
|
1185
|
0 |
0 |
if ($text eq '.') { } |
|
1188
|
0 |
0 |
if ($wait) |
|
1192
|
0 |
0 |
if ($wait) |
|
1195
|
0 |
0 |
if ($Espeak_PID) |
|
1197
|
0 |
0 |
if ($Espeak_PID) { } |
|
1198
|
0 |
0 |
if ($wait) |
|
1199
|
0 |
0 |
if (length $text == 1) { } |
|
1207
|
0 |
0 |
if ($espeak_PID = open($espeak_FH, '|-', $Espeak)) { } |
|
1215
|
0 |
0 |
if ($text eq '.') { } |
|
1229
|
0 |
0 |
if ($options{'nofirstline'}) { } |
|
1234
|
0 |
0 |
if ($firstline) |
|
1236
|
0 |
0 |
if (@OtherLines) |
|
1251
|
0 |
0 |
if ($i_line =~ /^\s*$/) |
|
1252
|
0 |
0 |
if ($o_line) |
|
1253
|
0 |
0 |
unless ($last_line_empty) |
|
1258
|
0 |
0 |
if ($options{'nofill'}) |
|
1261
|
0 |
0 |
if ($i_line =~ s/^(\s+)//) { } |
|
1263
|
0 |
0 |
if ($o_line) |
|
1272
|
0 |
0 |
if ($o_length + $w_length >= $maxcols) |
|
1276
|
0 |
0 |
if ($w_length >= $maxcols) |
|
1279
|
0 |
0 |
if ($o_line) |
|
1283
|
0 |
0 |
if ($o_line) |
|
1284
|
0 |
0 |
if (scalar @o_lines < $maxrows - 2) { } |
|
1289
|
0 |
0 |
unless open TTY, '>', '/dev/tty' |