blib/lib/UI/KeyboardLayout.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 1 | 1769 | 0.0 |
line | l | !l | condition |
---|---|---|---|
5908 | 0 | 0 | $seen{$_}++ and die "Duplicate layer name `${_}'" |
5949 | 0 | 0 | $_ eq $opt->{'empty'} and $_ = undef |
5962 | 0 | 0 | $seen{$_}++ and die "Duplicate layer name `${_}'" |
6008 | 0 | 0 | exists $o{$_} and die "Visual spec `${k}' overwrites exiting layer `${k}'" |
6115 | 0 | 0 | 1 == ($obsc[0] || 0) and $free_first[0] = 0 |
6441 | 0 | 0 | 1 < length $_ and die "not a character as a deadkey: `${_}'" |
6700 | 0 | 0 | $cc =~ /[^\P{Blank}\x00-\x1f]/ && 'WS' |
6719 | 0 | 0 | defined $expl and length $expl and 1 |
6964 | 0 | 0 | $create_a_c >= 1 && '/[/]/\\' |
6965 | 0 | 0 | $create_a_c >= 2 && '/^/_' |
6966 | 0 | 0 | $create_a_c >= 1 && ' Most of Ctrl-letters are omitted from the table; deduce them from reports for C/H/I/J/M/Z.' |
8454 | 0 | 0 | $DEAD && 1 |
8962 | 0 | 0 | !$sorted3 && 'prepend' |
10363 | 0 | 0 | $name eq 'LATIN SMALL LETTER SCHWA' and $t = 'DIGIT ZERO' |
10778 | 0 | 0 | $doc && '}' |
10883 | 0 | 0 | not $double_occupancy and $cnt == 2 and 1 |
11695 | 0 | 0 | ref $_ and $_->[2] and die "Do not expect a character `$_->[0]' to be a deadkey..." |
12414 | 0 | 0 | $linked &&= {map({ref($_ || 0) ? $_->[0] : $_;} %$linked)} |
12602 | 0 | 0 | defined $AppleSym{$lst[$i]} && '#' |
12994 | 0 | 0 | !$d && '_' |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
5757 | 0 | 0 | 0 | ref $class and defined(my $v = $class->{$key}) |
5808 | 0 | 0 | 0 | $slot and exists $slot->{$kk} |
5836 | 0 | 0 | 0 | defined $sep2 and 3 <= @k |
0 | 0 | 0 | defined $sep2 and 3 <= @k and $k =~ /$sep2/ | |
5838 | 0 | 0 | 0 | not length $k[0] and @k == 2 |
5841 | 0 | 0 | 0 | ($k[0] || '') eq "\000" and $skip_first |
5842 | 0 | 0 | 0 | @k == 1 and defined $k[0] |
0 | 0 | 0 | @k == 1 and defined $k[0] and 1 == length $k[0] | |
0 | 0 | 0 | @k == 1 and defined $k[0] and 1 == length $k[0] and $k[0] ne &UI::KeyboardLayout::ucfirst($k[0]) | |
5856 | 0 | 0 | 0 | defined $k[$_] and $k[$_] =~ s/^--(?=.)/\000/ |
0 | 0 | 0 | defined $k[$_] and $k[$_] =~ s/^--(?=.)/\000/ and ++$tr[$_] | |
5951 | 0 | 0 | 0 | $c0 and length $L[0] |
5991 | 0 | 0 | 0 | ref($v || 1) and $IDX |
0 | 0 | 0 | ref($v || 1) and $IDX and defined $idx | |
6003 | 0 | 0 | 0 | ref $self and push @h, $self->get_deep($self, @parts[1 .. $_]) || {} |
6018 | 0 | 0 | 0 | $ignore and not defined $k |
6025 | 0 | 0 | 0 | $ignore and not defined $k |
6026 | 0 | 0 | 0 | $k and ref $k |
6032 | 0 | 0 | 0 | $ignore and not defined $k |
6101 | 0 | 0 | 0 | $_ and ref $_ |
6102 | 0 | 0 | 0 | $_ && ref $_ |
6103 | 0 | 0 | 0 | $_ && ref $_ |
6115 | 0 | 0 | 0 | 1 == ($obsc[0] || 0) and $free_first[0] = 0 and not defined $C[1][1] |
6119 | 0 | 0 | 0 | defined $C[1][$map{$k}] and $p[0][$k] |
6148 | 0 | 0 | 0 | defined $C[$i][$j] and not defined $h[$i][$j] |
6149 | 0 | 0 | 0 | defined $c[$i][$j] and not defined $H[$i][$j] |
6177 | 0 | 0 | 0 | $c and ref $c |
6179 | 0 | 0 | 0 | defined $c and $c ne $flipped || !$dead |
6213 | 0 | 0 | 0 | $fst > $_->[0] and $fst = $_->[0] |
6222 | 0 | 0 | 0 | $seen->{$c} and $prefer_last->{$c} |
6225 | 0 | 0 | 0 | @{[] unless $seen->{$c};} and not $prefer_last->{$c} |
0 | 0 | 0 | @{[] unless $seen->{$c};} and not $prefer_last->{$c} and $c ne ' ' | |
6231 | 0 | 0 | 0 | %warn and not $skipwarn |
6316 | 0 | 0 | 0 | ref $self->{'faces'}{$f}{'[ComposeKey_Show]'} and not length $self->{'faces'}{$f}{'[ComposeKey_Show]'}[0] |
6319 | 0 | 0 | 0 | $compK and ref $compK |
6322 | 0 | 0 | 0 | defined $kkk[3] and length $kkk[3] |
6351 | 0 | 0 | 0 | &UI::KeyboardLayout::lc($s[0]) ne $s[0] and &UI::KeyboardLayout::lc($s[1]) ne $s[1] |
6353 | 0 | 0 | 0 | &UI::KeyboardLayout::uc($s[0]) ne $s[0] and &UI::KeyboardLayout::uc($s[1]) ne $s[1] |
6376 | 0 | 0 | 0 | $from->[$k] and $to->[$k] |
6378 | 0 | 0 | 0 | defined(my $s = $from->[$k][$shift]) and defined(my $ss = $to->[$k][$shift]) |
6379 | 0 | 0 | 0 | $_ and ref $_ |
0 | 0 | 0 | $_ and ref $_ and $_ = $_->[0] | |
6393 | 0 | 0 | 0 | $from->[$k] and $to->[$k] |
6395 | 0 | 0 | 0 | defined(my $s = $from->[$k][$shift]) and defined(my $ss = $to->[$k][$shift]) |
6396 | 0 | 0 | 0 | $_ and ref $_ |
0 | 0 | 0 | $_ and ref $_ and $_ = $_->[0] | |
6407 | 0 | 0 | 0 | $last < $_ and $last = $_ |
6470 | 0 | 0 | 0 | defined $k and not ref $k |
6471 | 0 | 0 | 0 | defined $k and $$DDD{$k->[0]} || $$vk{$k->[0]} |
6487 | 0 | 0 | 0 | defined $k and not ref $k |
6488 | 0 | 0 | 0 | defined $k and $$DDD{$k->[0]} || $$vk{$k->[0]} |
6537 | 0 | 0 | 0 | defined $f and not $self->{'Age'} |
6549 | 0 | 0 | 0 | defined $f and not $self->{'Age'} |
6563 | 0 | 0 | 0 | defined $f and not $self->{'Age'} |
6624 | 0 | 0 | 0 | $self->{'faces'}{$F}{'[coverage_hash]'}{$k} and not $self->{'faces'}{$F}{'[from_dia_chains]'}{$k} |
6657 | 0 | 0 | 0 | 42784 >= ord $_ || $self->{'UNames'}{$_} and not $self->{'faces'}{$F}{'[coverage_hash]'}{$_} |
6683 | 0 | 0 | 0 | 'ARRAY' eq ref $C and $C->[3] |
6685 | 0 | 0 | 0 | ref $C && $C->[2] |
6688 | 0 | 0 | 0 | $prefix && $self->{'faces'}{$F}{'[prefixDocs]'}{$self->key2hex($cc)} |
6695 | 0 | 0 | 0 | $create_a_c && $cc =~ /[\cA-\cZ]/ |
6696 | 0 | 0 | 0 | $create_a_c > 1 && $alpha_ctrl |
6698 | 0 | 0 | 0 | $S && ($S .= ', ') |
6714 | 0 | 0 | 0 | (ord $cc >= 128 || $cc eq ' ') && sprintf('%04X %s', ord $cc, $self->UName($cc, 'verbose', $vbell)) |
6715 | 0 | 0 | 0 | $title and $docs |
6719 | 0 | 0 | 0 | defined $expl and length $expl |
6723 | 0 | 0 | 0 | $title and not $expl |
0 | 0 | 0 | $title and not $expl and $vbell | |
6728 | 0 | 0 | 0 | $title =~ /\bLETTER\s+[AEUIYO]\b/ and $title =~ /\b(WITH|AND)\s+(HOOK\s+ABOVE|HORN)|(\s+(WITH|AND)\s+(CIRCUMFLEX|BREVE|ACUTE|GRAVE|TILDE|DOT\s+BELOW)\b){2}/ |
0 | 0 | 0 | 42800 <= ord $cc and 42891 > ord $cc | |
0 | 0 | 0 | 43003 <= ord $cc and 43007 >= ord $cc | |
6754 | 0 | 0 | 0 | $opts && $opts->{'ltr'} |
6755 | 0 | 0 | 0 | $aInv and $cc ne ($base_c || 'N/A') |
6843 | 0 | 0 | 0 | length $_ and ++$cnt |
6910 | 0 | 0 | 0 | $n >= $first_ctrl and $n < $post_ctrl |
6912 | 0 | 0 | 0 | $dn and not $maps[$dn] |
6923 | 0 | 0 | 0 | not $dn and 'ARRAY' eq ref $c |
0 | 0 | 0 | not $dn and 'ARRAY' eq ref $c and $c->[2] | |
6932 | 0 | 0 | 0 | 'ARRAY' eq ref $c and $c->[2] |
6941 | 0 | 0 | 0 | $dn and $$is_D2{$baseK[$L][$shift]} |
7008 | 0 | 0 | 0 | defined $_ and ref $_ |
0 | 0 | 0 | not $after_import || $F =~ /^(.*)##Inv#([a-f0-9]{4,})$/is and grep {$_->[4] if defined $_ and ref $_;} @$k | |
7009 | 0 | 0 | 0 | ref $_ && $_->[2] |
0 | 0 | 0 | defined $_ and not ref $_ && $_->[2] | |
7010 | 0 | 0 | 0 | ref $_ and $_->[2] |
7011 | 0 | 0 | 0 | defined $_ and ref $_ |
7020 | 0 | 0 | 0 | 2 > length $_ && 65536 > ord $_ |
7079 | 0 | 0 | 0 | defined $_ and ref $_ |
7111 | 0 | 0 | 0 | &UI::KeyboardLayout::lc($s[0]) ne $s[0] and &UI::KeyboardLayout::lc($s[1]) ne $s[1] |
7113 | 0 | 0 | 0 | &UI::KeyboardLayout::uc($s[0]) ne $s[0] and &UI::KeyboardLayout::uc($s[1]) ne $s[1] |
7216 | 0 | 0 | 0 | ref $_ && $_->[2] |
7253 | 0 | 0 | 0 | ref $_ && $_->[2] |
0 | 0 | 0 | $is_extra{$deadKey} && ++$seenExtra{$_} | |
7257 | 0 | 0 | 0 | $_ && ref $_ |
7318 | 0 | 0 | 0 | $slot and grep exists $slot->{$_}, ('map', 'name') |
7641 | 0 | 0 | 0 | $dead and $k ne '-1' |
7695 | 0 | 0 | 0 | defined $u->[0] and defined $u->[1] |
0 | 0 | 0 | defined $u->[0] and defined $u->[1] and $u->[0] ne $u->[1] | |
7715 | 0 | 0 | 0 | $_ && ref $_ |
7717 | 0 | 0 | 0 | not @cntrl and $default_bind{$k}[1] |
7720 | 0 | 0 | 0 | $k =~ /^[A-Z]$/ and $create_a_c |
7721 | 0 | 0 | 0 | $create_a_c > 1 and $shift_control_extra{$k} |
7727 | 0 | 0 | 0 | defined $_ and ++$s{$_} |
7728 | 0 | 0 | 0 | ($_->[2] || 0) >= 3 and $_->[0] = $self->dead_with_inversion(!1, $_, $face, $self->{'faces'}{$face}) |
7734 | 0 | 0 | 0 | my $extra = $self->{'faces'}{$face}{'[output_layers]'} and defined $N |
7749 | 0 | 0 | 0 | not defined $CC[$sh] and defined $C[0] |
7750 | 0 | 0 | 0 | not $OK[$sh] and defined $C[0] |
0 | 0 | 0 | not $OK[$sh] and defined $C[0] and not $s{$C[0]} | |
7752 | 0 | 0 | 0 | $sh and not $OK[$sh] |
0 | 0 | 0 | $sh and not $OK[$sh] and defined $C[0] | |
0 | 0 | 0 | $sh and not $OK[$sh] and defined $C[0] and defined $was[0] | |
0 | 0 | 0 | $sh and not $OK[$sh] and defined $C[0] and defined $was[0] and not $s{$was[0]} | |
0 | 0 | 0 | $sh and not $OK[$sh] and defined $C[0] and defined $was[0] and not $s{$was[0]} and not $s1{$was[0]} | |
7762 | 0 | 0 | 0 | $skippable and not $cnt |
7763 | 0 | 0 | 0 | $skippable and not defined $KK[0][0] |
0 | 0 | 0 | $skippable and not defined $KK[0][0] and not defined $KK[1][0] | |
7867 | 0 | 0 | 0 | $v->[0] <= $u and $v->[0] + $v->[1] > $u |
7896 | 0 | 0 | 0 | @dead and ($x, $y) = splice(@dead, 0, 2) |
7897 | 0 | 0 | 0 | @k and ($x, $y) = splice(@k, 0, 2) |
7911 | 0 | 0 | 0 | length $next and not $next =~ /^(KEYNAME|LIGATURE|COPYRIGHT|COMPANY|LOCALENAME|LOCALEID|VERSION|SHIFTSTATE|LAYOUT|ATTRIBUTES|KEYNAME_EXT|KEYNAME_DEAD|DESCRIPTIONS|LANGUAGENAMES|ENDKBD)$/i |
7930 | 0 | 0 | 0 | length $next and not $next =~ /^(DEADKEY|KEYNAME|LIGATURE|COPYRIGHT|COMPANY|LOCALENAME|LOCALEID|VERSION|SHIFTSTATE|LAYOUT|ATTRIBUTES|KEYNAME_EXT|KEYNAME_DEAD|DESCRIPTIONS|LANGUAGENAMES|ENDKBD)$/i |
8306 | 0 | 0 | 0 | $self->{'faces'}{$b} != $L and not $remap |
8360 | 0 | 0 | 0 | $D eq ($flip_AltGr_hex || 'n/a') && $H->{'[have_AltGr_chain]'} |
8390 | 0 | 0 | 0 | &UI::KeyboardLayout::lc(scalar &UI::KeyboardLayout::chr(hex $_)) ne &UI::KeyboardLayout::uc(scalar &UI::KeyboardLayout::chr(hex $_)) && !$sp{&UI::KeyboardLayout::chr(hex $_)} |
0 | 0 | 0 | &UI::KeyboardLayout::lc(scalar &UI::KeyboardLayout::chr(hex $_)) eq &UI::KeyboardLayout::uc(scalar &UI::KeyboardLayout::chr(hex $_)) && !(&UI::KeyboardLayout::chr(hex $_) =~ /\p{Blank}/) && !$sp{&UI::KeyboardLayout::chr(hex $_)} | |
0 | 0 | 0 | (&UI::KeyboardLayout::lc(scalar &UI::KeyboardLayout::chr(hex $_)) eq &UI::KeyboardLayout::uc(scalar &UI::KeyboardLayout::chr(hex $_)) && &UI::KeyboardLayout::chr(hex $_) =~ /\p{Blank}/ || $sp{&UI::KeyboardLayout::chr(hex $_)}) && $_ ne '0020' | |
8395 | 0 | 0 | 0 | $to and 'ARRAY' eq ref $to |
8401 | 0 | 0 | 0 | $to and $to eq '0000' |
8403 | 0 | 0 | 0 | $map_n and ref $map_n |
8404 | 0 | 0 | 0 | hex $n > 65535 and $map_n |
8405 | 0 | 0 | 0 | $to and hex $to > 65535 |
8418 | 0 | 0 | 0 | $is_invAltGr_Base_with_chain && defined $map_AltGr_over->{$n} |
8419 | 0 | 0 | 0 | $alt_n and ref $alt_n |
8422 | 0 | 0 | 0 | defined $alt_n && $$use_dead2{&UI::KeyboardLayout::chr(hex $alt_n)} |
8432 | 0 | 0 | 0 | not $DEAD || $import_dead and defined $default |
0 | 0 | 0 | not $DEAD || $import_dead and defined $default and 127 == hex $to || 32 > hex $to | |
0 | 0 | 0 | not $DEAD || $import_dead and defined $default and 127 == hex $to || 32 > hex $to and 127 == hex $n || 32 > hex $n | |
8435 | 0 | 0 | 0 | $DEAD || $import_dead and $d eq $to |
8449 | 0 | 0 | 0 | $expl and $EXPL |
8454 | 0 | 0 | 0 | $OUT_Apple and 32 <= hex $n |
0 | 0 | 0 | $OUT_Apple and 32 <= hex $n and 127 != hex $n | |
8486 | 0 | 0 | 0 | $skip2 and $skip2 eq 'skip2-include0' |
8502 | 0 | 0 | 0 | ref $c && $c->[2] |
8503 | 0 | 0 | 0 | $_ and 'ARRAY' eq ref $_ |
0 | 0 | 0 | $_ and 'ARRAY' eq ref $_ and $_ = $_->[0] | |
8513 | 0 | 0 | 0 | defined $flip_AltGr && $prefix && $c eq $flip_AltGr |
8514 | 0 | 0 | 0 | $c eq $dia and $prefix |
8522 | 0 | 0 | 0 | 0 <= (my $off = index("\r\t\n\e\035\034\cH\177\036\037\000", $c)) and not $prefix |
0 | 0 | 0 | not $spaces and $c =~ /^\p{Blank}$/ | |
0 | 0 | 0 | not $spaces and $c =~ /^\p{Blank}$/ and not $prefix | |
8535 | 0 | 0 | 0 | $c eq '\\' and not $prefix |
8539 | 0 | 0 | 0 | $N == 1 and $c_noalt |
0 | 0 | 0 | $N == 1 and $c_noalt and $c_noalt eq '|' || $c_noalt eq '\\' | |
8543 | 0 | 0 | 0 | $c eq '?' and not $prefix |
8546 | 0 | 0 | 0 | $c_noalt and $c_noalt eq q['] || $c_noalt eq '"' |
8549 | 0 | 0 | 0 | $c eq '-' and not $prefix |
8552 | 0 | 0 | 0 | $N == 1 and $c_noalt |
0 | 0 | 0 | $N == 1 and $c_noalt and $c_noalt eq '_' || $c_noalt eq '-' | |
8555 | 0 | 0 | 0 | $N == 1 and $c_noalt |
0 | 0 | 0 | $N == 1 and $c_noalt and $c_noalt eq ';' || $c_noalt eq ':' | |
8558 | 0 | 0 | 0 | $N == 1 and defined $c_base |
0 | 0 | 0 | $N == 1 and defined $c_base and 0 <= (my $ind = index(q[`1234567890=[],.'], $c_base)) | |
8561 | 0 | 0 | 0 | $N == 0 and 0 <= (my $ind = index('[{]}', $c)) |
0 | 0 | 0 | $N == 0 and 0 <= (my $ind = index('[{]}', $c)) and not $prefix | |
8564 | 0 | 0 | 0 | $N == 1 and $c_noalt |
0 | 0 | 0 | $N == 1 and $c_noalt and $c_noalt eq '/' || $c_noalt eq '?' | |
8579 | 0 | 0 | 0 | defined $c2 and not $pref |
8601 | 0 | 0 | 0 | $_ ne $c and $seen{$_} |
8613 | 0 | 0 | 0 | $to = $self->{'Compositions'}{$dia[$diaN]}{$_} and '???', $out[$diaN]{$_} = $to |
8656 | 0 | 0 | 0 | /.\b(and|over)\b./ and s/^/~/ |
8660 | 0 | 0 | 0 | @out > 1 and not $neg |
8703 | 0 | 0 | 0 | defined $c and defined $doc |
8704 | 0 | 0 | 0 | $old and ref $old |
0 | 0 | 0 | $old and ref $old and defined $old->[3] | |
8800 | 0 | 0 | 0 | $_ && ref $_ |
8801 | 0 | 0 | 0 | $_ && ref $_ |
8819 | 0 | 0 | 0 | ref $C and $C->[2] |
8823 | 0 | 0 | 0 | 'ARRAY' eq ref $c and $c->[2] |
8892 | 0 | 0 | 0 | defined $f and not $self->{'Age'} |
8912 | 0 | 0 | 0 | not $have4 and @Dia == 3 |
8935 | 0 | 0 | 0 | not $spaceOK and $base eq ' ' |
8942 | 0 | 0 | 0 | $_ && ref $_ |
8975 | 0 | 0 | 0 | $_ && ref $_ |
8986 | 0 | 0 | 0 | defined $o->[0] and defined $o->[1] |
8990 | 0 | 0 | 0 | $_ && ref $_ |
8997 | 0 | 0 | 0 | $_ && ref $_ |
9038 | 0 | 0 | 0 | %$map and not $k1 =~ /^[0-9a-f]{4,}$/ |
9090 | 0 | 0 | 0 | $append && $NN->[$_] |
9097 | 0 | 0 | 0 | defined &$cvt($n) and $LL[$_][&$cvt($n)] = $C[$_] |
9120 | 0 | 0 | 0 | 2 < length $o[$_] and $last = $_ |
9147 | 0 | 0 | 0 | defined $l->[$k][$kk] and not defined $keys[$k][$kk] |
9194 | 0 | 0 | 0 | $ch and ref $ch |
9195 | 0 | 0 | 0 | $rch and ref $rch |
9198 | 0 | 0 | 0 | defined $ch and not defined $keys[$k][$kk] |
0 | 0 | 0 | defined $ch and not defined $keys[$k][$kk] and $whole ? !$seen[$k]{$ch} : $ch ne (defined $rch ? $rch : '') | |
9223 | 0 | 0 | 0 | $self->paren_match_q($out[-1]) && $self->brackets_match_q($out[-1]) |
0 | 0 | 0 | @_ and not $self->paren_match_q($out[-1]) && $self->brackets_match_q($out[-1]) | |
9302 | 0 | 0 | 0 | $recipe =~ /^(?:((Full)?Face)|FlipLayers)\((.*)\)$/ and $m1 = $1, 1 |
9326 | 0 | 0 | 0 | $notsame && !$N |
9331 | 0 | 0 | 0 | not defined $CC[$sh] and defined $C[0] |
9332 | 0 | 0 | 0 | not $OK[$sh] and defined $C[0] |
0 | 0 | 0 | not $OK[$sh] and defined $C[0] and not $s{$C[0]} | |
9334 | 0 | 0 | 0 | $sh and not $OK[$sh] |
0 | 0 | 0 | $sh and not $OK[$sh] and defined $C[0] | |
0 | 0 | 0 | $sh and not $OK[$sh] and defined $C[0] and defined $was[0] | |
0 | 0 | 0 | $sh and not $OK[$sh] and defined $C[0] and defined $was[0] and not $s{$was[0]} | |
0 | 0 | 0 | $sh and not $OK[$sh] and defined $C[0] and defined $was[0] and not $s{$was[0]} and not $s1{$was[0]} | |
9437 | 0 | 0 | 0 | $KK and $self->charhex2key($KK) |
0 | 0 | 0 | $KK and $self->charhex2key($KK) | |
0 | 0 | 0 | defined $flip_AltGr and defined $$chain{$KK and $self->charhex2key($KK)} | |
9442 | 0 | 0 | 0 | $KK eq '' and defined $flip_AltGr |
9462 | 0 | 0 | 0 | $H->{'[auto_dead]'}{$o = $H->{'[first_auto_dead]'}++}++ and $o < 4096 || !$H->{'[ad_can_wrap]'} |
9463 | 0 | 0 | 0 | $o >= 4096 and $H->{'[ad_can_wrap]'} |
0 | 0 | 0 | $o >= 4096 and $H->{'[ad_can_wrap]'} and not $H->{'[autodead_wrapped]'}++ | |
9498 | 0 | 0 | 0 | $F =~ m[/] and exists $H->{'layers'} |
9521 | 0 | 0 | 0 | $layers and join $", @$layers |
9527 | 0 | 0 | 0 | $massage and not $inv |
9547 | 0 | 0 | 0 | $inv && "$inv $hexPrefix" eq 'Inv 0000' |
9673 | 0 | 0 | 0 | defined $H->{'[first_auto_dead]'} and grep defined($_), map($self->flatten_arrays($_), map($self->{'layers'}{$_}, @$LL[1 .. $#$LL])) |
9750 | 0 | 0 | 0 | defined $b and not $self->{'layers'}{$b} |
9753 | 0 | 0 | 0 | $max < $#{$$self{'layers'}{$_};} and $max = $#{$$self{'layers'}{$_};} |
9754 | 0 | 0 | 0 | $max < $_->[0] + $_->[1] and $max = $_->[0] + $_->[1] |
9766 | 0 | 0 | 0 | $keys and warn "Can't find the range of keys to which unit `${u}' belongs (max=$max; cnt=$cnt)" |
9827 | 0 | 0 | 0 | defined $f and not $self->{'Age'} |
9905 | 0 | 0 | 0 | defined $v and defined $h{'OSX_ADD_VERSION'} |
10308 | 0 | 0 | 0 | $name =~ /\bCOMBINING\b/ and not $_c =~ /\p{NonSpacingMark}/ |
10313 | 0 | 0 | 0 | $with and @ext > 1 |
10328 | 0 | 0 | 0 | $candidates{$k}[-1][0] =~ s/\s+SYMBOL$// and $candidates{$k}[-1][1] .= '-symbol' |
10348 | 0 | 0 | 0 | 167 == hex($k) >> 8 and ($t = $name) =~ s/\b(\w|CO|VEN)(?!\1)(\w)$/$2/ |
10382 | 0 | 0 | 0 | $1 && push(@$a, $1) |
10401 | 0 | 0 | 0 | @$a == 3 and &UI::KeyboardLayout::chr(hex $a->[-2]) =~ /\W|\p{Lm}/ |
0 | 0 | 0 | @$a == 3 and &UI::KeyboardLayout::chr(hex $a->[-2]) =~ /\W|\p{Lm}/ and not $a->[-1] =~ /^ | |
0 | 0 | 0 | @$a == 3 and &UI::KeyboardLayout::chr(hex $a->[-2]) =~ /\W|\p{Lm}/ and not $a->[-1] =~ /^[-1]) =~ /\w/ | |
10414 | 0 | 0 | 0 | not $name and $k =~ /^[12]?F[89A]..$/ || hex $base >= 19968 && hex $base <= 40908 |
10432 | 0 | 0 | 0 | $F ne $from and $T ne $to |
10466 | 0 | 0 | 0 | $raw =~ /-SYMBOL$/ and 0 <= index($append, 'SYMBOL') |
10539 | 0 | 0 | 0 | $compose{join $", @exp} and not join($", @exp) =~ /<(font|pseudo-upgrade)>/ |
0 | 0 | 0 | $compose{join $", @exp} and not join($", @exp) =~ /<(font|pseudo-upgrade)>/ and $c ne $compose{join $", @exp}[0][1] | |
0 | 0 | 0 | $compose{join $", @exp} and not join($", @exp) =~ /<(font|pseudo-upgrade)>/ and $c ne $compose{join $", @exp}[0][1] and not $known_dups{$c} | |
10665 | 0 | 0 | 0 | $verbose and exists $UName_v{$c} |
0 | 0 | 0 | $verbose and exists $UName_v{$c} and $vbell || 9834 != ord $c | |
10671 | 0 | 0 | 0 | $verbose and %$i || $A |
10675 | 0 | 0 | 0 | $vbell and 9834 == ord $c |
10678 | 0 | 0 | 0 | $verbose and $vbell || 9834 != ord $c |
10723 | 0 | 0 | 0 | $a1 and not $seen{$a1->[0][1]}++ |
10727 | 0 | 0 | 0 | $a2 and $a1 |
0 | 0 | 0 | $a2 and $a1 and @seen == 2 | |
0 | 0 | 0 | $a2 and $a1 and @seen == 2 and $a1->[0][1] ne $a2->[0][1] | |
10741 | 0 | 0 | 0 | 'ARRAY' eq ref $C and defined $C->[3] |
10777 | 0 | 0 | 0 | $ini && ref $ini && defined $ini->[3] |
10809 | 0 | 0 | 0 | $_ && 'ARRAY' eq ref $_ |
10822 | 0 | 0 | 0 | $char eq $_ and ++$match |
10840 | 0 | 0 | 0 | $_ && ref $_ |
10854 | 0 | 0 | 0 | defined $_ and shift @$_, @$_ || undef $_ |
10859 | 0 | 0 | 0 | defined $_ and s/((? |
10870 | 0 | 0 | 0 | defined $res2[$_] and $penalty->[$_] gt ($p = ($OK{$res2[$_]} ? '+' : '-') . ($self->{'Age'}{$res2[$_]} || 'undef') . ($ok{$res2[$_]} ? '+' : '-') . "#$extra_penalty[$_]#" . ($self->{'UBlock'}{$res2[$_]} || '')) |
0 | 0 | 0 | defined $res2[$_] and $penalty->[$_] gt ($p = ($OK{$res2[$_]} ? '+' : '-') . ($self->{'Age'}{$res2[$_]} || 'undef') . ($ok{$res2[$_]} ? '+' : '-') . "#$extra_penalty[$_]#" . ($self->{'UBlock'}{$res2[$_]} || '')) and $penalty->[$_] = $p | |
10871 | 0 | 0 | 0 | defined $res2[0] && defined $res2[1] |
10873 | 0 | 0 | 0 | $cnt == 2 && $res2[0] ne $res2[1] && &UI::KeyboardLayout::lc($res2[0]) eq &UI::KeyboardLayout::lc($res2[1]) |
10875 | 0 | 0 | 0 | $double_occupancy and grep {$Penalize{$_} if defined $_;} @res2 |
10876 | 0 | 0 | 0 | $double_occupancy and grep {$penalize{$_} if defined $_;} @res2 |
10877 | 0 | 0 | 0 | defined $res2[$_] and $penalty->[$_] = "zzz$penalty->[$_]" |
10879 | 0 | 0 | 0 | defined $_ and $Penalize{$_} |
0 | 0 | 0 | defined $_ and $Penalize{$_} and --$cnt, $have1 = 1, undef $_ | |
10880 | 0 | 0 | 0 | defined $res2[$_] and $penalize{$res2[$_]} |
0 | 0 | 0 | defined $res2[$_] and $penalize{$res2[$_]} and $penalty->[$_] = "zzz$penalty->[$_]" | |
10883 | 0 | 0 | 0 | not $double_occupancy and $cnt == 2 |
10890 | 0 | 0 | 0 | @$penalty > 1 and defined $res2[1] |
0 | 0 | 0 | @$penalty > 1 and defined $res2[1] and $p gt $penalty->[1] | |
10906 | 0 | 0 | 0 | $l <= length $_ and $l = length $_ |
10908 | 0 | 0 | 0 | $l > length $_ and $_ .= ' ' x ($l - length($_)) |
10915 | 0 | 0 | 0 | defined $k and not $k =~ /[^\x{2503}\x{250b}\x{2551}\x{2502}\x{2506}\s]/ |
10951 | 0 | 0 | 0 | @L and not $L[-1] =~ /[^\x{2503}\x{250b}\x{2551}\x{2502}\x{2506}\s]/ |
10959 | 0 | 0 | 0 | defined $k and defined $k->[0] || defined $k->[1] |
10962 | 0 | 0 | 0 | @$k == 2 && defined $k->[0] && defined $k->[1] && $kk[0] ne $kk[1] && $kk[0] eq &UI::KeyboardLayout::lc($kk[1]) |
10963 | 0 | 0 | 0 | $LL and $L |
0 | 0 | 0 | $LL and $L and defined $k->[$_] | |
0 | 0 | 0 | $LL and $L and defined $k->[$_] and defined $LL->[$L][$_] | |
10985 | 0 | 0 | 0 | $do_lc && $do_uc |
10994 | 0 | 0 | 0 | $penalty_group->[1] and @{[] unless $penalty_group->[1][$L];} |
11000 | 0 | 0 | 0 | $set and @$set |
11011 | 0 | 0 | 0 | $do_lc && defined $set->[$elt][0] |
11012 | 0 | 0 | 0 | $do_uc && defined $set->[$elt][1] |
11014 | 0 | 0 | 0 | defined $set->[$elt][0] && defined $set->[$elt][1] |
11015 | 0 | 0 | 0 | $lc_ok && $uc_ok |
11016 | 0 | 0 | 0 | defined $have_out and $found_both || $have_out eq $uc_ok |
11021 | 0 | 0 | 0 | defined $have_out and $have_out eq $uc_ok |
11652 | 0 | 0 | 0 | $kmap and $_ = $self->apply_kmap($kmap, $_) |
11653 | 0 | 0 | 0 | ref $_ and $_ = $_->[0] |
11682 | 0 | 0 | 0 | defined $_ && ref $_ |
11692 | 0 | 0 | 0 | ref $LC && ref $UC && $LC->[2] && ($UC->[2] && $uc eq $lc) |
11693 | 0 | 0 | 0 | $uc eq &UI::KeyboardLayout::ucfirst($lc) and $lc eq &UI::KeyboardLayout::lc($uc) |
0 | 0 | 0 | $uc eq &UI::KeyboardLayout::ucfirst($lc) and $lc eq &UI::KeyboardLayout::lc($uc) and $lc ne "\337" | |
0 | 0 | 0 | $uc eq &UI::KeyboardLayout::ucfirst($lc) and $lc eq &UI::KeyboardLayout::lc($uc) and $lc ne "\337" and defined $lc1 == defined $uc1 | |
11695 | 0 | 0 | 0 | ref $_ and $_->[2] |
11698 | 0 | 0 | 0 | $prefix2 and $pref_i[1] |
0 | 0 | 0 | $prefix2 and $pref_i[1] and not $pref_i[0] | |
11699 | 0 | 0 | 0 | $LC and ref $LC |
0 | 0 | 0 | $LC and ref $LC and $LC->[2] | |
11703 | 0 | 0 | 0 | defined $lc1 and &UI::KeyboardLayout::uc($lc1) ne &UI::KeyboardLayout::ucfirst($lc1) |
11715 | 0 | 0 | 0 | $_->[3] and ref $_->[3] |
0 | 0 | 0 | $_->[3] and ref $_->[3] and $_->[3][2] | |
0 | 0 | 0 | $_->[3] and ref $_->[3] and $_->[3][2] and push @{$$_[1];}, 'prefix' | |
11716 | 0 | 0 | 0 | $_->[3] and ref $_->[3] |
0 | 0 | 0 | $_->[3] and ref $_->[3] and 3 == ($_->[3][2] || 0) || 24 == ($_->[3][2] || 0) | |
0 | 0 | 0 | $_->[3] and ref $_->[3] and 3 == ($_->[3][2] || 0) || 24 == ($_->[3][2] || 0) and push @{$$_[1];}, 'prefix2' | |
11772 | 0 | 0 | 0 | $which eq '-' && ($which = 0, [$f]) |
11773 | 0 | 0 | 0 | $L and not $self->{'layers'}{$L->[$which]} |
12360 | 0 | 0 | 0 | ref $v and $seen{"$v"} |
12413 | 0 | 0 | 0 | $linkedF && $self->{'faces'}{$linkedF}{'Face_link_map'}{$F} |
12415 | 0 | 0 | 0 | $linked && $self->{'faces'}{$F}{'Face_link_map'}{$linkedF} |
12421 | 0 | 0 | 0 | $prefix and ref $prefix |
12423 | 0 | 0 | 0 | defined $a[$_] and length $a[$_] |
0 | 0 | 0 | defined $a[$_] and length $a[$_] and $a[$_] = $self->key2hex($self->charhex2key($a[$_])) | |
12439 | 0 | 0 | 0 | $arr = $self->create_composeArray($pref->[0], $pref->[1]) and @$arr |
12477 | 0 | 0 | 0 | @hashes and defined $pref->[4] |
0 | 0 | 0 | @hashes and defined $pref->[4] and length $pref->[4] | |
12490 | 0 | 0 | 0 | ref $Comp_show and length $$Comp_show[$IDX->[$i]] |
12799 | 0 | 0 | 0 | $do_hex5 and not $HEX =~ /[01]/ |
12804 | 0 | 0 | 0 | $do_hex5 and $HEX =~ /1/ |
12807 | 0 | 0 | 0 | $do_hex5 and $HEX =~ /0/ |
12820 | 0 | 0 | 0 | $do_hex5 and not $HEX =~ /0/ |
12832 | 0 | 0 | 0 | $merge_states_6_and_4 && !$use_plan_c |
12949 | 0 | 0 | 0 | 53248 <= ord $c and 57343 >= ord $c |
12978 | 0 | 0 | 0 | not defined $c and defined $I |
12988 | 0 | 0 | 0 | not $d and $caps |
12991 | 0 | 0 | 0 | $d >= 0 && $$map{$self->keys2hex($c)} |
13040 | 0 | 0 | 0 | $doHEX and $v->[0] =~ /^[-u\x20_+=0-9a-f]\z/i |
13052 | 0 | 0 | 0 | $do_hex5 && ++$e{'hex5'} |
13064 | 0 | 0 | 0 | $v = $dd->{$k} and $v->[1] |
13071 | 0 | 0 | 0 | $term and not $do_initing |
13093 | 0 | 0 | 0 | $do_initing && !$term |
13094 | 0 | 0 | 0 | $a =~ /^hex4\z/ && ($do_hex5 ? qq[\t |
13106 | 0 | 0 | 0 | $term and $doHEX |
0 | 0 | 0 | $term and $doHEX and not $do_initing |
line | l | !l | condition |
---|---|---|---|
10 | 0 | 1 | $ENV{'UI_KEYBOARDLAYOUT_DEBUG'} || 0 |
5780 | 0 | 0 | $hash->{$k} ||= {} |
5810 | 0 | 0 | $slot->{$kk} || 0 |
5841 | 0 | 0 | $k[0] || '' |
5899 | 0 | 0 | $kk[$_] || [] |
5942 | 0 | 0 | $l == length $_ or die "Lengths of lines encoding rect do not match: expect $l, got `" . join("\n", '', @L, '') . q['] |
5945 | 0 | 0 | $l == $opt->{'rect_rows_cols'}[1] * $opt->{'rect_horizontal_counts'}[$c] + ($opt->{'rect_horizontal_counts'}[$c] - 1) * $c0 or die "Wrong line length in rect: expect $opt->{'rect_rows_cols'}[1] * $opt->{'rect_horizontal_counts'}[$c] gaps=$c0, got $l in `" . join("\n", '', @L, '') . q['] |
5966 | 0 | 0 | $out{$opt->{'layer_names'}[$i] . "\262"} ||= [map([$base->[$_][0], $shift->[$_][0]], 0 .. $#$base)] |
5988 | 0 | 0 | @_ || (return) |
5991 | 0 | 0 | $v || 1 |
6003 | 0 | 0 | $self->get_deep($self, @parts[1 .. $_]) || {} |
6004 | 0 | 0 | $self->get_deep($h, @parts[1 .. $_]) || {} |
6005 | 0 | 0 | $self->get_deep($h, @parts[0 .. $_]) || {} |
6049 | 0 | 0 | $self->{'faces'}{$face}{'[coverage_hex]'} ||= {} |
6105 | 0 | 0 | $c[0][$_] || '' |
6115 | 0 | 0 | $obsc[0] || 0 |
6122 | 0 | 0 | $skipwarn || '' |
6129 | 0 | 0 | $C[0][$k] || '.' |
6177 | 0 | 0 | $C->[3] || '???' |
6178 | 0 | 0 | $dead || '' |
6195 | 0 | 0 | shift() || {} |
0 | 0 | shift() || {} | |
6202 | 0 | 0 | $self->{'face_back'}{$F} ||= {} |
6429 | 0 | 0 | $self->{'faces'}{$f}{"[$_]"} ||= {} |
6430 | 0 | 0 | $self->{'faces'}{$f}{"[$_]"} ||= [] |
6687 | 0 | 0 | $base_c || 'N/A' |
6697 | 0 | 0 | $ctrl_special{$C} || '' |
6718 | 0 | 0 | $docs || '' |
6749 | 0 | 0 | $expl || '' |
6755 | 0 | 0 | $base_c || 'N/A' |
6760 | 0 | 0 | shift() || '' |
6866 | 0 | 0 | $access{$ddd} ||= \@D |
6886 | 0 | 0 | $self->{'faces'}{$F}{"[$_]"} || 0 |
7011 | 0 | 0 | $_->[2] || 0 |
7190 | 0 | 0 | $data->{'faces'}{$F}{'[Explicit_AltGr_Invert]'} || [] |
7633 | 0 | 0 | $v->[0] = $scan_codes{$K} or die "Can't find the scancode for the VK key `${K}'" |
7661 | 0 | 0 | $ctrl[0] || 0 |
7662 | 0 | 0 | $ctrl[1] || 0 |
7716 | 0 | 0 | $u->[0][0] or 'N/A' |
7722 | 0 | 0 | $deadkeys ||= [] |
7728 | 0 | 0 | $_->[2] || 0 |
7787 | 0 | 0 | $_->[1] or 0 |
7805 | 0 | 0 | $double_scan_VK{&UI::KeyboardLayout::uc("$i[0] $i[1]")} || '' |
7935 | 0 | 0 | $self->{'[seen_knames]'} ||= {} |
8346 | 0 | 0 | ($Dead2 || {})->{$self->charhex2key($d)} || {} |
8373 | 0 | 0 | $$Dead2{$self->charhex2key($flip_AltGr_hex)} || {} |
8398 | 0 | 0 | $to->[2] || 0 |
8436 | 0 | 0 | $flip_AltGr_hex || 'n/a' |
8438 | 0 | 0 | $H->{'[DeadChar_32bitTranslation]'} || '003f' |
8521 | 0 | 0 | $self->{'Diacritics_Limits'}{'ALL'} || [(0) x 7] |
8639 | 0 | 0 | $1 || '' |
8652 | 0 | 0 | &UI::KeyboardLayout::lc(scalar $self->UName($_)) || '' |
8653 | 0 | 0 | &UI::KeyboardLayout::lc(scalar $self->UName($_)) || '' |
8677 | 0 | 0 | $a || '' |
8685 | 0 | 0 | $a || '' |
8734 | 0 | 0 | shift() || 0 |
8756 | 0 | 0 | $deadkey or '' |
0 | 0 | $self->{'faces'}{$face}{'[HTML_classes]'}{$deadkey or ''} ||= {} | |
8768 | 0 | 0 | shift() || '[none]' |
8829 | 0 | 0 | $self->{'faces'}{$face}{'[g_offsets]'} || [(0) x @$g] |
8925 | 0 | 0 | $self->{'faces'}{$face}{'[AltSubstitutions]'} || {} |
9078 | 0 | 0 | shift() || 0 |
9129 | 0 | 0 | @$_ == $c or die 'Stacking: number of layers ', scalar @$_, " != number of layers $c of the first elt" |
9149 | 0 | 0 | $keys[$k] ||= [] |
9164 | 0 | 0 | @$_ == $c or die 'Stacking: number of layers ', scalar @$_, " != number of layers $c of the reference face" |
9200 | 0 | 0 | $keys[$k] ||= [] |
9508 | 0 | 0 | $1 || '' |
9511 | 0 | 0 | $key or '' |
9519 | 0 | 0 | shift() || '' |
9524 | 0 | 0 | $layers ||= [0 .. $#{$$self{'faces'}{$F}{'layers'};}] |
9593 | 0 | 0 | $self->{'layers'}{"[empty$layerL]"} ||= [map([], 1 .. $layerL)] |
9664 | 0 | 0 | $H->{'[Explicit_AltGr_Invert]'} || [] |
9719 | 0 | 0 | $self->{'layers'}{$new_Name} ||= [map(&$Tr($_), @{$self->{'layers'}{$LLL->[$n]};})] |
9855 | 0 | 0 | $F->{'[layers_mods_keys]'} || ['', 'rA'] |
9856 | 0 | 0 | $F->{'[layers_modifiers]'} || [] |
9871 | 0 | 0 | $tr_mods_keys{'lC'} || $tr_mods_keys{'C'} || $tr_mods_keys{'rC'} || 'C' |
9953 | 0 | 0 | $F->{'[Apple_Override]'} || [] |
9963 | 0 | 0 | $F->{'[Apple_Duplicate]'} || [110, 10, 71, 10, 102, 49, 104, 49] |
10668 | 0 | 0 | Unicode::UCD::charinfo(ord $c) || {} |
10854 | 0 | 0 | @$_ || undef $_ |
10861 | 0 | 0 | $_ || 0 |
10870 | 0 | 0 | $self->{'Age'}{$res2[$_]} || 'undef' |
0 | 0 | $self->{'UBlock'}{$res2[$_]} || '' | |
10905 | 0 | 0 | shift() || 0 |
10913 | 0 | 0 | $k || 0 |
10921 | 0 | 0 | $bold{$group} || "\x{2551}" |
10982 | 0 | 0 | shift() || 0 |
0 | 0 | shift() || 1e+100 | |
0 | 0 | shift() || 0 | |
11586 | 0 | 0 | shift() || {} |
11592 | 0 | 0 | shift() || {} |
11679 | 0 | 0 | shift() || [] |
11691 | 0 | 0 | $name || '' |
11697 | 0 | 0 | $_->[2] || 0 |
0 | 0 | $_->[2] || 0 | |
11736 | 0 | 0 | $opts{'oneRow'} && $kbdrow++ || 0 |
11742 | 0 | 0 | $opts{'startKey'} || 0 |
11748 | 0 | 0 | shift @fixed || '' |
11780 | 0 | 0 | $self->{'faces'}{$f}{'[HTML_classes]'}{length $prefix ? $self->key2hex($prefix) : ''} || {} |
12223 | 0 | 0 | shift() || \*ARGV |
12320 | 0 | 0 | $to->{$k} || {} |
12355 | 0 | 0 | $h->{'[Added]'} || {} |
12357 | 0 | 0 | $added->{$a} || '' |
0 | 0 | $added->{$b} || '' | |
12414 | 0 | 0 | $_ || 0 |
12680 | 0 | 0 | $Apple_recode{$kk} or 123 |
12682 | 0 | 0 | $Apple_recode{$k} or 123 |
12694 | 0 | 0 | $AppleSym[$i] || '' |
12963 | 0 | 0 | shift() || {} |
0 | 0 | shift() || {} | |
0 | 0 | shift() || {} | |
12984 | 0 | 0 | $c->[2] || 0 |
13005 | 0 | 0 | shift() || {} |
0 | 0 | shift() || {} | |
13025 | 0 | 0 | $v->[2] || 0 |
13048 | 0 | 0 | shift() || {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
5775 | 0 | 0 | 0 | ref $class || $class |
5839 | 0 | 0 | 0 | not @k or grep((!length($_)), @k) |
5868 | 0 | 0 | 0 | $from or exists $extra{$k} |
5918 | 0 | 0 | 0 | $from or exists $extra{$k} |
6108 | 0 | 0 | 0 | defined $H[0][$_] or not defined $C[0][$_] |
0 | 0 | 0 | defined $H[0][$_] or not defined $C[0][$_] or $skipwarn | |
0 | 0 | 0 | defined $H[0][$_] or not defined $C[0][$_] or $skipwarn or warn "Symbol char `$c[0][$_]' not copied to the second face while the slot is empty" | |
6179 | 0 | 0 | 0 | $c ne $flipped || !$dead |
6214 | 0 | 0 | 0 | $last >= $fst or $#$a >= $fst |
6250 | 0 | 0 | 0 | $self->{'layers'}{'[ini_copy1]'}{$_} || $self->{'layers'}{'[ini_copy]'}{$_} || $self->{'layers'}{$_} |
6299 | 0 | 0 | 0 | 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
6314 | 0 | 0 | 0 | defined $self->{'faces'}{$f}{"[$_]"} or $self->{'faces'}{$f}{"[$_]"} = $R{$_} |
6369 | 0 | 0 | 0 | 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
6387 | 0 | 0 | 0 | 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
6403 | 0 | 0 | 0 | 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
6411 | 0 | 0 | 0 | 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
6417 | 0 | 0 | 0 | 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
6421 | 0 | 0 | 0 | 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
6428 | 0 | 0 | 0 | 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
6443 | 0 | 0 | 0 | $s{$_}++ || push(@d, $_) |
6471 | 0 | 0 | 0 | $$DDD{$k->[0]} || $$vk{$k->[0]} |
6472 | 0 | 0 | 0 | $k->[2] || ($$export{$k->[0]} ? 2 : 1) |
6488 | 0 | 0 | 0 | $$DDD{$k->[0]} || $$vk{$k->[0]} |
6489 | 0 | 0 | 0 | $k->[2] || ($$export{$k->[0]} ? 2 : 1) |
6499 | 0 | 0 | 0 | $self->{'faces'}{$f}{'faceDeadKeys2'} or $self->{'faces'}{$f}{'layerDeadKeys2'} |
6612 | 0 | 0 | 0 | $h1->{$k} or $self->print_codepoint($k) |
6616 | 0 | 0 | 0 | $h1->{$k} or $self->print_codepoint($k) |
6634 | 0 | 0 | 0 | $self->{'faces'}{$F}{'[coverage_hash]'}{$_} || ++$lost_diac |
6646 | 0 | 0 | 0 | 42784 >= ord $_ or $self->{'UNames'}{$_} |
6657 | 0 | 0 | 0 | 42784 >= ord $_ || $self->{'UNames'}{$_} |
6702 | 0 | 0 | 0 | $type or $c =~ /($rxZW)$/o |
6711 | 0 | 0 | 0 | !!$fill || $cc eq "\x{34f}" |
6718 | 0 | 0 | 0 | $title ||= $docs || '' |
6728 | 0 | 0 | 0 | 0 <= index(&UI::KeyboardLayout::lc("\x{204a}\x{1f7}\x{a765}\x{195}\x{1f6}\x{1d79}"), &UI::KeyboardLayout::lc($cc)) or 42800 <= ord $cc and 42891 > ord $cc |
0 | 0 | 0 | 0 <= index(&UI::KeyboardLayout::lc("\x{204a}\x{1f7}\x{a765}\x{195}\x{1f6}\x{1d79}"), &UI::KeyboardLayout::lc($cc)) or 42800 <= ord $cc and 42891 > ord $cc or 43003 <= ord $cc and 43007 >= ord $cc | |
6822 | 0 | 0 | 0 | $s{$_}++ or push @d, $_ |
6831 | 0 | 0 | 0 | $compK->{$c} || warn("??? Skip non-array prefix key `${c}' for face `${F}', k=`${dK}'") |
6910 | 0 | 0 | 0 | $n >= $first_ctrl and $n < $post_ctrl or $skip_sections[$n] |
6931 | 0 | 0 | 0 | 3 == ($c->[2] || 0) || 24 == ($c->[2] || 0) |
6937 | 0 | 0 | 0 | 3 == ($c->[2] || 0) || 24 == ($c->[2] || 0) |
6938 | 0 | 0 | 0 | $pre or $self->{'faces'}{$F}{'[coverage0_prefix]'}{$c} |
6941 | 0 | 0 | 0 | $pre ||= $dead |
7008 | 0 | 0 | 0 | $after_import || $F =~ /^(.*)##Inv#([a-f0-9]{4,})$/is |
7010 | 0 | 0 | 0 | ref $_ and $_->[2] or $$d{ref $_ ? $_->[0] : $_} |
7037 | 0 | 0 | 0 | exists $H->{'[imported2key]'}{$i} or exists $H->{'[imported2key_auto]'}{$i} |
0 | 0 | 0 | $H->{'[coverage0_prefix]'}{$k} or $H->{'[auto_dead]'}{$k} | |
7139 | 0 | 0 | 0 | ref $class || $class |
7151 | 0 | 0 | 0 | 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
7155 | 0 | 0 | 0 | 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
7159 | 0 | 0 | 0 | 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
7166 | 0 | 0 | 0 | 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
7204 | 0 | 0 | 0 | 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
7226 | 0 | 0 | 0 | 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
7253 | 0 | 0 | 0 | $seen0{$_}++ || ++$seen1{$_} |
0 | 0 | 0 | $not_in_0 && !$is_extra{$deadKey} || $seen00{$_} || ++$seen1only{$_} | |
7271 | 0 | 0 | 0 | $coverage1_prefix{$_} || $is_extra{$_} |
7641 | 0 | 0 | 0 | $seen_dead{$k}++ or push @dead, $k |
7688 | 0 | 0 | 0 | 1 != length $k or ord $k > 65535 |
7696 | 0 | 0 | 0 | $fix{$u->[0]} || &UI::KeyboardLayout::uc($u->[0]) |
7697 | 0 | 0 | 0 | $fix{$u->[0]} || &UI::KeyboardLayout::ucfirst($u->[0]) |
7713 | 0 | 0 | 0 | $known_scancode || $scan_codes{$k} |
7733 | 0 | 0 | 0 | keys %s || @cntrl |
7771 | 0 | 0 | 0 | $pre_ctrl < 2 * @$u or $self->{'faces'}{$face}{'[keep_missing_ctrl]'} |
7778 | 0 | 0 | 0 | defined $KK[$_][0] or $KK[$_] = $d[$_] |
7814 | 0 | 0 | 0 | $seen_scan{$i->[0]} or $seen_VK{$i->[1]} |
7948 | 0 | 0 | 0 | $seen{$_} or ++$miss{$_} |
8321 | 0 | 0 | 0 | ord $c < 32 or ord $c == 127 |
8327 | 0 | 0 | 0 | 3 == ($to->[2] || 0) || 3 == ($to->[2] || 0) >> 3 |
8363 | 0 | 0 | 0 | $#maps or $is_invAltGr_Base_with_chain |
8380 | 0 | 0 | 0 | $invertAlt0 || $is_invAltGr_Base_with_chain |
8413 | 0 | 0 | 0 | $to ||= $default |
8432 | 0 | 0 | 0 | $DEAD || $import_dead |
0 | 0 | 0 | 127 == hex $to || 32 > hex $to | |
0 | 0 | 0 | 127 == hex $n || 32 > hex $n | |
8435 | 0 | 0 | 0 | $DEAD || $import_dead |
8457 | 0 | 0 | 0 | $keys ||= @keys |
8490 | 0 | 0 | 0 | $idx >= $need or defined $v[$idx] |
8535 | 0 | 0 | 0 | $c eq '|' or $c eq '\\' and not $prefix |
8539 | 0 | 0 | 0 | $c_noalt eq '|' || $c_noalt eq '\\' |
8543 | 0 | 0 | 0 | $c eq '/' or $c eq '?' and not $prefix |
8546 | 0 | 0 | 0 | $c_noalt eq q['] || $c_noalt eq '"' |
8549 | 0 | 0 | 0 | $c eq '_' or $c eq '-' and not $prefix |
8552 | 0 | 0 | 0 | $c_noalt eq '_' || $c_noalt eq '-' |
8555 | 0 | 0 | 0 | $c_noalt eq ';' || $c_noalt eq ':' |
8564 | 0 | 0 | 0 | $c_noalt eq '/' || $c_noalt eq '?' |
8656 | 0 | 0 | 0 | $AA cmp $BB or $A cmp $B |
8769 | 0 | 0 | 0 | $c eq ' ' || $c eq $self_OK && defined $dia |
8795 | 0 | 0 | 0 | exists $self->{'layers'}{$_} or $_ = $self->make_translated_layers($_, $face, [$N], $deadkey)->[0] |
8813 | 0 | 0 | 0 | exists $self->{'layers'}{$_} or $_ = $self->make_translated_layers($_, $face, [$N], $deadkey)->[0] |
8838 | 0 | 0 | 0 | $L or $shift |
0 | 0 | 0 | $L or $shift or $k >= $tot | |
8863 | 0 | 0 | 0 | $k >= $tot or $#recipes < (my $r = $r{$k}) |
8962 | 0 | 0 | 0 | $sorted3 || $sorted2 |
8978 | 0 | 0 | 0 | !$_ || ref $_ |
8988 | 0 | 0 | 0 | !defined($_) || ref $_ |
8989 | 0 | 0 | 0 | defined $o->[$_] or $o->[$_] = $o2->[$_] |
9262 | 0 | 0 | 0 | $self->{'faces'}{$face}{'[ini_layers_prefix]'} || $self->{'faces'}{$face}{'[ini_layers]'} |
0 | 0 | 0 | $full ? undef : $self->{'faces'}{$face}{'[ini_layers_prefix]'} || $self->{'faces'}{$face}{'[ini_layers]'} or $self->{'faces'}{$face}{'layers'} | |
9311 | 0 | 0 | 0 | $N or not $notsame |
9462 | 0 | 0 | 0 | $o < 4096 || !$H->{'[ad_can_wrap]'} |
9466 | 0 | 0 | 0 | $H->{'[auto_dead]'}{$o = $H->{'[first_auto_dead]'}++}++ or $H->{'[deadkeyFaceHexMap]'}{$self->key2hex(&UI::KeyboardLayout::chr($o))} |
9493 | 0 | 0 | 0 | @FF == 1 or $FF[-1] eq 'VK' |
9511 | 0 | 0 | 0 | Deparse error: Bizarre copy of CODE in list assignment at /usr/local/lib/perl5/5.22.0/B/Deparse.pm line 4035. {defined $layers ? $layers : 'All'} ||= $HH->{$k} |
9560 | 0 | 0 | 0 | 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/ |
9569 | 0 | 0 | 0 | $H->{'[DeadKey__Maps]'}{$_} || $H->{'[ComposeKeys]'}{$_} |
9581 | 0 | 0 | 0 | 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/ |
9612 | 0 | 0 | 0 | @FF == 1 or $FF[-1] eq 'VK' |
9623 | 0 | 0 | 0 | $Kn != $#prefix || !$trail_nonprefix |
9646 | 0 | 0 | 0 | @FF == 1 or $FF[-1] eq 'VK' |
9661 | 0 | 0 | 0 | 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/ |
9761 | 0 | 0 | 0 | $k = $oem_keys{$k} or warn("Can't find a key with VKEY `${c}', unit=$u, lim=$cnt"), return |
9839 | 0 | 0 | 0 | $self->{'DEADKEYS'}{$_} || $self->{'[seen_knames]'}{&UI::KeyboardLayout::chr(hex $_)} || $F->{'[prefixDocs]'}{$_} || $self->UName($_) |
9847 | 0 | 0 | 0 | $nn{$_} =~ /\bCompose\s+(Compose\b|(?!key)\S+)/ or $OUT_NAMES .= qq[$_\t"$nn{$_}"\n] |
9901 | 0 | 0 | 0 | $h{'OSX_LAYOUTNAME'} ||= $h{'LAYOUTNAME'} |
10219 | 0 | 0 | 0 | @$expand < 2 or not $expand->[0] =~ /^[01]$/ |
10363 | 0 | 0 | 0 | ($t = $name) =~ s/\b(LETTER\s+)E([SZN])[HG]$/$1$2/ or ($t = $name) =~ s/(?<=\bLETTER\sV\s)WITH\s+RIGHT\s+HOOK$// |
0 | 0 | 0 | ($t = $name) =~ s/\b(LETTER\s+)E([SZN])[HG]$/$1$2/ or ($t = $name) =~ s/(?<=\bLETTER\sV\s)WITH\s+RIGHT\s+HOOK$// or ($t = $name) =~ s/\bDOTLESS\s+J\s+WITH\s+STROKE$/J/ | |
0 | 0 | 0 | ($t = $name) =~ s/\b(LETTER\s+)E([SZN])[HG]$/$1$2/ or ($t = $name) =~ s/(?<=\bLETTER\sV\s)WITH\s+RIGHT\s+HOOK$// or ($t = $name) =~ s/\bDOTLESS\s+J\s+WITH\s+STROKE$/J/ or $name eq 'LATIN SMALL LETTER SCHWA' and $t = 'DIGIT ZERO' | |
10388 | 0 | 0 | 0 | $name =~ /^(?:MATHEMATICAL\s+)?((?:(?:BLACK-LETTER|FRAKTUR|BOLD|ITALIC|SANS-SERIF|DOUBLE-STRUCK|MONOSPACE|SCRIPT)\b\s*?)+)(?=\s+(?:SMALL|CAPITAL|DIGIT|NABLA|PARTIAL|N-ARY|\w+\s+SYMBOL)\b)/ or $name =~ /^HEBREW\s+LETTER\s+(WIDE|ALTERNATIVE)\b/ |
0 | 0 | 0 | $name =~ /^(?:MATHEMATICAL\s+)?((?:(?:BLACK-LETTER|FRAKTUR|BOLD|ITALIC|SANS-SERIF|DOUBLE-STRUCK|MONOSPACE|SCRIPT)\b\s*?)+)(?=\s+(?:SMALL|CAPITAL|DIGIT|NABLA|PARTIAL|N-ARY|\w+\s+SYMBOL)\b)/ or $name =~ /^HEBREW\s+LETTER\s+(WIDE|ALTERNATIVE)\b/ or $name =~ /^(ARABIC\s+MATHEMATICAL(?:\s+(?:INITIAL|DOTLESS|STRETCHED|LOOPED|TAILED|DOUBLE-STRUCK))?)\b/ | |
0 | 0 | 0 | $name =~ /^(?:MATHEMATICAL\s+)?((?:(?:BLACK-LETTER|FRAKTUR|BOLD|ITALIC|SANS-SERIF|DOUBLE-STRUCK|MONOSPACE|SCRIPT)\b\s*?)+)(?=\s+(?:SMALL|CAPITAL|DIGIT|NABLA|PARTIAL|N-ARY|\w+\s+SYMBOL)\b)/ or $name =~ /^HEBREW\s+LETTER\s+(WIDE|ALTERNATIVE)\b/ or $name =~ /^(ARABIC\s+MATHEMATICAL(?:\s+(?:INITIAL|DOTLESS|STRETCHED|LOOPED|TAILED|DOUBLE-STRUCK))?)\b/ or $name =~ /^(PLANCK|INFORMATION)/ | |
10401 | 0 | 0 | 0 | $a->[-1] eq ' |
10414 | 0 | 0 | 0 | $k =~ /^[12]?F[89A]..$/ || hex $base >= 19968 && hex $base <= 40908 |
10481 | 0 | 0 | 0 | not $N{$b} or $with =~ /smallcaps/ |
10564 | 0 | 0 | 0 | $contr->[0] || $off != $#$v |
10665 | 0 | 0 | 0 | $vbell || 9834 != ord $c |
10666 | 0 | 0 | 0 | not exists $self->{'UNames'} or $verbose |
10668 | 0 | 0 | 0 | $charinfo{$c} ||= Unicode::UCD::charinfo(ord $c) || {} |
10670 | 0 | 0 | 0 | $self->{'UNames'}{$c} || $i->{'name'} || "<$c>" |
10671 | 0 | 0 | 0 | %$i || $A |
10678 | 0 | 0 | 0 | $vbell || 9834 != ord $c |
10690 | 0 | 0 | 0 | $2 || $1 |
10725 | 0 | 0 | 0 | defined(my $a2 = $self->{'Compositions'}{$comp}{$C}) or @seen == 2 |
10729 | 0 | 0 | 0 | @seen == 2 && $a1 || $a2 |
10733 | 0 | 0 | 0 | @$r == 1 or $C eq ' ' |
10753 | 0 | 0 | 0 | $_->[1] eq &UI::KeyboardLayout::lc($_->[1]) || 1 != length &UI::KeyboardLayout::lc($_->[1]) |
10755 | 0 | 0 | 0 | $_->[1] eq &UI::KeyboardLayout::uc($_->[1]) || 1 != length &UI::KeyboardLayout::uc($_->[1]) |
10757 | 0 | 0 | 0 | $_->[1] eq &UI::KeyboardLayout::ucfirst($_->[1]) || 1 != length &UI::KeyboardLayout::ucfirst($_->[1]) |
10856 | 0 | 0 | 0 | !defined($_) || !$dupsOK && $seen{$_->[1]}++ |
10862 | 0 | 0 | 0 | defined $ini_compat[$_] or $ini_compat[$_] = $compat[$_] |
10959 | 0 | 0 | 0 | defined $k->[0] || defined $k->[1] |
10994 | 0 | 0 | 0 | $penalty_group->[1] and @{[] unless $penalty_group->[1][$L];} or @{[] unless $penalty_group->[1][0];} |
11013 | 0 | 0 | 0 | $lc_ok or $uc_ok |
11016 | 0 | 0 | 0 | $found_both || $have_out eq $uc_ok |
11021 | 0 | 0 | 0 | $groupN <= $ignore_groups or defined $have_out and $have_out eq $uc_ok |
11693 | 0 | 0 | 0 | $prefix2 or $uc eq &UI::KeyboardLayout::ucfirst($lc) and $lc eq &UI::KeyboardLayout::lc($uc) and $lc ne "\337" and defined $lc1 == defined $uc1 |
11697 | 0 | 0 | 0 | 3 == ($_->[2] || 0) or 24 == ($_->[2] || 0) |
11716 | 0 | 0 | 0 | 3 == ($_->[3][2] || 0) || 24 == ($_->[3][2] || 0) |
11743 | 0 | 0 | 0 | $opts{'cntKeys'} || $cnt |
11769 | 0 | 0 | 0 | $face0 ||= $f |
11775 | 0 | 0 | 0 | $self->{'faces'}{$f}{'layers'} || $self->export_layers($f, $f) |
0 | 0 | 0 | $L ||= $self->{'faces'}{$f}{'layers'} || $self->export_layers($f, $f) | |
11776 | 0 | 0 | 0 | my $kmap = $self->{'faces'}{$f}{'[deadkeyFaceHexMap]'}{$self->key2hex($prefix)} or not length $prefix |
12266 | 0 | 0 | 0 | 1 != length $out or 65536 <= ord $out |
0 | 0 | 0 | 1 != length $out or 65536 <= ord $out or grep {65536 <= ord $_ unless 1 != length $_;} @in | |
0 | 0 | 0 | 1 != length $out or 65536 <= ord $out or grep {65536 <= ord $_ unless 1 != length $_;} @in or grep(($out eq $_), @in) | |
12287 | 0 | 0 | 0 | length $in > $avoid_overlong_synonims_Entity * length($in[0]) or length $in > $maxEntityLen |
12363 | 0 | 0 | 0 | $v->{'[Prefix]'} || $self->key2hex($self->next_auto_dead($H)) |
12625 | 0 | 0 | 0 | $idx > $last or not defined $lst[$idx] |
12694 | 0 | 0 | 0 | defined $AA[$i] or not +($AppleSym[$i] || '') =~ /^#(.)$/ |
0 | 0 | 0 | defined $AA[$i] or not +($AppleSym[$i] || '') =~ /^#(.)$/ or not defined $AA[$AppleSym{$1}] | |
12977 | 0 | 0 | 0 | $$override{"$l-$sh-$caps-vk=$i"} || $$override{"$l-$sh--vk=$i"} |
12993 | 0 | 0 | 0 | $M or $d > 0 |
12994 | 0 | 0 | 0 | $d || $M |
13024 | 0 | 0 | 0 | $$override{"+$st0+$kk"} || $$override{"+$ST0+$kk"} || $$override{"+$st0+$KK"} || $$override{"+$ST0+$KK"} || $v0 |