summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2003-01-29 10:05:25 +0000
committerPablo Saratxaga <pablo@mandriva.com>2003-01-29 10:05:25 +0000
commitd6ee5ed5ee641c7af924deea9aea421650fce0ee (patch)
treeebb5f0647bef963ec80f6ff70cd224bbf1e38e54 /perl-install/lang.pm
parentce90e2a3cc64fb1c034a33e6a7a2b05f3335b818 (diff)
downloaddrakx-backup-do-not-use-d6ee5ed5ee641c7af924deea9aea421650fce0ee.tar
drakx-backup-do-not-use-d6ee5ed5ee641c7af924deea9aea421650fce0ee.tar.gz
drakx-backup-do-not-use-d6ee5ed5ee641c7af924deea9aea421650fce0ee.tar.bz2
drakx-backup-do-not-use-d6ee5ed5ee641c7af924deea9aea421650fce0ee.tar.xz
drakx-backup-do-not-use-d6ee5ed5ee641c7af924deea9aea421650fce0ee.zip
switched some languages to UTF-8 (they use ascii only, so it shouldn't
be noticed); changed a keyboard name to match name used by XFree86
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm29
1 files changed, 10 insertions, 19 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 6abc10553..7d2c6e0f3 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -80,14 +80,12 @@ my %languages = my @languages = (
'hr_HR' => [ 'Croatian', 'iso-8859-2', 'hr', 'hr' ],
'hu_HU' => [ 'Hungarian', 'iso-8859-2', 'hu', 'hu' ],
'hy_AM.UTF-8' => [ 'Armenian', 'armscii-8', 'hy', 'hy', 'UTF-8' ],
-#'ia_XX' => [ 'Interlingua', 'unicode', 'ia', 'ia' ],
-#- 'in' was the old code for indonesian language; by putting LANGUAGE=id:in_ID
-#- we catch the few catalog files still using the wrong code
-'id_ID' => [ 'Indonesian', 'iso-8859-1', 'id', 'id:in_ID' ],
+#'ia_XX' => [ 'Interlingua', 'unicode', 'ia', 'ia', 'UTF-8' ],
+'id_ID' => [ 'Indonesian', 'iso-8859-1', 'id', 'id', 'UTF-8' ],
'is_IS' => [ 'Icelandic', 'iso-8859-1', 'is', 'is' ],
'it_CH' => [ 'Italian|Switzerland', 'iso-8859-15', 'it', 'it_IT:it' ],
'it_IT' => [ 'Italian|Italy', 'iso-8859-15', 'it', 'it_IT:it' ],
-#-'iu_CA' => [ 'Inuktitut', 'utf_iu', 'iu', 'iu' ],
+#-'iu_CA' => [ 'Inuktitut', 'utf_iu', 'iu', 'iu', 'UTF-8' ],
'ja_JP' => [ 'Japanese', 'jisx0208', 'ja', 'ja_JP.ujis:ja' ],
'ja_JP.UTF-8' => [ 'Japanese (UTF-8)', 'jisx0208', 'ja', 'ja_JP.ujis:ja', 'UTF-8' ],
'ka_GE.UTF-8' => [ 'Georgian', 'georgian-ps', 'ka', 'ka', 'UTF-8' ],
@@ -100,7 +98,7 @@ my %languages = my @languages = (
'lv_LV' => [ 'Latvian', 'iso-8859-13', 'lv', 'lv' ],
'mi_NZ.UTF-8' => [ 'Maori', 'iso-8859-13', 'mi', 'mi', 'UTF-8' ],
'mk_MK.UTF-8' => [ 'Macedonian (Cyrillic)', 'cp1251', 'mk', 'mk', 'UTF-8' ],
-'ms_MY' => [ 'Malay', 'iso-8859-1', 'ms', 'ms' ],
+'ms_MY' => [ 'Malay', 'iso-8859-1', 'ms', 'ms', 'UTF-8' ],
'mt_MT.UTF-8' => [ 'Maltese', 'iso-8859-3', 'mt', 'mt', 'UTF-8' ],
'nl_BE' => [ 'Dutch|Belgium', 'iso-8859-15', 'nl', 'nl_BE:nl' ],
'nl_NL' => [ 'Dutch|Netherlands', 'iso-8859-15', 'nl', 'nl_NL:nl' ],
@@ -109,7 +107,7 @@ my %languages = my @languages = (
#- no_NY is used by KDE (but not standard); 'nn' is the new locale in glibc 2.2
'nn_NO' => [ 'Norwegian|Nynorsk', 'iso-8859-1', 'no', 'nn:no@nynorsk:no_NY:no:nb' ],
#-'oc_FR' => [ 'Occitan', 'iso-8859-1', 'oc', 'oc:fr_FR' ],
-#-'ph_PH' => [ 'Pilipino', 'iso-8859-1', 'ph', 'ph:tl' ],
+#-'ph_PH' => [ 'Pilipino', 'iso-8859-1', 'ph', 'ph:tl', 'UTF-8' ],
'pl_PL' => [ 'Polish', 'iso-8859-2', 'pl', 'pl' ],
#-'pp_AN'=> [ 'Papiamento', 'iso-8859-1', 'pp', 'pp' ],
'pt_BR' => [ 'Portuguese|Brazil', 'iso-8859-1', 'pt_BR', 'pt_BR:pt_PT:pt' ],
@@ -126,28 +124,21 @@ my %languages = my @languages = (
'sr_YU.ISO-8859-2' => [ 'Serbian|Latin (ISO-8859-2)', 'iso-8859-2', 'sr', 'sr' ],
'sr_YU.UTF-8' => [ 'Serbian|Latin (UTF-8)', 'iso-8859-2', 'sr', 'sr', 'UTF-8' ],
'sv_SE' => [ 'Swedish', 'iso-8859-1', 'sv', 'sv' ],
-#- there is no tamil font curently; so set DrakX encoding to utf_1
-#- note: most of the gnome translations for tamil are broken (using bad
-#- encoding)
-#-
-#- Tamil currently works only with TSCII encoding; which identifies
-#- itself as a fake iso-8859-1
-#'ta_IN.UTF-8' => [ 'Tamil (UTF-8)', 'iso-8859-1', 'ta', 'ta', 'UTF-8' ],
'ta_IN' => [ 'Tamil (TSCII)', 'tscii', 'ta', 'ta' ],
-'ta_IN.UTF-8' => [ 'Tamil (UTF-8)', 'unicode', 'ta', 'ta' ],
+'ta_IN.UTF-8' => [ 'Tamil (UTF-8)', 'unicode', 'ta', 'ta', 'UTF-8' ],
'tg_TJ.UTF-8' => [ 'Tajik', 'koi8-k', 'tg', 'tg', 'UTF-8' ],
'th_TH' => [ 'Thai|TIS-620', 'tis620', 'th', 'th' ],
'th_TH.UTF-8' => [ 'Thai (UTF-8)', 'tis620', 'th', 'th', 'UTF-8' ],
'tr_TR' => [ 'Turkish', 'iso-8859-9', 'tr', 'tr' ],
-#-'tt_RU.UTF-8' => [ 'Tatar', 'koi8-k', 'tt', 'tt' ],
-#-'ur_PK' => [ 'Urdu', 'cp1256', 'ur', 'ur' ],
+#-'tt_RU.UTF-8' => [ 'Tatar', 'koi8-k', 'tt', 'tt', 'UTF-8' ],
+#-'ur_PK' => [ 'Urdu', 'cp1256', 'ur', 'ur', 'UTF-8' ],
'uk_UA' => [ 'Ukrainian|KOI8-U', 'koi8-u', 'uk', 'uk_UA:uk' ],
'uk_UA.CP1251' => [ 'Ukrainian|CP1251', 'cp1251', 'uk', 'uk_UA:uk' ],
'uk_UA.UTF-8' => [ 'Ukrainian|UTF-8', 'cp1251', 'uk', 'uk_UA:uk', 'UTF-8' ],
-'uz_UZ' => [ 'Uzbek', 'iso-8859-1', 'uz', 'uz' ],
+'uz_UZ' => [ 'Uzbek', 'iso-8859-1', 'uz', 'uz', 'UTF-8' ],
'vi_VN.UTF-8' => [ 'Vietnamese', 'tcvn', 'vi', 'vi', 'UTF-8' ],
'wa_BE' => [ 'Walon', 'iso-8859-15', 'wa', 'wa:fr_BE:fr' ],
-#-'yi' => [ 'Yiddish', 'cp1255', 'yi', 'yi' ],
+#-'yi' => [ 'Yiddish', 'cp1255', 'yi', 'yi', 'UTF-8' ],
#- NOTE: 'zh' must be in the LANGUAGE list, it is not used for translations
#- themselves but is needed for our selection of locales-xx packages
#- and the language dependent packages resolution
generated by cgit v1.2.1 (git 2.21.0) at 2024-10-18 01:14:20 +0000
opt">, 0x18a, "stage1 \0" ], [ 'grub', 0, "\xEBH", 0x181, "GRUB \0" ], [ 'lilo', 0x2, "LILO" ], [ 'lilo', 0x6, "LILO" ], [ 'grub', 0x6, "GRUB" ], [ 'osbs', 0x2, "OSBS" ], #- http://www.prz.tu-berlin.de/~wolf/os-bs.html [ 'pqmagic', 0xef, "PQV" ], [ 'BootStar', 0x130, "BootStar:" ], [ 'DocsBoot', 0x148, 'DocsBoot' ], [ 'system_commander', 0x1ad, "SYSCMNDRSYS" ], [ 'Be Os', 0x24, 'Boot Manager' ], [ 'os2', 0, "\xFA\xB8\x30\x00", 0xfA, "OS/2" ], [ 'TimO', 0, 'IBM Thinkpad hibernation partition' ], [ 'dos', 0xa0, "\x25\x03\x4E\x02\xCD\x13" ], [ 'dos', 0xa0, "\x00\xB4\x08\xCD\x13\x72" ], #- nt2k's [ 'dos', 0x60, "\xBB\x00\x7C\xB8\x01\x02\x57\xCD\x13\x5F\x73\x0C\x33\xC0\xCD\x13" ], #- nt's [ 'dos', 0x70, "\x0C\x33\xC0\xCD\x13\x4F\x75\xED\xBE\xA3" ], [ 'freebsd', 0xC0, "\x00\x30\xE4\xCD\x16\xCD\x19\xBB\x07\x00\xB4" ], [ 'freebsd', 0x160, "\x6A\x10\x89\xE6\x48\x80\xCC\x40\xCD\x13" ], [ 'dummy', 0xAC, "\x0E\xB3\x07\x56\xCD\x10\x5E\xEB" ], #- caldera? [ 'ranish', 0x100, "\x6A\x10\xB4\x42\x8B\xF4\xCD\x13\x8B\xE5\x73" ], [ 'os2', 0x1c2, "\x0A" ], [ 'Acronis', 0, "\xE8\x12\x01" ], ); sub typeOfMBR($) { typeFromMagic(devices::make($_[0]), @MBR_signatures) } sub typeOfMBR_($) { typeFromMagic($_[0], @MBR_signatures) } sub hasExtended { 0 } sub set_best_geometry_for_the_partition_table {} sub cylinder_size($) { my ($hd) = @_; $hd->{geom}{sectors} * $hd->{geom}{heads}; } sub first_usable_sector { 1 } sub last_usable_sector { my ($hd) = @_; $hd->{totalsectors}; } #- default method for starting a partition, only head size or twice #- is allowed for starting a partition after a cylinder boundarie. sub adjustStart($$) { my ($hd, $part) = @_; my $end = $part->{start} + $part->{size}; $part->{start} = round_up($part->{start}, $part->{start} % cylinder_size($hd) < 2 * $hd->{geom}{sectors} ? $hd->{geom}{sectors} : cylinder_size($hd)); $part->{size} = $end - $part->{start}; $part->{size} > 0 or die "adjustStart get a too small partition to handle correctly"; } #- adjusting end to match a cylinder boundary, two methods are used and must #- match at the end, else something is wrong and nothing will be done on #- partition table. #- $end2 is computed by removing 2 (or only 1 if only 2 heads on drive) groups #- of sectors, this is necessary to handle extended partition where logical #- partition start after 1 (or 2 accepted) groups of sectors (typically 63). #- $end is floating (is not on cylinder boudary) so we have to choice a good #- candidate, $end1 or $end2 should always be good except $end1 for small #- partition size. sub adjustEnd($$) { my ($hd, $part) = @_; my $end = $part->{start} + $part->{size}; $end > $hd->{geom}{cylinders} * cylinder_size($hd) && $end <= $hd->{totalsectors} and return; my $end1 = round_down($end, cylinder_size($hd)); my $end2 = round_up($end - ($hd->{geom}{heads} > 2 ? 2 : 1) * $hd->{geom}{sectors}, cylinder_size($hd)); $end2 <= $hd->{geom}{cylinders} * cylinder_size($hd) or die "adjustEnd go beyond end of device geometry ($end2 > $hd->{totalsectors})"; $part->{size} = ($end1 - $part->{start} > cylinder_size($hd) ? $end1 : $end2) - $part->{start}; $part->{size} > 0 or internal_error("adjustEnd get a too small partition to handle correctly"); } sub compute_nb_cylinders { my ($geom, $totalsectors) = @_; $geom->{cylinders} = int $totalsectors / $geom->{heads} / $geom->{sectors}; } sub keep_non_duplicates { my %l; $l{$_->[0]}++ foreach @_; map { @$_ } grep { $l{$_->[0]} == 1 } @_; } sub get_geometries { my ($hds) = @_; foreach my $hd (@$hds) { my $h = get_geometry($hd->{file}) or log::l("An error occurred while getting the geometry of block device $hd->{file}: $!"), next; add2hash_($hd, $h); } my %id2hd = keep_non_duplicates(map { my $F = openit($_) or die "failed to open device $_->{device}"; my $tmp; if (c::lseek_sector(fileno($F), 0, 0x1b8) && sysread($F, $tmp, 4)) { [ sprintf('0x%08x', unpack('V', $tmp)), $_ ]; } else { (); } } @$hds); my %id2edd = keep_non_duplicates(map { [ chomp_(cat_("$_/mbr_signature")), $_ ] } glob("/sys/firmware/edd/int13_dev*")); log::l("id2hd: " . join(' ', map_each { "$::a=>$::b->{device}" } %id2hd));