summaryrefslogtreecommitdiffstats
path: root/perl-install/keyboard.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-01-24 13:11:27 +0000
committerFrancois Pons <fpons@mandriva.com>2000-01-24 13:11:27 +0000
commitfe0e92f4e338bd3ab690e409ff9ccde6cfe58780 (patch)
tree90162d89089414633e30308971a9e715f1b1363c /perl-install/keyboard.pm
parent9e683c898b6592aaac1196f76dd9321c4426c912 (diff)
downloaddrakx-fe0e92f4e338bd3ab690e409ff9ccde6cfe58780.tar
drakx-fe0e92f4e338bd3ab690e409ff9ccde6cfe58780.tar.gz
drakx-fe0e92f4e338bd3ab690e409ff9ccde6cfe58780.tar.bz2
drakx-fe0e92f4e338bd3ab690e409ff9ccde6cfe58780.tar.xz
drakx-fe0e92f4e338bd3ab690e409ff9ccde6cfe58780.zip
first sparc release of DrakX.
Diffstat (limited to 'perl-install/keyboard.pm')
-rw-r--r--perl-install/keyboard.pm20
1 files changed, 18 insertions, 2 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 16fe92369..cb963c4d4 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -85,6 +85,19 @@ my %lang2keyboard =
#- key = extension for Xmodmap file, [0] = description of the keyboard,
#- [1] = name for loadkeys, [2] = name for XKB
my %keyboards = (
+arch() =~ /^sparc/ ? (
+ "cs" => [ __("Czech"), "sunt5-us-cz", "cs" ],
+ "de" => [ __("German"), "sunt5-de-latin1", "de" ],
+ "dvorak" => [ __("Dvorak"), "sundvorak", "dvorak" ],
+ "es" => [ __("Spanish"), "sunt5-es", "es" ],
+ "fi" => [ __("Finnish"), "sunt5-fi-latin1", "fi" ],
+ "fr" => [ __("French"), "sunt5-fr-latin1", "fr" ],
+ "no" => [ __("Norwegian"), "sunt4-no-latin1", "no" ],
+ "pl" => [ __("Polish"), "sun-pl-altgraph", "pl" ],
+ "ru" => [ __("Russian"), "sunt5-ru", "ru" ],
+ "uk" => [ __("UK keyboard"), "sunt5-uk", "us" ],
+ "us" => [ __("US keyboard"), "sunkeymap", "us" ],
+) : (
"am" => [ __("Armenian"), "am-armscii8", "am" ],
"be" => [ __("Belgian"), "be-latin1", "be" ],
"bg" => [ __("Bulgarian"), "bg", "bg" ],
@@ -130,6 +143,7 @@ my %keyboards = (
"us" => [ __("US keyboard"), "us", "us" ],
"us_intl" => [ __("US keyboard (international)"), "us-latin1", "us_intl" ],
"yu" => [ __("Yugoslavian (latin layout)"), "sr", "yu" ],
+),
);
#-######################################################################################
@@ -151,10 +165,12 @@ sub text2keyboard {
sub lang2keyboard($) {
local ($_) = @_;
- $lang2keyboard{$_} || $keyboards{$_} && $_ || "us"; #-substr($_, 0, 2);
+ my $kb = $lang2keyboard{$_} || $keyboards{$_} && $_ || "us";
+ $keyboards{$kb} ? $kb : "us"; #- handle incorrect keyboad mapping to us.
}
sub load($) {
+ return if arch() =~ /^sparc/;
my ($keymap) = @_;
my ($magic, @keymaps) = unpack "I i" . c::MAX_NR_KEYMAPS() . "a*", $keymap;
@@ -207,7 +223,7 @@ sub setup($) {
eval { load(<F>) };
}
my $f = xmodmap_file($keyboard);
- eval { run_program::run('xmodmap', $f) } unless $::testing || !$f;
+ #eval { run_program::run('xmodmap', $f) } unless $::testing || !$f;
}
sub write($$;$) {