summaryrefslogtreecommitdiffstats
path: root/move/data/make_i18n_list
diff options
context:
space:
mode:
authorMystery Man <unknown@mandriva.org>2005-07-15 09:43:41 +0000
committerMystery Man <unknown@mandriva.org>2005-07-15 09:43:41 +0000
commitd3d450b0b2a7633c39bcce37a594f241f3e46211 (patch)
tree519169fee33e0ba0d8d703dc26bce62e2e5b5dc6 /move/data/make_i18n_list
parentd2ce60d6be52cb011e7f05e54e5ec121e93c358e (diff)
downloaddrakx-d3d450b0b2a7633c39bcce37a594f241f3e46211.tar
drakx-d3d450b0b2a7633c39bcce37a594f241f3e46211.tar.gz
drakx-d3d450b0b2a7633c39bcce37a594f241f3e46211.tar.bz2
drakx-d3d450b0b2a7633c39bcce37a594f241f3e46211.tar.xz
drakx-d3d450b0b2a7633c39bcce37a594f241f3e46211.zip
This commit was manufactured by cvs2svn to create tagV10_3_0_35mdk
'V10_3_0_35mdk'.
Diffstat (limited to 'move/data/make_i18n_list')
-rwxr-xr-xmove/data/make_i18n_list47
1 files changed, 0 insertions, 47 deletions
diff --git a/move/data/make_i18n_list b/move/data/make_i18n_list
deleted file mode 100755
index df53d39fb..000000000
--- a/move/data/make_i18n_list
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/perl
-
-use MDK::Common;
-
-my $prefix = $ARGV[0];
-my $rpm = "rpm --root $prefix";
-
-unlink glob("i18n_*.list");
-
-my %have;
-foreach my $list (glob("*.list")) {
- $have{$_} = $list foreach chomp_(cat_($list));
-}
-
-my @pkg_langs = map { /locales-(.*)/ } `$rpm -qa --qf "%{name}\n" locales-*`;
-
-my %extra_pkgs = (
- hy => 'fonts-ttf-armenian',
- ja => 'fonts-ttf-japanese',
- kn => 'fonts-ttf-kannada',
- ko => 'fonts-ttf-korean',
- ta => 'fonts-ttf-tamil fonts-ttf-tscii fonts-bitmap-tscii',
- th => 'fonts-ttf-thai',
- zh => 'fonts-ttf-gb2312 taipeifonts fonts-ttf-big5',
- el => 'fonts-type1-greek',
-);
-
-foreach my $i18n (@pkg_langs) {
- #- $i18n_re is different from $i18n because of things like locales-no giving nb|nn|no
- my $i18n_re = join('|', uniq($i18n, map { if_(/locales-(\S+)/, $1) } `$rpm -q --provides locales-$i18n`));
-
- my @pkgs = uniq("locales-$i18n", chomp_(`$rpm -q --qf "%{name}\n" --whatrequires locales-$i18n`));
- push @pkgs, split(' ', $extra_pkgs{$i18n} || '');
- my @l = grep { !m!^/usr/share/locale/en_ZA! } uniq(chomp_(`$rpm -ql @pkgs`));
- my ($dirs, $files) = partition { -d "$prefix$_" } @l;
-
- my @i18n_dirs = uniq(grep { m!/($i18n_re) (_[^/]*)? (\.[^/]*)? (\@[^/]*)?$!x } @$dirs);
- my $i18n_dirs_re = join('|', map { quotemeta $_ } @i18n_dirs);
- my @files = grep { !m!^($i18n_dirs_re)/! } @$files;
-
- my $list = "i18n_$i18n.list";
- foreach (@i18n_dirs, @files) {
- $have{$_} and die "$_ would be twice: in $have{$_} and $list\n";
- $have{$_} = $list;
- }
- output($list, map { "$_\n" } @i18n_dirs, @files);
-}