| line |
true |
false |
branch |
|
11
|
0 |
1 |
if ($n =~ /^0x/i) { } |
|
58
|
0 |
0 |
unless $unfix{$in} |
|
59
|
0 |
0 |
unless $fix{$in} |
|
60
|
0 |
0 |
unless $fix{$in} |
|
5758
|
0 |
0 |
ref $class ? : |
|
5762
|
0 |
0 |
if (ref $class and defined(my $v = $class->{$key})) { } |
|
5778
|
0 |
0 |
if @_ > 1 |
|
5779
|
0 |
0 |
@_ ? : |
|
5785
|
0 |
0 |
if @_ |
|
5795
|
0 |
0 |
if length $pre |
|
5799
|
0 |
0 |
if ($k =~ s[^visual\s*->\s*][[unparsed]/]) |
|
5806
|
0 |
0 |
if join($", @k) eq '' |
|
5808
|
0 |
0 |
unless my($arr, $at, $slash, $kk, $vv) = $l =~ m[^((?:(\@)|(/)|\+)?)(\w+)=(.*)]s |
|
5810
|
0 |
0 |
$slash ? : |
|
|
0 |
0 |
$at ? : |
|
5811
|
0 |
0 |
length $vv ? : |
|
|
0 |
0 |
if $arr |
|
5813
|
0 |
0 |
if ($slot and exists $slot->{$kk}) |
|
5814
|
0 |
0 |
if ($arr) { } |
|
5815
|
0 |
0 |
if (ref($slot->{$kk} || 0) eq 'ARRAY') { } |
|
5841
|
0 |
0 |
if (defined $sep2 and 3 <= @k and $k =~ /$sep2/) |
|
5843
|
0 |
0 |
if not length $k[0] and @k == 2 |
|
5844
|
0 |
0 |
if not @k or grep((!length($_)), @k) |
|
5846
|
0 |
0 |
if ($k[0] || '') eq "\000" and $skip_first |
|
5847
|
0 |
0 |
if @k == 1 and defined $k[0] and 1 == length $k[0] and $k[0] ne &UI::KeyboardLayout::ucfirst($k[0]) |
|
5848
|
0 |
0 |
if $name |
|
5850
|
0 |
0 |
if @k > 2 |
|
5852
|
0 |
0 |
defined $_ ? : |
|
5859
|
0 |
0 |
if @k > $limit |
|
5862
|
0 |
0 |
if $k[0] eq '--' |
|
5863
|
0 |
0 |
defined $k[$_] ? : |
|
5872
|
0 |
0 |
ref $self ? : |
|
5873
|
0 |
0 |
unless $from or exists $extra{$k} |
|
5877
|
0 |
0 |
unless $opt->{'visual_rowcount'} == @{$opt->{'visual_per_row_counts'};} |
|
5880
|
0 |
0 |
if @lines % $C |
|
5882
|
0 |
0 |
$_ eq ' ' ? : |
|
5886
|
0 |
0 |
if defined $opt->{'in_key_separator2'} |
|
5889
|
0 |
0 |
unless $lineN % $C |
|
5893
|
0 |
0 |
if $pref->[$line_in_row] eq qr/\s/ |
|
5894
|
0 |
0 |
if $l1 =~ s/^[\x{202d}\x{202e}]// |
|
5895
|
0 |
0 |
unless $l1 =~ s/^$PREF\s*(?<=\s)// |
|
5897
|
0 |
0 |
if $line_in_row == 0 |
|
5899
|
0 |
0 |
unless @k1 == $N |
|
5907
|
0 |
0 |
if 1 == $lineN % $C |
|
5911
|
0 |
0 |
unless @out == @{$opt->{'layer_names'};} |
|
5922
|
0 |
0 |
ref $self ? : |
|
5923
|
0 |
0 |
unless $from or exists $extra{$k} |
|
5928
|
0 |
0 |
unless $cnt == @{$opt->{'layer_names'};} |
|
5935
|
0 |
0 |
if @lines != $cnt * $opt->{'rect_rows_cols'}[0] + ($cnt - 1) * $r0 |
|
5939
|
0 |
0 |
if $c >= @{$opt->{'rect_horizontal_counts'};} |
|
5943
|
0 |
0 |
unless @lines |
|
5944
|
0 |
0 |
unless ($L = shift @lines) =~ /^#/ |
|
5956
|
0 |
0 |
unless $c0 and length $L[0] |
|
5958
|
0 |
0 |
unless (my $gap = substr($L[$i], 0, $c0, '')) =~ /\S/ |
|
5965
|
0 |
0 |
if $c != @{$opt->{'rect_horizontal_counts'};} |
|
5978
|
0 |
0 |
unless @_ |
|
5980
|
0 |
0 |
unless exists $h->{$k} |
|
5987
|
0 |
0 |
defined $h ? : |
|
|
0 |
0 |
unless @_ |
|
5993
|
0 |
0 |
unless exists $H->{$k} |
|
5996
|
0 |
0 |
unless ref($v || 1) and $IDX and defined $idx |
|
6011
|
0 |
0 |
$k =~ m(^\[unparsed]/KBD\b) ? : |
|
6016
|
0 |
0 |
if $offsets |
|
6023
|
0 |
0 |
if $ignore and not defined $k |
|
6030
|
0 |
0 |
if $ignore and not defined $k |
|
6031
|
0 |
0 |
if $k and ref $k |
|
6037
|
0 |
0 |
if $ignore and not defined $k |
|
6063
|
0 |
0 |
unless ref $o |
|
6064
|
0 |
0 |
if "$o" =~ /^ARRAY\(/ |
|
6065
|
0 |
0 |
if "$o" =~ /^HASH\(/ |
|
6075
|
0 |
0 |
unless defined $_ |
|
6076
|
0 |
0 |
if (ref $_) { } |
|
|
0 |
0 |
elsif ($h->{$_}) { } |
|
6077
|
0 |
0 |
unless 'ARRAY' eq ref $_ |
|
6090
|
0 |
0 |
if @$hn != @$Hn |
|
6095
|
0 |
0 |
if $skipfix |
|
6097
|
0 |
0 |
if $self->{'layers'}{'[ini_copy]'}{$L} |
|
6106
|
0 |
0 |
if $_ and ref $_ |
|
6107
|
0 |
0 |
$_ && ref $_ ? : |
|
6108
|
0 |
0 |
$_ && ref $_ ? : |
|
6110
|
0 |
0 |
unless $p[0][$_] |
|
6114
|
0 |
0 |
if defined $C[0][$_] |
|
6120
|
0 |
0 |
if 1 == ($obsc[0] || 0) and $free_first[0] = 0 and not defined $C[1][1] |
|
6121
|
0 |
0 |
unless $skipfix |
|
6124
|
0 |
0 |
if ($skipfix) { } |
|
|
0 |
0 |
elsif (defined $C[1][$map{$k}] and $p[0][$k]) { } |
|
6125
|
0 |
0 |
$k ? : |
|
6127
|
0 |
0 |
ref($skipwarn || '') ? : |
|
|
0 |
0 |
unless ref($skipwarn || '') ? $$skipwarn{$c[0][$k]} : $skipwarn |
|
6131
|
0 |
0 |
if (defined $C[1][$map{$k}]) |
|
6132
|
0 |
0 |
if $seen_deobsc{$c[0][$k]} |
|
6134
|
0 |
0 |
unless ($C[0][$k] || '.') =~ /[\W\d_]/ |
|
6143
|
0 |
0 |
$skipfix ? : |
|
6145
|
0 |
0 |
if defined $H[$L][$shift] |
|
6149
|
0 |
0 |
if $already_linked |
|
6153
|
0 |
0 |
if defined $C[$i][$j] and not defined $h[$i][$j] |
|
6154
|
0 |
0 |
if defined $c[$i][$j] and not defined $H[$i][$j] |
|
6171
|
0 |
0 |
if (defined(my $flip = $self->{'faces'}{$hh}{'[Flip_AltGr_Key]'})) |
|
6172
|
0 |
0 |
unless defined(my $flipped = $self->{'faces'}{$HH}{'[invAltGr_Accessor]'}) |
|
6176
|
0 |
0 |
if (my $where = $self->{'face_back'}{$hh}{$flip}) { } |
|
6182
|
0 |
0 |
if $c and ref $c |
|
6184
|
0 |
0 |
if defined $c and $c ne $flipped || !$dead |
|
6203
|
0 |
0 |
if ($self->{'face_back'}{$F}) |
|
6204
|
0 |
0 |
if $skipfix |
|
6216
|
0 |
0 |
unless ($#$a == $last) |
|
6219
|
0 |
0 |
unless $last >= $fst or $#$a >= $fst |
|
6223
|
0 |
0 |
unless defined(my $c = $a->[$k][$shift]) |
|
6224
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
6225
|
0 |
0 |
if ($prefer_first->{$c}) { } |
|
6227
|
0 |
0 |
if $seen->{$c} and $prefer_last->{$c} |
|
6230
|
0 |
0 |
unless $seen->{$c} |
|
|
0 |
0 |
if @{[] unless $seen->{$c};} and not $prefer_last->{$c} and $c ne ' ' |
|
6236
|
0 |
0 |
if %warn and not $skipwarn |
|
6242
|
0 |
0 |
if $N == $max |
|
6249
|
0 |
0 |
if $self->{'faces'}{$F1}{'Face_link_map'}{$F2} |
|
6251
|
0 |
0 |
unless my $seen = $self->{'face_back'}{$F1} |
|
6256
|
0 |
0 |
if $no_inic |
|
6261
|
0 |
0 |
unless @$arr |
|
6278
|
0 |
0 |
if $c =~ /^[0-9a-f]{4,}$/i |
|
6296
|
0 |
0 |
unless exists $self->{'layer_recipes'}{$l} |
|
6304
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6314
|
0 |
0 |
unless $self->{'faces'}{$f}{'char2key_prefer_first'} |
|
6316
|
0 |
0 |
unless $self->{'faces'}{$f}{'char2key_prefer_last'} |
|
6317
|
0 |
0 |
unless defined $self->{'faces'}{$f}{'[AltGrInv_AltGr_as_Ctrl]'} |
|
6328
|
0 |
0 |
if ref $self->{'faces'}{$f}{'[ComposeKey_Show]'} and not length $self->{'faces'}{$f}{'[ComposeKey_Show]'}[0] |
|
6331
|
0 |
0 |
if ($compK and ref $compK) { } |
|
|
0 |
0 |
elsif (defined $compK) { } |
|
6334
|
0 |
0 |
if defined $kkk[3] and length $kkk[3] |
|
6341
|
0 |
0 |
unless ($self->{'faces'}{$f}{'layers'}) |
|
6342
|
0 |
0 |
unless $self->{'face_recipes'}{$f} |
|
6345
|
0 |
0 |
unless $self->{'faces'}{$f}{'layers'} |
|
6347
|
0 |
0 |
if $self->{'layers'}{$l} |
|
6350
|
0 |
0 |
if @r |
|
6354
|
0 |
0 |
unless $self->{'layers'}{$l} |
|
6359
|
0 |
0 |
unless $self->{'faces'}{$f}{'AltGrCharSubstitutions'} |
|
6362
|
0 |
0 |
unless 2 == (my @s = split(//, $s, 0)) |
|
6364
|
0 |
0 |
if &UI::KeyboardLayout::lc($s[0]) ne $s[0] and &UI::KeyboardLayout::lc($s[1]) ne $s[1] |
|
6366
|
0 |
0 |
if &UI::KeyboardLayout::uc($s[0]) ne $s[0] and &UI::KeyboardLayout::uc($s[1]) ne $s[1] |
|
6369
|
0 |
0 |
unless $self->{'faces'}{$f}{'Import_Prefix_Keys'} |
|
6370
|
0 |
0 |
unless $self->{'faces'}{$f}{'Import_Prefix_Keys'} |
|
6371
|
0 |
0 |
if %h |
|
6373
|
0 |
0 |
unless ($c = $self->{'layer_counts'}{$l0 = $self->{'faces'}{$f}{'layers'}[0]}) |
|
6375
|
0 |
0 |
if defined $l0 |
|
6377
|
0 |
0 |
if defined $l0 |
|
6378
|
0 |
0 |
if $c |
|
6379
|
0 |
0 |
if $o |
|
6382
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6383
|
0 |
0 |
unless $self->{'faces'}{$f}{'AltGrCharSubstitutionFaces'} |
|
6386
|
0 |
0 |
unless my $to = $self->{'faces'}{$F}{'layers'}[$L] |
|
6389
|
0 |
0 |
unless $from->[$k] and $to->[$k] |
|
6391
|
0 |
0 |
unless defined(my $s = $from->[$k][$shift]) and defined(my $ss = $to->[$k][$shift]) |
|
6400
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6401
|
0 |
0 |
unless $self->{'faces'}{$f}{'AltGrCharSubstitutionLayers'} |
|
6403
|
0 |
0 |
unless my $from = $self->{'faces'}{$f}{'layers'}[$N] |
|
6406
|
0 |
0 |
unless $from->[$k] and $to->[$k] |
|
6408
|
0 |
0 |
unless defined(my $s = $from->[$k][$shift]) and defined(my $ss = $to->[$k][$shift]) |
|
6416
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6424
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6426
|
0 |
0 |
if defined $o |
|
6430
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6434
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6436
|
0 |
0 |
unless defined $o |
|
6441
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6442
|
0 |
0 |
if (defined(my $r = $self->{'faces'}{$f}{'[CapsLOCKoverride]'})) |
|
6451
|
0 |
0 |
unless $self->{'faces'}{$f}{'layerDeadKeys'} |
|
6452
|
0 |
0 |
unless length $D |
|
6457
|
0 |
0 |
unless $self->{'faces'}{$f}{'layers'}[$c] =~ /^\Q$name\E(<.*>)?$/ |
|
6463
|
0 |
0 |
defined $self->{'faces'}{$f}{'faceDeadKeys'} ? : |
|
6465
|
0 |
0 |
unless length $k |
|
6467
|
0 |
0 |
if 1 < length $k |
|
6470
|
0 |
0 |
unless $s{$k}++ |
|
6472
|
0 |
0 |
defined $self->{'faces'}{$f}{'ExportDeadKeys'} ? : |
|
6473
|
0 |
0 |
unless length $k |
|
6475
|
0 |
0 |
if 1 < length $k |
|
6478
|
0 |
0 |
if (my $LL = $self->{'faces'}{$f}{'[ini_layers]'}) { } |
|
6487
|
0 |
0 |
if defined $k and not ref $k |
|
6488
|
0 |
0 |
if (defined $k and $$DDD{$k->[0]} || $$vk{$k->[0]}) |
|
6504
|
0 |
0 |
if defined $k and not ref $k |
|
6505
|
0 |
0 |
if (defined $k and $$DDD{$k->[0]} || $$vk{$k->[0]}) |
|
6516
|
0 |
0 |
unless $self->{'faces'}{$f}{'faceDeadKeys2'} or $self->{'faces'}{$f}{'layerDeadKeys2'} |
|
6519
|
0 |
0 |
if 2 != @k |
|
6533
|
0 |
0 |
unless $h->{'char2key_prefer_first'} |
|
|
0 |
0 |
unless $h->{'char2key_prefer_last'} |
|
6541
|
0 |
0 |
$k =~ /$rxCombining/ ? : |
|
6542
|
0 |
0 |
unless defined $prefix |
|
6551
|
0 |
0 |
if defined $f |
|
6554
|
0 |
0 |
if defined $f and not $self->{'Age'} |
|
6563
|
0 |
0 |
if defined $f |
|
6566
|
0 |
0 |
if defined $f and not $self->{'Age'} |
|
6577
|
0 |
0 |
if defined $f |
|
6580
|
0 |
0 |
if defined $f and not $self->{'Age'} |
|
6583
|
0 |
0 |
defined $file ? : |
|
6585
|
0 |
0 |
if defined $v |
|
6586
|
0 |
0 |
if defined $self->{'uniVersion'} |
|
6591
|
0 |
0 |
unless $is32 |
|
6600
|
0 |
0 |
unless $self->{'faces'}{$F}{'[inCompose]'} |
|
6602
|
0 |
0 |
if 2 > length $_ |
|
6620
|
0 |
0 |
if 2 > length $k |
|
6624
|
0 |
0 |
if 1 < length $k |
|
6629
|
0 |
0 |
if 2 > length $k |
|
6633
|
0 |
0 |
if 1 < length $k |
|
6641
|
0 |
0 |
unless $self->{'faces'}{$F}{'[coverage_hash]'}{$k} and not $self->{'faces'}{$F}{'[from_dia_chains]'}{$k} |
|
6646
|
0 |
0 |
if $self->{'faces'}{$F}{'[coverage_hash]'}{$k} |
|
6654
|
0 |
0 |
if $self->{'faces'}{$F}{'[coverage_hash]'}{$k} |
|
6663
|
0 |
0 |
if 42784 >= ord $_ or $self->{'UNames'}{$_} |
|
6665
|
0 |
0 |
$r->[0] < 42784 ? : |
|
6674
|
0 |
0 |
if 42784 >= ord $_ || $self->{'UNames'}{$_} and not $self->{'faces'}{$F}{'[coverage_hash]'}{$_} |
|
6675
|
0 |
0 |
$r->[0] < 42784 ? : |
|
6700
|
0 |
0 |
if 'ARRAY' eq ref $C and $C->[3] |
|
6701
|
0 |
0 |
if $expl |
|
6706
|
0 |
0 |
if defined $docs |
|
6711
|
0 |
0 |
unless defined $create_a_c |
|
6713
|
0 |
0 |
$create_a_c > 1 && $alpha_ctrl ? : |
|
6715
|
0 |
0 |
if $alpha_ctrl |
|
6716
|
0 |
0 |
if $S |
|
6719
|
0 |
0 |
if ($type or $c =~ /($rxZW)$/o) |
|
6720
|
0 |
0 |
$alt_symb{$cc} ? : |
|
6723
|
0 |
0 |
if ($type) |
|
6727
|
0 |
0 |
if "\x{34f}" eq $cc |
|
6730
|
0 |
0 |
unless (defined $title) |
|
6732
|
0 |
0 |
if ($title and $docs) |
|
6736
|
0 |
0 |
if (defined $expl and length $expl and 1) |
|
6737
|
0 |
0 |
if length $title |
|
6740
|
0 |
0 |
if $title and not $expl and $vbell |
|
6741
|
0 |
0 |
if $aInv |
|
6742
|
0 |
0 |
if $title |
|
6743
|
0 |
0 |
if $title |
|
6745
|
0 |
0 |
if ($type) { } |
|
|
0 |
0 |
elsif ($zw) { } |
|
|
0 |
0 |
elsif (not defined $C) { } |
|
|
0 |
0 |
elsif ($title =~ /(\b(N-ARY|BIG(?!\s+YUS\b)|GREEK\s+PROSGEGRAMMENI|KORONIS|SOF\s+PASUQ|PUNCTUATION\s+(?:GERESH|GERSHAYIM)|PALOCHKA|CYRILLIC\s.*\s(DZE|JE|QA|WE|A\s+IE)|ANO\s+TELEIA|GREEK\s+QUESTION\s+MARK)|"\w+\s+(?:BIG|LARGE))\b.*\s+\[/) { } |
|
|
0 |
0 |
elsif ($title =~ /\b(OPERATOR|SIGN|SYMBOL|PROOF|EXISTS|FOR\s+ALL|(DIVISION|LOGICAL)\b.*)\s+\[/) { } |
|
|
0 |
0 |
elsif ($title =~ /\b(RELATION|PERPENDICULAR|PARALLEL\s*TO|DIVIDES|FRACTION\s+SLASH)\s+\[/) { } |
|
|
0 |
0 |
elsif ($title =~ /\[.*\b(IPA)\b|\bCLICK\b/) { } |
|
|
0 |
0 |
elsif ($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 |
elsif (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) { } |
|
|
0 |
0 |
elsif ($title =~ /(\s+(WITH|AND)\s+((DOUBLE\s+)?\w+(\s+(BELOW|ABOVE))?)\b){2}/) { } |
|
6766
|
0 |
0 |
$1 ? : |
|
|
0 |
0 |
if ($expl || '') =~ /\sSubst\{(\S*\}\s+\S)?/ |
|
6767
|
0 |
0 |
if $aInv |
|
6768
|
0 |
0 |
join($", @types) =~ /\s/ ? : |
|
6770
|
0 |
0 |
if @types |
|
6771
|
0 |
0 |
$opts && $opts->{'ltr'} ? : |
|
6772
|
0 |
0 |
if $aInv and $cc ne ($base_c || 'N/A') |
|
6779
|
0 |
0 |
defined $f ? : |
|
6781
|
0 |
0 |
if defined $v |
|
6782
|
0 |
0 |
if defined $self->{'uniVersion'} |
|
6783
|
0 |
0 |
if $html |
|
6837
|
0 |
0 |
if defined $INV |
|
6839
|
0 |
0 |
unless $self->{'faces'}{$F}{"[$_]"} |
|
6846
|
0 |
0 |
if $d_seen{$c}++ |
|
6848
|
0 |
0 |
unless defined(my $FF = $self->{'faces'}{$F}{'[deadkeyFace]'}{$c}) |
|
6857
|
0 |
0 |
defined $self->{'faces'}{$F}{'faceDeadKeys'} ? : |
|
6872
|
0 |
0 |
$reported ? : |
|
6875
|
0 |
0 |
unless 2 == (my @D = split(//, $self->stringHEX2string($dd), 0)) |
|
6876
|
0 |
0 |
$reported ? : |
|
|
0 |
0 |
unless my $map1 = $self->{'faces'}{$F}{'[deadkeyFaceHexMap]'}{$self->key2hex($D[0])} |
|
6878
|
0 |
0 |
unless defined(my $Dead2 = $$map1{$self->key2hex($D[1])}) |
|
6879
|
0 |
0 |
if 'ARRAY' eq ref $Dead2 |
|
6880
|
0 |
0 |
unless defined(my $ddd = $self->{'faces'}{$F}{'[deadkeyFace]'}{$Dead2}) |
|
6881
|
0 |
0 |
if $S{join $", @D}++ |
|
6882
|
0 |
0 |
if $reported |
|
6885
|
0 |
0 |
if $reported |
|
6890
|
0 |
0 |
if $#Dface != $lastDface |
|
6893
|
0 |
0 |
if $skip < 0 |
|
6895
|
0 |
0 |
$skip > 1 ? : |
|
6896
|
0 |
0 |
$skip > 0 ? : |
|
6899
|
0 |
0 |
if $html |
|
6904
|
0 |
0 |
unless $self->{'faces'}{$F}{'[geometry]'} |
|
6907
|
0 |
0 |
$html ? : |
|
6908
|
0 |
0 |
$html ? : |
|
6913
|
0 |
0 |
unless $dFace |
|
6916
|
0 |
0 |
if $docs |
|
6917
|
0 |
0 |
defined $docs ? : |
|
6920
|
0 |
0 |
if $html |
|
6927
|
0 |
0 |
if $n >= $first_ctrl and $n < $post_ctrl or $skip_sections[$n] |
|
6929
|
0 |
0 |
if $dn and not $maps[$dn] |
|
6930
|
0 |
0 |
$prev =~ /\X{7}/ ? : |
|
|
0 |
0 |
$html ? : |
|
|
0 |
0 |
if length $out |
|
6931
|
0 |
0 |
@{$A[$dn];} == 1 ? : |
|
6938
|
0 |
0 |
unless defined $c |
|
6940
|
0 |
0 |
if not $dn and 'ARRAY' eq ref $c and $c->[2] |
|
6941
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
6942
|
0 |
0 |
unless $dn |
|
6945
|
0 |
0 |
if ($dn) { } |
|
6947
|
0 |
0 |
unless defined $c |
|
6948
|
0 |
0 |
if ref $c |
|
6949
|
0 |
0 |
$invert_dead ? : |
|
|
0 |
0 |
if 'ARRAY' eq ref $c and $c->[2] |
|
6950
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
6954
|
0 |
0 |
if ref $c |
|
6955
|
0 |
0 |
$invert_dead ? : |
|
|
0 |
0 |
if $pre or $self->{'faces'}{$F}{'[coverage0_prefix]'}{$c} |
|
6957
|
0 |
0 |
unless $dn |
|
6958
|
0 |
0 |
if $dn and $$is_D2{$baseK[$L][$shift]} |
|
6960
|
0 |
0 |
if ($html) { } |
|
6974
|
0 |
0 |
$last_in_row[$n] ? : |
|
6975
|
0 |
0 |
if $html |
|
6976
|
0 |
0 |
if $out_c |
|
6978
|
0 |
0 |
unless $self->{'faces'}{$F}{'TableSummaryAddHTML'} |
|
6980
|
0 |
0 |
unless defined $create_a_c |
|
6984
|
0 |
0 |
if $html |
|
7017
|
0 |
0 |
if exists $H->{'[coverage0]'} |
|
7019
|
0 |
0 |
unless $H->{'[DEAD]'} |
|
|
0 |
0 |
unless $H->{'[dead_in_VK]'} |
|
7025
|
0 |
0 |
if defined $_ and ref $_ |
|
|
0 |
0 |
if not $after_import || $F =~ /^(.*)##Inv#([a-f0-9]{4,})$/is and grep {$_->[4] if defined $_ and ref $_;} @$k |
|
7026
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
if defined $_ and not ref $_ && $_->[2] |
|
|
0 |
0 |
ref $_ ? : |
|
7027
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
if defined $_ |
|
|
0 |
0 |
ref $_ ? : |
|
7028
|
0 |
0 |
if defined $_ and ref $_ |
|
7030
|
0 |
0 |
unless ($after++) |
|
7036
|
0 |
0 |
if 2 > length $_ |
|
7049
|
0 |
0 |
unless my($F, $KKK) = $f =~ /^(.*)###([a-f0-9]{4,})$/is |
|
7051
|
0 |
0 |
unless $self->{'faces'}{$f}{'[imported]'} |
|
7052
|
0 |
0 |
unless my($k, $face) = $i =~ /^(.):(.*)/s |
|
7054
|
0 |
0 |
if (exists $H->{'[imported2key]'}{$i} or exists $H->{'[imported2key_auto]'}{$i}) { } |
|
|
0 |
0 |
elsif ($H->{'[coverage0_prefix]'}{$k} or $H->{'[auto_dead]'}{$k}) { } |
|
7055
|
0 |
0 |
exists $H->{'[imported2key]'}{$i} ? : |
|
7059
|
0 |
0 |
unless defined $H->{'[first_auto_dead]'} |
|
7065
|
0 |
0 |
unless my $LL = $self->{'faces'}{$face}{'[deadkeyLayers]'}{$self->key2hex($k)} |
|
7069
|
0 |
0 |
if (my $over = $H->{'[AdddeadkeyLayers]'}{$KK}) |
|
7087
|
0 |
0 |
unless my($F, $KKK) = $f =~ /^(.*)###([a-f0-9]{4,})$/is |
|
7088
|
0 |
0 |
unless my $HH = $self->{'faces'}{$F}{'[imported2key_all]'} |
|
7096
|
0 |
0 |
if defined $_ and ref $_ |
|
7098
|
0 |
0 |
if (2 == $kk->[2]) { } |
|
7099
|
0 |
0 |
defined $kk->[4] ? : |
|
7102
|
0 |
0 |
unless defined $j |
|
7120
|
0 |
0 |
if $self->{'Compositions'} |
|
7121
|
0 |
0 |
unless $data->{'Substitutions'} |
|
7126
|
0 |
0 |
unless 2 == (my @s = split(//, $s, 0)) |
|
7128
|
0 |
0 |
if &UI::KeyboardLayout::lc($s[0]) ne $s[0] and &UI::KeyboardLayout::lc($s[1]) ne $s[1] |
|
7130
|
0 |
0 |
if &UI::KeyboardLayout::uc($s[0]) ne $s[0] and &UI::KeyboardLayout::uc($s[1]) ne $s[1] |
|
7138
|
0 |
0 |
unless open my $f, '< :utf8', $F |
|
7140
|
0 |
0 |
unless close $f |
|
7149
|
0 |
0 |
if @_ |
|
7168
|
0 |
0 |
if 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
|
7172
|
0 |
0 |
if 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
|
7176
|
0 |
0 |
if 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
|
7183
|
0 |
0 |
if 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
|
7184
|
0 |
0 |
if $F =~ /#\@?#\@?(Inv)?#\@?/ |
|
7190
|
0 |
0 |
unless defined(my $auto_inv_AltGr = $data->{'faces'}{$F}{'[deadkeyInvAltGrKey]'}{$d}) |
|
7192
|
0 |
0 |
if $b1 |
|
7194
|
0 |
0 |
defined $D ? : |
|
7196
|
0 |
0 |
defined $S ? : |
|
7200
|
0 |
0 |
if (defined $flip_AltGr) |
|
7204
|
0 |
0 |
unless defined $data->{'faces'}{$F}{'[prefixDocs]'}{$flip_AltGr} |
|
7205
|
0 |
0 |
unless defined $data->{'faces'}{$F}{'[Show]'}{$flip_AltGr} |
|
7212
|
0 |
0 |
defined $D ? : |
|
7214
|
0 |
0 |
defined $S ? : |
|
7221
|
0 |
0 |
if 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
|
7222
|
0 |
0 |
if $F =~ /#\@?#\@?(Inv)?#\@?/ |
|
7224
|
0 |
0 |
unless $data->{'faces'}{$F}{'[output_layers]'} |
|
7228
|
0 |
0 |
unless $is_extra{$deadKey} |
|
7230
|
0 |
0 |
unless my $cov1 = $data->{'faces'}{$FFF}{'[coverage0]'} |
|
7233
|
0 |
0 |
ref $_ ? : |
|
7237
|
0 |
0 |
unless my $prefix = $data->{'faces'}{$F}{'[ComposeKey]'} |
|
7243
|
0 |
0 |
if 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
|
7244
|
0 |
0 |
if $F =~ /#\@?#\@?(Inv)?#\@?/ |
|
7247
|
0 |
0 |
unless $data->{'faces'}{$F}{'[deadkeyFace]'} |
|
7253
|
0 |
0 |
unless $data->{'faces'}{$F}{'[output_layers]'} |
|
7256
|
0 |
0 |
unless (%seen0) |
|
7263
|
0 |
0 |
unless $seen_prefix->{$deadKey} |
|
7265
|
0 |
0 |
$is_extra{$deadKey} ? : |
|
|
0 |
0 |
unless my $cov1 = $data->{'faces'}{$FFF}{$is_extra{$deadKey} ? '[coverage0]' : '[coverage00]'} |
|
7270
|
0 |
0 |
ref $_ ? : |
|
7271
|
0 |
0 |
if (my $d2 = $data->{'faces'}{$F}{'[dead2]'}{$deadKey}) |
|
7274
|
0 |
0 |
$_ && ref $_ ? : |
|
7279
|
0 |
0 |
unless ($not_in_0) |
|
7281
|
0 |
0 |
unless $data->{'faces'}{$FFF}{'[coverage0_prefix]'} |
|
7289
|
0 |
0 |
if not $coverage1_prefix{$_} |
|
7292
|
0 |
0 |
@check > 1 ? : |
|
7293
|
0 |
0 |
if @check |
|
7316
|
0 |
0 |
unless exists $slot->{'klc_filename'} |
|
7318
|
0 |
0 |
unless open my $fh, '< :encoding(UTF-16)', $slot->{'klc_filename'} |
|
7335
|
0 |
0 |
if $slot and grep exists $slot->{$_}, ('map', 'name') |
|
7336
|
0 |
0 |
if exists $o->{$kk} |
|
7337
|
0 |
0 |
if exists $d->{$kk} |
|
7624
|
0 |
0 |
unless $self->get_deep_via_parents($self, undef, 'faces', split(m[/], $f, 0), 'VK') |
|
7633
|
0 |
0 |
unless defined $create_a_c |
|
7634
|
0 |
0 |
$create_a_c ? : |
|
|
0 |
0 |
$create_a_c > 1 ? : |
|
7636
|
0 |
0 |
if ($create_a_c) |
|
7642
|
0 |
0 |
if @ctrl_l |
|
7650
|
0 |
0 |
unless length $v->[0] |
|
7656
|
0 |
0 |
unless ($k, my $dead) = $k =~ /^(.+?)(\@?)$/ |
|
7657
|
0 |
0 |
$k eq '-1' ? : |
|
7658
|
0 |
0 |
if $dead and $k ne '-1' |
|
7659
|
0 |
0 |
$k eq '-1' ? : |
|
7660
|
0 |
0 |
unless $c % 2 |
|
7661
|
0 |
0 |
$dead ? : |
|
7662
|
0 |
0 |
if defined $kk |
|
7670
|
0 |
0 |
if (@extra) |
|
7675
|
0 |
0 |
unless ($l) |
|
7689
|
0 |
0 |
if $self->{'layers'}{'[ini_copy]'}{$oLn} |
|
7702
|
0 |
0 |
unless defined $k |
|
7703
|
0 |
0 |
$dead ? : |
|
|
0 |
0 |
if my $mod = $dead ? '@' : '' |
|
7704
|
0 |
0 |
if $k =~ /^[A-Z0-9]$/i |
|
7705
|
0 |
0 |
if 1 != length $k or ord $k > 65535 |
|
7712
|
0 |
0 |
unless defined $u->[0] and defined $u->[1] and $u->[0] ne $u->[1] |
|
7713
|
0 |
0 |
if ($fix{$u->[0]} || &UI::KeyboardLayout::uc($u->[0])) eq $u->[1] |
|
7714
|
0 |
0 |
if ($fix{$u->[0]} || &UI::KeyboardLayout::ucfirst($u->[0])) eq $u->[1] |
|
7730
|
0 |
0 |
unless my $sc = $known_scancode || $scan_codes{$k} |
|
7732
|
0 |
0 |
$_ && ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
7733
|
0 |
0 |
if $do_control{$u->[0][0] or 'N/A'} |
|
7734
|
0 |
0 |
if not @cntrl and $default_bind{$k}[1] |
|
7736
|
0 |
0 |
unless defined $create_a_c |
|
7737
|
0 |
0 |
if $k =~ /^[A-Z]$/ and $create_a_c |
|
7738
|
0 |
0 |
if $create_a_c > 1 and $shift_control_extra{$k} |
|
7741
|
0 |
0 |
defined $_->[2] ? : |
|
|
0 |
0 |
$known_scancode ? : |
|
|
0 |
0 |
ref $_->[4] ? : |
|
7751
|
0 |
0 |
if (my $extra = $self->{'faces'}{$face}{'[output_layers]'} and defined $N) |
|
7755
|
0 |
0 |
unless (my $lll = $extra->[$f]) =~ s/^prefix(NOTSAME(case)?)?=// |
|
7758
|
0 |
0 |
unless my $L = $self->{'faces'}{$face}{'[deadkeyLayers]'}{$c} |
|
7761
|
0 |
0 |
$notsame ? : |
|
7764
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
7765
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
7766
|
0 |
0 |
if not defined $CC[$sh] and defined $C[0] |
|
7767
|
0 |
0 |
if not $OK[$sh] and defined $C[0] and not $s{$C[0]} |
|
7769
|
0 |
0 |
if $sh and not $OK[$sh] and defined $C[0] and defined $was[0] and not $s{$was[0]} and not $s1{$was[0]} |
|
7770
|
0 |
0 |
unless $sh |
|
7771
|
0 |
0 |
if defined $CC[$sh] |
|
7775
|
0 |
0 |
if @KK < 2 * $f |
|
7779
|
0 |
0 |
if $skippable and not $cnt |
|
7781
|
0 |
0 |
if (my $Caps = $self->{'faces'}{$face}{'[CapsLOCKlayers]'} and defined $N) |
|
7785
|
0 |
0 |
if ($skippable and not defined $KK[0][0] and not defined $KK[1][0]) |
|
7787
|
0 |
0 |
if defined $default_bind{$k}[0][$shft] |
|
7792
|
0 |
0 |
unless defined $pre_ctrl |
|
7793
|
0 |
0 |
if $pre_ctrl < 2 * @$u or $self->{'faces'}{$face}{'[keep_missing_ctrl]'} |
|
7794
|
0 |
0 |
if $#cntrl < 2 * $ctrl_after - 1 |
|
7796
|
0 |
0 |
if @KK >= 16 |
|
7798
|
0 |
0 |
if ($k eq 'DECIMAL') |
|
7799
|
0 |
0 |
unless $decimal[1] |
|
7815
|
0 |
0 |
8 <= length $k ? : |
|
7816
|
0 |
0 |
32 > ord $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
7817
|
0 |
0 |
defined $_ ? : |
|
|
0 |
0 |
exists $self->{'UNames'} ? : |
|
7819
|
0 |
0 |
$_ && ref $_ ? : |
|
|
0 |
0 |
unless $CL0 and @$CL0 and grep defined($_), map({$_ && ref $_ ? $_->[0] : $_;} @$CL0) |
|
7820
|
0 |
0 |
defined $CL0 ? : |
|
7822
|
0 |
0 |
if $capslock == 2 |
|
7823
|
0 |
0 |
if ($CL0) |
|
7825
|
0 |
0 |
$a_cl ? : |
|
7826
|
0 |
0 |
$CL0->[$_] && ref $CL0->[$_] ? : |
|
7841
|
0 |
0 |
unless my(@i) = &output_unit00 |
|
7845
|
0 |
0 |
$i[4] ? : |
|
7852
|
0 |
0 |
if $seen_scan{$i->[0]} or $seen_VK{$i->[1]} |
|
7855
|
0 |
0 |
if ($decimal[0]) |
|
7861
|
0 |
0 |
$i->[4] ? : |
|
7870
|
0 |
0 |
unless ($k =~ /^[\x00-\x{FFFF}]*$/) |
|
7871
|
0 |
0 |
unless $enc_UTF16LE |
|
7872
|
0 |
0 |
unless $enc_UTF16LE |
|
7884
|
0 |
0 |
if $s{"$l->[0] $l->[1]"}++ |
|
7887
|
0 |
0 |
exists $self->{'UNames'} ? : |
|
7888
|
0 |
0 |
8 <= length $l->[0] ? : |
|
7896
|
0 |
0 |
unless ($ingroup) |
|
7899
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
7900
|
0 |
0 |
if $seen{&UI::KeyboardLayout::uc($c)}++ |
|
7901
|
0 |
0 |
if $c eq ' ' |
|
7906
|
0 |
0 |
if $v->[0] <= $u and $v->[0] + $v->[1] > $u |
|
7914
|
0 |
0 |
unless defined($k = $baseK->[$u]) |
|
7932
|
0 |
0 |
/^(.+)\@$/ ? : |
|
7948
|
0 |
0 |
if $t =~ s/(^(?=DEADKEY)(?:(?:(?:DEADKEY|\s*[0-9a-f]{4,})\s+[0-9a-f]{4,})?(?:\n|\Z))*)(?=(.*))/DEADKEYS\n\n/im |
|
7950
|
0 |
0 |
if length $next and not $next =~ /^(KEYNAME|LIGATURE|COPYRIGHT|COMPANY|LOCALENAME|LOCALEID|VERSION|SHIFTSTATE|LAYOUT|ATTRIBUTES|KEYNAME_EXT|KEYNAME_DEAD|DESCRIPTIONS|LANGUAGENAMES|ENDKBD)$/i |
|
7961
|
0 |
0 |
if @bad = grep((!/^\s*([0-9a-f]+)\s+([0-9a-f]+)$/i), @p) |
|
7967
|
0 |
0 |
if ($t =~ s/^KEYNAME_DEAD\n((?:(?:\s*[0-9a-f]{4,}\s+".*")?(?:\n|\Z))*)(?=(.*))/KEYNAMES_DEAD\n\n/im) { } |
|
|
0 |
0 |
elsif ($dead =~ /\S/) { } |
|
7969
|
0 |
0 |
if length $next and not $next =~ /^(DEADKEY|KEYNAME|LIGATURE|COPYRIGHT|COMPANY|LOCALENAME|LOCALEID|VERSION|SHIFTSTATE|LAYOUT|ATTRIBUTES|KEYNAME_EXT|KEYNAME_DEAD|DESCRIPTIONS|LANGUAGENAMES|ENDKBD)$/i |
|
7971
|
0 |
0 |
unless $dead =~ /\S/ |
|
7984
|
0 |
0 |
unless length $b <=> length $a |
|
7988
|
0 |
0 |
if %miss |
|
8223
|
0 |
0 |
unless 'ARRAY' eq ref $k |
|
8233
|
0 |
0 |
$inv ? : |
|
8235
|
0 |
0 |
if $self->{'faces'}{$b} != $L and not $remap |
|
8236
|
0 |
0 |
unless my $cover = $L->{'[coverage_hex]'} |
|
8241
|
0 |
0 |
defined $remap->{$_} ? : |
|
8250
|
0 |
0 |
unless ord $c < 32 or ord $c == 127 |
|
8251
|
0 |
0 |
unless $control{$c} |
|
8258
|
0 |
0 |
if ($invert_dead) |
|
8259
|
0 |
0 |
unless $is_hex |
|
8260
|
0 |
0 |
unless defined($to = $H->{'[deadkeyInvAltGrKey]'}{$to}) |
|
8262
|
0 |
0 |
if $is_hex |
|
8276
|
0 |
0 |
unless $self->get_VK($nameF)->{'SPACE'} |
|
8281
|
0 |
0 |
unless defined $maps[-1] |
|
8291
|
0 |
0 |
if defined $default |
|
8292
|
0 |
0 |
if ($#maps or $is_invAltGr_Base_with_chain) |
|
8298
|
0 |
0 |
if ($is_invAltGr_Base_with_chain) |
|
8299
|
0 |
0 |
if (my $override_InvAltGr = $H->{'[InvAltGrFace]'}{''}) |
|
8302
|
0 |
0 |
if defined $flip_AltGr_hex |
|
8312
|
0 |
0 |
$invertAlt0 ? : |
|
|
0 |
0 |
defined $docs ? : |
|
8324
|
0 |
0 |
if ($to and 'ARRAY' eq ref $to) |
|
8326
|
0 |
0 |
if $EXPL |
|
8330
|
0 |
0 |
if $to and $to eq '0000' |
|
8332
|
0 |
0 |
if $map_n and ref $map_n |
|
8333
|
0 |
0 |
if hex $n > 65535 and $map_n |
|
8334
|
0 |
0 |
if ($to and hex $to > 65535) |
|
8337
|
0 |
0 |
unless defined($to = $H->{'[DeadChar_32bitTranslation]'}) |
|
8342
|
0 |
0 |
unless $to ||= $default |
|
8347
|
0 |
0 |
$invertAlt ? : |
|
|
0 |
0 |
$is_invAltGr_Base_with_chain && defined $map_AltGr_over->{$n} ? : |
|
8348
|
0 |
0 |
if $alt_n and ref $alt_n |
|
8351
|
0 |
0 |
defined $alt_n && $$use_dead2{&UI::KeyboardLayout::chr(hex $alt_n)} ? : |
|
8361
|
0 |
0 |
if not $DEAD || $import_dead and defined $default and 127 == hex $to || 32 > hex $to and 127 == hex $n || 32 > hex $n |
|
8364
|
0 |
0 |
if ($DEAD || $import_dead and $d eq $to) |
|
8365
|
0 |
0 |
if (($flip_AltGr_hex || 'n/a') eq $d) { } |
|
8375
|
0 |
0 |
exists $self->{'UNames'} ? : |
|
8378
|
0 |
0 |
if $expl and $EXPL |
|
8381
|
0 |
0 |
if $import_dead |
|
8383
|
0 |
0 |
if $OUT_Apple and 32 <= hex $n and 127 != hex $n |
|
8388
|
0 |
0 |
unless $keys |
|
8414
|
0 |
0 |
$skip2 ? : |
|
8415
|
0 |
0 |
if $skip2 and $skip2 eq 'skip2-include0' |
|
8416
|
0 |
0 |
if $skip2 |
|
8419
|
0 |
0 |
unless $idx >= $need or defined $v[$idx] |
|
8428
|
0 |
0 |
unless defined $c |
|
8434
|
0 |
0 |
unless my $name = $self->{'[map2diac]'}{$dia} |
|
8435
|
0 |
0 |
unless my $v = $self->{'[diacritics]'}{$name} |
|
8436
|
0 |
0 |
unless my($first) = grep((128 <= ord $_), @{$$v[0];}) |
|
8437
|
0 |
0 |
if $c eq ' ' |
|
8440
|
0 |
0 |
if defined $flip_AltGr |
|
8441
|
0 |
0 |
unless defined $flip_AltGr |
|
8443
|
0 |
0 |
if ($c eq $dia and $prefix) |
|
8447
|
0 |
0 |
unless defined $v->[4][0] |
|
8451
|
0 |
0 |
if ($space->{$c}) { } |
|
|
0 |
0 |
elsif (0 <= (my $off = index("\r\t\n\e\035\034\cH\177\036\037\000", $c)) and not $prefix) { } |
|
|
0 |
0 |
elsif (not $spaces and $c =~ /^\p{Blank}$/ and not $prefix) { } |
|
8461
|
0 |
0 |
unless $seen_before->{' '} |
|
8464
|
0 |
0 |
if ($c eq '|' or $c eq '\\' and not $prefix) |
|
8468
|
0 |
0 |
if ($N == 1 and $c_noalt and $c_noalt eq '|' || $c_noalt eq '\\') |
|
8472
|
0 |
0 |
if ($c eq '/' or $c eq '?' and not $prefix) |
|
8475
|
0 |
0 |
if ($c_noalt and $c_noalt eq q['] || $c_noalt eq '"') |
|
8478
|
0 |
0 |
if ($c eq '_' or $c eq '-' and not $prefix) |
|
8481
|
0 |
0 |
if ($N == 1 and $c_noalt and $c_noalt eq '_' || $c_noalt eq '-') |
|
8484
|
0 |
0 |
if ($N == 1 and $c_noalt and $c_noalt eq ';' || $c_noalt eq ':') |
|
8487
|
0 |
0 |
if ($N == 1 and defined $c_base and 0 <= (my $ind = index(q[`1234567890=[],.'], $c_base))) |
|
8490
|
0 |
0 |
if ($N == 0 and 0 <= (my $ind = index('[{]}', $c)) and not $prefix) |
|
8493
|
0 |
0 |
if ($N == 1 and $c_noalt and $c_noalt eq '/' || $c_noalt eq '?') |
|
8507
|
0 |
0 |
if ref $c2 |
|
8508
|
0 |
0 |
if defined $c2 and not $pref |
|
8523
|
0 |
0 |
unless my $h = $self->{'Compositions'}{$d} |
|
8527
|
0 |
0 |
if $caseseen{$c} |
|
8530
|
0 |
0 |
if $_ ne $c and $seen{$_} |
|
|
0 |
0 |
unless my(@case) = grep({&UI::KeyboardLayout::lc($_) eq &UI::KeyboardLayout::lc($c) if $_ ne $c and $seen{$_};} &UI::KeyboardLayout::lc($c), &UI::KeyboardLayout::uc($c)) |
|
8537
|
0 |
0 |
if grep $self->{'Compositions'}{$dia}{$_}, @$cases |
|
8553
|
0 |
0 |
if ((my($pre, $mid, $post) = split(/(\+|--)/, $dia, 2)) > 1) |
|
8560
|
0 |
0 |
if $dia =~ /^!?\\/ |
|
8562
|
0 |
0 |
unless ($dia =~ /^-?(\p{NonspacingMark}|<(?:font=)?[-\w!]+>|(maybe_)?[ul]c(first)?|dectrl)$/) |
|
8563
|
0 |
0 |
unless my $name = $self->{'[map2diac]'}{$dia} |
|
8564
|
0 |
0 |
unless my $v = $self->{'[diacritics]'}{$name} |
|
8565
|
0 |
0 |
unless defined($dia = $v->[4][0]) |
|
8567
|
0 |
0 |
if ($dia =~ /^(-)?<(reverse-)?any(1)?-(other-)?\b([-\w]+?)\b((?:-![-\w]+\b)*)>$/) { } |
|
8572
|
0 |
0 |
if $cached = $cached_aggregate_Compositions{$dia_raw} |
|
8575
|
0 |
0 |
if @except |
|
8581
|
0 |
0 |
length $_ > 1 ? : |
|
8582
|
0 |
0 |
length $_ > 1 ? : |
|
8585
|
0 |
0 |
unless $AA cmp $BB or $A cmp $B |
|
8586
|
0 |
0 |
if $other |
|
8587
|
0 |
0 |
if $one |
|
8588
|
0 |
0 |
if $rev |
|
8589
|
0 |
0 |
if (@out > 1 and not $neg) |
|
8595
|
0 |
0 |
if $neg |
|
8605
|
0 |
0 |
if @_ |
|
8606
|
0 |
0 |
unless ref($a || '') eq 'ARRAY' |
|
8612
|
0 |
0 |
if @_ |
|
8613
|
0 |
0 |
unless defined $a |
|
8614
|
0 |
0 |
unless ref($a || '') eq 'ARRAY' |
|
8632
|
0 |
0 |
unless defined $c and defined $doc |
|
8633
|
0 |
0 |
if $old and ref $old and defined $old->[3] |
|
8634
|
0 |
0 |
unless ref $c |
|
8635
|
0 |
0 |
if defined $doc |
|
8664
|
0 |
0 |
unless defined $name |
|
8665
|
0 |
0 |
if ($name =~ m(^Imported\[([/\w]+)(?:,([\da-fA-F]{4,}))?\]$)) |
|
8666
|
0 |
0 |
$2 ? : |
|
8667
|
0 |
0 |
unless defined $d |
|
8668
|
0 |
0 |
unless my $fromKBDD = $self->get_deep($self, 'DEADKEYS', @sec, &UI::KeyboardLayout::lc($d), 'map') |
|
8671
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
|
0 |
0 |
unless defined($c = $$fromKBDD{$self->key2hex($c)}) |
|
8673
|
0 |
0 |
if $name =~ /^Imported(\[.*)/s |
|
8674
|
0 |
0 |
if $translators{$name} |
|
8675
|
0 |
0 |
if ($name =~ /^PrefixDocs\[(.+)\]$/) |
|
8679
|
0 |
0 |
if ($name =~ /^Show\[(.+)\]$/) |
|
8683
|
0 |
0 |
if ($name =~ /^HTML_classes\[(.+)\]$/) |
|
8684
|
0 |
0 |
if (my @c = split(/,/, "$1", 0)) % 3 |
|
8694
|
0 |
0 |
if ($name =~ /^Space(Self)?2Id(?:\[(.+)\])?$/) |
|
8695
|
0 |
0 |
defined $2 ? : |
|
8696
|
0 |
0 |
$1 ? : |
|
8697
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
8698
|
0 |
0 |
$c eq ' ' || $c eq $self_OK && defined $dia ? : |
|
8700
|
0 |
0 |
if ($name =~ /^ShiftFromTo\[(.+)\]$/) |
|
8704
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
8706
|
0 |
0 |
if ($name =~ /^SelectRX\[(.+)\]$/) |
|
8708
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
|
0 |
0 |
unless $c =~ /$rx/ |
|
8710
|
0 |
0 |
if ($name =~ /^FlipShift$/) |
|
8711
|
0 |
0 |
unless defined $c |
|
8713
|
0 |
0 |
if ($name =~ /^AssignTo\[(\w+),(\d+)\]$/) |
|
8715
|
0 |
0 |
unless my $S = $start_SEC{$sec} |
|
8716
|
0 |
0 |
if $cnt > $S->[1] |
|
8717
|
0 |
0 |
unless $slot < $cnt |
|
8720
|
0 |
0 |
if ($name =~ /^FromTo(FlipShift)?\[(.+)\]$/) |
|
8729
|
0 |
0 |
$_ && ref $_ ? : |
|
8730
|
0 |
0 |
$_ && ref $_ ? : |
|
8731
|
0 |
0 |
if ($flip) { } |
|
8732
|
0 |
0 |
defined($kk = $fr[$_]) ? : |
|
8734
|
0 |
0 |
defined($kk = $fr[$_]) ? : |
|
8737
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
8739
|
0 |
0 |
if ($name =~ /^InheritPrefixKeys\[(.+)\]$/) |
|
8747
|
0 |
0 |
unless my $C = $baseL->[$k][$shift] |
|
8748
|
0 |
0 |
unless ref $C and $C->[2] |
|
8752
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c and $c->[2] |
|
|
0 |
0 |
unless $h{"@_ $c"} |
|
8754
|
0 |
0 |
if ($name =~ /^ByColumns\[(.+)\]$/) |
|
8755
|
0 |
0 |
length $_ ? : |
|
8756
|
0 |
0 |
unless my $g = $self->{'faces'}{$face}{'[geometry]'} |
|
8767
|
0 |
0 |
if $L or $shift or $k >= $tot |
|
8769
|
0 |
0 |
if ($name =~ /^ByRows\[(.+)\]$/) |
|
8774
|
0 |
0 |
unless length $rec |
|
8780
|
0 |
0 |
unless my $g = $self->{'faces'}{$face}{'[geometry]'} |
|
8792
|
0 |
0 |
if $k >= $tot or $#recipes < (my $r = $r{$k}) |
|
8793
|
0 |
0 |
unless $subs[$r] |
|
8796
|
0 |
0 |
if ($name =~ /^(?:Diacritic|Mutate)(SpaceOK)?(Hack)?(2Self)?(DupsOK)?(32OK)?(?:\[(.+)\])?$/) |
|
8798
|
0 |
0 |
defined $6 ? : |
|
8799
|
0 |
0 |
if ($toSelf) |
|
8800
|
0 |
0 |
if grep $_, $hack, $spaceOK, $dupsOK, $w32OK |
|
8802
|
0 |
0 |
unless $self->get_VK($face)->{'SPACE'} |
|
8805
|
0 |
0 |
if defined $flip_AltGr |
|
8806
|
0 |
0 |
if defined $flip_AltGr |
|
8815
|
0 |
0 |
if $Dia =~ s/^\+// |
|
8818
|
0 |
0 |
if defined $f |
|
8821
|
0 |
0 |
if defined $f and not $self->{'Age'} |
|
8827
|
0 |
0 |
unless exists $self->{'faces'}{$face}{"Named_DIA_Recipe__$R"} |
|
8830
|
0 |
0 |
if $isPrimary |
|
8833
|
0 |
0 |
if 1 == @Dia |
|
8834
|
0 |
0 |
if (1 < @Dia) { } |
|
8835
|
0 |
0 |
if @Dia > 3 |
|
8837
|
0 |
0 |
if @Dia2 > 2 |
|
8839
|
0 |
0 |
unless $have4 |
|
8840
|
0 |
0 |
@Dia2 > 1 ? : |
|
8841
|
0 |
0 |
if not $have4 and @Dia == 3 |
|
8846
|
0 |
0 |
if @G |
|
8847
|
0 |
0 |
if @G |
|
8858
|
0 |
0 |
unless grep defined($_), $self->flatten_arrays($K) |
|
8862
|
0 |
0 |
unless defined $base |
|
8863
|
0 |
0 |
if ref $base |
|
8864
|
0 |
0 |
if not $spaceOK and $base eq ' ' |
|
8867
|
0 |
0 |
if @groups2 |
|
8868
|
0 |
0 |
if @groups3 |
|
8869
|
0 |
0 |
@groups2 ? : |
|
|
0 |
0 |
if @groups3 |
|
8871
|
0 |
0 |
$_ && ref $_ ? : |
|
|
0 |
0 |
$hack ? : |
|
8873
|
0 |
0 |
$_ ? : |
|
|
0 |
0 |
$_ ? : |
|
|
0 |
0 |
$_ ? : |
|
|
0 |
0 |
$_ ? : |
|
|
0 |
0 |
$_ ? : |
|
8874
|
0 |
0 |
unless $sorted2 |
|
|
0 |
0 |
unless $sorted3 |
|
8881
|
0 |
0 |
if ($sorted2) |
|
8904
|
0 |
0 |
$_ && ref $_ ? : |
|
8907
|
0 |
0 |
!$_ || ref $_ ? : |
|
8911
|
0 |
0 |
unless $extra->[1] |
|
8915
|
0 |
0 |
unless (defined $o->[0] and defined $o->[1]) |
|
8917
|
0 |
0 |
!defined($_) || ref $_ ? : |
|
8919
|
0 |
0 |
$_ && ref $_ ? : |
|
8926
|
0 |
0 |
$_ && ref $_ ? : |
|
|
0 |
0 |
unless $_ |
|
|
0 |
0 |
$hack ? : |
|
8932
|
0 |
0 |
if ($name =~ /^DefinedTo\[(.+)\]$/) |
|
8934
|
0 |
0 |
unless defined $c |
|
8936
|
0 |
0 |
if ($name =~ /^ByPairs((Inv)?Prefix)?(Apple)?\[(.+)\]$/) |
|
8942
|
0 |
0 |
unless $p =~ s/^((?:\p{Blank}\p{NonspacingMark}|(?:\b\.)?[0-9a-f]{4,}\b(?:\.\b)?|.){2})//i |
|
8950
|
0 |
0 |
unless 2 == scalar(my @c = split(//, $Pair, 0)) |
|
8952
|
0 |
0 |
if exists $Map{$c[0]} |
|
8953
|
0 |
0 |
$invert ? : |
|
|
0 |
0 |
$prefix ? : |
|
8956
|
0 |
0 |
unless %Map |
|
8957
|
0 |
0 |
if ($Apple) |
|
8961
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
8964
|
0 |
0 |
unless defined $map |
|
8965
|
0 |
0 |
unless (exists $map->{'map'}) |
|
8967
|
0 |
0 |
if %$map and not $k1 =~ /^[0-9a-f]{4,}$/ |
|
8968
|
0 |
0 |
unless defined $deadkey |
|
8971
|
0 |
0 |
unless exists $$Map{&UI::KeyboardLayout::chr(hex $deadkey)} |
|
8972
|
0 |
0 |
if %$Map |
|
8973
|
0 |
0 |
unless %$map |
|
8975
|
0 |
0 |
unless defined $map->{'map'} |
|
8979
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
8997
|
0 |
0 |
unless defined $Tr |
|
9009
|
0 |
0 |
ref $for_layers ? : |
|
9010
|
0 |
0 |
if $for_layers |
|
9020
|
0 |
0 |
unless grep {not exists $self->{'layers'}{$_};} @new_names |
|
9025
|
0 |
0 |
if ($cvt) { } |
|
9037
|
0 |
0 |
unless defined $key |
|
9038
|
0 |
0 |
unless grep defined($_), @$key |
|
9040
|
0 |
0 |
unless defined $k |
|
9041
|
0 |
0 |
defined $k->[0] ? : |
|
|
0 |
0 |
ref $k ? : |
|
9050
|
0 |
0 |
if $last != $#o |
|
9065
|
0 |
0 |
if exists $self->{'layers'}{join $", @layers} |
|
9076
|
0 |
0 |
if defined $l->[$k][$kk] and not defined $keys[$k][$kk] |
|
9095
|
0 |
0 |
if ($whole) |
|
9099
|
0 |
0 |
ref $_ ? : |
|
9107
|
0 |
0 |
if ($whole) { } |
|
9114
|
0 |
0 |
if exists $self->{'layers'}{$name} |
|
9123
|
0 |
0 |
if $ch and ref $ch |
|
9124
|
0 |
0 |
if $rch and ref $rch |
|
9127
|
0 |
0 |
defined $rch ? : |
|
|
0 |
0 |
$whole ? : |
|
|
0 |
0 |
if defined $ch and not defined $keys[$k][$kk] and $whole ? !$seen[$k]{$ch} : $ch ne (defined $rch ? $rch : '') |
|
9155
|
0 |
0 |
if @_ |
|
9162
|
0 |
0 |
if $self->{'faces'}{$f}{'layers'} |
|
9163
|
0 |
0 |
unless $self->{'face_recipes'}{$f} |
|
9165
|
0 |
0 |
unless defined(my $n = $self->{'faces'}{$base}{'numLayers'}) |
|
9173
|
0 |
0 |
unless my $R = $self->{'face_recipes'}{$face} or defined $r |
|
9174
|
0 |
0 |
if $R |
|
9192
|
0 |
0 |
$full ? : |
|
|
0 |
0 |
unless $full ? undef : $self->{'faces'}{$face}{'[ini_layers_prefix]'} || $self->{'faces'}{$face}{'[ini_layers]'} or $self->{'faces'}{$face}{'layers'} |
|
9200
|
0 |
0 |
if exists $self->{'layer_recipes'}{$ll} |
|
9202
|
0 |
0 |
if $self->{'layers'}{$l} |
|
9209
|
0 |
0 |
if ($recipe eq 'LinkFace') |
|
9210
|
0 |
0 |
unless my $L = $self->{'faces'}{$face}{'LinkFace'} |
|
9213
|
0 |
0 |
if $recipe eq 'Self' |
|
9214
|
0 |
0 |
if ($recipe =~ /^Layers\((.*\+.*)\)$/) |
|
9219
|
0 |
0 |
if ($recipe eq 'FlipLayersLinkFace') |
|
9220
|
0 |
0 |
unless my $L = $self->{'faces'}{$face}{'LinkFace'} |
|
9224
|
0 |
0 |
if $recipe eq 'FlipLayers' |
|
9232
|
0 |
0 |
$m1 ? : |
|
|
0 |
0 |
if $recipe =~ /^(Full)?(?:(Face)|FlipLayers)\((.*)\)$/ and $m1 = $2, 1 |
|
9235
|
0 |
0 |
if ($recipe =~ /^prefix(NOTSAME(case)?)?=(.+)$/) |
|
9240
|
0 |
0 |
unless my $layers = $self->{'faces'}{$face}{'[deadkeyLayers]'}{$hexPrefix} |
|
9241
|
0 |
0 |
if $N or not $notsame |
|
9243
|
0 |
0 |
if $self->{'layers'}{$name} |
|
9252
|
0 |
0 |
ref $sh ? : |
|
|
0 |
0 |
if defined $sh |
|
9256
|
0 |
0 |
$notsame && !$N ? : |
|
9259
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
9260
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
9261
|
0 |
0 |
if not defined $CC[$sh] and defined $C[0] |
|
9262
|
0 |
0 |
if not $OK[$sh] and defined $C[0] and not $s{$C[0]} |
|
9264
|
0 |
0 |
if $sh and not $OK[$sh] and defined $C[0] and defined $was[0] and not $s{$was[0]} and not $s1{$was[0]} |
|
9265
|
0 |
0 |
unless $sh |
|
9293
|
0 |
0 |
if $recipe =~ /^(prefix(?:NOTSAME(?:case)?)?=.*|(FlipLayers)?LinkFace|FlipLayers|Self|((Full)?(Face|FlipLayers)|Layers)\([^()]+\))$/ |
|
9296
|
0 |
0 |
unless my(@parts) = grep(/\S/, $self->join_min_paren_brackets_matched('', split(/(\s+)/, $recipe, 0))) |
|
9298
|
0 |
0 |
if (@parts > 1) |
|
9304
|
0 |
0 |
if $noid |
|
9308
|
0 |
0 |
if ($recipe =~ /\)$/) { } |
|
9309
|
0 |
0 |
if ($recipe =~ /^[^(]*\[/) { } |
|
9312
|
0 |
0 |
if $self->brackets_match_q(substr($recipe, 0, 1 + pos($recipe))) |
|
9314
|
0 |
0 |
unless $pos |
|
9319
|
0 |
0 |
unless ($recipe, $ARG) = $recipe =~ /^(.*?)\((.*)\)$/s |
|
9325
|
0 |
0 |
if ($recipe =~ /^If(Not)?Prefix\[(.*)\]$/s) |
|
9328
|
0 |
0 |
if $neg xor grep(($_ eq $deadkey), @prefix) |
|
9331
|
0 |
0 |
if (length $ARG) { } |
|
9332
|
0 |
0 |
if (exists $self->{'layers'}{$ARG}) { } |
|
9335
|
0 |
0 |
if exists $self->{'layer_recipes'}{my $a = $ARG} |
|
9339
|
0 |
0 |
if $noid |
|
9351
|
0 |
0 |
unless my $r = $self->get_deep($self, 'faces', my @p = split(m[/], $face, 0), '[Diacritic_if_undef]') |
|
9361
|
0 |
0 |
if defined $default |
|
9371
|
0 |
0 |
if $KK eq '' |
|
9373
|
0 |
0 |
if defined $flip_AltGr and defined $$chain{$KK and $self->charhex2key($KK)} |
|
9378
|
0 |
0 |
if ($KK eq '' and defined $flip_AltGr) |
|
9381
|
0 |
0 |
if ($H->{'[InvdeadkeyLayers]'}{$KK}) |
|
9397
|
0 |
0 |
unless ($H->{'[autodead_wrapped]'}) |
|
9399
|
0 |
0 |
if $o >= 4096 and $H->{'[ad_can_wrap]'} and not $H->{'[autodead_wrapped]'}++ |
|
9401
|
0 |
0 |
if ($H->{'[autodead_wrapped]'}) |
|
9412
|
0 |
0 |
if ('ARRAY' eq ref $recipe) |
|
9429
|
0 |
0 |
if @FF == 1 or $FF[-1] eq 'VK' |
|
9433
|
0 |
0 |
if $H->{'PartialFace'} |
|
9434
|
0 |
0 |
if $F =~ m[/] and exists $H->{'layers'} |
|
9442
|
0 |
0 |
unless $k =~ /^DeadKey_(Inv|Add)?Map([0-9a-f]{4,})?(?:_(\d+))?$/i |
|
9445
|
0 |
0 |
if defined $key |
|
9447
|
0 |
0 |
defined $layers ? : |
|
9457
|
0 |
0 |
if Deparse error: Bizarre copy of CODE in list assignment at /usr/local/lib/perl5/5.22.0/B/Deparse.pm line 4035.
{$layers and join $", @$layers}++ |
|
9463
|
0 |
0 |
if $massage and not $inv |
|
9478
|
0 |
0 |
unless defined $hexPrefixWas |
|
9483
|
0 |
0 |
$inv && "$inv $hexPrefix" eq 'Inv 0000' ? : |
|
9486
|
0 |
0 |
$layers eq 'All' ? : |
|
9496
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/ |
|
9499
|
0 |
0 |
defined $flip_AltGr ? : |
|
9506
|
0 |
0 |
$key ne '' ? : |
|
9517
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/ |
|
9519
|
0 |
0 |
if $H->{'PartialFace'} |
|
9520
|
0 |
0 |
unless $H->{'[deadkeyLayers]'} |
|
9524
|
0 |
0 |
if defined $first_auto_dead |
|
9529
|
0 |
0 |
unless defined $H->{'[deadkeyLayers]'}{$KK}[$layer] |
|
9548
|
0 |
0 |
if @FF == 1 or $FF[-1] eq 'VK' |
|
9551
|
0 |
0 |
unless $H->{'[PrefixChains]'} |
|
9553
|
0 |
0 |
if $_ |
|
9554
|
0 |
0 |
unless length(my $trail_nonprefix = $prefix[-1]) |
|
9556
|
0 |
0 |
unless @prefix > 1 |
|
9564
|
0 |
0 |
unless my $KF = $H->{'[deadkeyFace]'}{$KK} |
|
9582
|
0 |
0 |
if @FF == 1 or $FF[-1] eq 'VK' |
|
9597
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/ |
|
9599
|
0 |
0 |
unless $H->{'[deadkeyLayers]'} |
|
9601
|
0 |
0 |
if @$expl % 2 |
|
9609
|
0 |
0 |
unless defined $H->{'[first_auto_dead]'} and grep defined($_), map($self->flatten_arrays($_), map($self->{'layers'}{$_}, @$LL[1 .. $#$LL])) |
|
9610
|
0 |
0 |
unless exists $H->{'[deadkeyInvAltGrKey]'}{''} |
|
9612
|
0 |
0 |
exists $$expl{$self->charhex2key($KK)} ? : |
|
9616
|
0 |
0 |
unless defined(my $flip_AltGr = $H->{'[Flip_AltGr_Key]'}) |
|
9618
|
0 |
0 |
if exists $H->{'[deadkeyInvAltGrKey]'}{''} |
|
9620
|
0 |
0 |
unless $H->{'chainAltGr'} |
|
9624
|
0 |
0 |
unless exists $H->{'[deadkeyInvAltGrKey]'}{$KK} |
|
9630
|
0 |
0 |
if length $prev |
|
9644
|
0 |
0 |
if (%$Map) |
|
9645
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if ref $c |
|
9651
|
0 |
0 |
$inv ? : |
|
9659
|
0 |
0 |
$prefix ? : |
|
9661
|
0 |
0 |
if $inv |
|
9663
|
0 |
0 |
if @K |
|
9671
|
0 |
0 |
$short ? : |
|
9672
|
0 |
0 |
$short ? : |
|
|
0 |
0 |
$b & 1 << $_ ? : |
|
9673
|
0 |
0 |
if $short |
|
9675
|
0 |
0 |
if $col == 15 |
|
9682
|
0 |
0 |
if $F->{'baseKeysWin'} |
|
9686
|
0 |
0 |
if defined $b and not $self->{'layers'}{$b} |
|
9687
|
0 |
0 |
defined $b ? : |
|
9696
|
0 |
0 |
if (not $c->[0]) { } |
|
9697
|
0 |
0 |
unless $k =~ /^[A-Z0-9]$/ |
|
9702
|
0 |
0 |
unless defined $k |
|
9722
|
0 |
0 |
if $dummyDscr |
|
9724
|
0 |
0 |
if $LLL > 63 |
|
9731
|
0 |
0 |
if (grep $$F{"[$_]"}, ('LRM_RLM', 'ALTGR', 'SHIFTLOCK')) { } |
|
9736
|
0 |
0 |
if ($dummy) { } |
|
9754
|
0 |
0 |
if $h{'DO_LIGA'} |
|
9768
|
0 |
0 |
if defined $f and not $self->{'Age'} |
|
9771
|
0 |
0 |
if defined $flip_AltGr_hex |
|
9773
|
0 |
0 |
if $F->{'[only_extra]'}{$self->charhex2key($deadKey)} |
|
9775
|
0 |
0 |
if defined $auto_inv_AltGr |
|
9779
|
0 |
0 |
$auto_inv_AltGr ? : |
|
9795
|
0 |
0 |
unless $F->{'[mods_keys_KBD]'} |
|
9798
|
0 |
0 |
if $#$mods < $#$mods_keys |
|
9801
|
0 |
0 |
defined $MOD ? : |
|
9802
|
0 |
0 |
unless ($mod =~ /\S/) |
|
9816
|
0 |
0 |
unless defined $pre_ctrl |
|
9818
|
0 |
0 |
unless defined $create_a_c |
|
9819
|
0 |
0 |
$create_a_c > 1 ? : |
|
9820
|
0 |
0 |
if @cols >= 16 |
|
9844
|
0 |
0 |
unless defined $h{'OSX_ID'} |
|
9846
|
0 |
0 |
if (defined $v and defined $h{'OSX_ADD_VERSION'}) |
|
9847
|
0 |
0 |
if ($h{'OSX_ADD_VERSION'} > 0) { } |
|
|
0 |
0 |
elsif ($h{'OSX_ADD_VERSION'} < -1) { } |
|
|
0 |
0 |
elsif ($h{'OSX_ADD_VERSION'} == -1) { } |
|
9861
|
0 |
0 |
if $dupk |
|
9865
|
0 |
0 |
defined $file ? : |
|
9866
|
0 |
0 |
if defined $v |
|
9867
|
0 |
0 |
if defined $self->{'uniVersion'} |
|
9876
|
0 |
0 |
if defined $flip_AltGr_hex |
|
9879
|
0 |
0 |
if $F->{'[only_extra]'}{$self->charhex2key($deadKey)} |
|
9881
|
0 |
0 |
if defined $auto_inv_AltGr |
|
9900
|
0 |
0 |
if ($out =~ /^hex[46]\z/) { } |
|
10165
|
0 |
0 |
if $cache->{$i} |
|
10166
|
0 |
0 |
unless my $In = $t->{$i} |
|
10174
|
0 |
0 |
if @$expand < 2 or not $expand->[0] =~ /^[01]$/ |
|
10176
|
0 |
0 |
if $expand->[0] =~ /^[01]$/ |
|
10183
|
0 |
0 |
if $i =~ /^\w/ |
|
10253
|
0 |
0 |
if ($s =~ /^\@\@\@\s+The\s+Unicode\s+Standard\s+(.*?)\s*$/i) |
|
10256
|
0 |
0 |
if ($s =~ /^([\da-f]+)\b\s*(.*?)\s*$/i) |
|
10262
|
0 |
0 |
if (defined $kk) |
|
10264
|
0 |
0 |
if $name =~ /\bCOMBINING\b/ and not $_c =~ /\p{NonSpacingMark}/ |
|
10265
|
0 |
0 |
if ($name =~ /^(.*?)\s+(?:(WITH)\s+|(?=(?:OVER|ABOVE|PRECEDED\s+BY|BELOW(?=\s+LONG\s+DASH))\s+\b(?!WITH\b|AND\b)))(.*?)\s*$/) |
|
10269
|
0 |
0 |
if ($with and @ext > 1) |
|
10277
|
0 |
0 |
if ($name =~ /^(.*)\s+(?=OR\s)(.*?)\s*$/) |
|
10280
|
0 |
0 |
if (($t = $name) =~ s/\b(COMBINING(?=\s+CYRILLIC\s+LETTER)|BARRED|SLANTED|APPROXIMATELY|ASYMPTOTICALLY|(?
|
|
10282
|
0 |
0 |
if $t =~ /\bEPIGRAPHIC\b/ |
|
10284
|
0 |
0 |
if $candidates{$k}[-1][1] =~ /\bLUNATE\b/ |
|
10286
|
0 |
0 |
if $t =~ /\bSMALL\s+CAPITAL\b/ |
|
10289
|
0 |
0 |
if (($t = $name) =~ s/\b(WHITE|BLACK|CIRCLED)\s+//) |
|
10292
|
0 |
0 |
if (($t = $name) =~ s/\bBLACK\b/WHITE/) |
|
10295
|
0 |
0 |
if (($t = $name) =~ s/^(?:RAISED|MODIFIER\s+LETTER(?:\s+RAISED)?(\s+LOW)?)\s+//) |
|
10296
|
0 |
0 |
$1 ? : |
|
10298
|
0 |
0 |
if (($t = $name) =~ s/\bBUT\s+NOT\b/OR/) |
|
10301
|
0 |
0 |
if (($t = $name) =~ s/(^LATIN\b.*\b\w)UM((?:\s+ROTUNDA)?)$/$1$2/) |
|
10304
|
0 |
0 |
if (167 == hex($k) >> 8 and ($t = $name) =~ s/\b(\w|CO|VEN)(?!\1)(\w)$/$2/) |
|
10307
|
0 |
0 |
if (($t = $name) =~ s/(?:(\bMIDDLE-WELSH)\s+)?\b(\w)(?=\2$)//) |
|
10308
|
0 |
0 |
$1 ? : |
|
10310
|
0 |
0 |
if (($t = $name) =~ s/\b(APL\s+FUNCTIONAL\s+SYMBOL)\s+\b(.*?)\b\s*\b((?:UNDERBAR|TILDE|DIAERESIS|VANE|STILE|JOT|OVERBAR|BAR)(?!$))\b\s*/$2/) |
|
10317
|
0 |
0 |
if (($t = $name) =~ s/\b(APL\s+FUNCTIONAL\s+SYMBOL)\s+\b(.*?)\b\s*\b(QUAD(?:(?!$)|(?!\2))|(?:UNDERBAR|TILDE|DIAERESIS|VANE|STILE|JOT|OVERBAR|BAR)$)\b\s*/$2/) { } |
|
|
0 |
0 |
elsif (($t = $name) =~ s/\b(APL\s+FUNCTIONAL\s+SYMBOL)\s+//) { } |
|
10328
|
0 |
0 |
if (($t = $name) =~ s/\b(LETTER\s+SMALL\s+CAPITAL)/CAPITAL LETTER/) |
|
10331
|
0 |
0 |
if (($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') |
|
10340
|
0 |
0 |
if $name =~ /^GREEK\s/ |
|
10344
|
0 |
0 |
if ($s =~ /^\@\@\s+([\da-f]+)\b/i) |
|
10345
|
0 |
0 |
unless $s =~ /^\@\@\s+([\da-f]+)\s.*\s([\da-f]+)\s*$/i |
|
10349
|
0 |
0 |
if $s =~ /^\s+:\s*([0-9A-F]+(?:\s+[0-9A-F]+)*)/ |
|
10350
|
0 |
0 |
if $s =~ /^\s+#\s*(?:(<.*?>)\s+)?([0-9A-F]+(?:\s+[0-9A-F]+)*)/ |
|
10352
|
0 |
0 |
unless $a |
|
10353
|
0 |
0 |
if ($a->[-1] eq '') |
|
10356
|
0 |
0 |
unless $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)/ |
|
10361
|
0 |
0 |
if $1 |
|
10364
|
0 |
0 |
if $type |
|
10367
|
0 |
0 |
unless @$a > 2 |
|
10369
|
0 |
0 |
unless $a->[-1] eq '' or @$a == 3 and &UI::KeyboardLayout::chr(hex $a->[-2]) =~ /\W|\p{Lm}/ and not $a->[-1] =~ /^[-1]) =~ /\w/ |
|
10382
|
0 |
0 |
if not $name and $k =~ /^[12]?F[89A]..$/ || hex $base >= 19968 && hex $base <= 40908 |
|
10383
|
0 |
0 |
unless $name |
|
10384
|
0 |
0 |
if ((my $NN = $name) =~ s/\s+OPERATOR$//) |
|
10386
|
0 |
0 |
unless $operators{$NN} |
|
10392
|
0 |
0 |
if @$map % 2 |
|
10398
|
0 |
0 |
if ($shift) |
|
10400
|
0 |
0 |
unless $F ne $from and $T ne $to |
|
10408
|
0 |
0 |
unless (my $l = my $name = $G{$g}) =~ s/^GREEK\b/LATIN/ |
|
10409
|
0 |
0 |
unless my $L = $N{$l} |
|
10412
|
0 |
0 |
unless my($lat, $first, $rest, $add) = $l =~ /^(LATIN\s+(?:SMALL|CAPITAL)\s+LETTER\s+(\w))(\w+)(?:\s+(\S.*))?$/ |
|
10413
|
0 |
0 |
if "$first$rest" eq 'PHI' |
|
10414
|
0 |
0 |
unless my $LL = $N{$lat} |
|
10415
|
0 |
0 |
defined $add ? : |
|
10439
|
0 |
0 |
if (my $with = my $raw = $Cand->[1]) =~ s/\s+(SIGN|SYMBOL|(?:FINAL|ISOLATED|INITIAL|MEDIAL)\s+FORM)$// |
|
10444
|
0 |
0 |
if $raw =~ /-SYMBOL$/ and 0 <= index($append, 'SYMBOL') |
|
10448
|
0 |
0 |
unless $N{$b} |
|
10449
|
0 |
0 |
unless $N{$b} |
|
10450
|
0 |
0 |
unless $N{$b} |
|
10451
|
0 |
0 |
unless $N{$b} |
|
10452
|
0 |
0 |
unless $N{$b} |
|
10453
|
0 |
0 |
unless $N{$b} |
|
10454
|
0 |
0 |
unless $N{$b} |
|
10455
|
0 |
0 |
unless $N{$b} |
|
10456
|
0 |
0 |
unless $N{$b} |
|
10457
|
0 |
0 |
unless $N{$b} |
|
10459
|
0 |
0 |
if not $N{$b} or $with =~ /smallcaps/ |
|
10460
|
0 |
0 |
unless $N{$b} |
|
10461
|
0 |
0 |
unless $N{$b} |
|
10462
|
0 |
0 |
unless $N{$b} |
|
10463
|
0 |
0 |
unless $N{$b} |
|
10464
|
0 |
0 |
unless $N{$b} |
|
10465
|
0 |
0 |
unless $N{$b} |
|
10466
|
0 |
0 |
unless $N{$b} |
|
10468
|
0 |
0 |
unless $N{$b} |
|
10470
|
0 |
0 |
if not $N{$b} and $N{"GREEK SMALL LETTER $b"} |
|
10475
|
0 |
0 |
if (defined($base = $N{$b})) |
|
10476
|
0 |
0 |
if $base eq $c |
|
10477
|
0 |
0 |
if $t |
|
10483
|
0 |
0 |
if (defined $base) { } |
|
|
0 |
0 |
elsif ($raw =~ /\bOPERATOR$/) { } |
|
10486
|
0 |
0 |
if exists $operators{$Cand->[0]} |
|
10488
|
0 |
0 |
unless defined $base |
|
10490
|
0 |
0 |
/^[\da-f]{4,}$/i ? : |
|
10493
|
0 |
0 |
if ($b =~ s/\s+(OPERATOR|SIGN)$//) |
|
10494
|
0 |
0 |
if defined($base = $N{$b}) |
|
10498
|
0 |
0 |
unless $operators{$b} |
|
10505
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10509
|
0 |
0 |
if @exp < 2 |
|
10510
|
0 |
0 |
if @exp < 3 |
|
10514
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10516
|
0 |
0 |
if $seen_compose{"$compat; @exp"}++ |
|
10517
|
0 |
0 |
@exp > 3 ? : |
|
10520
|
0 |
0 |
if $compose{join $", @exp} and not join($", @exp) =~ /<(font|pseudo-upgrade)>/ and $c ne $compose{join $", @exp}[0][1] and not $known_dups{$c} |
|
10525
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10535
|
0 |
0 |
if $seen_compose{"$compat; $v->[$off]; @r"}++ |
|
10537
|
0 |
0 |
unless $compose{join $", @r} |
|
10539
|
0 |
0 |
if @r == 1 |
|
10542
|
0 |
0 |
if $_->[1] ne $c |
|
10555
|
0 |
0 |
unless $UI::KeyboardLayout::a->[0] <=> $UI::KeyboardLayout::b->[0] |
|
10564
|
0 |
0 |
@_ ? : |
|
10565
|
0 |
0 |
if defined $f |
|
10569
|
0 |
0 |
$_->[0] ? : |
|
10575
|
0 |
0 |
if @_ == 1 |
|
10577
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10579
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10581
|
0 |
0 |
$_->[0] ? : |
|
10589
|
0 |
0 |
@_ ? : |
|
10590
|
0 |
0 |
if defined $f |
|
10596
|
0 |
0 |
$_->[0] ? : |
|
10604
|
0 |
0 |
if $self->{'Compositions'} |
|
10605
|
0 |
0 |
unless $self->{'[Substitutions]'} |
|
10606
|
0 |
0 |
unless open my $f, '<', $comp |
|
10608
|
0 |
0 |
unless close $f |
|
10611
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10612
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10620
|
0 |
0 |
if $comb |
|
10627
|
0 |
0 |
unless open my $f, '<', $fn |
|
10630
|
0 |
0 |
unless close $f |
|
10638
|
0 |
0 |
unless @_ |
|
10646
|
0 |
0 |
if $verbose and exists $UName_v{$c} and $vbell || 9834 != ord $c |
|
10647
|
0 |
0 |
if (not exists $self->{'UNames'} or $verbose) |
|
10652
|
0 |
0 |
if ($verbose and %$i || $A) |
|
10656
|
0 |
0 |
if $vbell and 9834 == ord $c |
|
10657
|
0 |
0 |
if length $scr |
|
10659
|
0 |
0 |
if $verbose and $vbell || 9834 != ord $c |
|
10662
|
0 |
0 |
$c =~ /[\x{d800}-\x{dfff}\x00-\x1f\x7f-\xAF]/ ? : |
|
|
0 |
0 |
unless $self->{'UNames'}{$c} |
|
10668
|
0 |
0 |
if $l =~ /^\s*(#|$)/ |
|
10669
|
0 |
0 |
unless $l =~ /^([0-9a-f]{4,})(?:\.\.([0-9a-f]{4,}))?\s*;\s*(\d\.\d)\b/i |
|
10682
|
0 |
0 |
unless defined $C |
|
10683
|
0 |
0 |
if 'ARRAY' eq ref $C |
|
10685
|
0 |
0 |
if ($undo) |
|
10686
|
0 |
0 |
unless my $dec = $self->{'Decompositions'}{$C} |
|
10691
|
0 |
0 |
if (@out) |
|
10692
|
0 |
0 |
unless @out == 1 |
|
10699
|
0 |
0 |
if ($unAltGr) |
|
10700
|
0 |
0 |
unless $unAltGr = $unAltGr->{$C} |
|
10704
|
0 |
0 |
if $a1 and not $seen{$a1->[0][1]}++ |
|
10706
|
0 |
0 |
unless defined(my $a2 = $self->{'Compositions'}{$comp}{$C}) or @seen == 2 |
|
10708
|
0 |
0 |
if $a2 and $a1 and @seen == 2 and $a1->[0][1] ne $a2->[0][1] |
|
10713
|
0 |
0 |
unless my($r) = grep(defined($_), map($self->compound_composition($_, $C), @$m)) |
|
10714
|
0 |
0 |
unless @$r == 1 or $C eq ' ' |
|
10721
|
0 |
0 |
unless defined $C |
|
10722
|
0 |
0 |
if 'ARRAY' eq ref $C and defined $C->[3] |
|
10723
|
0 |
0 |
if length $doc1 |
|
10724
|
0 |
0 |
if 'ARRAY' eq ref $C |
|
10729
|
0 |
0 |
if ($m =~ /^(?:-|(?:[ul]c(?:first)?|dectrl)$)/) { } |
|
10730
|
0 |
0 |
if ($m =~ s/^-//) { } |
|
|
0 |
0 |
elsif ($m eq 'lc') { } |
|
|
0 |
0 |
elsif ($m eq 'uc') { } |
|
|
0 |
0 |
elsif ($m eq 'ucfirst') { } |
|
|
0 |
0 |
elsif ($m eq 'dectrl') { } |
|
10734
|
0 |
0 |
$_->[1] eq &UI::KeyboardLayout::lc($_->[1]) || 1 != length &UI::KeyboardLayout::lc($_->[1]) ? : |
|
10736
|
0 |
0 |
$_->[1] eq &UI::KeyboardLayout::uc($_->[1]) || 1 != length &UI::KeyboardLayout::uc($_->[1]) ? : |
|
10738
|
0 |
0 |
$_->[1] eq &UI::KeyboardLayout::ucfirst($_->[1]) || 1 != length &UI::KeyboardLayout::ucfirst($_->[1]) ? : |
|
10740
|
0 |
0 |
32 <= ord $_->[1] ? : |
|
10749
|
0 |
0 |
unless @res |
|
10757
|
0 |
0 |
unless $CC |
|
10758
|
0 |
0 |
$ini && ref $ini && defined $ini->[3] ? : |
|
10762
|
0 |
0 |
unless defined $C |
|
10764
|
0 |
0 |
if defined $in |
|
10766
|
0 |
0 |
unless @res |
|
10790
|
0 |
0 |
$_ && 'ARRAY' eq ref $_ ? : |
|
10793
|
0 |
0 |
unless defined $char |
|
10797
|
0 |
0 |
if ((my $P = $M) =~ s/^(!)?\\(\\)?//) |
|
10800
|
0 |
0 |
if ($P =~ s/\[(.*)\]$//) |
|
10804
|
0 |
0 |
unless $match |
|
10807
|
0 |
0 |
if ($neg) { } |
|
10808
|
0 |
0 |
$strong ? : |
|
10810
|
0 |
0 |
$strong ? : |
|
10821
|
0 |
0 |
$_ && ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
10824
|
0 |
0 |
if (defined $Res2[$shift]) { } |
|
10825
|
0 |
0 |
if $Res3[$shift] |
|
10834
|
0 |
0 |
defined $_ ? : |
|
10837
|
0 |
0 |
!defined($_) || !$dupsOK && $seen{$_->[1]}++ ? : |
|
10838
|
0 |
0 |
defined $_ ? : |
|
10839
|
0 |
0 |
defined $_ ? : |
|
10841
|
0 |
0 |
defined $_ ? : |
|
10842
|
0 |
0 |
65536 > ord($_ || 0) ? : |
|
|
0 |
0 |
unless $w32OK |
|
10844
|
0 |
0 |
if not !$compat[$_] |
|
10845
|
0 |
0 |
unless my $cnt = grep(defined($_), @res2) |
|
10851
|
0 |
0 |
$OK{$res2[$_]} ? : |
|
|
0 |
0 |
$ok{$res2[$_]} ? : |
|
10856
|
0 |
0 |
if defined $_ |
|
|
0 |
0 |
if $double_occupancy and grep {$Penalize{$_} if defined $_;} @res2 |
|
10857
|
0 |
0 |
if defined $_ |
|
|
0 |
0 |
if ($double_occupancy and grep {$penalize{$_} if defined $_;} @res2) { } |
|
10863
|
0 |
0 |
unless $cnt |
|
10864
|
0 |
0 |
if (not $double_occupancy and $cnt == 2 and 1) |
|
10870
|
0 |
0 |
defined $res2[0] ? : |
|
10871
|
0 |
0 |
if @$penalty > 1 and defined $res2[1] and $p gt $penalty->[1] |
|
10874
|
0 |
0 |
defined $res2[$_] ? : |
|
10894
|
0 |
0 |
if 'ARRAY' eq ref($k || 0) |
|
10895
|
0 |
0 |
unless defined $k |
|
10896
|
0 |
0 |
if defined $k and not $k =~ /[^\x{2503}\x{250b}\x{2551}\x{2502}\x{2506}\s]/ |
|
10898
|
0 |
0 |
unless $bold1 |
|
10899
|
0 |
0 |
unless $bold |
|
10905
|
0 |
0 |
if ($prio2++) |
|
10911
|
0 |
0 |
if ($double2++) |
|
10918
|
0 |
0 |
unless defined(my $k = $set->[$shift]) |
|
10919
|
0 |
0 |
if ref $k |
|
10920
|
0 |
0 |
if $k =~ /$rxCombining/ |
|
10921
|
0 |
0 |
if (2 * $layer + $shift >= $#L) |
|
10940
|
0 |
0 |
unless defined $k and defined $k->[0] || defined $k->[1] |
|
10942
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
if $_ |
|
10944
|
0 |
0 |
if $LL and $L and defined $k->[$_] and defined $LL->[$L][$_] |
|
10945
|
0 |
0 |
if (my $special = grep($_, @need_special)) |
|
10946
|
0 |
0 |
$prepend ? : |
|
|
0 |
0 |
if $special == grep(defined($_), @$k) |
|
10949
|
0 |
0 |
$need_special[$_] ? : |
|
10950
|
0 |
0 |
!$need_special[$_] ? : |
|
10951
|
0 |
0 |
$prepend ? : |
|
10953
|
0 |
0 |
$prepend ? : |
|
10956
|
0 |
0 |
unless $cnt |
|
10957
|
0 |
0 |
unless $prepend |
|
10958
|
0 |
0 |
if $prepend |
|
10967
|
0 |
0 |
$backwards ? : |
|
10969
|
0 |
0 |
if --$limit < 0 |
|
10974
|
0 |
0 |
if ($both) |
|
10975
|
0 |
0 |
unless $penalty_group->[1][$L] |
|
|
0 |
0 |
unless $penalty_group->[1][0] |
|
|
0 |
0 |
unless $penalty_group->[1] and @{[] unless $penalty_group->[1][$L];} or @{[] unless $penalty_group->[1][0];} |
|
10979
|
0 |
0 |
$L ? : |
|
10981
|
0 |
0 |
unless $set and @$set |
|
10982
|
0 |
0 |
if ($group_both) |
|
10983
|
0 |
0 |
$backwards ? : |
|
10984
|
0 |
0 |
if $groupN <= $ignore_groups |
|
10985
|
0 |
0 |
if $store_level |
|
10990
|
0 |
0 |
$backwards ? : |
|
10994
|
0 |
0 |
unless $lc_ok or $uc_ok |
|
10997
|
0 |
0 |
if defined $have_out and $found_both || $have_out eq $uc_ok |
|
10999
|
0 |
0 |
$have_both ? : |
|
11000
|
0 |
0 |
$both ? : |
|
11002
|
0 |
0 |
unless ($groupN <= $ignore_groups or defined $have_out and $have_out eq $uc_ok) |
|
11007
|
0 |
0 |
if ($can_splice) { } |
|
11009
|
0 |
0 |
unless $backwards |
|
11014
|
0 |
0 |
if $groupN <= $ignore_groups |
|
11015
|
0 |
0 |
if ($can_return) |
|
11016
|
0 |
0 |
if ($found_both) { } |
|
11017
|
0 |
0 |
if $_ |
|
|
0 |
0 |
if $store_level |
|
11020
|
0 |
0 |
if $store_level |
|
11027
|
0 |
0 |
$lc_ok ? : |
|
11033
|
0 |
0 |
if $store_level |
|
11569
|
0 |
0 |
$opt->{'fake'} ? : |
|
11575
|
0 |
0 |
$opt->{'fake'} ? : |
|
11620
|
0 |
0 |
unless $kmap |
|
11621
|
0 |
0 |
if ref $c |
|
11622
|
0 |
0 |
unless defined($c = $$kmap{$self->key2hex($c)}) |
|
11623
|
0 |
0 |
unless ref $c |
|
11635
|
0 |
0 |
if $base |
|
11640
|
0 |
0 |
join($", @extra) =~ /\s/ ? : |
|
11641
|
0 |
0 |
@extra ? : |
|
11651
|
0 |
0 |
if @_ & 1 |
|
11654
|
0 |
0 |
if $c =~ (shift()) |
|
11663
|
0 |
0 |
defined $_ && ref $_ ? : |
|
11668
|
0 |
0 |
defined $_ ? : |
|
11674
|
0 |
0 |
if ($prefix2 or $uc eq &UI::KeyboardLayout::ucfirst($lc) and $lc eq &UI::KeyboardLayout::lc($uc) and $lc ne "\337" and defined $lc1 == defined $uc1) { } |
|
11675
|
0 |
0 |
if ($uc ne $lc) |
|
11678
|
0 |
0 |
if ref $_ |
|
11679
|
0 |
0 |
if $prefix2 and $pref_i[1] and not $pref_i[0] |
|
11680
|
0 |
0 |
if $LC and ref $LC and $LC->[2] |
|
11684
|
0 |
0 |
1 < length &UI::KeyboardLayout::uc($lc1) ? : |
|
|
0 |
0 |
if defined $lc1 and &UI::KeyboardLayout::uc($lc1) ne &UI::KeyboardLayout::ucfirst($lc1) |
|
11686
|
0 |
0 |
if $name |
|
11687
|
0 |
0 |
join($", @$extra) =~ /\s/ ? : |
|
11689
|
0 |
0 |
@$extra ? : |
|
11690
|
0 |
0 |
$base ? : |
|
11703
|
0 |
0 |
$name ? : |
|
11705
|
0 |
0 |
join($", @$ee) =~ /\s/ ? : |
|
11706
|
0 |
0 |
$base ? : |
|
11716
|
0 |
0 |
/^\w+=/ ? : |
|
11719
|
0 |
0 |
$opts{'oneRow'} ? : |
|
11729
|
0 |
0 |
if $new_row->{$kn} |
|
11738
|
0 |
0 |
if $opts{'oneRow'} |
|
11746
|
0 |
0 |
if $arg =~ s[^/opt=][] |
|
11747
|
0 |
0 |
unless my($classes, $name, $f, $prefix, $which) = $arg =~ /^((?:[-\w]+(?:,[-\w]+)*)?)\+([-\w]*)=(\w+),([\da-f]{4}|[^\x20-\x7e][^,]*|[02]?),(\d+|-)$/i |
|
11749
|
0 |
0 |
if exists $self->{'face_shortcuts'}{$f} |
|
11750
|
0 |
0 |
unless $which eq '-' |
|
11754
|
0 |
0 |
if $L and not $self->{'layers'}{$L->[$which]} |
|
11756
|
0 |
0 |
unless $L ||= $self->{'faces'}{$f}{'layers'} || $self->export_layers($f, $f) |
|
11757
|
0 |
0 |
unless my $kmap = $self->{'faces'}{$f}{'[deadkeyFaceHexMap]'}{$self->key2hex($prefix)} or not length $prefix |
|
11764
|
0 |
0 |
unless @opt == 1 |
|
11766
|
0 |
0 |
unless $self->{'faces'}{$face0}{'[geometry]'} |
|
11767
|
0 |
0 |
unless @g |
|
11771
|
0 |
0 |
if grep /^rtl-hover(-Trivia)?$/, @$opt |
|
11773
|
0 |
0 |
if grep /^rtl-hover-Trivia$/, @$opt |
|
11784
|
0 |
0 |
if %KeySyms |
|
11786
|
0 |
0 |
unless my $names = $self->get__value('KeySyms') |
|
11789
|
0 |
0 |
unless open my $fh, '<', $fn |
|
11792
|
0 |
0 |
if $l =~ /\bXK_dead_(\w+)\s+0x([a-fA-F\d]+)\b/ |
|
11794
|
0 |
0 |
unless $l =~ m[\bXK_(\w+)\s+0x([a-fA-F\d]+)\s+/\*\s*(\()?U\+([a-fA-F\d]+)] |
|
11795
|
0 |
0 |
if $dup and not $macro{$2} |
|
11796
|
0 |
0 |
if $KeySyms{$1} |
|
11799
|
0 |
0 |
unless $3 |
|
11800
|
0 |
0 |
unless $dup |
|
12205
|
0 |
0 |
if shift() |
|
12212
|
0 |
0 |
unless $post |
|
12213
|
0 |
0 |
unless my(@pre) = $pre =~ /<(\w+)>/g |
|
12214
|
0 |
0 |
unless my($p) = $post =~ /"(.+?)"/ |
|
12217
|
0 |
0 |
exists $dec_dotcompose{$_} ? : |
|
|
0 |
0 |
exists $KeySyms{$_} ? : |
|
12225
|
0 |
0 |
if /^\s*(#|include\b)/ |
|
12226
|
0 |
0 |
unless /\S/ |
|
12227
|
0 |
0 |
unless my(@in) = $self->dec_dotcompose($_, $dec_U) |
|
12242
|
0 |
0 |
unless @_ |
|
12245
|
0 |
0 |
unless defined $h->{$k} |
|
12247
|
0 |
0 |
if ('HASH' ne ref $h) |
|
12248
|
0 |
0 |
unless $term |
|
12254
|
0 |
0 |
if (exists $h->{$k}) { } |
|
12255
|
0 |
0 |
if (not ref $h->{$k}) { } |
|
|
0 |
0 |
elsif ($term and 'HASH' eq ref $h) { } |
|
12271
|
0 |
0 |
ref $term ? : |
|
12273
|
0 |
0 |
if ref $term |
|
12279
|
0 |
0 |
if ($massage) |
|
12282
|
0 |
0 |
unless $in[0] eq 'CP' |
|
12288
|
0 |
0 |
unless 1 != length $_ |
|
|
0 |
0 |
if 1 != length $out or 65536 <= ord $out or grep {65536 <= ord $_ unless 1 != length $_;} @in or grep(($out eq $_), @in) |
|
12296
|
0 |
0 |
if ($method eq 'dotcompose') { } |
|
|
0 |
0 |
elsif ($method eq 'entity') { } |
|
|
0 |
0 |
elsif ($method eq 'rfc1345') { } |
|
12303
|
0 |
0 |
unless $line =~ /^\s*
|
|
12309
|
0 |
0 |
if length $in > $avoid_overlong_synonims_Entity * length($in[0]) or length $in > $maxEntityLen |
|
12317
|
0 |
0 |
unless $line =~ /^\s+SP\s+0020\s+SPACE\s*$/ .. $line =~ m[^
|
|
12318
|
0 |
0 |
unless $line =~ /^\s+(\S+)\s+([a-fA-F\d]{4})\s/ |
|
12320
|
0 |
0 |
if "$2" =~ /^e0/i |
|
12322
|
0 |
0 |
if 1 == length $in |
|
12334
|
0 |
0 |
unless open my $fh, '< :encoding(utf8)', $fn |
|
12336
|
0 |
0 |
unless close $fh |
|
12342
|
0 |
0 |
if 'HASH' ne ref($to->{$k} || {}) |
|
12343
|
0 |
0 |
unless exists $to->{$k} |
|
12350
|
0 |
0 |
unless my $names = $self->get__value($key) |
|
12379
|
0 |
0 |
exists $added->{$_} ? : |
|
12380
|
0 |
0 |
unless ($added->{$a} || '') cmp ($added->{$b} || '') |
|
12381
|
0 |
0 |
if $c =~ /^\[(G?Prefix(_Show)?|Added)\]$/ |
|
12383
|
0 |
0 |
if (ref $v and $seen{"$v"}) { } |
|
|
0 |
0 |
elsif (ref $v) { } |
|
12389
|
0 |
0 |
if exists $added->{$c} |
|
12391
|
0 |
0 |
if $name_append eq $self->charhex2key($prefixCompose) |
|
12392
|
0 |
0 |
if $name_show eq $self->charhex2key($prefixCompose) |
|
12393
|
0 |
0 |
if $name_append =~ /\s/ |
|
12398
|
0 |
0 |
if defined $v->{'[Prefix_Show]'} |
|
12415
|
0 |
0 |
if ref $hexH->{$h} |
|
12416
|
0 |
0 |
unless defined(my $to = $$charH{my $c = &UI::KeyboardLayout::chr(hex $h)}) |
|
12417
|
0 |
0 |
if ref $to |
|
12420
|
0 |
0 |
if ref $back |
|
12422
|
0 |
0 |
if exists $$hexH{$to = $self->key2hex($to)} |
|
12426
|
0 |
0 |
$now ? : |
|
12428
|
0 |
0 |
if %add |
|
12430
|
0 |
0 |
if keys %$delay |
|
12437
|
0 |
0 |
ref($_ || 0) ? : |
|
12444
|
0 |
0 |
if ($prefix and ref $prefix) { } |
|
12457
|
0 |
0 |
unless $self->{'[ComposeArrays]'} |
|
12458
|
0 |
0 |
unless (@Arrays) |
|
12463
|
0 |
0 |
unless ($arr = $self->create_composeArray($pref->[0], $pref->[1]) and @$arr) |
|
12464
|
0 |
0 |
if $pref->[2] |
|
12482
|
0 |
0 |
if grep {not $v->{$_} || $vv->{$_};} @in |
|
12500
|
0 |
0 |
if $linked |
|
12503
|
0 |
0 |
if (@hashes and defined $pref->[4] and length $pref->[4]) { } |
|
|
0 |
0 |
elsif ($first_prefix) { } |
|
12505
|
0 |
0 |
if $hashes[-1]{$pref->[4]} |
|
12515
|
0 |
0 |
if length $pref0 |
|
12516
|
0 |
0 |
if ref $Comp_show and length $$Comp_show[$IDX->[$i]] |
|
12518
|
0 |
0 |
unless @hashes |
|
12524
|
0 |
0 |
unless my $p = $h->{'[GPrefix]'} |
|
12525
|
0 |
0 |
$c ? : |
|
12527
|
0 |
0 |
unless (defined $comp_show) |
|
12529
|
0 |
0 |
$c ? : |
|
12530
|
0 |
0 |
if (ref $Comp_show) { } |
|
12635
|
0 |
0 |
if ($lst[$i] eq "\267") { } |
|
12645
|
0 |
0 |
unless $kVK =~ /^\s*(#)|([A-F\d]{2})\s+(\?+|\w+)\s*(.*)/i |
|
12646
|
0 |
0 |
if $1 |
|
12650
|
0 |
0 |
if (length $rest) |
|
12651
|
0 |
0 |
unless (my($HEX, $lit, $sp), $comment) = $rest =~ /^(?:(?:([A-F\d]{2})|([^\w\s+])|(SPACE|\+))\s*)?(?:#\s*(.*))?$/i |
|
12653
|
0 |
0 |
if ($sp) { } |
|
|
0 |
0 |
elsif ($HEX) { } |
|
12654
|
0 |
0 |
unless $rest = $map{$sp} |
|
12661
|
0 |
0 |
unless $idx > $last or not defined $lst[$idx] |
|
12696
|
0 |
0 |
if $F->{'Apple2layout'} |
|
12697
|
0 |
0 |
unless @AppleMap |
|
12698
|
0 |
0 |
if $#AppleMap >= 127 |
|
12707
|
0 |
0 |
if defined $$b[$o->{$vk}] |
|
12708
|
0 |
0 |
unless defined $$b[$o->{$vk}] |
|
12717
|
0 |
0 |
unless defined $k |
|
12718
|
0 |
0 |
if exists $AppleSym{$kk} |
|
12719
|
0 |
0 |
if exists $AppleSym{$Apple_recode{$kk} or 123} |
|
12720
|
0 |
0 |
if exists $AppleSym{$k} |
|
12721
|
0 |
0 |
if exists $AppleSym{$Apple_recode{$k} or 123} |
|
12722
|
0 |
0 |
if exists $AppleSym{CORE::ucfirst(CORE::lc $k) . 'Arrow'} |
|
12723
|
0 |
0 |
if exists $AppleSym{CORE::ucfirst CORE::lc $k} |
|
12724
|
0 |
0 |
if $Apple_skip{$k} |
|
12728
|
0 |
0 |
unless defined $A[$i] |
|
12729
|
0 |
0 |
if defined $AA[$A[$i]] |
|
12733
|
0 |
0 |
if defined $AA[$i] or not +($AppleSym[$i] || '') =~ /^#(.)$/ or not defined $AA[$AppleSym{$1}] |
|
12736
|
0 |
0 |
if @o |
|
12769
|
0 |
0 |
if $to - $from > 255 |
|
12773
|
0 |
0 |
if defined $out |
|
12774
|
0 |
0 |
if defined $next |
|
12776
|
0 |
0 |
if defined $out |
|
12778
|
0 |
0 |
if defined $next |
|
12779
|
0 |
0 |
if defined $out |
|
12791
|
0 |
0 |
unless ($HEX =~ /[0-9a-f]/i) |
|
12792
|
0 |
0 |
$do_hex5 ? : |
|
12824
|
0 |
0 |
$do_hex5 ? : |
|
12834
|
0 |
0 |
if $HEX =~ /[01]/ |
|
12838
|
0 |
0 |
if $do_hex5 and not $HEX =~ /[01]/ |
|
12843
|
0 |
0 |
if $do_hex5 and $HEX =~ /1/ |
|
12846
|
0 |
0 |
if $do_hex5 and $HEX =~ /0/ |
|
12849
|
0 |
0 |
if $HEX =~ /0/ |
|
12855
|
0 |
0 |
unless $HEX =~ /0/ |
|
12859
|
0 |
0 |
if $do_hex5 and not $HEX =~ /0/ |
|
12871
|
0 |
0 |
$merge_states_6_and_4 && !$use_plan_c ? : |
|
12872
|
0 |
0 |
$use_plan_c ? : |
|
12873
|
0 |
0 |
$use_plan_c ? : |
|
12874
|
0 |
0 |
$use_plan_c ? : |
|
12885
|
0 |
0 |
if ($use_plan_c) { } |
|
12897
|
0 |
0 |
if ($use_plan_c) |
|
12898
|
0 |
0 |
$merge_states_6_and_4 ? : |
|
12908
|
0 |
0 |
$merge_states_6_and_4 ? : |
|
12915
|
0 |
0 |
unless ($merge_states_6_and_4) |
|
12917
|
0 |
0 |
$use_plan_c ? : |
|
12939
|
0 |
0 |
$do_hex5 ? : |
|
12988
|
0 |
0 |
if (53248 <= ord $c and 57343 >= ord $c) { } |
|
13016
|
0 |
0 |
defined $_ && /^\w$/ ? : |
|
|
0 |
0 |
if ($use_base || 0) > 0 |
|
13017
|
0 |
0 |
unless @AppleMap |
|
13018
|
0 |
0 |
if $#AppleMap >= 127 |
|
13022
|
0 |
0 |
unless $use_base |
|
13024
|
0 |
0 |
$use_base ? : |
|
|
0 |
0 |
if not defined $c and defined $I |
|
13025
|
0 |
0 |
if (($use_base || 0) < 0) { } |
|
|
0 |
0 |
elsif ($use_base) { } |
|
13027
|
0 |
0 |
if (not defined $c) { } |
|
|
0 |
0 |
elsif ($c =~ /^[A-Z]$/) { } |
|
|
0 |
0 |
elsif (not $c =~ m[^[-0-9=.*/+]$]) { } |
|
13035
|
0 |
0 |
if (not defined $c) { } |
|
|
0 |
0 |
elsif (defined($tr = $OEM2cmd{$c})) { } |
|
|
0 |
0 |
elsif (defined($tr = $oem_control{$c})) { } |
|
13045
|
0 |
0 |
unless defined $c |
|
13047
|
0 |
0 |
unless defined $c |
|
13050
|
0 |
0 |
if ref $c |
|
13051
|
0 |
0 |
if ref $c |
|
13054
|
0 |
0 |
if not $d and $caps |
|
13055
|
0 |
0 |
if $d > 0 |
|
13056
|
0 |
0 |
if $d < 0 |
|
13058
|
0 |
0 |
$M ? : |
|
13059
|
0 |
0 |
if $M or $d > 0 |
|
13060
|
0 |
0 |
$M ? : |
|
|
0 |
0 |
$d > 0 ? : |
|
|
0 |
0 |
$d || $M ? : |
|
13061
|
0 |
0 |
$how eq 'output' ? : |
|
13073
|
0 |
0 |
$M ? : |
|
13074
|
0 |
0 |
$pref ? : |
|
13080
|
0 |
0 |
$pref ? : |
|
13084
|
0 |
0 |
unless $M |
|
13092
|
0 |
0 |
if $d >= 0 |
|
13093
|
0 |
0 |
if ($d > 0) { } |
|
|
0 |
0 |
elsif ($d < 0) { } |
|
13106
|
0 |
0 |
if $doHEX and $v->[0] =~ /^[-u\x20_+=0-9a-f]\z/i |
|
13117
|
0 |
0 |
unless $override->{'extra_actions'} |
|
13118
|
0 |
0 |
if $e{'hex4'} |
|
13121
|
0 |
0 |
unless (%$act) |
|
13126
|
0 |
0 |
unless $out->[2] |
|
13130
|
0 |
0 |
unless $v = $dd->{$k} and $v->[1] |
|
13134
|
0 |
0 |
$use_plan_b ? : |
|
|
0 |
0 |
$use_plan_c ? : |
|
13137
|
0 |
0 |
if ($term and not $do_initing) |
|
13145
|
0 |
0 |
if !!$do_initing != !!$v->[1] |
|
13147
|
0 |
0 |
if ($term) |
|
13149
|
0 |
0 |
unless defined $Show |
|
13159
|
0 |
0 |
$do_initing && !$term ? : |
|
13172
|
0 |
0 |
if $term and $doHEX and not $do_initing |