summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-08-02 16:38:07 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-08-02 16:38:07 +0000
commit85be1cc2d05ba4d2c3483023426e4878abd52807 (patch)
tree08b97af22f7a5381e2abadc67277edb452225229
parentfa697b3a82b94ac517134ec5b707c8591b468708 (diff)
downloaddrakx-backup-do-not-use-85be1cc2d05ba4d2c3483023426e4878abd52807.tar
drakx-backup-do-not-use-85be1cc2d05ba4d2c3483023426e4878abd52807.tar.gz
drakx-backup-do-not-use-85be1cc2d05ba4d2c3483023426e4878abd52807.tar.bz2
drakx-backup-do-not-use-85be1cc2d05ba4d2c3483023426e4878abd52807.tar.xz
drakx-backup-do-not-use-85be1cc2d05ba4d2c3483023426e4878abd52807.zip
use kbd (setfont) instead of console-tools (consolechars)
quickly adapting fonts to match existing kbd fonts, so dropping some for which i can't find a working equivalent
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/share/list.xml2
-rw-r--r--perl-install/install/steps_auto_install.pm4
-rw-r--r--perl-install/lang.pm46
4 files changed, 22 insertions, 32 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 9ef4b9487..faec7efbb 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- use kbd (setfont) instead of console-tools (consolechars)
+
Version 10.4.154 - 2 August 2007, by Pascal "Pixel" Rigaux
- drop supermount support
diff --git a/perl-install/install/share/list.xml b/perl-install/install/share/list.xml
index e4b068cc4..42ff937b5 100644
--- a/perl-install/install/share/list.xml
+++ b/perl-install/install/share/list.xml
@@ -35,7 +35,7 @@
</if>
quotacheck
- consolechars kbd_mode
+ setfont kbd_mode
Xorg xmodmap xset
fb2png
perl
diff --git a/perl-install/install/steps_auto_install.pm b/perl-install/install/steps_auto_install.pm
index 3b5e24636..debff44e0 100644
--- a/perl-install/install/steps_auto_install.pm
+++ b/perl-install/install/steps_auto_install.pm
@@ -106,9 +106,9 @@ sub charsetChanged {
my ($o) = @_;
lang::load_console_font($o->{locale});
- my ($name, $_sfm, $acm) = lang::l2console_font($o->{locale}, 1);
+ my ($name, $_sfm) = lang::l2console_font($o->{locale});
my %fs_options = lang::fs_options($o->{locale});
- $iocharset = $name && $acm && $fs_options{iocharset} ne 'utf8' ? $fs_options{iocharset} : '';
+ $iocharset = $name && $fs_options{iocharset} ne 'utf8' ? $fs_options{iocharset} : '';
}
sub errorInStep {
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 00913c111..4f4caa55f 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -719,7 +719,7 @@ sub IM2packages {
#- [0]: console font name
#- [1]: sfm map for console font (if needed)
-#- [2]: acm file for console font (none if utf8)
+#- [2]: obsolete (was acm console font)
#- [3]: iocharset param for mount (utf8 if utf8)
#- [4]: codepage parameter for mount (none if utf8)
my %charsets = (
@@ -729,10 +729,10 @@ my %charsets = (
"gbk" => [ undef, undef, undef, "gb2312", "936" ],
"C" => [ "lat0-16", undef, "iso15", "iso8859-1", "850" ],
"iso-8859-1" => [ "lat1-16", undef, "iso01", "iso8859-1", "850" ],
-"iso-8859-2" => [ "lat2-sun16", undef, "iso02", "iso8859-2", "852" ],
+"iso-8859-2" => [ "lat2-16", undef, "iso02", "iso8859-2", "852" ],
"iso-8859-5" => [ "UniCyr_8x16", undef, "iso05", "iso8859-5", "866" ],
-"iso-8859-7" => [ "iso07.f16", undef, "iso07", "iso8859-7", "869" ],
-"iso-8859-9" => [ "lat5u-16", undef, "iso09", "iso8859-9", "857" ],
+"iso-8859-7" => [ undef, undef, "iso07", "iso8859-7", "869" ],
+"iso-8859-9" => [ undef, undef, "iso09", "iso8859-9", "857" ],
"iso-8859-13" => [ "tlat7", undef, "iso13", "iso8859-13", "775" ],
"iso-8859-15" => [ "lat0-16", undef, "iso15", "iso8859-15", "850" ],
#- japanese needs special console driver for text mode [kon2]
@@ -745,8 +745,8 @@ my %charsets = (
#- I have no console font for Thai...
"tis620" => [ undef, undef, "trivial.trans", "tis-620", "874" ],
# UTF-8 encodings here; they differ in the console font mainly.
-"utf_ar" => [ "iso06.f16", undef, undef, "utf8", undef ],
-"utf_armn" => [ "arm8", undef, undef, "utf8", undef ],
+"utf_ar" => [ undef, undef, undef, "utf8", undef ],
+"utf_armn" => [ undef, undef, undef, "utf8", undef ],
"utf_az" => [ "tiso09e", undef, undef, "utf8", undef ],
"utf_beng" => [ undef, undef, undef, "utf8", undef ],
"utf_cyr1" => [ "UniCyr_8x16", undef, undef, "utf8", undef ],
@@ -755,15 +755,15 @@ my %charsets = (
"utf_ethi" => [ "Agafari-16", undef, undef, "utf8", undef ],
"utf_geor" => [ "t_geors", undef, undef, "utf8", undef ],
"utf_guru" => [ undef, undef, undef, "utf8", undef ],
-"utf_he" => [ "iso08.f16", undef, undef, "utf8", undef ],
+"utf_he" => [ undef, undef, undef, "utf8", undef ],
"utf_iu" => [ undef, undef, undef, "utf8", undef ],
"utf_khmr" => [ undef, undef, undef, "utf8", undef ],
"utf_knda" => [ undef, undef, undef, "utf8", undef ],
"utf_laoo" => [ undef, undef, undef, "utf8", undef ],
"utf_lat1" => [ "lat0-16", undef, undef, "utf8", undef ],
-"utf_lat5" => [ "lat5u-16", undef, undef, "utf8", undef ],
+"utf_lat5" => [ undef, undef, undef, "utf8", undef ],
"utf_lat7" => [ "tlat7", undef, undef, "utf8", undef ],
-"utf_lat8" => [ "iso14.f16", undef, undef, "utf8", undef ],
+"utf_lat8" => [ undef, undef, undef, "utf8", undef ],
"utf_mlym" => [ undef, undef, undef, "utf8", undef ],
"utf_mymr" => [ undef, undef, undef, "utf8", undef ],
"utf_taml" => [ "tamil", undef, undef, "utf8", undef ],
@@ -791,11 +791,10 @@ my %charset2kde_charset = (
#- -------------------
sub l2console_font {
- my ($locale, $during_install) = @_;
+ my ($locale) = @_;
my $c = $charsets{l2charset($locale->{lang}) || return} or return;
- my ($name, $sfm, $acm) = @$c;
- undef $acm if $locale->{utf8} && !$during_install;
- ($name, $sfm, $acm);
+ my ($name, $sfm) = @$c;
+ ($name, $sfm);
}
sub get_kde_lang {
@@ -1063,7 +1062,7 @@ sub write {
my $h = i18n_env($locale);
- my ($name, $sfm, $acm) = l2console_font($locale, 0);
+ my ($name, $sfm) = l2console_font($locale);
if ($name && !$b_user_only) {
my $p = "$::prefix/usr/lib/kbd";
if ($name) {
@@ -1084,15 +1083,6 @@ sub write {
};
$@ and log::explanations("missing console unimap file $sfm");
}
- if ($acm) {
- eval {
- log::explanations(qq(Set application-charset map (Unicode mapping table) to "$name"));
- cp_af(glob_("$p/consoletrans/$acm*"), "$::prefix/etc/sysconfig/console/consoletrans");
- add2hash $h, { SYSFONTACM => $acm };
- };
- $@ and log::explanations("missing console acm file $acm");
- }
-
}
add2hash($h, $IM_locale_specific_config{$locale->{lang}});
@@ -1293,20 +1283,18 @@ sub load_mo {
#- used in share/list.xml during "make get_needed_files"
sub console_font_files() {
map { -e $_ ? $_ : "$_.gz" }
- (map { "/usr/lib/kbd/consolefonts/$_.psf" } uniq grep { $_ } map { $_->[0] } values %charsets),
- (map { -e $_ ? $_ : "$_.sfm" } map { "/usr/lib/kbd/consoletrans/$_" } uniq grep { $_ } map { $_->[1] } values %charsets),
- (map { -e $_ ? $_ : "$_.acm" } map { "/usr/lib/kbd/consoletrans/$_" } uniq grep { $_ } map { $_->[2] } values %charsets);
+ (map { my $p = "/usr/lib/kbd/consolefonts/$_"; -e "$p.psfu" || -e "$p.psfu.gz" ? "$p.psfu" : "$p.psf" } uniq grep { $_ } map { $_->[0] } values %charsets),
+ (map { -e $_ ? $_ : "$_.sfm" } map { "/usr/lib/kbd/consoletrans/$_" } uniq grep { $_ } map { $_->[1] } values %charsets);
}
sub load_console_font {
my ($locale) = @_;
return if $::local_install;
- my ($name, $sfm, $acm) = l2console_font($locale, 1);
+ my ($name, $sfm) = l2console_font($locale);
require run_program;
- run_program::run('consolechars', '-v', '-f', $name || 'lat0-16',
- if_($sfm, '-u', $sfm), if_($acm, '-m', $acm));
+ run_program::run('setfont', '-v', $name || 'lat0-16', if_($sfm, '-u', $sfm));
}
sub fs_options {