26
26
# Don't forget to update also the list in config.proto
27
my $nonlatin = ' am ara ben bd bg bt by cs deva ge gh gr guj guru \
27
my $nonlatin = ' am ara ben bd bg bt by deva ge gh gr guj guru \
28
28
il in ir iku jp kan kh la lao lk mk mm mn mv mal \
29
29
ori pk ru scc sy syr tel th tj tam ua uz ';
73
73
if (! -f "$dir/$model-$layout") {
74
execute ("./ckbcomp -compact -I. -I${xkbdir} -rules xorg"
75
." -model $model -layout $actual_layout"
76
." >$dir/$model-$layout")
77
and die "$0: ckbcomp failed\n" if (! -f "$dir/$model-$layout");
74
if ($layout eq 'cs') {
75
execute ("./ckbcomp -compact -I. -I${xkbdir} -rules xorg"
77
." -layout $actual_layout -variant latin,"
78
." >$dir/$model-$layout");
80
execute ("./ckbcomp -compact -I. -I${xkbdir} -rules xorg"
81
." -model $model -layout $actual_layout"
82
." >$dir/$model-$layout");
84
die "$0: ckbcomp failed\n" if (! -f "$dir/$model-$layout");
79
86
if (-f "$dir/$model-$layout") {
80
87
read_temp_kmap $layout;
82
89
for my $variant (values %{$KeyboardNames::variants{$layout}}) {
83
my $actual_variant = (($actual_layout =~ /,/)
91
if ($actual_layout eq 'cs,cs') {
92
if ($variant =~ /latin/) {
93
$actual_variant = "$variant,$variant";
94
} elsif ($variant eq 'yz') {
95
$actual_variant = "latinyz,$variant";
96
} elsif ($variant eq 'alternatequotes') {
97
$actual_variant = "latinalternatequotes,$variant";
99
$actual_variant = "latin,$variant";
101
} elsif ($actual_layout =~ /,/) {
102
$actual_variant = ",$variant";
104
$actual_variant = $variant;
86
106
if (! -f "$dir/$model-$layout:$variant") {
87
107
execute ("./ckbcomp -compact -I. -I${xkbdir} -rules xorg"