| 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} |
|
5753
|
0 |
0 |
ref $class ? : |
|
5757
|
0 |
0 |
if (ref $class and defined(my $v = $class->{$key})) { } |
|
5773
|
0 |
0 |
if @_ > 1 |
|
5774
|
0 |
0 |
@_ ? : |
|
5780
|
0 |
0 |
if @_ |
|
5790
|
0 |
0 |
if length $pre |
|
5794
|
0 |
0 |
if ($k =~ s[^visual\s*->\s*][[unparsed]/]) |
|
5801
|
0 |
0 |
if join($", @k) eq '' |
|
5803
|
0 |
0 |
unless my($arr, $at, $slash, $kk, $vv) = $l =~ m[^((?:(\@)|(/)|\+)?)(\w+)=(.*)]s |
|
5805
|
0 |
0 |
$slash ? : |
|
|
0 |
0 |
$at ? : |
|
5806
|
0 |
0 |
length $vv ? : |
|
|
0 |
0 |
if $arr |
|
5808
|
0 |
0 |
if ($slot and exists $slot->{$kk}) |
|
5809
|
0 |
0 |
if ($arr) { } |
|
5810
|
0 |
0 |
if (ref($slot->{$kk} || 0) eq 'ARRAY') { } |
|
5836
|
0 |
0 |
if (defined $sep2 and 3 <= @k and $k =~ /$sep2/) |
|
5838
|
0 |
0 |
if not length $k[0] and @k == 2 |
|
5839
|
0 |
0 |
if not @k or grep((!length($_)), @k) |
|
5841
|
0 |
0 |
if ($k[0] || '') eq "\000" and $skip_first |
|
5842
|
0 |
0 |
if @k == 1 and defined $k[0] and 1 == length $k[0] and $k[0] ne &UI::KeyboardLayout::ucfirst($k[0]) |
|
5843
|
0 |
0 |
if $name |
|
5845
|
0 |
0 |
if @k > 2 |
|
5847
|
0 |
0 |
defined $_ ? : |
|
5854
|
0 |
0 |
if @k > $limit |
|
5857
|
0 |
0 |
if $k[0] eq '--' |
|
5858
|
0 |
0 |
defined $k[$_] ? : |
|
5867
|
0 |
0 |
ref $self ? : |
|
5868
|
0 |
0 |
unless $from or exists $extra{$k} |
|
5872
|
0 |
0 |
unless $opt->{'visual_rowcount'} == @{$opt->{'visual_per_row_counts'};} |
|
5875
|
0 |
0 |
if @lines % $C |
|
5877
|
0 |
0 |
$_ eq ' ' ? : |
|
5881
|
0 |
0 |
if defined $opt->{'in_key_separator2'} |
|
5884
|
0 |
0 |
unless $lineN % $C |
|
5888
|
0 |
0 |
if $pref->[$line_in_row] eq qr/\s/ |
|
5889
|
0 |
0 |
if $l1 =~ s/^[\x{202d}\x{202e}]// |
|
5890
|
0 |
0 |
unless $l1 =~ s/^$PREF\s*(?<=\s)// |
|
5892
|
0 |
0 |
if $line_in_row == 0 |
|
5894
|
0 |
0 |
unless @k1 == $N |
|
5902
|
0 |
0 |
if 1 == $lineN % $C |
|
5906
|
0 |
0 |
unless @out == @{$opt->{'layer_names'};} |
|
5917
|
0 |
0 |
ref $self ? : |
|
5918
|
0 |
0 |
unless $from or exists $extra{$k} |
|
5923
|
0 |
0 |
unless $cnt == @{$opt->{'layer_names'};} |
|
5930
|
0 |
0 |
if @lines != $cnt * $opt->{'rect_rows_cols'}[0] + ($cnt - 1) * $r0 |
|
5934
|
0 |
0 |
if $c >= @{$opt->{'rect_horizontal_counts'};} |
|
5938
|
0 |
0 |
unless @lines |
|
5939
|
0 |
0 |
unless ($L = shift @lines) =~ /^#/ |
|
5951
|
0 |
0 |
unless $c0 and length $L[0] |
|
5953
|
0 |
0 |
unless (my $gap = substr($L[$i], 0, $c0, '')) =~ /\S/ |
|
5960
|
0 |
0 |
if $c != @{$opt->{'rect_horizontal_counts'};} |
|
5973
|
0 |
0 |
unless @_ |
|
5975
|
0 |
0 |
unless exists $h->{$k} |
|
5982
|
0 |
0 |
defined $h ? : |
|
|
0 |
0 |
unless @_ |
|
5988
|
0 |
0 |
unless exists $H->{$k} |
|
5991
|
0 |
0 |
unless ref($v || 1) and $IDX and defined $idx |
|
6006
|
0 |
0 |
$k =~ m(^\[unparsed]/KBD\b) ? : |
|
6011
|
0 |
0 |
if $offsets |
|
6018
|
0 |
0 |
if $ignore and not defined $k |
|
6025
|
0 |
0 |
if $ignore and not defined $k |
|
6026
|
0 |
0 |
if $k and ref $k |
|
6032
|
0 |
0 |
if $ignore and not defined $k |
|
6058
|
0 |
0 |
unless ref $o |
|
6059
|
0 |
0 |
if "$o" =~ /^ARRAY\(/ |
|
6060
|
0 |
0 |
if "$o" =~ /^HASH\(/ |
|
6070
|
0 |
0 |
unless defined $_ |
|
6071
|
0 |
0 |
if (ref $_) { } |
|
|
0 |
0 |
elsif ($h->{$_}) { } |
|
6072
|
0 |
0 |
unless 'ARRAY' eq ref $_ |
|
6085
|
0 |
0 |
if @$hn != @$Hn |
|
6090
|
0 |
0 |
if $skipfix |
|
6092
|
0 |
0 |
if $self->{'layers'}{'[ini_copy]'}{$L} |
|
6101
|
0 |
0 |
if $_ and ref $_ |
|
6102
|
0 |
0 |
$_ && ref $_ ? : |
|
6103
|
0 |
0 |
$_ && ref $_ ? : |
|
6105
|
0 |
0 |
unless $p[0][$_] |
|
6109
|
0 |
0 |
if defined $C[0][$_] |
|
6115
|
0 |
0 |
if 1 == ($obsc[0] || 0) and $free_first[0] = 0 and not defined $C[1][1] |
|
6116
|
0 |
0 |
unless $skipfix |
|
6119
|
0 |
0 |
if ($skipfix) { } |
|
|
0 |
0 |
elsif (defined $C[1][$map{$k}] and $p[0][$k]) { } |
|
6120
|
0 |
0 |
$k ? : |
|
6122
|
0 |
0 |
ref($skipwarn || '') ? : |
|
|
0 |
0 |
unless ref($skipwarn || '') ? $$skipwarn{$c[0][$k]} : $skipwarn |
|
6126
|
0 |
0 |
if (defined $C[1][$map{$k}]) |
|
6127
|
0 |
0 |
if $seen_deobsc{$c[0][$k]} |
|
6129
|
0 |
0 |
unless ($C[0][$k] || '.') =~ /[\W\d_]/ |
|
6138
|
0 |
0 |
$skipfix ? : |
|
6140
|
0 |
0 |
if defined $H[$L][$shift] |
|
6144
|
0 |
0 |
if $already_linked |
|
6148
|
0 |
0 |
if defined $C[$i][$j] and not defined $h[$i][$j] |
|
6149
|
0 |
0 |
if defined $c[$i][$j] and not defined $H[$i][$j] |
|
6166
|
0 |
0 |
if (defined(my $flip = $self->{'faces'}{$hh}{'[Flip_AltGr_Key]'})) |
|
6167
|
0 |
0 |
unless defined(my $flipped = $self->{'faces'}{$HH}{'[invAltGr_Accessor]'}) |
|
6171
|
0 |
0 |
if (my $where = $self->{'face_back'}{$hh}{$flip}) { } |
|
6177
|
0 |
0 |
if $c and ref $c |
|
6179
|
0 |
0 |
if defined $c and $c ne $flipped || !$dead |
|
6198
|
0 |
0 |
if ($self->{'face_back'}{$F}) |
|
6199
|
0 |
0 |
if $skipfix |
|
6211
|
0 |
0 |
unless ($#$a == $last) |
|
6214
|
0 |
0 |
unless $last >= $fst or $#$a >= $fst |
|
6218
|
0 |
0 |
unless defined(my $c = $a->[$k][$shift]) |
|
6219
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
6220
|
0 |
0 |
if ($prefer_first->{$c}) { } |
|
6222
|
0 |
0 |
if $seen->{$c} and $prefer_last->{$c} |
|
6225
|
0 |
0 |
unless $seen->{$c} |
|
|
0 |
0 |
if @{[] unless $seen->{$c};} and not $prefer_last->{$c} and $c ne ' ' |
|
6231
|
0 |
0 |
if %warn and not $skipwarn |
|
6237
|
0 |
0 |
if $N == $max |
|
6244
|
0 |
0 |
if $self->{'faces'}{$F1}{'Face_link_map'}{$F2} |
|
6246
|
0 |
0 |
unless my $seen = $self->{'face_back'}{$F1} |
|
6251
|
0 |
0 |
if $no_inic |
|
6256
|
0 |
0 |
unless @$arr |
|
6273
|
0 |
0 |
if $c =~ /^[0-9a-f]{4,}$/i |
|
6291
|
0 |
0 |
unless exists $self->{'layer_recipes'}{$l} |
|
6299
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6309
|
0 |
0 |
unless $self->{'faces'}{$f}{'char2key_prefer_first'} |
|
6311
|
0 |
0 |
unless $self->{'faces'}{$f}{'char2key_prefer_last'} |
|
6316
|
0 |
0 |
if ref $self->{'faces'}{$f}{'[ComposeKey_Show]'} and not length $self->{'faces'}{$f}{'[ComposeKey_Show]'}[0] |
|
6319
|
0 |
0 |
if ($compK and ref $compK) { } |
|
|
0 |
0 |
elsif (defined $compK) { } |
|
6322
|
0 |
0 |
if defined $kkk[3] and length $kkk[3] |
|
6328
|
0 |
0 |
unless ($self->{'faces'}{$f}{'layers'}) |
|
6329
|
0 |
0 |
unless $self->{'face_recipes'}{$f} |
|
6332
|
0 |
0 |
unless $self->{'faces'}{$f}{'layers'} |
|
6334
|
0 |
0 |
if $self->{'layers'}{$l} |
|
6337
|
0 |
0 |
if @r |
|
6341
|
0 |
0 |
unless $self->{'layers'}{$l} |
|
6346
|
0 |
0 |
unless $self->{'faces'}{$f}{'AltGrCharSubstitutions'} |
|
6349
|
0 |
0 |
unless 2 == (my @s = split(//, $s, 0)) |
|
6351
|
0 |
0 |
if &UI::KeyboardLayout::lc($s[0]) ne $s[0] and &UI::KeyboardLayout::lc($s[1]) ne $s[1] |
|
6353
|
0 |
0 |
if &UI::KeyboardLayout::uc($s[0]) ne $s[0] and &UI::KeyboardLayout::uc($s[1]) ne $s[1] |
|
6356
|
0 |
0 |
unless $self->{'faces'}{$f}{'Import_Prefix_Keys'} |
|
6357
|
0 |
0 |
unless $self->{'faces'}{$f}{'Import_Prefix_Keys'} |
|
6358
|
0 |
0 |
if %h |
|
6360
|
0 |
0 |
unless ($c = $self->{'layer_counts'}{$l0 = $self->{'faces'}{$f}{'layers'}[0]}) |
|
6362
|
0 |
0 |
if defined $l0 |
|
6364
|
0 |
0 |
if defined $l0 |
|
6365
|
0 |
0 |
if $c |
|
6366
|
0 |
0 |
if $o |
|
6369
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6370
|
0 |
0 |
unless $self->{'faces'}{$f}{'AltGrCharSubstitutionFaces'} |
|
6373
|
0 |
0 |
unless my $to = $self->{'faces'}{$F}{'layers'}[$L] |
|
6376
|
0 |
0 |
unless $from->[$k] and $to->[$k] |
|
6378
|
0 |
0 |
unless defined(my $s = $from->[$k][$shift]) and defined(my $ss = $to->[$k][$shift]) |
|
6387
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6388
|
0 |
0 |
unless $self->{'faces'}{$f}{'AltGrCharSubstitutionLayers'} |
|
6390
|
0 |
0 |
unless my $from = $self->{'faces'}{$f}{'layers'}[$N] |
|
6393
|
0 |
0 |
unless $from->[$k] and $to->[$k] |
|
6395
|
0 |
0 |
unless defined(my $s = $from->[$k][$shift]) and defined(my $ss = $to->[$k][$shift]) |
|
6403
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6411
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6413
|
0 |
0 |
if defined $o |
|
6417
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6421
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6423
|
0 |
0 |
unless defined $o |
|
6428
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$f} or $f =~ /\bVK$/ |
|
6434
|
0 |
0 |
unless $self->{'faces'}{$f}{'layerDeadKeys'} |
|
6435
|
0 |
0 |
unless length $D |
|
6440
|
0 |
0 |
unless $self->{'faces'}{$f}{'layers'}[$c] =~ /^\Q$name\E(<.*>)?$/ |
|
6446
|
0 |
0 |
defined $self->{'faces'}{$f}{'faceDeadKeys'} ? : |
|
6448
|
0 |
0 |
unless length $k |
|
6450
|
0 |
0 |
if 1 < length $k |
|
6453
|
0 |
0 |
unless $s{$k}++ |
|
6455
|
0 |
0 |
defined $self->{'faces'}{$f}{'ExportDeadKeys'} ? : |
|
6456
|
0 |
0 |
unless length $k |
|
6458
|
0 |
0 |
if 1 < length $k |
|
6461
|
0 |
0 |
if (my $LL = $self->{'faces'}{$f}{'[ini_layers]'}) { } |
|
6470
|
0 |
0 |
if defined $k and not ref $k |
|
6471
|
0 |
0 |
if (defined $k and $$DDD{$k->[0]} || $$vk{$k->[0]}) |
|
6487
|
0 |
0 |
if defined $k and not ref $k |
|
6488
|
0 |
0 |
if (defined $k and $$DDD{$k->[0]} || $$vk{$k->[0]}) |
|
6499
|
0 |
0 |
unless $self->{'faces'}{$f}{'faceDeadKeys2'} or $self->{'faces'}{$f}{'layerDeadKeys2'} |
|
6502
|
0 |
0 |
if 2 != @k |
|
6516
|
0 |
0 |
unless $h->{'char2key_prefer_first'} |
|
|
0 |
0 |
unless $h->{'char2key_prefer_last'} |
|
6524
|
0 |
0 |
$k =~ /$rxCombining/ ? : |
|
6525
|
0 |
0 |
unless defined $prefix |
|
6534
|
0 |
0 |
if defined $f |
|
6537
|
0 |
0 |
if defined $f and not $self->{'Age'} |
|
6546
|
0 |
0 |
if defined $f |
|
6549
|
0 |
0 |
if defined $f and not $self->{'Age'} |
|
6560
|
0 |
0 |
if defined $f |
|
6563
|
0 |
0 |
if defined $f and not $self->{'Age'} |
|
6566
|
0 |
0 |
defined $file ? : |
|
6568
|
0 |
0 |
if defined $v |
|
6569
|
0 |
0 |
if defined $self->{'uniVersion'} |
|
6574
|
0 |
0 |
unless $is32 |
|
6583
|
0 |
0 |
unless $self->{'faces'}{$F}{'[inCompose]'} |
|
6585
|
0 |
0 |
if 2 > length $_ |
|
6603
|
0 |
0 |
if 2 > length $k |
|
6607
|
0 |
0 |
if 1 < length $k |
|
6612
|
0 |
0 |
if 2 > length $k |
|
6616
|
0 |
0 |
if 1 < length $k |
|
6624
|
0 |
0 |
unless $self->{'faces'}{$F}{'[coverage_hash]'}{$k} and not $self->{'faces'}{$F}{'[from_dia_chains]'}{$k} |
|
6629
|
0 |
0 |
if $self->{'faces'}{$F}{'[coverage_hash]'}{$k} |
|
6637
|
0 |
0 |
if $self->{'faces'}{$F}{'[coverage_hash]'}{$k} |
|
6646
|
0 |
0 |
if 42784 >= ord $_ or $self->{'UNames'}{$_} |
|
6648
|
0 |
0 |
$r->[0] < 42784 ? : |
|
6657
|
0 |
0 |
if 42784 >= ord $_ || $self->{'UNames'}{$_} and not $self->{'faces'}{$F}{'[coverage_hash]'}{$_} |
|
6658
|
0 |
0 |
$r->[0] < 42784 ? : |
|
6683
|
0 |
0 |
if 'ARRAY' eq ref $C and $C->[3] |
|
6684
|
0 |
0 |
if $expl |
|
6689
|
0 |
0 |
if defined $docs |
|
6694
|
0 |
0 |
unless defined $create_a_c |
|
6696
|
0 |
0 |
$create_a_c > 1 && $alpha_ctrl ? : |
|
6698
|
0 |
0 |
if $alpha_ctrl |
|
6699
|
0 |
0 |
if $S |
|
6702
|
0 |
0 |
if ($type or $c =~ /($rxZW)$/o) |
|
6703
|
0 |
0 |
$alt_symb{$cc} ? : |
|
6706
|
0 |
0 |
if ($type) |
|
6710
|
0 |
0 |
if "\x{34f}" eq $cc |
|
6713
|
0 |
0 |
unless (defined $title) |
|
6715
|
0 |
0 |
if ($title and $docs) |
|
6719
|
0 |
0 |
if (defined $expl and length $expl and 1) |
|
6720
|
0 |
0 |
if length $title |
|
6723
|
0 |
0 |
if $title and not $expl and $vbell |
|
6724
|
0 |
0 |
if $aInv |
|
6725
|
0 |
0 |
if $title |
|
6726
|
0 |
0 |
if $title |
|
6728
|
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}/) { } |
|
6749
|
0 |
0 |
$1 ? : |
|
|
0 |
0 |
if ($expl || '') =~ /\sSubst\{(\S*\}\s+\S)?/ |
|
6750
|
0 |
0 |
if $aInv |
|
6751
|
0 |
0 |
join($", @types) =~ /\s/ ? : |
|
6753
|
0 |
0 |
if @types |
|
6754
|
0 |
0 |
$opts && $opts->{'ltr'} ? : |
|
6755
|
0 |
0 |
if $aInv and $cc ne ($base_c || 'N/A') |
|
6762
|
0 |
0 |
defined $f ? : |
|
6764
|
0 |
0 |
if defined $v |
|
6765
|
0 |
0 |
if defined $self->{'uniVersion'} |
|
6766
|
0 |
0 |
if $html |
|
6820
|
0 |
0 |
if defined $INV |
|
6822
|
0 |
0 |
unless $self->{'faces'}{$F}{"[$_]"} |
|
6829
|
0 |
0 |
if $d_seen{$c}++ |
|
6831
|
0 |
0 |
unless defined(my $FF = $self->{'faces'}{$F}{'[deadkeyFace]'}{$c}) |
|
6840
|
0 |
0 |
defined $self->{'faces'}{$F}{'faceDeadKeys'} ? : |
|
6855
|
0 |
0 |
$reported ? : |
|
6858
|
0 |
0 |
unless 2 == (my @D = split(//, $self->stringHEX2string($dd), 0)) |
|
6859
|
0 |
0 |
$reported ? : |
|
|
0 |
0 |
unless my $map1 = $self->{'faces'}{$F}{'[deadkeyFaceHexMap]'}{$self->key2hex($D[0])} |
|
6861
|
0 |
0 |
unless defined(my $Dead2 = $$map1{$self->key2hex($D[1])}) |
|
6862
|
0 |
0 |
if 'ARRAY' eq ref $Dead2 |
|
6863
|
0 |
0 |
unless defined(my $ddd = $self->{'faces'}{$F}{'[deadkeyFace]'}{$Dead2}) |
|
6864
|
0 |
0 |
if $S{join $", @D}++ |
|
6865
|
0 |
0 |
if $reported |
|
6868
|
0 |
0 |
if $reported |
|
6873
|
0 |
0 |
if $#Dface != $lastDface |
|
6876
|
0 |
0 |
if $skip < 0 |
|
6878
|
0 |
0 |
$skip > 1 ? : |
|
6879
|
0 |
0 |
$skip > 0 ? : |
|
6882
|
0 |
0 |
if $html |
|
6887
|
0 |
0 |
unless $self->{'faces'}{$F}{'[geometry]'} |
|
6890
|
0 |
0 |
$html ? : |
|
6891
|
0 |
0 |
$html ? : |
|
6896
|
0 |
0 |
unless $dFace |
|
6899
|
0 |
0 |
if $docs |
|
6900
|
0 |
0 |
defined $docs ? : |
|
6903
|
0 |
0 |
if $html |
|
6910
|
0 |
0 |
if $n >= $first_ctrl and $n < $post_ctrl or $skip_sections[$n] |
|
6912
|
0 |
0 |
if $dn and not $maps[$dn] |
|
6913
|
0 |
0 |
$prev =~ /\X{7}/ ? : |
|
|
0 |
0 |
$html ? : |
|
|
0 |
0 |
if length $out |
|
6914
|
0 |
0 |
@{$A[$dn];} == 1 ? : |
|
6921
|
0 |
0 |
unless defined $c |
|
6923
|
0 |
0 |
if not $dn and 'ARRAY' eq ref $c and $c->[2] |
|
6924
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
6925
|
0 |
0 |
unless $dn |
|
6928
|
0 |
0 |
if ($dn) { } |
|
6930
|
0 |
0 |
unless defined $c |
|
6931
|
0 |
0 |
if ref $c |
|
6932
|
0 |
0 |
$invert_dead ? : |
|
|
0 |
0 |
if 'ARRAY' eq ref $c and $c->[2] |
|
6933
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
6937
|
0 |
0 |
if ref $c |
|
6938
|
0 |
0 |
$invert_dead ? : |
|
|
0 |
0 |
if $pre or $self->{'faces'}{$F}{'[coverage0_prefix]'}{$c} |
|
6940
|
0 |
0 |
unless $dn |
|
6941
|
0 |
0 |
if $dn and $$is_D2{$baseK[$L][$shift]} |
|
6943
|
0 |
0 |
if ($html) { } |
|
6957
|
0 |
0 |
$last_in_row[$n] ? : |
|
6958
|
0 |
0 |
if $html |
|
6959
|
0 |
0 |
if $out_c |
|
6961
|
0 |
0 |
unless $self->{'faces'}{$F}{'TableSummaryAddHTML'} |
|
6963
|
0 |
0 |
unless defined $create_a_c |
|
6967
|
0 |
0 |
if $html |
|
7000
|
0 |
0 |
if exists $H->{'[coverage0]'} |
|
7002
|
0 |
0 |
unless $H->{'[DEAD]'} |
|
|
0 |
0 |
unless $H->{'[dead_in_VK]'} |
|
7008
|
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 |
|
7009
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
if defined $_ and not ref $_ && $_->[2] |
|
|
0 |
0 |
ref $_ ? : |
|
7010
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
if defined $_ |
|
|
0 |
0 |
ref $_ ? : |
|
7011
|
0 |
0 |
if defined $_ and ref $_ |
|
7013
|
0 |
0 |
unless ($after++) |
|
7019
|
0 |
0 |
if 2 > length $_ |
|
7032
|
0 |
0 |
unless my($F, $KKK) = $f =~ /^(.*)###([a-f0-9]{4,})$/is |
|
7034
|
0 |
0 |
unless $self->{'faces'}{$f}{'[imported]'} |
|
7035
|
0 |
0 |
unless my($k, $face) = $i =~ /^(.):(.*)/s |
|
7037
|
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}) { } |
|
7038
|
0 |
0 |
exists $H->{'[imported2key]'}{$i} ? : |
|
7042
|
0 |
0 |
unless defined $H->{'[first_auto_dead]'} |
|
7048
|
0 |
0 |
unless my $LL = $self->{'faces'}{$face}{'[deadkeyLayers]'}{$self->key2hex($k)} |
|
7052
|
0 |
0 |
if (my $over = $H->{'[AdddeadkeyLayers]'}{$KK}) |
|
7070
|
0 |
0 |
unless my($F, $KKK) = $f =~ /^(.*)###([a-f0-9]{4,})$/is |
|
7071
|
0 |
0 |
unless my $HH = $self->{'faces'}{$F}{'[imported2key_all]'} |
|
7079
|
0 |
0 |
if defined $_ and ref $_ |
|
7081
|
0 |
0 |
if (2 == $kk->[2]) { } |
|
7082
|
0 |
0 |
defined $kk->[4] ? : |
|
7085
|
0 |
0 |
unless defined $j |
|
7103
|
0 |
0 |
if $self->{'Compositions'} |
|
7104
|
0 |
0 |
unless $data->{'Substitutions'} |
|
7109
|
0 |
0 |
unless 2 == (my @s = split(//, $s, 0)) |
|
7111
|
0 |
0 |
if &UI::KeyboardLayout::lc($s[0]) ne $s[0] and &UI::KeyboardLayout::lc($s[1]) ne $s[1] |
|
7113
|
0 |
0 |
if &UI::KeyboardLayout::uc($s[0]) ne $s[0] and &UI::KeyboardLayout::uc($s[1]) ne $s[1] |
|
7121
|
0 |
0 |
unless open my $f, '< :utf8', $F |
|
7123
|
0 |
0 |
unless close $f |
|
7132
|
0 |
0 |
if @_ |
|
7151
|
0 |
0 |
if 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
|
7155
|
0 |
0 |
if 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
|
7159
|
0 |
0 |
if 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
|
7166
|
0 |
0 |
if 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
|
7167
|
0 |
0 |
if $F =~ /#\@?#\@?(Inv)?#\@?/ |
|
7173
|
0 |
0 |
unless defined(my $auto_inv_AltGr = $data->{'faces'}{$F}{'[deadkeyInvAltGrKey]'}{$d}) |
|
7175
|
0 |
0 |
if $b1 |
|
7177
|
0 |
0 |
defined $D ? : |
|
7179
|
0 |
0 |
defined $S ? : |
|
7183
|
0 |
0 |
if (defined $flip_AltGr) |
|
7187
|
0 |
0 |
unless defined $data->{'faces'}{$F}{'[prefixDocs]'}{$flip_AltGr} |
|
7188
|
0 |
0 |
unless defined $data->{'faces'}{$F}{'[Show]'}{$flip_AltGr} |
|
7195
|
0 |
0 |
defined $D ? : |
|
7197
|
0 |
0 |
defined $S ? : |
|
7204
|
0 |
0 |
if 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
|
7205
|
0 |
0 |
if $F =~ /#\@?#\@?(Inv)?#\@?/ |
|
7207
|
0 |
0 |
unless $data->{'faces'}{$F}{'[output_layers]'} |
|
7211
|
0 |
0 |
unless $is_extra{$deadKey} |
|
7213
|
0 |
0 |
unless my $cov1 = $data->{'faces'}{$FFF}{'[coverage0]'} |
|
7216
|
0 |
0 |
ref $_ ? : |
|
7220
|
0 |
0 |
unless my $prefix = $data->{'faces'}{$F}{'[ComposeKey]'} |
|
7226
|
0 |
0 |
if 'HASH' ne ref $data->{'faces'}{$F} or $F =~ /\bVK$/ |
|
7227
|
0 |
0 |
if $F =~ /#\@?#\@?(Inv)?#\@?/ |
|
7230
|
0 |
0 |
unless $data->{'faces'}{$F}{'[deadkeyFace]'} |
|
7236
|
0 |
0 |
unless $data->{'faces'}{$F}{'[output_layers]'} |
|
7239
|
0 |
0 |
unless (%seen0) |
|
7246
|
0 |
0 |
unless $seen_prefix->{$deadKey} |
|
7248
|
0 |
0 |
$is_extra{$deadKey} ? : |
|
|
0 |
0 |
unless my $cov1 = $data->{'faces'}{$FFF}{$is_extra{$deadKey} ? '[coverage0]' : '[coverage00]'} |
|
7253
|
0 |
0 |
ref $_ ? : |
|
7254
|
0 |
0 |
if (my $d2 = $data->{'faces'}{$F}{'[dead2]'}{$deadKey}) |
|
7257
|
0 |
0 |
$_ && ref $_ ? : |
|
7262
|
0 |
0 |
unless ($not_in_0) |
|
7264
|
0 |
0 |
unless $data->{'faces'}{$FFF}{'[coverage0_prefix]'} |
|
7272
|
0 |
0 |
if not $coverage1_prefix{$_} |
|
7275
|
0 |
0 |
@check > 1 ? : |
|
7276
|
0 |
0 |
if @check |
|
7299
|
0 |
0 |
unless exists $slot->{'klc_filename'} |
|
7301
|
0 |
0 |
unless open my $fh, '< :encoding(UTF-16)', $slot->{'klc_filename'} |
|
7318
|
0 |
0 |
if $slot and grep exists $slot->{$_}, ('map', 'name') |
|
7319
|
0 |
0 |
if exists $o->{$kk} |
|
7320
|
0 |
0 |
if exists $d->{$kk} |
|
7607
|
0 |
0 |
unless $self->get_deep_via_parents($self, undef, 'faces', split(m[/], $f, 0), 'VK') |
|
7616
|
0 |
0 |
unless defined $create_a_c |
|
7617
|
0 |
0 |
$create_a_c ? : |
|
|
0 |
0 |
$create_a_c > 1 ? : |
|
7619
|
0 |
0 |
if ($create_a_c) |
|
7625
|
0 |
0 |
if @ctrl_l |
|
7633
|
0 |
0 |
unless length $v->[0] |
|
7639
|
0 |
0 |
unless ($k, my $dead) = $k =~ /^(.+?)(\@?)$/ |
|
7640
|
0 |
0 |
$k eq '-1' ? : |
|
7641
|
0 |
0 |
if $dead and $k ne '-1' |
|
7642
|
0 |
0 |
$k eq '-1' ? : |
|
7643
|
0 |
0 |
unless $c % 2 |
|
7644
|
0 |
0 |
$dead ? : |
|
7645
|
0 |
0 |
if defined $kk |
|
7653
|
0 |
0 |
if (@extra) |
|
7658
|
0 |
0 |
unless ($l) |
|
7672
|
0 |
0 |
if $self->{'layers'}{'[ini_copy]'}{$oLn} |
|
7685
|
0 |
0 |
unless defined $k |
|
7686
|
0 |
0 |
$dead ? : |
|
|
0 |
0 |
if my $mod = $dead ? '@' : '' |
|
7687
|
0 |
0 |
if $k =~ /^[A-Z0-9]$/i |
|
7688
|
0 |
0 |
if 1 != length $k or ord $k > 65535 |
|
7695
|
0 |
0 |
unless defined $u->[0] and defined $u->[1] and $u->[0] ne $u->[1] |
|
7696
|
0 |
0 |
if ($fix{$u->[0]} || &UI::KeyboardLayout::uc($u->[0])) eq $u->[1] |
|
7697
|
0 |
0 |
if ($fix{$u->[0]} || &UI::KeyboardLayout::ucfirst($u->[0])) eq $u->[1] |
|
7713
|
0 |
0 |
unless my $sc = $known_scancode || $scan_codes{$k} |
|
7715
|
0 |
0 |
$_ && ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
7716
|
0 |
0 |
if $do_control{$u->[0][0] or 'N/A'} |
|
7717
|
0 |
0 |
if not @cntrl and $default_bind{$k}[1] |
|
7719
|
0 |
0 |
unless defined $create_a_c |
|
7720
|
0 |
0 |
if $k =~ /^[A-Z]$/ and $create_a_c |
|
7721
|
0 |
0 |
if $create_a_c > 1 and $shift_control_extra{$k} |
|
7724
|
0 |
0 |
defined $_->[2] ? : |
|
|
0 |
0 |
$known_scancode ? : |
|
|
0 |
0 |
ref $_->[4] ? : |
|
7734
|
0 |
0 |
if (my $extra = $self->{'faces'}{$face}{'[output_layers]'} and defined $N) |
|
7738
|
0 |
0 |
unless (my $lll = $extra->[$f]) =~ s/^prefix(NOTSAME(case)?)?=// |
|
7741
|
0 |
0 |
unless my $L = $self->{'faces'}{$face}{'[deadkeyLayers]'}{$c} |
|
7744
|
0 |
0 |
$notsame ? : |
|
7747
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
7748
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
7749
|
0 |
0 |
if not defined $CC[$sh] and defined $C[0] |
|
7750
|
0 |
0 |
if not $OK[$sh] and defined $C[0] and not $s{$C[0]} |
|
7752
|
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]} |
|
7753
|
0 |
0 |
unless $sh |
|
7754
|
0 |
0 |
if defined $CC[$sh] |
|
7758
|
0 |
0 |
if @KK < 2 * $f |
|
7762
|
0 |
0 |
if $skippable and not $cnt |
|
7763
|
0 |
0 |
if ($skippable and not defined $KK[0][0] and not defined $KK[1][0]) |
|
7765
|
0 |
0 |
if defined $default_bind{$k}[0][$shft] |
|
7770
|
0 |
0 |
unless defined $pre_ctrl |
|
7771
|
0 |
0 |
if $pre_ctrl < 2 * @$u or $self->{'faces'}{$face}{'[keep_missing_ctrl]'} |
|
7772
|
0 |
0 |
if $#cntrl < 2 * $ctrl_after - 1 |
|
7774
|
0 |
0 |
if @KK >= 16 |
|
7776
|
0 |
0 |
if ($k eq 'DECIMAL') |
|
7777
|
0 |
0 |
unless $decimal[1] |
|
7792
|
0 |
0 |
8 <= length $k ? : |
|
7793
|
0 |
0 |
32 > ord $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
7794
|
0 |
0 |
defined $_ ? : |
|
|
0 |
0 |
exists $self->{'UNames'} ? : |
|
7804
|
0 |
0 |
unless my(@i) = &output_unit00 |
|
7814
|
0 |
0 |
if $seen_scan{$i->[0]} or $seen_VK{$i->[1]} |
|
7817
|
0 |
0 |
if ($decimal[0]) |
|
7831
|
0 |
0 |
unless ($k =~ /^[\x00-\x{FFFF}]*$/) |
|
7832
|
0 |
0 |
unless $enc_UTF16LE |
|
7833
|
0 |
0 |
unless $enc_UTF16LE |
|
7845
|
0 |
0 |
if $s{"$l->[0] $l->[1]"}++ |
|
7848
|
0 |
0 |
exists $self->{'UNames'} ? : |
|
7849
|
0 |
0 |
8 <= length $l->[0] ? : |
|
7857
|
0 |
0 |
unless ($ingroup) |
|
7860
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
7861
|
0 |
0 |
if $seen{&UI::KeyboardLayout::uc($c)}++ |
|
7862
|
0 |
0 |
if $c eq ' ' |
|
7867
|
0 |
0 |
if $v->[0] <= $u and $v->[0] + $v->[1] > $u |
|
7875
|
0 |
0 |
unless defined($k = $baseK->[$u]) |
|
7893
|
0 |
0 |
/^(.+)\@$/ ? : |
|
7909
|
0 |
0 |
if $t =~ s/(^(?=DEADKEY)(?:(?:(?:DEADKEY|\s*[0-9a-f]{4,})\s+[0-9a-f]{4,})?(?:\n|\Z))*)(?=(.*))/DEADKEYS\n\n/im |
|
7911
|
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 |
|
7922
|
0 |
0 |
if @bad = grep((!/^\s*([0-9a-f]+)\s+([0-9a-f]+)$/i), @p) |
|
7928
|
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/) { } |
|
7930
|
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 |
|
7932
|
0 |
0 |
unless $dead =~ /\S/ |
|
7945
|
0 |
0 |
unless length $b <=> length $a |
|
7949
|
0 |
0 |
if %miss |
|
8294
|
0 |
0 |
unless 'ARRAY' eq ref $k |
|
8304
|
0 |
0 |
$inv ? : |
|
8306
|
0 |
0 |
if $self->{'faces'}{$b} != $L and not $remap |
|
8307
|
0 |
0 |
unless my $cover = $L->{'[coverage_hex]'} |
|
8312
|
0 |
0 |
defined $remap->{$_} ? : |
|
8321
|
0 |
0 |
unless ord $c < 32 or ord $c == 127 |
|
8322
|
0 |
0 |
unless $control{$c} |
|
8329
|
0 |
0 |
if ($invert_dead) |
|
8330
|
0 |
0 |
unless $is_hex |
|
8331
|
0 |
0 |
unless defined($to = $H->{'[deadkeyInvAltGrKey]'}{$to}) |
|
8333
|
0 |
0 |
if $is_hex |
|
8347
|
0 |
0 |
unless $self->get_VK($nameF)->{'SPACE'} |
|
8352
|
0 |
0 |
unless defined $maps[-1] |
|
8362
|
0 |
0 |
if defined $default |
|
8363
|
0 |
0 |
if ($#maps or $is_invAltGr_Base_with_chain) |
|
8369
|
0 |
0 |
if ($is_invAltGr_Base_with_chain) |
|
8370
|
0 |
0 |
if (my $override_InvAltGr = $H->{'[InvAltGrFace]'}{''}) |
|
8373
|
0 |
0 |
if defined $flip_AltGr_hex |
|
8383
|
0 |
0 |
$invertAlt0 ? : |
|
|
0 |
0 |
defined $docs ? : |
|
8395
|
0 |
0 |
if ($to and 'ARRAY' eq ref $to) |
|
8397
|
0 |
0 |
if $EXPL |
|
8401
|
0 |
0 |
if $to and $to eq '0000' |
|
8403
|
0 |
0 |
if $map_n and ref $map_n |
|
8404
|
0 |
0 |
if hex $n > 65535 and $map_n |
|
8405
|
0 |
0 |
if ($to and hex $to > 65535) |
|
8408
|
0 |
0 |
unless defined($to = $H->{'[DeadChar_32bitTranslation]'}) |
|
8413
|
0 |
0 |
unless $to ||= $default |
|
8418
|
0 |
0 |
$invertAlt ? : |
|
|
0 |
0 |
$is_invAltGr_Base_with_chain && defined $map_AltGr_over->{$n} ? : |
|
8419
|
0 |
0 |
if $alt_n and ref $alt_n |
|
8422
|
0 |
0 |
defined $alt_n && $$use_dead2{&UI::KeyboardLayout::chr(hex $alt_n)} ? : |
|
8432
|
0 |
0 |
if not $DEAD || $import_dead and defined $default and 127 == hex $to || 32 > hex $to and 127 == hex $n || 32 > hex $n |
|
8435
|
0 |
0 |
if ($DEAD || $import_dead and $d eq $to) |
|
8436
|
0 |
0 |
if (($flip_AltGr_hex || 'n/a') eq $d) { } |
|
8446
|
0 |
0 |
exists $self->{'UNames'} ? : |
|
8449
|
0 |
0 |
if $expl and $EXPL |
|
8452
|
0 |
0 |
if $import_dead |
|
8454
|
0 |
0 |
if $OUT_Apple and 32 <= hex $n and 127 != hex $n |
|
8459
|
0 |
0 |
unless $keys |
|
8485
|
0 |
0 |
$skip2 ? : |
|
8486
|
0 |
0 |
if $skip2 and $skip2 eq 'skip2-include0' |
|
8487
|
0 |
0 |
if $skip2 |
|
8490
|
0 |
0 |
unless $idx >= $need or defined $v[$idx] |
|
8499
|
0 |
0 |
unless defined $c |
|
8505
|
0 |
0 |
unless my $name = $self->{'[map2diac]'}{$dia} |
|
8506
|
0 |
0 |
unless my $v = $self->{'[diacritics]'}{$name} |
|
8507
|
0 |
0 |
unless my($first) = grep((128 <= ord $_), @{$$v[0];}) |
|
8508
|
0 |
0 |
if $c eq ' ' |
|
8511
|
0 |
0 |
if defined $flip_AltGr |
|
8512
|
0 |
0 |
unless defined $flip_AltGr |
|
8514
|
0 |
0 |
if ($c eq $dia and $prefix) |
|
8518
|
0 |
0 |
unless defined $v->[4][0] |
|
8522
|
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) { } |
|
8532
|
0 |
0 |
unless $seen_before->{' '} |
|
8535
|
0 |
0 |
if ($c eq '|' or $c eq '\\' and not $prefix) |
|
8539
|
0 |
0 |
if ($N == 1 and $c_noalt and $c_noalt eq '|' || $c_noalt eq '\\') |
|
8543
|
0 |
0 |
if ($c eq '/' or $c eq '?' and not $prefix) |
|
8546
|
0 |
0 |
if ($c_noalt and $c_noalt eq q['] || $c_noalt eq '"') |
|
8549
|
0 |
0 |
if ($c eq '_' or $c eq '-' and not $prefix) |
|
8552
|
0 |
0 |
if ($N == 1 and $c_noalt and $c_noalt eq '_' || $c_noalt eq '-') |
|
8555
|
0 |
0 |
if ($N == 1 and $c_noalt and $c_noalt eq ';' || $c_noalt eq ':') |
|
8558
|
0 |
0 |
if ($N == 1 and defined $c_base and 0 <= (my $ind = index(q[`1234567890=[],.'], $c_base))) |
|
8561
|
0 |
0 |
if ($N == 0 and 0 <= (my $ind = index('[{]}', $c)) and not $prefix) |
|
8564
|
0 |
0 |
if ($N == 1 and $c_noalt and $c_noalt eq '/' || $c_noalt eq '?') |
|
8578
|
0 |
0 |
if ref $c2 |
|
8579
|
0 |
0 |
if defined $c2 and not $pref |
|
8594
|
0 |
0 |
unless my $h = $self->{'Compositions'}{$d} |
|
8598
|
0 |
0 |
if $caseseen{$c} |
|
8601
|
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)) |
|
8608
|
0 |
0 |
if grep $self->{'Compositions'}{$dia}{$_}, @$cases |
|
8624
|
0 |
0 |
if ((my($pre, $mid, $post) = split(/(\+|--)/, $dia, 2)) > 1) |
|
8631
|
0 |
0 |
if $dia =~ /^!?\\/ |
|
8633
|
0 |
0 |
unless ($dia =~ /^-?(\p{NonspacingMark}|<(?:font=)?[-\w!]+>|[ul]c(first)?|dectrl)$/) |
|
8634
|
0 |
0 |
unless my $name = $self->{'[map2diac]'}{$dia} |
|
8635
|
0 |
0 |
unless my $v = $self->{'[diacritics]'}{$name} |
|
8636
|
0 |
0 |
unless defined($dia = $v->[4][0]) |
|
8638
|
0 |
0 |
if ($dia =~ /^(-)?<(reverse-)?any(1)?-(other-)?\b([-\w]+?)\b((?:-![-\w]+\b)*)>$/) { } |
|
8643
|
0 |
0 |
if $cached = $cached_aggregate_Compositions{$dia_raw} |
|
8646
|
0 |
0 |
if @except |
|
8652
|
0 |
0 |
length $_ > 1 ? : |
|
8653
|
0 |
0 |
length $_ > 1 ? : |
|
8656
|
0 |
0 |
unless $AA cmp $BB or $A cmp $B |
|
8657
|
0 |
0 |
if $other |
|
8658
|
0 |
0 |
if $one |
|
8659
|
0 |
0 |
if $rev |
|
8660
|
0 |
0 |
if (@out > 1 and not $neg) |
|
8666
|
0 |
0 |
if $neg |
|
8676
|
0 |
0 |
if @_ |
|
8677
|
0 |
0 |
unless ref($a || '') eq 'ARRAY' |
|
8683
|
0 |
0 |
if @_ |
|
8684
|
0 |
0 |
unless defined $a |
|
8685
|
0 |
0 |
unless ref($a || '') eq 'ARRAY' |
|
8703
|
0 |
0 |
unless defined $c and defined $doc |
|
8704
|
0 |
0 |
if $old and ref $old and defined $old->[3] |
|
8705
|
0 |
0 |
unless ref $c |
|
8706
|
0 |
0 |
if defined $doc |
|
8735
|
0 |
0 |
unless defined $name |
|
8736
|
0 |
0 |
if ($name =~ m(^Imported\[([/\w]+)(?:,([\da-fA-F]{4,}))?\]$)) |
|
8737
|
0 |
0 |
$2 ? : |
|
8738
|
0 |
0 |
unless defined $d |
|
8739
|
0 |
0 |
unless my $fromKBDD = $self->get_deep($self, 'DEADKEYS', @sec, &UI::KeyboardLayout::lc($d), 'map') |
|
8742
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
|
0 |
0 |
unless defined($c = $$fromKBDD{$self->key2hex($c)}) |
|
8744
|
0 |
0 |
if $name =~ /^Imported(\[.*)/s |
|
8745
|
0 |
0 |
if $translators{$name} |
|
8746
|
0 |
0 |
if ($name =~ /^PrefixDocs\[(.+)\]$/) |
|
8750
|
0 |
0 |
if ($name =~ /^Show\[(.+)\]$/) |
|
8754
|
0 |
0 |
if ($name =~ /^HTML_classes\[(.+)\]$/) |
|
8755
|
0 |
0 |
if (my @c = split(/,/, "$1", 0)) % 3 |
|
8765
|
0 |
0 |
if ($name =~ /^Space(Self)?2Id(?:\[(.+)\])?$/) |
|
8766
|
0 |
0 |
defined $2 ? : |
|
8767
|
0 |
0 |
$1 ? : |
|
8768
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
8769
|
0 |
0 |
$c eq ' ' || $c eq $self_OK && defined $dia ? : |
|
8771
|
0 |
0 |
if ($name =~ /^ShiftFromTo\[(.+)\]$/) |
|
8775
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
8777
|
0 |
0 |
if ($name =~ /^SelectRX\[(.+)\]$/) |
|
8779
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
|
0 |
0 |
unless $c =~ /$rx/ |
|
8781
|
0 |
0 |
if ($name =~ /^FlipShift$/) |
|
8782
|
0 |
0 |
unless defined $c |
|
8784
|
0 |
0 |
if ($name =~ /^AssignTo\[(\w+),(\d+)\]$/) |
|
8786
|
0 |
0 |
unless my $S = $start_SEC{$sec} |
|
8787
|
0 |
0 |
if $cnt > $S->[1] |
|
8788
|
0 |
0 |
unless $slot < $cnt |
|
8791
|
0 |
0 |
if ($name =~ /^FromTo(FlipShift)?\[(.+)\]$/) |
|
8800
|
0 |
0 |
$_ && ref $_ ? : |
|
8801
|
0 |
0 |
$_ && ref $_ ? : |
|
8802
|
0 |
0 |
if ($flip) { } |
|
8803
|
0 |
0 |
defined($kk = $fr[$_]) ? : |
|
8805
|
0 |
0 |
defined($kk = $fr[$_]) ? : |
|
8808
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
8810
|
0 |
0 |
if ($name =~ /^InheritPrefixKeys\[(.+)\]$/) |
|
8818
|
0 |
0 |
unless my $C = $baseL->[$k][$shift] |
|
8819
|
0 |
0 |
unless ref $C and $C->[2] |
|
8823
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c and $c->[2] |
|
|
0 |
0 |
unless $h{"@_ $c"} |
|
8825
|
0 |
0 |
if ($name =~ /^ByColumns\[(.+)\]$/) |
|
8826
|
0 |
0 |
length $_ ? : |
|
8827
|
0 |
0 |
unless my $g = $self->{'faces'}{$face}{'[geometry]'} |
|
8838
|
0 |
0 |
if $L or $shift or $k >= $tot |
|
8840
|
0 |
0 |
if ($name =~ /^ByRows\[(.+)\]$/) |
|
8845
|
0 |
0 |
unless length $rec |
|
8851
|
0 |
0 |
unless my $g = $self->{'faces'}{$face}{'[geometry]'} |
|
8863
|
0 |
0 |
if $k >= $tot or $#recipes < (my $r = $r{$k}) |
|
8864
|
0 |
0 |
unless $subs[$r] |
|
8867
|
0 |
0 |
if ($name =~ /^(?:Diacritic|Mutate)(SpaceOK)?(Hack)?(2Self)?(DupsOK)?(32OK)?(?:\[(.+)\])?$/) |
|
8869
|
0 |
0 |
defined $6 ? : |
|
8870
|
0 |
0 |
if ($toSelf) |
|
8871
|
0 |
0 |
if grep $_, $hack, $spaceOK, $dupsOK, $w32OK |
|
8873
|
0 |
0 |
unless $self->get_VK($face)->{'SPACE'} |
|
8876
|
0 |
0 |
if defined $flip_AltGr |
|
8877
|
0 |
0 |
if defined $flip_AltGr |
|
8886
|
0 |
0 |
if $Dia =~ s/^\+// |
|
8889
|
0 |
0 |
if defined $f |
|
8892
|
0 |
0 |
if defined $f and not $self->{'Age'} |
|
8898
|
0 |
0 |
unless exists $self->{'faces'}{$face}{"Named_DIA_Recipe__$R"} |
|
8901
|
0 |
0 |
if $isPrimary |
|
8904
|
0 |
0 |
if 1 == @Dia |
|
8905
|
0 |
0 |
if (1 < @Dia) { } |
|
8906
|
0 |
0 |
if @Dia > 3 |
|
8908
|
0 |
0 |
if @Dia2 > 2 |
|
8910
|
0 |
0 |
unless $have4 |
|
8911
|
0 |
0 |
@Dia2 > 1 ? : |
|
8912
|
0 |
0 |
if not $have4 and @Dia == 3 |
|
8917
|
0 |
0 |
if @G |
|
8918
|
0 |
0 |
if @G |
|
8929
|
0 |
0 |
unless grep defined($_), $self->flatten_arrays($K) |
|
8933
|
0 |
0 |
unless defined $base |
|
8934
|
0 |
0 |
if ref $base |
|
8935
|
0 |
0 |
if not $spaceOK and $base eq ' ' |
|
8938
|
0 |
0 |
if @groups2 |
|
8939
|
0 |
0 |
if @groups3 |
|
8940
|
0 |
0 |
@groups2 ? : |
|
|
0 |
0 |
if @groups3 |
|
8942
|
0 |
0 |
$_ && ref $_ ? : |
|
|
0 |
0 |
$hack ? : |
|
8944
|
0 |
0 |
$_ ? : |
|
|
0 |
0 |
$_ ? : |
|
|
0 |
0 |
$_ ? : |
|
|
0 |
0 |
$_ ? : |
|
|
0 |
0 |
$_ ? : |
|
8945
|
0 |
0 |
unless $sorted2 |
|
|
0 |
0 |
unless $sorted3 |
|
8952
|
0 |
0 |
if ($sorted2) |
|
8975
|
0 |
0 |
$_ && ref $_ ? : |
|
8978
|
0 |
0 |
!$_ || ref $_ ? : |
|
8982
|
0 |
0 |
unless $extra->[1] |
|
8986
|
0 |
0 |
unless (defined $o->[0] and defined $o->[1]) |
|
8988
|
0 |
0 |
!defined($_) || ref $_ ? : |
|
8990
|
0 |
0 |
$_ && ref $_ ? : |
|
8997
|
0 |
0 |
$_ && ref $_ ? : |
|
|
0 |
0 |
unless $_ |
|
|
0 |
0 |
$hack ? : |
|
9003
|
0 |
0 |
if ($name =~ /^DefinedTo\[(.+)\]$/) |
|
9005
|
0 |
0 |
unless defined $c |
|
9007
|
0 |
0 |
if ($name =~ /^ByPairs((Inv)?Prefix)?(Apple)?\[(.+)\]$/) |
|
9013
|
0 |
0 |
unless $p =~ s/^((?:\p{Blank}\p{NonspacingMark}|(?:\b\.)?[0-9a-f]{4,}\b(?:\.\b)?|.){2})//i |
|
9021
|
0 |
0 |
unless 2 == scalar(my @c = split(//, $Pair, 0)) |
|
9023
|
0 |
0 |
if exists $Map{$c[0]} |
|
9024
|
0 |
0 |
$invert ? : |
|
|
0 |
0 |
$prefix ? : |
|
9027
|
0 |
0 |
unless %Map |
|
9028
|
0 |
0 |
if ($Apple) |
|
9032
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
9035
|
0 |
0 |
unless defined $map |
|
9036
|
0 |
0 |
unless (exists $map->{'map'}) |
|
9038
|
0 |
0 |
if %$map and not $k1 =~ /^[0-9a-f]{4,}$/ |
|
9039
|
0 |
0 |
unless defined $deadkey |
|
9042
|
0 |
0 |
unless exists $$Map{&UI::KeyboardLayout::chr(hex $deadkey)} |
|
9043
|
0 |
0 |
if %$Map |
|
9044
|
0 |
0 |
unless %$map |
|
9046
|
0 |
0 |
unless defined $map->{'map'} |
|
9050
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if 'ARRAY' eq ref $c |
|
9068
|
0 |
0 |
unless defined $Tr |
|
9080
|
0 |
0 |
ref $for_layers ? : |
|
9081
|
0 |
0 |
if $for_layers |
|
9091
|
0 |
0 |
unless grep {not exists $self->{'layers'}{$_};} @new_names |
|
9096
|
0 |
0 |
if ($cvt) { } |
|
9108
|
0 |
0 |
unless defined $key |
|
9109
|
0 |
0 |
unless grep defined($_), @$key |
|
9111
|
0 |
0 |
unless defined $k |
|
9112
|
0 |
0 |
defined $k->[0] ? : |
|
|
0 |
0 |
ref $k ? : |
|
9121
|
0 |
0 |
if $last != $#o |
|
9136
|
0 |
0 |
if exists $self->{'layers'}{join $", @layers} |
|
9147
|
0 |
0 |
if defined $l->[$k][$kk] and not defined $keys[$k][$kk] |
|
9166
|
0 |
0 |
if ($whole) |
|
9170
|
0 |
0 |
ref $_ ? : |
|
9178
|
0 |
0 |
if ($whole) { } |
|
9185
|
0 |
0 |
if exists $self->{'layers'}{$name} |
|
9194
|
0 |
0 |
if $ch and ref $ch |
|
9195
|
0 |
0 |
if $rch and ref $rch |
|
9198
|
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 : '') |
|
9226
|
0 |
0 |
if @_ |
|
9233
|
0 |
0 |
if $self->{'faces'}{$f}{'layers'} |
|
9234
|
0 |
0 |
unless $self->{'face_recipes'}{$f} |
|
9236
|
0 |
0 |
unless defined(my $n = $self->{'faces'}{$base}{'numLayers'}) |
|
9244
|
0 |
0 |
unless my $r = $self->{'face_recipes'}{$face} |
|
9262
|
0 |
0 |
$full ? : |
|
|
0 |
0 |
unless $full ? undef : $self->{'faces'}{$face}{'[ini_layers_prefix]'} || $self->{'faces'}{$face}{'[ini_layers]'} or $self->{'faces'}{$face}{'layers'} |
|
9270
|
0 |
0 |
if exists $self->{'layer_recipes'}{$ll} |
|
9272
|
0 |
0 |
if $self->{'layers'}{$l} |
|
9279
|
0 |
0 |
if ($recipe eq 'LinkFace') |
|
9280
|
0 |
0 |
unless my $L = $self->{'faces'}{$face}{'LinkFace'} |
|
9283
|
0 |
0 |
if $recipe eq 'Self' |
|
9284
|
0 |
0 |
if ($recipe =~ /^Layers\((.*\+.*)\)$/) |
|
9289
|
0 |
0 |
if ($recipe eq 'FlipLayersLinkFace') |
|
9290
|
0 |
0 |
unless my $L = $self->{'faces'}{$face}{'LinkFace'} |
|
9294
|
0 |
0 |
if $recipe eq 'FlipLayers' |
|
9302
|
0 |
0 |
$m1 ? : |
|
|
0 |
0 |
if $recipe =~ /^(?:((Full)?Face)|FlipLayers)\((.*)\)$/ and $m1 = $1, 1 |
|
9305
|
0 |
0 |
if ($recipe =~ /^prefix(NOTSAME(case)?)?=(.+)$/) |
|
9310
|
0 |
0 |
unless my $layers = $self->{'faces'}{$face}{'[deadkeyLayers]'}{$hexPrefix} |
|
9311
|
0 |
0 |
if $N or not $notsame |
|
9313
|
0 |
0 |
if $self->{'layers'}{$name} |
|
9322
|
0 |
0 |
ref $sh ? : |
|
|
0 |
0 |
if defined $sh |
|
9326
|
0 |
0 |
$notsame && !$N ? : |
|
9329
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
9330
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
9331
|
0 |
0 |
if not defined $CC[$sh] and defined $C[0] |
|
9332
|
0 |
0 |
if not $OK[$sh] and defined $C[0] and not $s{$C[0]} |
|
9334
|
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]} |
|
9335
|
0 |
0 |
unless $sh |
|
9363
|
0 |
0 |
if $recipe =~ /^(prefix(?:NOTSAME(?:case)?)?=.*|(FlipLayers)?LinkFace|FlipLayers|Self|((Full)?Face|FlipLayers|Layers)\([^()]+\))$/ |
|
9366
|
0 |
0 |
unless my(@parts) = grep(/\S/, $self->join_min_paren_brackets_matched('', split(/(\s+)/, $recipe, 0))) |
|
9368
|
0 |
0 |
if (@parts > 1) |
|
9374
|
0 |
0 |
if $noid |
|
9378
|
0 |
0 |
if ($recipe =~ /\)$/) { } |
|
9379
|
0 |
0 |
if ($recipe =~ /^[^(]*\[/) { } |
|
9382
|
0 |
0 |
if $self->brackets_match_q(substr($recipe, 0, 1 + pos($recipe))) |
|
9384
|
0 |
0 |
unless $pos |
|
9389
|
0 |
0 |
unless ($recipe, $ARG) = $recipe =~ /^(.*?)\((.*)\)$/s |
|
9395
|
0 |
0 |
if (length $ARG) { } |
|
9396
|
0 |
0 |
if (exists $self->{'layers'}{$ARG}) { } |
|
9399
|
0 |
0 |
if exists $self->{'layer_recipes'}{my $a = $ARG} |
|
9403
|
0 |
0 |
if $noid |
|
9415
|
0 |
0 |
unless my $r = $self->get_deep($self, 'faces', my @p = split(m[/], $face, 0), '[Diacritic_if_undef]') |
|
9425
|
0 |
0 |
if defined $default |
|
9435
|
0 |
0 |
if $KK eq '' |
|
9437
|
0 |
0 |
if defined $flip_AltGr and defined $$chain{$KK and $self->charhex2key($KK)} |
|
9442
|
0 |
0 |
if ($KK eq '' and defined $flip_AltGr) |
|
9445
|
0 |
0 |
if ($H->{'[InvdeadkeyLayers]'}{$KK}) |
|
9461
|
0 |
0 |
unless ($H->{'[autodead_wrapped]'}) |
|
9463
|
0 |
0 |
if $o >= 4096 and $H->{'[ad_can_wrap]'} and not $H->{'[autodead_wrapped]'}++ |
|
9465
|
0 |
0 |
if ($H->{'[autodead_wrapped]'}) |
|
9476
|
0 |
0 |
if ('ARRAY' eq ref $recipe) |
|
9493
|
0 |
0 |
if @FF == 1 or $FF[-1] eq 'VK' |
|
9497
|
0 |
0 |
if $H->{'PartialFace'} |
|
9498
|
0 |
0 |
if $F =~ m[/] and exists $H->{'layers'} |
|
9506
|
0 |
0 |
unless $k =~ /^DeadKey_(Inv|Add)?Map([0-9a-f]{4,})?(?:_(\d+))?$/i |
|
9509
|
0 |
0 |
if defined $key |
|
9511
|
0 |
0 |
defined $layers ? : |
|
9521
|
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}++ |
|
9527
|
0 |
0 |
if $massage and not $inv |
|
9542
|
0 |
0 |
unless defined $hexPrefixWas |
|
9547
|
0 |
0 |
$inv && "$inv $hexPrefix" eq 'Inv 0000' ? : |
|
9550
|
0 |
0 |
$layers eq 'All' ? : |
|
9560
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/ |
|
9563
|
0 |
0 |
defined $flip_AltGr ? : |
|
9570
|
0 |
0 |
$key ne '' ? : |
|
9581
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/ |
|
9583
|
0 |
0 |
if $H->{'PartialFace'} |
|
9584
|
0 |
0 |
unless $H->{'[deadkeyLayers]'} |
|
9588
|
0 |
0 |
if defined $first_auto_dead |
|
9593
|
0 |
0 |
unless defined $H->{'[deadkeyLayers]'}{$KK}[$layer] |
|
9612
|
0 |
0 |
if @FF == 1 or $FF[-1] eq 'VK' |
|
9615
|
0 |
0 |
unless $H->{'[PrefixChains]'} |
|
9617
|
0 |
0 |
if $_ |
|
9618
|
0 |
0 |
unless length(my $trail_nonprefix = $prefix[-1]) |
|
9620
|
0 |
0 |
unless @prefix > 1 |
|
9628
|
0 |
0 |
unless my $KF = $H->{'[deadkeyFace]'}{$KK} |
|
9646
|
0 |
0 |
if @FF == 1 or $FF[-1] eq 'VK' |
|
9661
|
0 |
0 |
if 'HASH' ne ref $self->{'faces'}{$F} or $F =~ /\bVK$/ |
|
9663
|
0 |
0 |
unless $H->{'[deadkeyLayers]'} |
|
9665
|
0 |
0 |
if @$expl % 2 |
|
9673
|
0 |
0 |
unless defined $H->{'[first_auto_dead]'} and grep defined($_), map($self->flatten_arrays($_), map($self->{'layers'}{$_}, @$LL[1 .. $#$LL])) |
|
9674
|
0 |
0 |
unless exists $H->{'[deadkeyInvAltGrKey]'}{''} |
|
9676
|
0 |
0 |
exists $$expl{$self->charhex2key($KK)} ? : |
|
9680
|
0 |
0 |
unless defined(my $flip_AltGr = $H->{'[Flip_AltGr_Key]'}) |
|
9682
|
0 |
0 |
if exists $H->{'[deadkeyInvAltGrKey]'}{''} |
|
9684
|
0 |
0 |
unless $H->{'chainAltGr'} |
|
9688
|
0 |
0 |
unless exists $H->{'[deadkeyInvAltGrKey]'}{$KK} |
|
9694
|
0 |
0 |
if length $prev |
|
9708
|
0 |
0 |
if (%$Map) |
|
9709
|
0 |
0 |
unless defined $c |
|
|
0 |
0 |
if ref $c |
|
9715
|
0 |
0 |
$inv ? : |
|
9723
|
0 |
0 |
$prefix ? : |
|
9725
|
0 |
0 |
if $inv |
|
9727
|
0 |
0 |
if @K |
|
9735
|
0 |
0 |
$short ? : |
|
9736
|
0 |
0 |
$short ? : |
|
|
0 |
0 |
$b & 1 << $_ ? : |
|
9737
|
0 |
0 |
if $short |
|
9739
|
0 |
0 |
if $col == 15 |
|
9746
|
0 |
0 |
if $F->{'baseKeysWin'} |
|
9750
|
0 |
0 |
if defined $b and not $self->{'layers'}{$b} |
|
9751
|
0 |
0 |
defined $b ? : |
|
9760
|
0 |
0 |
if (not $c->[0]) { } |
|
9761
|
0 |
0 |
unless $k =~ /^[A-Z0-9]$/ |
|
9766
|
0 |
0 |
unless defined $k |
|
9786
|
0 |
0 |
if $dummyDscr |
|
9788
|
0 |
0 |
if $LLL > 63 |
|
9795
|
0 |
0 |
if ($dummy) { } |
|
9813
|
0 |
0 |
if $h{'DO_LIGA'} |
|
9827
|
0 |
0 |
if defined $f and not $self->{'Age'} |
|
9830
|
0 |
0 |
if defined $flip_AltGr_hex |
|
9832
|
0 |
0 |
if $F->{'[only_extra]'}{$self->charhex2key($deadKey)} |
|
9834
|
0 |
0 |
if defined $auto_inv_AltGr |
|
9838
|
0 |
0 |
$auto_inv_AltGr ? : |
|
9854
|
0 |
0 |
unless $F->{'[mods_keys_KBD]'} |
|
9857
|
0 |
0 |
if $#$mods < $#$mods_keys |
|
9860
|
0 |
0 |
defined $MOD ? : |
|
9861
|
0 |
0 |
unless ($mod =~ /\S/) |
|
9875
|
0 |
0 |
unless defined $pre_ctrl |
|
9877
|
0 |
0 |
unless defined $create_a_c |
|
9878
|
0 |
0 |
$create_a_c > 1 ? : |
|
9879
|
0 |
0 |
if @cols >= 16 |
|
9903
|
0 |
0 |
unless defined $h{'OSX_ID'} |
|
9905
|
0 |
0 |
if (defined $v and defined $h{'OSX_ADD_VERSION'}) |
|
9906
|
0 |
0 |
if ($h{'OSX_ADD_VERSION'} > 0) { } |
|
|
0 |
0 |
elsif ($h{'OSX_ADD_VERSION'} < -1) { } |
|
|
0 |
0 |
elsif ($h{'OSX_ADD_VERSION'} == -1) { } |
|
9920
|
0 |
0 |
if $dupk |
|
9924
|
0 |
0 |
defined $file ? : |
|
9925
|
0 |
0 |
if defined $v |
|
9926
|
0 |
0 |
if defined $self->{'uniVersion'} |
|
9935
|
0 |
0 |
if defined $flip_AltGr_hex |
|
9938
|
0 |
0 |
if $F->{'[only_extra]'}{$self->charhex2key($deadKey)} |
|
9940
|
0 |
0 |
if defined $auto_inv_AltGr |
|
9956
|
0 |
0 |
if ($out =~ /^hex[46]\z/) { } |
|
10210
|
0 |
0 |
if $cache->{$i} |
|
10211
|
0 |
0 |
unless my $In = $t->{$i} |
|
10219
|
0 |
0 |
if @$expand < 2 or not $expand->[0] =~ /^[01]$/ |
|
10221
|
0 |
0 |
if $expand->[0] =~ /^[01]$/ |
|
10228
|
0 |
0 |
if $i =~ /^\w/ |
|
10297
|
0 |
0 |
if ($s =~ /^\@\@\@\s+The\s+Unicode\s+Standard\s+(.*?)\s*$/i) |
|
10300
|
0 |
0 |
if ($s =~ /^([\da-f]+)\b\s*(.*?)\s*$/i) |
|
10306
|
0 |
0 |
if (defined $kk) |
|
10308
|
0 |
0 |
if $name =~ /\bCOMBINING\b/ and not $_c =~ /\p{NonSpacingMark}/ |
|
10309
|
0 |
0 |
if ($name =~ /^(.*?)\s+(?:(WITH)\s+|(?=(?:OVER|ABOVE|PRECEDED\s+BY|BELOW(?=\s+LONG\s+DASH))\s+\b(?!WITH\b|AND\b)))(.*?)\s*$/) |
|
10313
|
0 |
0 |
if ($with and @ext > 1) |
|
10321
|
0 |
0 |
if ($name =~ /^(.*)\s+(?=OR\s)(.*?)\s*$/) |
|
10324
|
0 |
0 |
if (($t = $name) =~ s/\b(COMBINING(?=\s+CYRILLIC\s+LETTER)|BARRED|SLANTED|APPROXIMATELY|ASYMPTOTICALLY|(?
|
|
10326
|
0 |
0 |
if $t =~ /\bEPIGRAPHIC\b/ |
|
10328
|
0 |
0 |
if $candidates{$k}[-1][1] =~ /\bLUNATE\b/ |
|
10330
|
0 |
0 |
if $t =~ /\bSMALL\s+CAPITAL\b/ |
|
10333
|
0 |
0 |
if (($t = $name) =~ s/\b(WHITE|BLACK|CIRCLED)\s+//) |
|
10336
|
0 |
0 |
if (($t = $name) =~ s/\bBLACK\b/WHITE/) |
|
10339
|
0 |
0 |
if (($t = $name) =~ s/^(?:RAISED|MODIFIER\s+LETTER(?:\s+RAISED)?(\s+LOW)?)\s+//) |
|
10340
|
0 |
0 |
$1 ? : |
|
10342
|
0 |
0 |
if (($t = $name) =~ s/\bBUT\s+NOT\b/OR/) |
|
10345
|
0 |
0 |
if (($t = $name) =~ s/(^LATIN\b.*\b\w)UM((?:\s+ROTUNDA)?)$/$1$2/) |
|
10348
|
0 |
0 |
if (167 == hex($k) >> 8 and ($t = $name) =~ s/\b(\w|CO|VEN)(?!\1)(\w)$/$2/) |
|
10351
|
0 |
0 |
if (($t = $name) =~ s/(?:(\bMIDDLE-WELSH)\s+)?\b(\w)(?=\2$)//) |
|
10352
|
0 |
0 |
$1 ? : |
|
10354
|
0 |
0 |
if (($t = $name) =~ s/\b(APL\s+FUNCTIONAL\s+SYMBOL)\s+\b(.*?)\b\s*\b(QUAD(?!$)|UNDERBAR|TILDE|DIAERESIS|VANE|STILE|JOT|OVERBAR|BAR)\b\s*/$2/) |
|
10360
|
0 |
0 |
if (($t = $name) =~ s/\b(LETTER\s+SMALL\s+CAPITAL)/CAPITAL LETTER/) |
|
10363
|
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') |
|
10372
|
0 |
0 |
if $name =~ /^GREEK\s/ |
|
10376
|
0 |
0 |
if ($s =~ /^\@\@\s+([\da-f]+)\b/i) |
|
10377
|
0 |
0 |
unless $s =~ /^\@\@\s+([\da-f]+)\s.*\s([\da-f]+)\s*$/i |
|
10381
|
0 |
0 |
if $s =~ /^\s+:\s*([0-9A-F]+(?:\s+[0-9A-F]+)*)/ |
|
10382
|
0 |
0 |
if $s =~ /^\s+#\s*(?:(<.*?>)\s+)?([0-9A-F]+(?:\s+[0-9A-F]+)*)/ |
|
10384
|
0 |
0 |
unless $a |
|
10385
|
0 |
0 |
if ($a->[-1] eq '') |
|
10388
|
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)/ |
|
10393
|
0 |
0 |
if $1 |
|
10396
|
0 |
0 |
if $type |
|
10399
|
0 |
0 |
unless @$a > 2 |
|
10401
|
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/ |
|
10414
|
0 |
0 |
if not $name and $k =~ /^[12]?F[89A]..$/ || hex $base >= 19968 && hex $base <= 40908 |
|
10415
|
0 |
0 |
unless $name |
|
10416
|
0 |
0 |
if ((my $NN = $name) =~ s/\s+OPERATOR$//) |
|
10418
|
0 |
0 |
unless $operators{$NN} |
|
10424
|
0 |
0 |
if @$map % 2 |
|
10430
|
0 |
0 |
if ($shift) |
|
10432
|
0 |
0 |
unless $F ne $from and $T ne $to |
|
10440
|
0 |
0 |
unless (my $l = my $name = $G{$g}) =~ s/^GREEK\b/LATIN/ |
|
10441
|
0 |
0 |
unless my $L = $N{$l} |
|
10444
|
0 |
0 |
unless my($lat, $first, $rest, $add) = $l =~ /^(LATIN\s+(?:SMALL|CAPITAL)\s+LETTER\s+(\w))(\w+)(?:\s+(\S.*))?$/ |
|
10445
|
0 |
0 |
if "$first$rest" eq 'PHI' |
|
10446
|
0 |
0 |
unless my $LL = $N{$lat} |
|
10447
|
0 |
0 |
defined $add ? : |
|
10461
|
0 |
0 |
if (my $with = my $raw = $Cand->[1]) =~ s/\s+(SIGN|SYMBOL|(?:FINAL|ISOLATED|INITIAL|MEDIAL)\s+FORM)$// |
|
10466
|
0 |
0 |
if $raw =~ /-SYMBOL$/ and 0 <= index($append, 'SYMBOL') |
|
10470
|
0 |
0 |
unless $N{$b} |
|
10471
|
0 |
0 |
unless $N{$b} |
|
10472
|
0 |
0 |
unless $N{$b} |
|
10473
|
0 |
0 |
unless $N{$b} |
|
10474
|
0 |
0 |
unless $N{$b} |
|
10475
|
0 |
0 |
unless $N{$b} |
|
10476
|
0 |
0 |
unless $N{$b} |
|
10477
|
0 |
0 |
unless $N{$b} |
|
10478
|
0 |
0 |
unless $N{$b} |
|
10479
|
0 |
0 |
unless $N{$b} |
|
10481
|
0 |
0 |
if not $N{$b} or $with =~ /smallcaps/ |
|
10482
|
0 |
0 |
unless $N{$b} |
|
10483
|
0 |
0 |
unless $N{$b} |
|
10484
|
0 |
0 |
unless $N{$b} |
|
10485
|
0 |
0 |
unless $N{$b} |
|
10486
|
0 |
0 |
unless $N{$b} |
|
10487
|
0 |
0 |
unless $N{$b} |
|
10488
|
0 |
0 |
unless $N{$b} |
|
10489
|
0 |
0 |
unless $N{$b} |
|
10494
|
0 |
0 |
if (defined($base = $N{$b})) |
|
10495
|
0 |
0 |
if $base eq $c |
|
10496
|
0 |
0 |
if $t |
|
10502
|
0 |
0 |
if (defined $base) { } |
|
|
0 |
0 |
elsif ($raw =~ /\bOPERATOR$/) { } |
|
10505
|
0 |
0 |
if exists $operators{$Cand->[0]} |
|
10507
|
0 |
0 |
unless defined $base |
|
10509
|
0 |
0 |
/^[\da-f]{4,}$/i ? : |
|
10512
|
0 |
0 |
if ($b =~ s/\s+(OPERATOR|SIGN)$//) |
|
10513
|
0 |
0 |
if defined($base = $N{$b}) |
|
10517
|
0 |
0 |
unless $operators{$b} |
|
10524
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10528
|
0 |
0 |
if @exp < 2 |
|
10529
|
0 |
0 |
if @exp < 3 |
|
10533
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10535
|
0 |
0 |
if $seen_compose{"$compat; @exp"}++ |
|
10536
|
0 |
0 |
@exp > 3 ? : |
|
10539
|
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} |
|
10544
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10554
|
0 |
0 |
if $seen_compose{"$compat; $v->[$off]; @r"}++ |
|
10556
|
0 |
0 |
unless $compose{join $", @r} |
|
10558
|
0 |
0 |
if @r == 1 |
|
10561
|
0 |
0 |
if $_->[1] ne $c |
|
10574
|
0 |
0 |
unless $UI::KeyboardLayout::a->[0] <=> $UI::KeyboardLayout::b->[0] |
|
10583
|
0 |
0 |
@_ ? : |
|
10584
|
0 |
0 |
if defined $f |
|
10588
|
0 |
0 |
$_->[0] ? : |
|
10594
|
0 |
0 |
if @_ == 1 |
|
10596
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10598
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10600
|
0 |
0 |
$_->[0] ? : |
|
10608
|
0 |
0 |
@_ ? : |
|
10609
|
0 |
0 |
if defined $f |
|
10615
|
0 |
0 |
$_->[0] ? : |
|
10623
|
0 |
0 |
if $self->{'Compositions'} |
|
10624
|
0 |
0 |
unless $self->{'[Substitutions]'} |
|
10625
|
0 |
0 |
unless open my $f, '<', $comp |
|
10627
|
0 |
0 |
unless close $f |
|
10630
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10631
|
0 |
0 |
unless &fromHEX($a) <=> &fromHEX($b) |
|
10639
|
0 |
0 |
if $comb |
|
10646
|
0 |
0 |
unless open my $f, '<', $fn |
|
10649
|
0 |
0 |
unless close $f |
|
10657
|
0 |
0 |
unless @_ |
|
10665
|
0 |
0 |
if $verbose and exists $UName_v{$c} and $vbell || 9834 != ord $c |
|
10666
|
0 |
0 |
if (not exists $self->{'UNames'} or $verbose) |
|
10671
|
0 |
0 |
if ($verbose and %$i || $A) |
|
10675
|
0 |
0 |
if $vbell and 9834 == ord $c |
|
10676
|
0 |
0 |
if length $scr |
|
10678
|
0 |
0 |
if $verbose and $vbell || 9834 != ord $c |
|
10681
|
0 |
0 |
$c =~ /[\x{d800}-\x{dfff}\x00-\x1f\x7f-\xAF]/ ? : |
|
|
0 |
0 |
unless $self->{'UNames'}{$c} |
|
10687
|
0 |
0 |
if $l =~ /^\s*(#|$)/ |
|
10688
|
0 |
0 |
unless $l =~ /^([0-9a-f]{4,})(?:\.\.([0-9a-f]{4,}))?\s*;\s*(\d\.\d)\b/i |
|
10701
|
0 |
0 |
unless defined $C |
|
10702
|
0 |
0 |
if 'ARRAY' eq ref $C |
|
10704
|
0 |
0 |
if ($undo) |
|
10705
|
0 |
0 |
unless my $dec = $self->{'Decompositions'}{$C} |
|
10710
|
0 |
0 |
if (@out) |
|
10711
|
0 |
0 |
unless @out == 1 |
|
10718
|
0 |
0 |
if ($unAltGr) |
|
10719
|
0 |
0 |
unless $unAltGr = $unAltGr->{$C} |
|
10723
|
0 |
0 |
if $a1 and not $seen{$a1->[0][1]}++ |
|
10725
|
0 |
0 |
unless defined(my $a2 = $self->{'Compositions'}{$comp}{$C}) or @seen == 2 |
|
10727
|
0 |
0 |
if $a2 and $a1 and @seen == 2 and $a1->[0][1] ne $a2->[0][1] |
|
10732
|
0 |
0 |
unless my($r) = grep(defined($_), map($self->compound_composition($_, $C), @$m)) |
|
10733
|
0 |
0 |
unless @$r == 1 or $C eq ' ' |
|
10740
|
0 |
0 |
unless defined $C |
|
10741
|
0 |
0 |
if 'ARRAY' eq ref $C and defined $C->[3] |
|
10742
|
0 |
0 |
if length $doc1 |
|
10743
|
0 |
0 |
if 'ARRAY' eq ref $C |
|
10748
|
0 |
0 |
if ($m =~ /^(?:-|(?:[ul]c(?:first)?|dectrl)$)/) { } |
|
10749
|
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') { } |
|
10753
|
0 |
0 |
$_->[1] eq &UI::KeyboardLayout::lc($_->[1]) || 1 != length &UI::KeyboardLayout::lc($_->[1]) ? : |
|
10755
|
0 |
0 |
$_->[1] eq &UI::KeyboardLayout::uc($_->[1]) || 1 != length &UI::KeyboardLayout::uc($_->[1]) ? : |
|
10757
|
0 |
0 |
$_->[1] eq &UI::KeyboardLayout::ucfirst($_->[1]) || 1 != length &UI::KeyboardLayout::ucfirst($_->[1]) ? : |
|
10759
|
0 |
0 |
32 <= ord $_->[1] ? : |
|
10768
|
0 |
0 |
unless @res |
|
10776
|
0 |
0 |
unless $CC |
|
10777
|
0 |
0 |
$ini && ref $ini && defined $ini->[3] ? : |
|
10781
|
0 |
0 |
unless defined $C |
|
10783
|
0 |
0 |
if defined $in |
|
10785
|
0 |
0 |
unless @res |
|
10809
|
0 |
0 |
$_ && 'ARRAY' eq ref $_ ? : |
|
10812
|
0 |
0 |
unless defined $char |
|
10816
|
0 |
0 |
if ((my $P = $M) =~ s/^(!)?\\(\\)?//) |
|
10819
|
0 |
0 |
if ($P =~ s/\[(.*)\]$//) |
|
10823
|
0 |
0 |
unless $match |
|
10826
|
0 |
0 |
if ($neg) { } |
|
10827
|
0 |
0 |
$strong ? : |
|
10829
|
0 |
0 |
$strong ? : |
|
10840
|
0 |
0 |
$_ && ref $_ ? : |
|
|
0 |
0 |
defined $_ ? : |
|
10843
|
0 |
0 |
if (defined $Res2[$shift]) { } |
|
10844
|
0 |
0 |
if $Res3[$shift] |
|
10853
|
0 |
0 |
defined $_ ? : |
|
10856
|
0 |
0 |
!defined($_) || !$dupsOK && $seen{$_->[1]}++ ? : |
|
10857
|
0 |
0 |
defined $_ ? : |
|
10858
|
0 |
0 |
defined $_ ? : |
|
10860
|
0 |
0 |
defined $_ ? : |
|
10861
|
0 |
0 |
65536 > ord($_ || 0) ? : |
|
|
0 |
0 |
unless $w32OK |
|
10863
|
0 |
0 |
if not !$compat[$_] |
|
10864
|
0 |
0 |
unless my $cnt = grep(defined($_), @res2) |
|
10870
|
0 |
0 |
$OK{$res2[$_]} ? : |
|
|
0 |
0 |
$ok{$res2[$_]} ? : |
|
10875
|
0 |
0 |
if defined $_ |
|
|
0 |
0 |
if $double_occupancy and grep {$Penalize{$_} if defined $_;} @res2 |
|
10876
|
0 |
0 |
if defined $_ |
|
|
0 |
0 |
if ($double_occupancy and grep {$penalize{$_} if defined $_;} @res2) { } |
|
10882
|
0 |
0 |
unless $cnt |
|
10883
|
0 |
0 |
if (not $double_occupancy and $cnt == 2 and 1) |
|
10889
|
0 |
0 |
defined $res2[0] ? : |
|
10890
|
0 |
0 |
if @$penalty > 1 and defined $res2[1] and $p gt $penalty->[1] |
|
10893
|
0 |
0 |
defined $res2[$_] ? : |
|
10913
|
0 |
0 |
if 'ARRAY' eq ref($k || 0) |
|
10914
|
0 |
0 |
unless defined $k |
|
10915
|
0 |
0 |
if defined $k and not $k =~ /[^\x{2503}\x{250b}\x{2551}\x{2502}\x{2506}\s]/ |
|
10917
|
0 |
0 |
unless $bold1 |
|
10918
|
0 |
0 |
unless $bold |
|
10924
|
0 |
0 |
if ($prio2++) |
|
10930
|
0 |
0 |
if ($double2++) |
|
10937
|
0 |
0 |
unless defined(my $k = $set->[$shift]) |
|
10938
|
0 |
0 |
if ref $k |
|
10939
|
0 |
0 |
if $k =~ /$rxCombining/ |
|
10940
|
0 |
0 |
if (2 * $layer + $shift >= $#L) |
|
10959
|
0 |
0 |
unless defined $k and defined $k->[0] || defined $k->[1] |
|
10961
|
0 |
0 |
ref $_ ? : |
|
|
0 |
0 |
if $_ |
|
10963
|
0 |
0 |
if $LL and $L and defined $k->[$_] and defined $LL->[$L][$_] |
|
10964
|
0 |
0 |
if (my $special = grep($_, @need_special)) |
|
10965
|
0 |
0 |
$prepend ? : |
|
|
0 |
0 |
if $special == grep(defined($_), @$k) |
|
10968
|
0 |
0 |
$need_special[$_] ? : |
|
10969
|
0 |
0 |
!$need_special[$_] ? : |
|
10970
|
0 |
0 |
$prepend ? : |
|
10972
|
0 |
0 |
$prepend ? : |
|
10975
|
0 |
0 |
unless $cnt |
|
10976
|
0 |
0 |
unless $prepend |
|
10977
|
0 |
0 |
if $prepend |
|
10986
|
0 |
0 |
$backwards ? : |
|
10988
|
0 |
0 |
if --$limit < 0 |
|
10993
|
0 |
0 |
if ($both) |
|
10994
|
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];} |
|
10998
|
0 |
0 |
$L ? : |
|
11000
|
0 |
0 |
unless $set and @$set |
|
11001
|
0 |
0 |
if ($group_both) |
|
11002
|
0 |
0 |
$backwards ? : |
|
11003
|
0 |
0 |
if $groupN <= $ignore_groups |
|
11004
|
0 |
0 |
if $store_level |
|
11009
|
0 |
0 |
$backwards ? : |
|
11013
|
0 |
0 |
unless $lc_ok or $uc_ok |
|
11016
|
0 |
0 |
if defined $have_out and $found_both || $have_out eq $uc_ok |
|
11018
|
0 |
0 |
$have_both ? : |
|
11019
|
0 |
0 |
$both ? : |
|
11021
|
0 |
0 |
unless ($groupN <= $ignore_groups or defined $have_out and $have_out eq $uc_ok) |
|
11026
|
0 |
0 |
if ($can_splice) { } |
|
11028
|
0 |
0 |
unless $backwards |
|
11033
|
0 |
0 |
if $groupN <= $ignore_groups |
|
11034
|
0 |
0 |
if ($can_return) |
|
11035
|
0 |
0 |
if ($found_both) { } |
|
11036
|
0 |
0 |
if $_ |
|
|
0 |
0 |
if $store_level |
|
11039
|
0 |
0 |
if $store_level |
|
11046
|
0 |
0 |
$lc_ok ? : |
|
11052
|
0 |
0 |
if $store_level |
|
11588
|
0 |
0 |
$opt->{'fake'} ? : |
|
11594
|
0 |
0 |
$opt->{'fake'} ? : |
|
11639
|
0 |
0 |
unless $kmap |
|
11640
|
0 |
0 |
if ref $c |
|
11641
|
0 |
0 |
unless defined($c = $$kmap{$self->key2hex($c)}) |
|
11642
|
0 |
0 |
unless ref $c |
|
11654
|
0 |
0 |
if $base |
|
11659
|
0 |
0 |
join($", @extra) =~ /\s/ ? : |
|
11660
|
0 |
0 |
@extra ? : |
|
11670
|
0 |
0 |
if @_ & 1 |
|
11673
|
0 |
0 |
if $c =~ (shift()) |
|
11682
|
0 |
0 |
defined $_ && ref $_ ? : |
|
11687
|
0 |
0 |
defined $_ ? : |
|
11693
|
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) { } |
|
11694
|
0 |
0 |
if ($uc ne $lc) |
|
11697
|
0 |
0 |
if ref $_ |
|
11698
|
0 |
0 |
if $prefix2 and $pref_i[1] and not $pref_i[0] |
|
11699
|
0 |
0 |
if $LC and ref $LC and $LC->[2] |
|
11703
|
0 |
0 |
1 < length &UI::KeyboardLayout::uc($lc1) ? : |
|
|
0 |
0 |
if defined $lc1 and &UI::KeyboardLayout::uc($lc1) ne &UI::KeyboardLayout::ucfirst($lc1) |
|
11705
|
0 |
0 |
if $name |
|
11706
|
0 |
0 |
join($", @$extra) =~ /\s/ ? : |
|
11708
|
0 |
0 |
@$extra ? : |
|
11709
|
0 |
0 |
$base ? : |
|
11722
|
0 |
0 |
$name ? : |
|
11724
|
0 |
0 |
join($", @$ee) =~ /\s/ ? : |
|
11725
|
0 |
0 |
$base ? : |
|
11735
|
0 |
0 |
/^\w+=/ ? : |
|
11738
|
0 |
0 |
$opts{'oneRow'} ? : |
|
11748
|
0 |
0 |
if $new_row->{$kn} |
|
11757
|
0 |
0 |
if $opts{'oneRow'} |
|
11765
|
0 |
0 |
if $arg =~ s[^/opt=][] |
|
11766
|
0 |
0 |
unless my($classes, $name, $f, $prefix, $which) = $arg =~ /^((?:[-\w]+(?:,[-\w]+)*)?)\+([-\w]*)=(\w+),([\da-f]{4}|[^\x20-\x7e][^,]*|[02]?),(\d+|-)$/i |
|
11768
|
0 |
0 |
if exists $self->{'face_shortcuts'}{$f} |
|
11769
|
0 |
0 |
unless $which eq '-' |
|
11773
|
0 |
0 |
if $L and not $self->{'layers'}{$L->[$which]} |
|
11775
|
0 |
0 |
unless $L ||= $self->{'faces'}{$f}{'layers'} || $self->export_layers($f, $f) |
|
11776
|
0 |
0 |
unless my $kmap = $self->{'faces'}{$f}{'[deadkeyFaceHexMap]'}{$self->key2hex($prefix)} or not length $prefix |
|
11783
|
0 |
0 |
unless @opt == 1 |
|
11785
|
0 |
0 |
unless $self->{'faces'}{$face0}{'[geometry]'} |
|
11786
|
0 |
0 |
unless @g |
|
11790
|
0 |
0 |
if grep /^rtl-hover(-Trivia)?$/, @$opt |
|
11792
|
0 |
0 |
if grep /^rtl-hover-Trivia$/, @$opt |
|
12197
|
0 |
0 |
if shift() |
|
12204
|
0 |
0 |
unless $post |
|
12205
|
0 |
0 |
unless my(@pre) = $pre =~ /<(\w+)>/g |
|
12206
|
0 |
0 |
unless my($p) = $post =~ /"(.+?)"/ |
|
12207
|
0 |
0 |
exists $dec_dotcompose{$_} ? : |
|
12215
|
0 |
0 |
if /^\s*(#|include\b)/ |
|
12216
|
0 |
0 |
unless /\S/ |
|
12217
|
0 |
0 |
unless my(@in) = $self->dec_dotcompose($_, $dec_U) |
|
12232
|
0 |
0 |
unless @_ |
|
12234
|
0 |
0 |
unless defined $h->{$k} |
|
12237
|
0 |
0 |
unless ('HASH' eq ref $h) |
|
12238
|
0 |
0 |
unless $term |
|
12257
|
0 |
0 |
if ($massage) |
|
12260
|
0 |
0 |
unless $in[0] eq 'CP' |
|
12266
|
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) |
|
12274
|
0 |
0 |
if ($method eq 'dotcompose') { } |
|
|
0 |
0 |
elsif ($method eq 'entity') { } |
|
|
0 |
0 |
elsif ($method eq 'rfc1345') { } |
|
12281
|
0 |
0 |
unless $line =~ /^\s*
|
|
12287
|
0 |
0 |
if length $in > $avoid_overlong_synonims_Entity * length($in[0]) or length $in > $maxEntityLen |
|
12295
|
0 |
0 |
unless $line =~ /^\s+SP\s+0020\s+SPACE\s*$/ .. $line =~ m[^
|
|
12296
|
0 |
0 |
unless $line =~ /^\s+(\S+)\s+([a-fA-F\d]{4})\s/ |
|
12298
|
0 |
0 |
if "$2" =~ /^e0/i |
|
12300
|
0 |
0 |
if 1 == length $in |
|
12312
|
0 |
0 |
unless open my $fh, '< :encoding(utf8)', $fn |
|
12314
|
0 |
0 |
unless close $fh |
|
12320
|
0 |
0 |
if 'HASH' ne ref($to->{$k} || {}) |
|
12321
|
0 |
0 |
unless exists $to->{$k} |
|
12328
|
0 |
0 |
unless my $names = $self->get__value($key) |
|
12356
|
0 |
0 |
exists $added->{$_} ? : |
|
12357
|
0 |
0 |
unless ($added->{$a} || '') cmp ($added->{$b} || '') |
|
12358
|
0 |
0 |
if $c =~ /^\[(G?Prefix(_Show)?|Added)\]$/ |
|
12360
|
0 |
0 |
if (ref $v and $seen{"$v"}) { } |
|
|
0 |
0 |
elsif (ref $v) { } |
|
12366
|
0 |
0 |
if exists $added->{$c} |
|
12368
|
0 |
0 |
if $name_append eq $self->charhex2key($prefixCompose) |
|
12369
|
0 |
0 |
if $name_show eq $self->charhex2key($prefixCompose) |
|
12370
|
0 |
0 |
if $name_append =~ /\s/ |
|
12375
|
0 |
0 |
if defined $v->{'[Prefix_Show]'} |
|
12392
|
0 |
0 |
if ref $hexH->{$h} |
|
12393
|
0 |
0 |
unless defined(my $to = $$charH{my $c = &UI::KeyboardLayout::chr(hex $h)}) |
|
12394
|
0 |
0 |
if ref $to |
|
12397
|
0 |
0 |
if ref $back |
|
12399
|
0 |
0 |
if exists $$hexH{$to = $self->key2hex($to)} |
|
12403
|
0 |
0 |
$now ? : |
|
12405
|
0 |
0 |
if %add |
|
12407
|
0 |
0 |
if keys %$delay |
|
12414
|
0 |
0 |
ref($_ || 0) ? : |
|
12421
|
0 |
0 |
if ($prefix and ref $prefix) { } |
|
12433
|
0 |
0 |
unless $self->{'[ComposeArrays]'} |
|
12434
|
0 |
0 |
unless (@Arrays) |
|
12439
|
0 |
0 |
unless ($arr = $self->create_composeArray($pref->[0], $pref->[1]) and @$arr) |
|
12440
|
0 |
0 |
if $pref->[2] |
|
12458
|
0 |
0 |
unless $v->{$_} |
|
|
0 |
0 |
unless grep {$vv->{$_} unless $v->{$_};} @in |
|
12474
|
0 |
0 |
if $linked |
|
12477
|
0 |
0 |
if (@hashes and defined $pref->[4] and length $pref->[4]) { } |
|
|
0 |
0 |
elsif ($first_prefix) { } |
|
12479
|
0 |
0 |
if $hashes[-1]{$pref->[4]} |
|
12489
|
0 |
0 |
if length $pref0 |
|
12490
|
0 |
0 |
if ref $Comp_show and length $$Comp_show[$IDX->[$i]] |
|
12492
|
0 |
0 |
unless @hashes |
|
12498
|
0 |
0 |
unless my $p = $h->{'[GPrefix]'} |
|
12499
|
0 |
0 |
$c ? : |
|
12501
|
0 |
0 |
unless (defined $comp_show) |
|
12503
|
0 |
0 |
$c ? : |
|
12504
|
0 |
0 |
if (ref $Comp_show) { } |
|
12599
|
0 |
0 |
if ($lst[$i] eq "\267") { } |
|
12609
|
0 |
0 |
unless $kVK =~ /^\s*(#)|([A-F\d]{2})\s+(\?+|\w+)\s*(.*)/i |
|
12610
|
0 |
0 |
if $1 |
|
12614
|
0 |
0 |
if (length $rest) |
|
12615
|
0 |
0 |
unless (my($HEX, $lit, $sp), $comment) = $rest =~ /^(?:(?:([A-F\d]{2})|([^\w\s+])|(SPACE|\+))\s*)?(?:#\s*(.*))?$/i |
|
12617
|
0 |
0 |
if ($sp) { } |
|
|
0 |
0 |
elsif ($HEX) { } |
|
12618
|
0 |
0 |
unless $rest = $map{$sp} |
|
12625
|
0 |
0 |
unless $idx > $last or not defined $lst[$idx] |
|
12657
|
0 |
0 |
if $F->{'Apple2layout'} |
|
12658
|
0 |
0 |
unless @AppleMap |
|
12659
|
0 |
0 |
if $#AppleMap >= 127 |
|
12668
|
0 |
0 |
if defined $$b[$o->{$vk}] |
|
12669
|
0 |
0 |
unless defined $$b[$o->{$vk}] |
|
12678
|
0 |
0 |
unless defined $k |
|
12679
|
0 |
0 |
if exists $AppleSym{$kk} |
|
12680
|
0 |
0 |
if exists $AppleSym{$Apple_recode{$kk} or 123} |
|
12681
|
0 |
0 |
if exists $AppleSym{$k} |
|
12682
|
0 |
0 |
if exists $AppleSym{$Apple_recode{$k} or 123} |
|
12683
|
0 |
0 |
if exists $AppleSym{CORE::ucfirst(CORE::lc $k) . 'Arrow'} |
|
12684
|
0 |
0 |
if exists $AppleSym{CORE::ucfirst CORE::lc $k} |
|
12685
|
0 |
0 |
if $Apple_skip{$k} |
|
12689
|
0 |
0 |
unless defined $A[$i] |
|
12690
|
0 |
0 |
if defined $AA[$A[$i]] |
|
12694
|
0 |
0 |
if defined $AA[$i] or not +($AppleSym[$i] || '') =~ /^#(.)$/ or not defined $AA[$AppleSym{$1}] |
|
12697
|
0 |
0 |
if @o |
|
12730
|
0 |
0 |
if $to - $from > 255 |
|
12734
|
0 |
0 |
if defined $out |
|
12735
|
0 |
0 |
if defined $next |
|
12737
|
0 |
0 |
if defined $out |
|
12739
|
0 |
0 |
if defined $next |
|
12740
|
0 |
0 |
if defined $out |
|
12752
|
0 |
0 |
unless ($HEX =~ /[0-9a-f]/i) |
|
12753
|
0 |
0 |
$do_hex5 ? : |
|
12785
|
0 |
0 |
$do_hex5 ? : |
|
12795
|
0 |
0 |
if $HEX =~ /[01]/ |
|
12799
|
0 |
0 |
if $do_hex5 and not $HEX =~ /[01]/ |
|
12804
|
0 |
0 |
if $do_hex5 and $HEX =~ /1/ |
|
12807
|
0 |
0 |
if $do_hex5 and $HEX =~ /0/ |
|
12810
|
0 |
0 |
if $HEX =~ /0/ |
|
12816
|
0 |
0 |
unless $HEX =~ /0/ |
|
12820
|
0 |
0 |
if $do_hex5 and not $HEX =~ /0/ |
|
12832
|
0 |
0 |
$merge_states_6_and_4 && !$use_plan_c ? : |
|
12833
|
0 |
0 |
$use_plan_c ? : |
|
12834
|
0 |
0 |
$use_plan_c ? : |
|
12835
|
0 |
0 |
$use_plan_c ? : |
|
12846
|
0 |
0 |
if ($use_plan_c) { } |
|
12858
|
0 |
0 |
if ($use_plan_c) |
|
12859
|
0 |
0 |
$merge_states_6_and_4 ? : |
|
12869
|
0 |
0 |
$merge_states_6_and_4 ? : |
|
12876
|
0 |
0 |
unless ($merge_states_6_and_4) |
|
12878
|
0 |
0 |
$use_plan_c ? : |
|
12900
|
0 |
0 |
$do_hex5 ? : |
|
12949
|
0 |
0 |
if (53248 <= ord $c and 57343 >= ord $c) { } |
|
12972
|
0 |
0 |
unless @AppleMap |
|
12973
|
0 |
0 |
if $#AppleMap >= 127 |
|
12978
|
0 |
0 |
if not defined $c and defined $I |
|
12979
|
0 |
0 |
unless defined $c |
|
12981
|
0 |
0 |
unless defined $c |
|
12984
|
0 |
0 |
if ref $c |
|
12985
|
0 |
0 |
if ref $c |
|
12988
|
0 |
0 |
if not $d and $caps |
|
12989
|
0 |
0 |
if $d > 0 |
|
12990
|
0 |
0 |
if $d < 0 |
|
12992
|
0 |
0 |
$M ? : |
|
12993
|
0 |
0 |
if $M or $d > 0 |
|
12994
|
0 |
0 |
$M ? : |
|
|
0 |
0 |
$d > 0 ? : |
|
|
0 |
0 |
$d || $M ? : |
|
12995
|
0 |
0 |
$how eq 'output' ? : |
|
13007
|
0 |
0 |
$M ? : |
|
13008
|
0 |
0 |
$pref ? : |
|
13014
|
0 |
0 |
$pref ? : |
|
13018
|
0 |
0 |
unless $M |
|
13026
|
0 |
0 |
if $d >= 0 |
|
13027
|
0 |
0 |
if ($d > 0) { } |
|
|
0 |
0 |
elsif ($d < 0) { } |
|
13040
|
0 |
0 |
if $doHEX and $v->[0] =~ /^[-u\x20_+=0-9a-f]\z/i |
|
13051
|
0 |
0 |
unless $override->{'extra_actions'} |
|
13052
|
0 |
0 |
if $e{'hex4'} |
|
13055
|
0 |
0 |
unless (%$act) |
|
13060
|
0 |
0 |
unless $out->[2] |
|
13064
|
0 |
0 |
unless $v = $dd->{$k} and $v->[1] |
|
13068
|
0 |
0 |
$use_plan_b ? : |
|
|
0 |
0 |
$use_plan_c ? : |
|
13071
|
0 |
0 |
if ($term and not $do_initing) |
|
13079
|
0 |
0 |
if !!$do_initing != !!$v->[1] |
|
13081
|
0 |
0 |
if ($term) |
|
13083
|
0 |
0 |
unless defined $Show |
|
13093
|
0 |
0 |
$do_initing && !$term ? : |
|
13106
|
0 |
0 |
if $term and $doHEX and not $do_initing |