diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2007-04-25 12:26:16 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2007-04-25 12:26:16 +0000 |
commit | 126777bc019a54afb4ec51299f2cf9d2841698aa (patch) | |
tree | 97f76e571902ead55ba138f1156a4b4f00b9b779 /move/data/make_i18n_list | |
parent | f1f67448efc714873378dfeb8279fae68054a90a (diff) | |
download | drakx-backup-do-not-use-126777bc019a54afb4ec51299f2cf9d2841698aa.tar drakx-backup-do-not-use-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.gz drakx-backup-do-not-use-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.bz2 drakx-backup-do-not-use-126777bc019a54afb4ec51299f2cf9d2841698aa.tar.xz drakx-backup-do-not-use-126777bc019a54afb4ec51299f2cf9d2841698aa.zip |
re-sync after the big svn loss
Diffstat (limited to 'move/data/make_i18n_list')
-rwxr-xr-x | move/data/make_i18n_list | 47 |
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); -} |