diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-01-24 13:11:27 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-01-24 13:11:27 +0000 |
| commit | fe0e92f4e338bd3ab690e409ff9ccde6cfe58780 (patch) | |
| tree | 90162d89089414633e30308971a9e715f1b1363c /perl-install/keyboard.pm | |
| parent | 9e683c898b6592aaac1196f76dd9321c4426c912 (diff) | |
| download | drakx-backup-do-not-use-fe0e92f4e338bd3ab690e409ff9ccde6cfe58780.tar drakx-backup-do-not-use-fe0e92f4e338bd3ab690e409ff9ccde6cfe58780.tar.gz drakx-backup-do-not-use-fe0e92f4e338bd3ab690e409ff9ccde6cfe58780.tar.bz2 drakx-backup-do-not-use-fe0e92f4e338bd3ab690e409ff9ccde6cfe58780.tar.xz drakx-backup-do-not-use-fe0e92f4e338bd3ab690e409ff9ccde6cfe58780.zip | |
first sparc release of DrakX.
Diffstat (limited to 'perl-install/keyboard.pm')
| -rw-r--r-- | perl-install/keyboard.pm | 20 |
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($$;$) { |